for my game i'm searching simple and original ideas for the player ship shoot. (i detect collision with ennemies via imagecollide functions).
Need some ideas !
For example :
Need some ideas !
For example :
Graphics 800,600 Global ListeCercles:TList = CreateList() Function DrawVectorCircle(cx:Double,cy:Double,radiusx:Double, radiusy:Double) Local lx:Double=radiusx*Cos(0) Local ly:Double=radiusy*Sin(0) For Local d:Double=20 To 360 Step 20 Local nx:Double = radiusx*Cos(d) Local ny:Double = radiusy*Sin(d) SetColor 0,100,0 DrawLine(cx+lx,cy+ly-1,cx+nx,cy+ny-1) SetColor 0,255,0 DrawLine(cx+lx,cy+ly,cx+nx,cy+ny) SetColor 0,100,0 DrawLine(cx+lx,cy+ly+1,cx+nx,cy+ny+1) lx=nx ly=ny Next End Function Type TCercle Field x Field y Field Rayon Field a# Function Creer:TCercle (x,y) Local n:TCercle = New TCercle n.x = x + Rand (-5,5) n.y = y n.rayon = 1 ListAddLast ListeCercles, n Return n End Function Function Maj() For c:TCercle = EachIn ListeCercles SetBlend lightblend SetLineWidth 2 If c.y > 0 Then c.y = c.y - 5 If (c.y Mod 7) = 0 Then If c.a < 10 Then c.a = c.a + 1 c.Rayon = c.Rayon + c.a End If End If SetColor 255,0,0 DrawVectorCircle (c.x , c.y, c.rayon, 5) Else ListeCercles.Remove c End If Next End Function End Type While Not KeyDown (KEY_ESCAPE) Cls If MouseDown(1) l = TCercle.Creer (MouseX(), MouseY()) FlushMouse() End If TCercle.Maj() Flip Wend