home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cocktail Hour
/
image.iso
/
TRIVIAEX.CST
/
00035_Script_IdleWine
< prev
next >
Wrap
Text File
|
1996-03-03
|
1KB
|
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