ClickAballS
- "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.
Tutte le risposte
"online my 1st game"
publish and give GREAT thanks to
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.bigdaddyo
The Hacker the star of the show
litdev
my mum, dad.ect.ect- 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.
- Nice, it's like a remote control turtle!
- Thanks for sharing your work, how about a remote control car next using Shapes rather than Turtle.
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
