home *** CD-ROM | disk | FTP | other *** search
/ PROFONDO / PROFONDO.iso / Casts / Invaders.dxr / Internal_5.ls < prev    next >
Encoding:
Text File  |  2001-09-24  |  715 b   |  31 lines
  1. on Inizializza
  2.   global g_AlienStart, g_AlienEnd, g_DirezioneInv, g_Posizione, g_Verticale, g_Punti, g_Vite, g_Esplodi, g_ListaPosIni, g_TempoBonus, g_VelAnim
  3.   g_AlienStart = 30
  4.   g_AlienEnd = 59
  5.   g_DirezioneInv = 4
  6.   g_Posizione = 200
  7.   g_Verticale = 0
  8.   g_Punti = 0
  9.   g_Vite = 5
  10.   g_Esplodi = 1
  11.   g_TempoBonus = 0
  12.   g_VelAnim = 0
  13.   g_ListaPosIni = []
  14.   repeat with i = g_AlienStart to g_AlienEnd
  15.     sprite(i).visible = 1
  16.   end repeat
  17.   repeat with i = 8 to 12
  18.     sprite(i).visible = 1
  19.   end repeat
  20.   put g_Punti into member "Punti"
  21. end
  22.  
  23. on ChiudiPong
  24.   if windowPresent("Star Destroyer III") then
  25.     close(window("Star Destroyer III"))
  26.     forget(window("Star Destroyer III"))
  27.   else
  28.     halt()
  29.   end if
  30. end
  31.