home *** CD-ROM | disk | FTP | other *** search
/ Mind Games (Tessera) / MindGames.iso / mind_games / Files / memory.dxr / Internal_2_EnterFrameScript.ls < prev    next >
Encoding:
Text File  |  2002-11-22  |  2.3 KB  |  95 lines
  1. global gMaxNumOfUsed, gMaxNumOfItems, gCastsOfItems_list, gMembersOnoma, gXsec, gItems_list, gUsed_list, gOpenedValues_list, gTemp_list, gOIC_metr, gOpened_metr, gOpenedItems_list, gRollMaskSprite, gTimeSprite, gxronos, gMaxTime, steps, gPoints, gTheSteps, time_metr, time_Flag, perase, ctime, gMiaw_flag, gKiniseis, dtime, gNiki, gRightMoves, gAllMoves, gKrataTime, gPauseAllowed, gxronos_flag, gLevels_metr, gLevelsMax, gTopicLetter, gUserScore, gIsPaused_flag, thequit
  2.  
  3. on exitFrame
  4.   CheckSound()
  5.   if thequit then
  6.     go(1, "exitMov")
  7.   end if
  8.   go(the frame)
  9. end
  10.  
  11. on enterFrame
  12.   if not gIsPaused_flag then
  13.     if not gMiaw_flag then
  14.       gPauseAllowed = 1
  15.       gxronos = gMaxTime - (the timer / 60) - gKrataTime
  16.       if gxronos_flag = 1 then
  17.         startTimer()
  18.         gxronos_flag = 0
  19.       end if
  20.       sprite(gTimeSprite).member.text = string(gxronos)
  21.       if gxronos <= 0 then
  22.         telos()
  23.       end if
  24.       if gOpened_metr = (gMaxNumOfUsed * 2) then
  25.         changeLevel()
  26.       end if
  27.       if gOIC_metr = 2 then
  28.         gKiniseis = gKiniseis + 1
  29.         elegxos()
  30.       end if
  31.       time_Flag = gxronos mod 2
  32.       if time_Flag = 1 then
  33.         if perase = 1 then
  34.           initShowPoints()
  35.           perase = 0
  36.         end if
  37.       else
  38.         perase = 1
  39.       end if
  40.     end if
  41.   end if
  42. end
  43.  
  44. on elegxos
  45.   if gOpenedValues_list[1] = gOpenedValues_list[2] then
  46.     gOpened_metr = gOpened_metr + 2
  47.     gPoints = gPoints + 20
  48.     Clean()
  49.   else
  50.     dtime = the timer
  51.     repeat while (the timer - dtime) < gXsec
  52.     end repeat
  53.     sendSprite(gOpenedItems_list[1], #changeMember)
  54.     sendSprite(gOpenedItems_list[2], #changeMember)
  55.     Clean()
  56.   end if
  57. end
  58.  
  59. on Clean
  60.   gOpenedItems_list = []
  61.   gOpenedValues_list = []
  62.   gOIC_metr = 0
  63. end
  64.  
  65. on initShowPoints
  66.   gPoints = gPoints - 10
  67.   if gPoints <= 0 then
  68.     member("PointsText").text = "0"
  69.   else
  70.     member("PointsText").text = string(gPoints)
  71.   end if
  72. end
  73.  
  74. on changeLevel
  75.   gLevels_metr = gLevels_metr + 1
  76.   if gLevels_metr > gLevelsMax then
  77.     telos()
  78.   else
  79.     Clean()
  80.     gMaxNumOfUsed = gMaxNumOfUsed + 2
  81.     startTimer()
  82.     go("Level" & string(gLevels_metr))
  83.   end if
  84. end
  85.  
  86. on telos
  87.   if gOpened_metr = (gMaxNumOfUsed * 2) then
  88.     gNiki = 1
  89.   end if
  90.   gAllMoves = gMaxNumOfUsed
  91.   gRightMoves = gOpened_metr / 2
  92.   gUserScore = gPoints
  93.   go("GameOver")
  94. end
  95.