Advertisement
jsbsan

timer

Sep 7th, 2014
5,499
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.65 KB | None | 0 0
  1. Public Sub TimerRedibujar_Timer()
  2.  
  3.   Dim aviontmp As Sprite
  4.   Dim disparotmp As Sprite
  5.   Dim explosion As Explode
  6.  
  7.   If ciclo > 200 Then
  8.     creaenemigo()
  9.     ciclo = 0
  10.   Else
  11.     ciclo += 1
  12.   Endif
  13.  
  14.   'mover los aviones....
  15.   For Each aviontmp In grupoAviones
  16.     aviontmp.mover()
  17.   Next
  18.  
  19.   'mover disparos
  20.   For Each disparotmp In grupoDisparosPropios
  21.     disparotmp.mover()
  22.   Next
  23.  
  24.   'mover disparos enemigos
  25.   For Each disparotmp In grupoDisparosEnemigos
  26.     disparotmp.mover()
  27.   Next
  28.  
  29.   analizaColisiones()
  30.   'mover explosiones
  31.   For Each explosion In grupoExplosiones
  32.     explosion.mover()
  33.   Next
  34.  
  35.   DrawingArea1.Refresh()
  36.  
  37. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement