Import mojo
Class MyGame Extends App
Method OnCreate()
SetUpdateRate(60)
End Method
Method OnUpdate()
End Method
Method OnRender()
Cls 0,0,0
SetColor 255,255,255
Scale 2,2
For Local i=0 To 10
DrawText "value i = "+i,0,i*10
If i>=5 Then Exit ' <<<<<<<<<< Exit here on condition
Next
End Method
End Class
Function Main()
New MyGame()
End Function
Friday, February 3, 2017
Monkey-X - Getting Started - Exit - code example
Monkey-X - Beginners - Select and Default - code example
Import mojo
Class MyGame Extends App
Field lastvalue:Int=0
Field laststring:String
Method OnCreate()
SetUpdateRate(60)
End Method
Method OnUpdate()
If KeyDown(KEY_1) Then lastvalue = 1
If KeyDown(KEY_2) Then lastvalue = 2
If KeyDown(KEY_3) Then laststring = "the string"
End Method
Method OnRender()
Cls 0,0,0
SetColor 255,255,255
Scale 2,2
DrawText "Press the 1 or 2 or 3 keys",0,0
Select lastvalue
Case 1
DrawText "Last key pressed is 1",10,20
Case 2
DrawText "Last key pressed is 2",10,20
Default
DrawText "1 or 2 key was not pressed.",10,20
End Select
Select laststring
Case "the string"
DrawText "3 Key was pressed.",10,40
Default
DrawText "3 Key was not pressed.",10,40
End Select
End Method
End Class
Function Main()
New MyGame()
End Function
Monkey-X - Floodfill map distance - code example
Import mojo
Global screenwidth:Int=640
Global screenheight:Int=480
Global mapwidth:Int=20
Global mapheight:Int=20
Global tilewidth:Float=Float(screenwidth)/Float(mapwidth)
Global tileheight:Float=Float(screenheight)/Float(mapheight)
Class MyGame Extends App
Field flood:Bool=False
Field fillval:Int=1
Field delay:Int
Field map:Int[][]
Field mapd:Int[][] 'map containing the distance (distance map)
Field floodx:Stack<Int> = New Stack<Int> 'flood
Field floody:Stack<Int> = New Stack<Int>
Field floodv:Stack<Int> = New Stack<Int> 'distance
Field mx:Int[] = [0,1,0,-1] 'expand up/right/down/left
Field my:Int[] = [-1,0,1,0]
Method OnCreate()
SetUpdateRate(60)
map = New Int[mapwidth][]
For Local i=0 Until mapwidth
map[i] = New Int[mapheight]
Next
mapd = New Int[mapwidth][]
For Local i=0 Until mapwidth
mapd[i] = New Int[mapheight]
Next
For Local x=0 Until mapwidth/2
map[x][mapheight/2] = 6
Next
End Method
Method OnUpdate()
Local tx:Int=MouseX()/tilewidth
Local ty:Int=MouseY()/tileheight
If MouseDown(MOUSE_LEFT) And flood=False And map[tx][ty] <> 6
Print "Flooding - "+Millisecs()
floodx.Clear
floody.Clear
floodv.Clear
For Local y=0 Until mapheight
For Local x=0 Until mapwidth
mapd[x][y] = 0
Next
Next
floodx.Push(tx)
floody.Push(ty)
floodv.Push(1)
flood = True
fillval+=1
If fillval > 5 Then fillval = 0
map[tx][ty] = fillval
mapd[tx][ty] = 1
End If
If flood = True
If floodx.Length > 0
Local x1:Int=floodx.Top
Local y1:Int=floody.Top
Local v1:Int=floodv.Top
floodx.Pop
floody.Pop
floodv.Pop
For Local i=0 Until 4
Local x2:Int=x1+mx[i]
Local y2:Int=y1+my[i]
If x2>=0 And x2<mapwidth And y2>=0 And y2<mapheight
If map[x2][y2] <> fillval
If map[x2][y2] <> 6
map[x2][y2] = fillval
' if you insert the new locations at the bottom
' of the list then you will get correct distance values (flooding)
floodx.Insert(0,x2)
floody.Insert(0,y2)
floodv.Insert(0,v1+1)
'store the distance in the map
mapd[x2][y2] = v1+1
End If
End If
End If
Next
Else
flood=False
Print "Flooding done"
End If
End If
End Method
Method OnRender()
For Local y=0 Until mapheight
For Local x=0 Until mapwidth
Local col:Int=map[x][y]
SetColor col*30,col*30,col*30
DrawRect x*tilewidth,y*tileheight,tilewidth+1,tileheight+1
Next
Next
For Local i=0 Until floodx.Length
SetColor 255,255,0
DrawCircle floodx.Get(i)*tilewidth+tilewidth/2,floody.Get(i)*tileheight+tileheight/2,tilewidth/2
Next
SetColor 255,255,255
For Local y=0 Until mapheight
For Local x=0 Until mapwidth
DrawText mapd[x][y],x*tilewidth+tilewidth-10,y*tileheight+tileheight-10
Next
Next
SetColor 255,255,255
DrawText "Press Left Mouse (touch) to flood map..",0,0
End Method
End Class
Function Main()
New MyGame()
End Function
Monkey-X - RTS - Floodfill or Seedfill group pathfinding - code example
Import mojo Global screenwidth:Int=640 Global screenheight:Int=480 Global mapwidth:Int=20 Global mapheight:Int=20 Global tilewidth:Float=Float(screenwidth)/Float(mapwidth) Global tileheight:Float=Float(screenheight)/Float(mapheight) Global map:Int[][] Global mapd:Int[][] 'map containing the distance (distance map) Global mx:Int[] = [0,1,0,-1] 'expand up/right/down/left Global my:Int[] = [-1,0,1,0] Class ai Field x:Int,y:Int Field speed:Int=Rnd(1,9) Field px:Int,py:Int,pdx:Int,pdy:Int Field delay:Int Field maxdelay:Int Method New() maxdelay=Rnd(20,60) Local exitloop:Bool=False While exitloop=False x=Rnd(mapwidth) y=Rnd(mapheight) If map[x][y] <> 6 Then exitloop = True Wend px = x*tilewidth py = y*tileheight pdx = px pdy = py End Method Method update() For Local s=0 Until speed If px<pdx Then px+=1 If px>pdx Then px-=1 If py<pdy Then py+=1 If py>pdy Then py-=1 If px=pdx And py=pdy Local lx:Stack<Int> = New Stack<Int> Local ly:Stack<Int> = New Stack<Int> Local lv:Stack<Int> = New Stack<Int> For Local i=0 Until 4 Local x1:Int=x+mx[i] Local y1:Int=y+my[i] If x1>=0 And x1<mapwidth And y1>=0 And y1<mapheight If map[x1][y1] <> 6 If mapd[x1][y1] <> 0 Local cont:Bool=True For Local ii:=Eachin myai If ii.x = x1 And ii.y = y1 Then cont=False Next If cont=True lx.Push(x1) ly.Push(y1) lv.Push(mapd[x1][y1]) End If End If End If End If Next ' fidn the lowest value around unit Local lowest:Int=1000 For Local i=0 Until lx.Length If lv.Get(i) < lowest lowest = lv.Get(i) End If Next ' if more then one lowest value then select random Local exitloop:Bool=False While exitloop=False And lx.Length>0 For Local i=0 Until lx.Length If lv.Get(i) = lowest And Rnd()<.2 Then x = lx.Get(i) y = ly.Get(i) pdx = x*tilewidth pdy = y*tileheight exitloop=True End If Next wend End If Next End Method Method draw() SetColor 255,0,0 DrawOval px,py,tilewidth,tileheight End Method End Class Global myai:List<ai> = New List<ai> Class MyGame Extends App Field flood:Bool=False Field fillval:Int=1 Field delay:Int Field floodx:Stack<Int> = New Stack<Int> 'flood Field floody:Stack<Int> = New Stack<Int> Field floodv:Stack<Int> = New Stack<Int> 'distance Method OnCreate() SetUpdateRate(60) map = New Int[mapwidth][] For Local i=0 Until mapwidth map[i] = New Int[mapheight] Next mapd = New Int[mapwidth][] For Local i=0 Until mapwidth mapd[i] = New Int[mapheight] Next For Local x=0 Until mapwidth/2 map[x][mapheight/2] = 6 Next For Local x=6 To 15 For Local y=10 To 15 map[x][y] = 6 Next Next For Local i=0 To 20 myai.AddLast(New ai) Next End Method Method OnUpdate() ' move the ai For Local i:=Eachin myai i.update Next ' Local tx:Int=MouseX()/tilewidth Local ty:Int=MouseY()/tileheight If MouseDown(MOUSE_LEFT) And flood=False And map[tx][ty] <> 6 Print "Flooding - "+Millisecs() floodx.Clear floody.Clear floodv.Clear For Local y=0 Until mapheight For Local x=0 Until mapwidth mapd[x][y] = 0 Next Next floodx.Push(tx) floody.Push(ty) floodv.Push(1) flood = True fillval+=1 If fillval > 5 Then fillval = 0 map[tx][ty] = fillval mapd[tx][ty] = 1 End If If flood = True If floodx.Length > 0 Local x1:Int=floodx.Top Local y1:Int=floody.Top Local v1:Int=floodv.Top floodx.Pop floody.Pop floodv.Pop For Local i=0 Until 4 Local x2:Int=x1+mx[i] Local y2:Int=y1+my[i] If x2>=0 And x2<mapwidth And y2>=0 And y2<mapheight If map[x2][y2] <> fillval If map[x2][y2] <> 6 map[x2][y2] = fillval ' if you insert the new locations at the bottom ' of the list then you will get correct distance values (flooding) floodx.Insert(0,x2) floody.Insert(0,y2) floodv.Insert(0,v1+1) 'store the distance in the map mapd[x2][y2] = v1+1 End If End If End If Next Else flood=False Print "Flooding done" End If End If End Method Method OnRender() For Local y=0 Until mapheight For Local x=0 Until mapwidth Local col:Int=map[x][y] SetColor col*30,col*30,col*30 DrawRect x*tilewidth,y*tileheight,tilewidth+1,tileheight+1 Next Next For Local i=0 Until floodx.Length SetColor 255,255,0 DrawCircle floodx.Get(i)*tilewidth+tilewidth/2,floody.Get(i)*tileheight+tileheight/2,tilewidth/2 Next SetColor 255,255,255 For Local y=0 Until mapheight For Local x=0 Until mapwidth DrawText mapd[x][y],x*tilewidth+tilewidth-10,y*tileheight+tileheight-10 Next Next ' For Local i:=Eachin myai i.draw Next ' SetColor 255,255,255 DrawText "Press Left Mouse (touch) to flood map and move units..",0,0 End Method End Class Function Main() New MyGame() End Function
Monkey-X - Roguelike Maps - code example
' based on a description from the rogue basin forum ' what it does it place random dots with unique id ' connect closest of different id ' make same id of last point ' until all points ' loop through all lines and fill map under the lines. Import mojo Global mapwidth:Int=50 Global mapheight:Int=50 Global sw:Int=640 Global sh:Int=480 Class map Field mw:Int,mh:Int,sw:Int,sh:Int,tw:Float,th:Float Field mypoint:Stack<point> = New Stack<point> Field myline:Stack<line> = New Stack<line> Field map:Int[][] Method New(sw:Int,sh:Int,mw:Int,mh:Int) Self.sw = sw Self.sh = sh Self.mw = mw Self.mh = mh Self.tw = Float(sw)/Float(mw) Self.th = Float(sh)/Float(mh) map = New Int[mw][] For Local i=0 Until mw map[i] = New Int[mh] Next For Local i=0 Until mw*mh/200 Local x:Int=Rnd(5,mw-5) Local y:Int=Rnd(5,mh-5) mypoint.Push(New point(i,x,y)) Next makemap() End Method Method makemap() ' connect point to closest point with unique id 'get first point Local x:Int=mypoint.Get(0).x Local y:Int=mypoint.Get(0).y Local id:Int=mypoint.Get(0).id Local closestindex:Int=0 While closestindex<>-1 'find closest Local dist:Int=10000 closestindex=-1 For Local ii=0 Until mypoint.Length If mypoint.Get(ii).id <> id Local d:Int=distance(x,y,mypoint.Get(ii).x,mypoint.Get(ii).y) If d<dist Then dist=d closestindex = ii End If End If Next If closestindex>-1 mypoint.Get(closestindex).id = id myline.Push(New line(x,y,mypoint.Get(closestindex).x,mypoint.Get(closestindex).y)) x = mypoint.Get(closestindex).x y = mypoint.Get(closestindex).y End If Wend 'make the map For Local i:=Eachin myline Local x1:Int=i.x1 Local y1:Int=i.y1 Local x2:Int=i.x2 Local y2:Int=i.y2 Local exitloop:Bool=False While exitloop=False If x1<x2 Then x1+=1 If x1>x2 Then x1-=1 If y1<y2 Then y1+=1 If y1>y2 Then y1-=1 If x1=x2 And y1=y2 Then exitloop=True ' create the tunnel size Local s:Int=Rnd(1,3) ' sometimes make a wider tunnel If Rnd(mw*mh)< (mw*mh/7) Then s=Rnd(s,s*3) putmap(x1,y1,s) Wend Next End Method Method putmap(x:Int,y:Int,s:Int) For Local y3=-s To s For Local x3=-s To s Local x4:Int=x+x3 Local y4:Int=y+y3 If x4>=0 And x4<mw And y4>=0 And y4<mh map[x4][y4] = 1 End If Next Next End Method Method draw() SetColor 155,50,0 For Local y=0 Until mh For Local x=0 Until mw If map[x][y] = 1 DrawRect x*tw,y*th,tw+1,th+1 End If Next Next SetColor 255,255,0 For Local i:=Eachin myline Local x1:Int=i.x1*tw Local y1:Int=i.y1*th Local x2:Int=i.x2*tw Local y2:Int=i.y2*th DrawLine x1,y1,x2,y2 Next SetColor 255,0,0 For Local i:=Eachin mypoint DrawRect i.x*tw,i.y*th,5,5 DrawText i.id,i.x*tw,i.y*th Next End Method Method distance:Int(x1:Int,y1:Int,x2:Int,y2:Int) Return Abs(x2-x1)+Abs(y2-y1) End Method End Class Class point Field id:Int Field x:Int,y:Int Method New(id:Int,x:Int,y:Int) Self.id = id Self.x = x Self.y = y End Method End Class Class line Field x1:Int,y1:Int Field x2:Int,y2:Int Method New(x1:Int,y1:Int,x2:Int,y2:Int) Self.x1 = x1 Self.y1 = y1 Self.x2 = x2 Self.y2 = y2 End Method End Class Global mymap:map Class MyGame Extends App Field cnt:Int=0 Method OnCreate() SetUpdateRate(10) mymap = New map(640,480,mapwidth,mapheight) End Method Method OnUpdate() cnt+=1 If cnt>100 Or KeyDown(KEY_SPACE) Or MouseDown(MOUSE_LEFT) Then Seed = Millisecs() cnt=0 Local w:Int=Rnd(50,200) Local h:Int=w mymap = New map(640,480,w,h) End If End Method Method OnRender() Cls 0,0,0 mymap.draw SetColor 255,255,255 DrawText "RogueLike maps - Press Space or Mouse Button for new map or wait",0,0 End Method End Class Function Main() New MyGame() End Function
Monkey-X - Roguelike Explorer - code example
Import mojo
Global mapwidth:Int=50
Global mapheight:Int=50
Global sw:Int=640
Global sh:Int=480
Class player
Field x:Int,y:Int,controldelay:Int
Field tleft:Bool,tright:Bool,tup:Bool,tdown:Bool
Field tleftx:Int=20
Field tlefty:Int=sh-100
Field trightx:Int=120
Field trighty:Int=sh-100
Field tupx:Int=70
Field tupy:Int=sh-150
Field tdownx:Int=70
Field tdowny:Int=sh-50
Method New()
x = mymap.mypoint.Get(1).x
y = mymap.mypoint.Get(1).y
playerfog(x,y,6)
End Method
Method update()
controldelay+=1
If controldelay<10 Then Return
'touch mouse input
If MouseDown(MOUSE_LEFT) Or TouchDown
Local x:Int
Local y:Int
Local w:Int=100
Local h:Int=50
x = tupx
y = tupy
If rectsoverlap(x,y,w,h,MouseX(),MouseY(),1,1) Then tup=True
x = tdownx
y = tdowny
If rectsoverlap(x,y,w,h,MouseX(),MouseY(),1,1) Then tdown=True
x = tleftx
y = tlefty
If rectsoverlap(x,y,w,h,MouseX(),MouseY(),1,1) Then tleft=True
x = trightx
y = trighty
If rectsoverlap(x,y,w,h,MouseX(),MouseY(),1,1) Then tright=True
End If
'keyinput
If KeyDown(KEY_UP) Or tup
If y-1 >= 0
If mymap.map[x][y-1] = 1 Then y-=1
controldelay = 0
playerfog(x,y,6)
End If
End If
If KeyDown(KEY_DOWN) Or tdown
If y+1 < mymap.mh
If mymap.map[x][y+1] = 1 Then y+=1
controldelay = 0
playerfog(x,y,6)
End If
End If
If KeyDown(KEY_RIGHT) Or tright
If x+1 < mymap.mw
If mymap.map[x+1][y] = 1 Then x+=1
controldelay = 0
playerfog(x,y,6)
End If
End If
If KeyDown(KEY_LEFT) Or tleft
If x-1 >=0
If mymap.map[x-1][y] = 1 Then x-=1
controldelay = 0
playerfog(x,y,6)
End If
End If
tup=False
tright=False
tdown=False
tleft=false
End Method
Method draw()
SetColor 255,255,255
Local tw:Float=mymap.tw
Local th:Float=mymap.th
DrawRect x*tw,y*th,tw,th
SetColor 255,255,0
DrawRect tleftx,tlefty,100,50
SetColor 255,255,255
DrawText "Left",tleftx+50,tlefty+25,0.5,0.5
SetColor 255,255,0
DrawRect trightx,trighty,100,50
SetColor 255,255,255
DrawText "Right",trightx+50,trighty+25,0.5,0.5
SetColor 255,255,0
DrawRect tupx,tupy,100,50
SetColor 255,255,255
DrawText "Up",tupx+50,tupy+25,0.5,0.5
SetColor 255,255,0
DrawRect tdownx,tdowny,100,50
SetColor 255,255,255
DrawText "Down",tdownx+50,tdowny+25,0.5,0.5
End Method
Method playerfog(x1,y1,radius:Float)
For Local y2=-radius To radius
For Local x2=-radius To radius
If (y2*y2+x2*x2) <= radius*radius+radius*0.8
Local x3 = x2+x1
Local y3 = y2+y1
If x3>=0 And x3<mymap.mw And y3>=0 And y3<mymap.mh
mymap.fogmap[x3][y3] = True
End If
End If
Next
Next
End Method
Method rectsoverlap:Bool(x1:Int, y1:Int, w1:Int, h1:Int, x2:Int, y2:Int, w2:Int, h2:Int)
If x1 >= (x2 + w2) Or (x1 + w1) <= x2 Then Return False
If y1 >= (y2 + h2) Or (y1 + h1) <= y2 Then Return False
Return True
End Method
End Class
Class map
Field mw:Int,mh:Int,sw:Int,sh:Int,tw:Float,th:Float
Field mypoint:Stack<point> = New Stack<point>
Field myline:Stack<line> = New Stack<line>
Field map:Int[][]
Field fogmap:Bool[][]
Method New(sw:Int,sh:Int,mw:Int,mh:Int)
Self.sw = sw
Self.sh = sh
Self.mw = mw
Self.mh = mh
Self.tw = Float(sw)/Float(mw)
Self.th = Float(sh)/Float(mh)
map = New Int[mw][]
fogmap = New Bool[mw][]
For Local i=0 Until mw
map[i] = New Int[mh]
fogmap[i] = New Bool[mh]
Next
For Local i=0 Until mw*mh/200
Local x:Int=Rnd(5,mw-5)
Local y:Int=Rnd(5,mh-5)
If rectsoverlap(x*tw,y*th,1,1,0,sh-240,320,240) = False
mypoint.Push(New point(i,x,y))
End If
Next
makemap()
End Method
Method makemap()
' connect point to closest point with unique id
'get first point
Local x:Int=mypoint.Get(0).x
Local y:Int=mypoint.Get(0).y
Local id:Int=mypoint.Get(0).id
Local closestindex:Int=0
While closestindex<>-1
'find closest
Local dist:Int=10000
closestindex=-1
For Local ii=0 Until mypoint.Length
If mypoint.Get(ii).id <> id
Local d:Int=distance(x,y,mypoint.Get(ii).x,mypoint.Get(ii).y)
If d<dist Then
dist=d
closestindex = ii
End If
End If
Next
If closestindex>-1
mypoint.Get(closestindex).id = id
myline.Push(New line(x,y,mypoint.Get(closestindex).x,mypoint.Get(closestindex).y))
x = mypoint.Get(closestindex).x
y = mypoint.Get(closestindex).y
End If
Wend
'make the map
For Local i:=Eachin myline
Local x1:Int=i.x1
Local y1:Int=i.y1
Local x2:Int=i.x2
Local y2:Int=i.y2
Local exitloop:Bool=False
While exitloop=False
If x1<x2 Then x1+=1
If x1>x2 Then x1-=1
If y1<y2 Then y1+=1
If y1>y2 Then y1-=1
If x1=x2 And y1=y2 Then exitloop=True
' create the tunnel size
Local s:Int=Rnd(1,3)
' sometimes make a wider tunnel
If Rnd(mw*mh)< (mw*mh/7) Then s=Rnd(s,s*3)
putmap(x1,y1,s)
Wend
Next
End Method
Method putmap(x:Int,y:Int,s:Int)
For Local y3=-s To s
For Local x3=-s To s
Local x4:Int=x+x3
Local y4:Int=y+y3
If x4>=0 And x4<mw And y4>=0 And y4<mh
map[x4][y4] = 1
End If
Next
Next
End Method
Method draw()
SetColor 155,50,0
For Local y=0 Until mh
For Local x=0 Until mw
If map[x][y] = 1 And fogmap[x][y] = true
DrawRect x*tw,y*th,tw+1,th+1
End If
Next
Next
End Method
Method distance:Int(x1:Int,y1:Int,x2:Int,y2:Int)
Return Abs(x2-x1)+Abs(y2-y1)
End Method
Method rectsoverlap:Bool(x1:Int, y1:Int, w1:Int, h1:Int, x2:Int, y2:Int, w2:Int, h2:Int)
If x1 >= (x2 + w2) Or (x1 + w1) <= x2 Then Return False
If y1 >= (y2 + h2) Or (y1 + h1) <= y2 Then Return False
Return True
End Method
End Class
Class point
Field id:Int
Field x:Int,y:Int
Method New(id:Int,x:Int,y:Int)
Self.id = id
Self.x = x
Self.y = y
End Method
End Class
Class line
Field x1:Int,y1:Int
Field x2:Int,y2:Int
Method New(x1:Int,y1:Int,x2:Int,y2:Int)
Self.x1 = x1
Self.y1 = y1
Self.x2 = x2
Self.y2 = y2
End Method
End Class
Global mymap:map
Global myplayer:player
Class MyGame Extends App
Field mapexplored:Bool=False
Field w:Int=mapwidth,h:Int=mapheight
Method OnCreate()
SetUpdateRate(60)
mymap = New map(640,480,w,h)
myplayer = New player()
End Method
Method OnUpdate()
If KeyDown(KEY_SPACE) Or mapexplored = True Then
mapexplored = False
Seed = Millisecs()
w+=2
h+=2
If w>300 Then w = 50 ; h = 50
mymap = New map(640,480,w,h)
myplayer = New player()
End If
myplayer.update
If Rnd()<.01 And ismapexplored() Then mapexplored=True
End Method
Method OnRender()
Cls 0,0,0
mymap.draw
myplayer.draw
SetColor 255,255,255
SetAlpha 0.5
DrawText "RogueLike random maps and fog of war and player. space/mouse new map, cursors move.",0,0
DrawText "If everything is explored a new map is created.",0,15
End Method
End Class
Function ismapexplored:Bool()
Local ex:Bool=True
For Local y=0 Until mymap.mh
For Local x=0 Until mymap.mw
If mymap.map[x][y] = 1 And mymap.fogmap[x][y] = False Then ex=False
Next
Next
Return ex
End Function
Function Main()
New MyGame()
End Function
Monkey-X - Rectangle Collision Helper - code example
Import mojo
Class line
Field x1:Int,y1:Int
Field x2:Int,y2:Int
Field w:Int,h:Int
Field r:Int,g:Int,b:Int
Method New(x1:Int,y1:Int,w:Int,h:Int)
Self.x1 = x1
Self.y1 = y1
Self.w = w
Self.h = h
Self.x2 = x1+w
Self.y2 = y1+h
End Method
Method newpos(x:Int,y:Int)
x1=x
y1=y
x2=x1+w
y2=y1+h
End Method
Method mysetcolor(r:Int,g:Int,b:Int)
Self.r = r
Self.g = g
Self.b = b
End Method
Method draw()
SetColor r,g,b
DrawRect x1,y1,w,h
End Method
End Class
Class MyGame Extends App
Field line1:line = New line(150,150,100,100)
Field line2:line = New line(200,200,100,100)
Method OnCreate()
SetUpdateRate(60)
line1.mysetcolor(200,0,0)
line2.mysetcolor(0,200,0)
End Method
Method OnUpdate()
line1.newpos(MouseX(),MouseY())
End Method
Method OnRender()
Cls 0,0,0
SetColor 255,255,255
drawthickline 10,10,10,DeviceHeight-10
drawthickline 10,DeviceHeight-10,DeviceWidth-10,DeviceHeight-10
line1.draw
line2.draw
' draw the sidelines
'left
Local y1:Int=line1.y1
Local y2:Int=line1.y2
SetColor 200,50,0
drawthickline 11,y1,11,y2
y1=line2.y1
y2=line2.y2
SetColor 50,200,0
drawthickline 15,y1,15,y2
'bottom
Local x1:Int=line1.x1
Local x2:Int=line1.x2
SetColor 200,50,0
drawthickline x1,DeviceHeight-11,x2,DeviceHeight-11
x1=line2.x1
x2=line2.x2
SetColor 50,200,0
drawthickline x1,DeviceHeight-15,x2,DeviceHeight-15
'info
Scale 2,2
SetColor 255,255,255
DrawText "When 2 sets of lines are overlapping then",30,0
DrawText "a rectangular collision is happening...",30,20
DrawText "Move block with mouse",30,(DeviceHeight-50)/2
SetColor 255,255,0
If rectsoverlap( line1.x1,line1.y1,line1.w,line1.h,
line2.x1,line2.y1,line2.w,line2.h)
DrawText "Collision is happening",30,40
End If
End Method
End Class
Function drawthickline(x1:Int,y1:Int,x2:Int,y2:Int)
For Local y=-2 To 2
For Local x=-2 To 2
DrawLine x1+x,y1+y,x2+x,y2+y
Next
Next
End Function
Function rectsoverlap:Bool(x1:Int, y1:Int, w1:Int, h1:Int, x2:Int, y2:Int, w2:Int, h2:Int)
If x1 >= (x2 + w2) Or (x1 + w1) <= x2 Then Return False
If y1 >= (y2 + h2) Or (y1 + h1) <= y2 Then Return False
Return True
End
Function Main()
New MyGame()
End Function
Subscribe to:
Posts (Atom)