home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Review 39
/
Creative-Review-CD-ROM-39.iso
/
pc
/
getty
/
getty.dir
/
00007_Script_7
< prev
next >
Wrap
Text File
|
1998-07-13
|
2KB
|
88 lines
global gLastRolled
on updateMe1
if gLastRolled <> 0 then
if rollover(gLastRolled) then
exit
end if
end if
set gLastRolled = 0
repeat with x=14 to 16
if rollover(x) then
set gLastRolled = x
exit repeat
end if
end repeat
if gLastRolled = 0 then
set the member of sprite 18 to member "Placedot1"
else
set the member of sprite 18 to member ("Roll" & (x - 13))
end if
updatestage
end updateMe1
---------------------
on updateMe2
if gLastRolled <> 0 then
if rollover(gLastRolled) then
exit
end if
end if
set gLastRolled = 0
repeat with x=14 to 16
if rollover(x) then
set gLastRolled = x
exit repeat
end if
end repeat
if gLastRolled = 0 then
set the member of sprite 18 to member "Placedot2"
else
set the member of sprite 18 to member ("2Roll" & (x - 13))
end if
updatestage
end updateMe2
---------------------
on dispalyPic
case the clickon of
10:
if the memberNum of sprite 5 = 97 then
set the member of sprite 5 to member 132
else
set the member of sprite 5 to member ((the memberNum of sprite 5) - 1)
end if
11:
if the memberNum of sprite 5 = 132 then
set the member of sprite 5 to member 97
else
set the member of sprite 5 to member ((the memberNum of sprite 5) + 1)
end if
12:
if the memberNum of sprite 4 = 145 then
set the member of sprite 4 to member 180
else
set the member of sprite 4 to member ((the memberNum of sprite 4) - 1)
end if
13:
if the memberNum of sprite 4 = 180 then
set the member of sprite 4 to member 145
else
set the member of sprite 4 to member ((the memberNum of sprite 4) + 1)
end if
end case
updatestage
end dispalyPic