Oz - The Magical Adventure/Adventure.iso/pc/dkdata/juice.dxr/Internal_10_loadJuice.ls

Text File | 2000-06-01 | 883 b | 24 lines

on exitFrame
  global gFrameCounter, gGameState, gMasterMoves, gGameSol
  gFrameCounter = gFrameCounter + 1
  whichItem = value(char 1 of item 4 of gGameSol)
  HowMuch = value(item whichItem of gGameSol)
  if gFrameCounter > 6 then
    if item whichItem of gGameState < HowMuch then
      whichFruit = char 1 to 5 of the name of the member of sprite(whichItem + 19)
      currentState = value(char 6 to 7 of the name of the member of sprite(whichItem + 19))
      currentState = min(currentState + 1, 9)
      sprite(whichItem + 19).member = whichFruit & "0" & string(currentState)
      oldValue = value(item whichItem of gGameState)
      put oldValue + 1 into item whichItem of gGameState
      puppetSound("click" & string(random(5)))
    end if
    gFrameCounter = 0
  end if
  if item whichItem of gGameState < HowMuch then
    go(the frame)
  else
    go("play")
  end if
end