ClickAballS

Question

"online copy my 1st game"
GraphicsWindow.BackgroundColor = "midnightblue"
GraphicsWindow.Title = "clickaballs"
GraphicsWindow.Width = 800
GraphicsWindow.Height = 600
GraphicsWindow.Show()

GraphicsWindow.MouseDown = start

A= 30
c=100
GraphicsWindow.BrushColor = "yellow"
GraphicsWindow.FillRectangle(c,c,a,a)
GraphicsWindow.DrawRectangle(c,c,a,a)
GraphicsWindow.BrushColor = "black"
GraphicsWindow.DrawText(c+6, c+7, "OK")

GraphicsWindow.BrushColor = "yellow"
GraphicsWindow.FillRectangle(10,10,10,10)
GraphicsWindow.DrawRectangle(10,10,10,10)

GraphicsWindow.BrushColor = "black"
GraphicsWindow.FillRectangle(10,30,30,30)
GraphicsWindow.DrawRectangle(10,30,30,30)

GraphicsWindow.BrushColor = "black"
GraphicsWindow.FillRectangle(100,30,30,30)
GraphicsWindow.DrawRectangle(100,30,30,30)

mouseclick = 0

While ("True")
  If (mouseclick = 1) Then
    mouseclick = 0
    If (xaxis > c And xaxis < (c+a) And yaxis> c And yaxis < (c+a)) Then
      Turtle.move(100)
    ElseIf (xaxis > 10 And xaxis < (20) And yaxis > 10 And yaxis < (20)) Then
      Turtle.Turn(90)
      Turtle.move(100)
    ElseIf (xaxis > 10 And xaxis < (40) And yaxis > 30 And yaxis < (60)) Then
      Turtle.turn(-90)
      Turtle.Move(100)
       ElseIf (xaxis > 100 And xaxis < (140) And yaxis > 30 And yaxis < (60)) Then
      Turtle.turn(45)
      Turtle.Move(100)
   
 
    
    EndIf
  EndIf
EndWhile

Sub start
  mouseclick = 1
  xaxis = GraphicsWindow.MouseX
  yaxis = GraphicsWindow.MouseY
endsub
 
 
  'startpoint= mr turtles "home," {thanks to i Imix for the name} read and record.
  'button click "Yes or No"
  'If  yes then move and record point. if point = home print"wellcome home mr turtle is that a new t shirt?"
  'did move intersect any lines? "Yes or No"
 
  'If yes did line make a compleate area? "Yes or No"
  'if yes make sides live and call area SCENARIo1. ScenariO1 = 1 +1 (time=0 + .01) and make "clickaball".{good name mental note to resureh {if not copyright as of now.}}
  'fill scenario1 with random. goto No
  'if no carry on


'WHEN programs works spend more time with the family.

Answer 1

"online  my 1st game"
GraphicsWindow.BackgroundColor = "midnightblue"
GraphicsWindow.Title = "clickaballs"
GraphicsWindow.Width = 800
GraphicsWindow.Height = 600
GraphicsWindow.Show()

GraphicsWindow.MouseDown = start

A= 30
c=100
GraphicsWindow.BrushColor = "yellow"
GraphicsWindow.FillRectangle(c,c,a,a)
GraphicsWindow.DrawRectangle(c,c,a,a)
GraphicsWindow.BrushColor = "black"
GraphicsWindow.DrawText(c+6, c+7, "OK")

GraphicsWindow.BrushColor = "yellow"
GraphicsWindow.FillRectangle(10,10,10,10)
GraphicsWindow.DrawRectangle(10,10,10,10)

GraphicsWindow.BrushColor = "black"
GraphicsWindow.FillRectangle(10,30,30,30)
GraphicsWindow.DrawRectangle(10,30,30,30)

GraphicsWindow.BrushColor = "black"
GraphicsWindow.FillRectangle(100,30,30,30)
GraphicsWindow.DrawRectangle(100,30,30,30)

mouseclick = 0

While ("True")
  If (mouseclick = 1) Then
    mouseclick = 0
    If (xaxis > c And xaxis < (c+a) And yaxis> c And yaxis < (c+a)) Then
      Turtle.move(100)
    ElseIf (xaxis > 10 And xaxis < (20) And yaxis > 10 And yaxis < (20)) Then
      Turtle.Turn(90)
      Turtle.move(100)
    ElseIf (xaxis > 10 And xaxis < (40) And yaxis > 30 And yaxis < (60)) Then
      Turtle.turn(-90)
      Turtle.Move(100)
       ElseIf (xaxis > 100 And xaxis < (140) And yaxis > 30 And yaxis < (60)) Then
      Turtle.turn(45)
      Turtle.Move(100)
   
 
    
    EndIf
  EndIf
EndWhile

Sub start
  mouseclick = 1
  xaxis = GraphicsWindow.MouseX
  yaxis = GraphicsWindow.MouseY
endsub
 
 
  'startpoint= mr turtles "home," {thanks to i Imix for the name} read and record.
  'button click "Yes or No"
  'If  yes then move and record point. if point = home print"wellcome home mr turtle is that a new t shirt?"
  'did move intersect any lines? "Yes or No"
 
  'If yes did line make a compleate area? "Yes or No"
  'if yes make sides live and call area SCENARIo1. ScenariO1 = 1 +1 (time=0 + .01) and make "clickaball".{good name mental note to resureh {if not copyright as of now.}}
  'fill scenario1 with random. goto No
  'if no carry on


'WHEN programs works spend more time with the family.

publish and give GREAT thanks to bigdaddyo The Hacker the star of the show litdev
 my mum, dad.ect.ect

Answer 2

wot if = 1 credit
ie. wotif the line gos over a scenario

A to wot if = 2 credits.

1 credit = 1 click.
1 click =  1link.
 and thanks for playing.

Answer 3

Nice, it's like a remote control turtle!

Answer 4

Thanks for sharing your work, how about a remote control car next using Shapes rather than Turtle.

Answer 5

Thanks for sharing your work, how about a remote control car next using Shapes rather than Turtle.

'Thanks for the ideas,
'while i was workking on the car i came over this idea of a program/entertainmet scenario that sees the story and games of 'mr turtle and mrs scenario hair,
 'mr turtle was an artquetecky who had evloved over ...
 'a= space and time
'b =
'c=
'f=
GraphicsWindow.BackgroundColor = "midnightblue"
GraphicsWindow.Title = "Dudewheresmyskateboard"
GraphicsWindow.Width = 800
GraphicsWindow.Height = 600
GraphicsWindow.Show()


GraphicsWindow.MouseDown = mousey

A= 30
c=100
GraphicsWindow.BrushColor = "yellow"
GraphicsWindow.FillRectangle(c,c,a,a)
GraphicsWindow.DrawRectangle(c,c,a,a)
GraphicsWindow.BrushColor = "black"
GraphicsWindow.DrawText(c+6, c+7, "OK")


GraphicsWindow.BrushColor = "yellow"
GraphicsWindow.FillRectangle(310,20,150,30)
GraphicsWindow.DrawRectangle(c,c,a,a)
GraphicsWindow.BrushColor = "black"
GraphicsWindow.DrawText(310+6, 20+7, "No Broken lines = win")









GraphicsWindow.BrushColor = "yellow"
GraphicsWindow.FillRectangle(10,10,10,10)
GraphicsWindow.DrawRectangle(10,10,10,10)

GraphicsWindow.BrushColor = "black"
GraphicsWindow.FillRectangle(10,30,30,30)
GraphicsWindow.DrawRectangle(10,30,30,30)

GraphicsWindow.BrushColor = "black"
GraphicsWindow.FillRectangle(100,30,30,30)
GraphicsWindow.DrawRectangle(100,30,30,30)
GraphicsWindow.PenColor="white"
mouseclick = 0

While ("True")
  If (mouseclick = 1) Then
    mouseclick = 0
    If (xaxis > c And xaxis < (c+a) And yaxis> c And yaxis < (c+a)) Then
    
      For i = 1 To 5
Turtle.Move(9)
Turtle.PenUp()
Turtle.Move(9)
Turtle.PenDown()
EndFor
    
    
      Turtle.move(100)
    ElseIf (xaxis > 10 And xaxis < (20) And yaxis > 10 And yaxis < (20)) Then
      Turtle.Turn(90)
      For i = 1 To 2
Turtle.Move(3)
Turtle.PenUp()
Turtle.Move(3)
Turtle.PenDown()
 pic = Flickr.GetPictureOfMoment()
GraphicsWindow.DrawResizedImage(pic, 0, 0, 640, 480)
EndFor
      Turtle.move(100)
    ElseIf (xaxis > 10 And xaxis < (40) And yaxis > 30 And yaxis < (60)) Then
      Turtle.turn(-90)
      For i = 1 To 2
Turtle.Move(5)
Turtle.PenUp()
Turtle.Move(4)
Turtle.PenDown()
EndFor
      Turtle.Move(100)
       ElseIf (xaxis > 100 And xaxis < (140) And yaxis > 30 And yaxis < (60)) Then
         Turtle.turn(45)
         For i = 1 To 5
Turtle.Move(4)
Turtle.PenUp()
Turtle.Move(5)
Turtle.PenDown()
EndFor
      Turtle.Move(100)
  
 
   
    EndIf
  EndIf
EndWhile

Sub mousey
  mouseclick = 1
  xaxis = GraphicsWindow.MouseX
  yaxis = GraphicsWindow.MouseY

endsub
 
 
  'startpoint= mr turtles "home," {thanks to i Imix for the name} read and record.
  'button click "Yes or No"
  'If  yes then move and record point. if point = home print"wellcome home bob"
  'did move intersect any lines? "Yes or No"
 
  'If yes did line make a compleate area? "Yes or No"
  'if yes make sides live and call area SCENARIo1. ScenariO1 = 1 +1 (time=0 + .01) and make "clickaball".{good name mental note to resureh}
  'fill scenario1 with random. goto No
  'if no carry on