Cocktail Hour/image.iso/TRIVIAEX.CST/00035_IdleWine.ls

Text File | 1996-03-04 | 1015 b | 43 lines

on exitFrame
  global OnceCheck
  cursor -1
  if OnceCheck=0 then
    repeat with k=3 to 7
      set the cursor of sprite k=[34,35]
    end repeat
    set the cursor of sprite 13=[34,35]
    set the cursor of sprite 14=[34,35]
    set the cursor of sprite 18=[34,35]
    set the cursor of sprite 24=[34,35]
    set OnceCheck= 1
    repeat with i=42 to 48
      puppetSprite i,1
    end repeat
  end if
  global gTriviaQuestMem
  if  the text of field "score" of castLib "TriviaEx.cst" = 10 and (the last char of gTriviaQuestMem)  and the timer>100 then
    set the member of sprite 19=member "special" of castLib "triviaEx.cst"
  end if

  go to the frame
end

on mouseDown
  global checkPress
  set checkPress=the clickOn
  set bDown=the clickOn
  if bDown>41 then
    buttonPressedDown bDown,"trivia"
  end if
end

on mouseUp
  global checkPress
  set checkPress2=the clickOn
  if checkPress=checkPress2 then
    set bUp=the clickon
    if bUp>41 then
      buttonPressedUp bUp,"trivia"
    end if
  end if
end