Artificial intelligence/templates/examples/rts/rpg/strategy ect. in MonkeyX/CerberusX language. You can download the free version of MonkeyX from itch.io or Cerberus-x.com The Flash applets will stop working in around 2020.
I tried doing this with stacks but it did not work. I also could not find a lot of examples for stacks so I decided to do this with lists.
Code below :
Import mojo Class sprite Field x#,incx# Field y#,incy# Method New() x = DeviceWidth/2 y = DeviceHeight incx=Rnd(1,2);If Rnd(1)>=.5 incx=-incx incy=Rnd(-3,-15) End Method End Class Class MyGame Extends App Field spritelist:List<sprite> = New List<sprite> Method OnCreate() SetUpdateRate(60) End Method Method OnUpdate() spritelist.AddLast(New sprite) For Local i:=Eachin spritelist i.x += i.incx i.y += i.incy i.incy += 0.1 Next For Local i:=Eachin spritelist If i.y > DeviceHeight Then spritelist.Remove i Next End Method Method OnRender() Local cnt:Int = 0 Cls(0,0,0) SetColor(255,255,255) For Local i:=Eachin spritelist DrawCircle i.x,i.y,3 cnt+=1 Next DrawText "Count: "+cnt,10,10 End End Function Main() New MyGame() End
Note: Only a member of this blog may post a comment.
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.