ClickAballS

Sun, 28 Jun 2009 01:22:28 Z

"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.

ClickAballS

Sun, 28 Jun 2009 01:32:11 Z

"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

ClickAballS

Sun, 28 Jun 2009 02:09:25 Z

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.

ClickAballS

Sun, 28 Jun 2009 07:33:02 Z

Nice, it's like a remote control turtle!

ClickAballS

Sun, 28 Jun 2009 10:30:56 Z

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

ClickAballS

Tue, 30 Jun 2009 02:23:54 Z

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