Advertisement
jsbsan

timer

Sep 7th, 2014
2,643
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
RAW Paste Data Copied
Advertisement