OK. I upgraded my copy. I'm always looking for something new to tinker with. Then I try to do a small right-up for it and put some samples on my website. I need to get me another website that actually does HTML and JavaScript.
The first program is just a template for building board games. I'm not sure what game, but I might do something like Othello. I hope some other users find it useful.
Here's the fixed version:
' Game Board Demo by Rick3137 http://rb23.yolasite.com/
Var btn as string
Var mx as number
Var my as number
Var column as number
Var row as number
Function OnLoad()
setBackgroundColor( 0, 0, 40)
EndFunction
Function OnDraw()
setColor( 255, 255, 255 )
Print( Str$( mx ) , 20, 100)
Print( Str$( my ) , 20, 120)
Print( Str$( column ) , 20, 140)
Print( Str$( row ) , 20, 160)
setColor ( 50 , 50 , 100 )
FillRectangle ( 90 , 0, 520, 520)
setColor ( 90 , 90 , 150 )
FillRectangle ( 100 , 10, 500, 500)
Squares()
EndFunction
Function Squares()
Var x as number
Var y as number
Var x2 as number
Var y2 as number
Var x3 as number
Var y3 as number
Var a as number
Var b as number
setColor ( 255 , 255 , 255 )
x=100
y=10
x2 = x+2
y2 = y+3
x3 = x+48
y3 = y+48
For a = 1 to 100
StrokeRectangle ( x , y, 50, 50)
for b = 1 to 2
setColor ( 0 , 0 , 0 )
Line(x2,y2,x3,y2)
Line(x3,y2,x3,y3)
setColor ( 255 , 255 , 255 )
Next
x=x+50
if x > 590 then
x=100
y = y + 50
endif
x2 = x+2
y2 = y+3
x3 = x+48
y3 = y+48
Next
endfunction
Function OnMouseMoved(x as number, y as number)
mx = x
my = y
mx = Int ( mx )
my = Int ( my )
x = mx -50
y = my - 10
column = Int ( x/50 )
row = Int ( y/50 + 1 )
EndFunction
Function OnMouseReleased(x as number ,y as number, button as string)
Select button
Case "l"
btn = "Left"
break
Case "r"
btn = "Right"
break
EndSelect
EndFunction
