home *** CD-ROM | disk | FTP | other *** search
/ 3 Monkeys / 3MONKEYS_DEMO_CD.ISO / Invaders.exe / Invaders.dxr / Internal_5.ls < prev    next >
Encoding:
Text File  |  2002-02-12  |  673 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("Pong") then
  25.     close(window("Pong"))
  26.     forget(window("Pong"))
  27.   else
  28.     halt()
  29.   end if
  30. end
  31.