home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jurassic Jigsaws
/
JURASSIC.BIN
/
mmvdemo.dir
/
00013_Script_13
< prev
next >
Wrap
Text File
|
1996-09-24
|
1KB
|
26 lines
global carnylist, carnyspotlist, loungespotlist
on initcarnival
set carnylist = [ #carousel : birth (script "carnyscript", "carousel",1),¼
#ferrisW : birth (script "carnyscript", "ferrisW", 1),¼
#balloonB : birth (script "carnyscript", "balloonB", 3),¼
#sideShow : birth (script "carnyscript", "sideshow", 3),¼
#animal : birth (script "carnyscript", "animal", 3) ]
set carnyspotlist = [ "carousel":1, "ferrisW":1, "balloonB":3, "sideShow":3, "animal":3 ,¼
"beaver" : 4 , "duck": 3 , "monkey": 2 , "TV" : 3 ]
end initcarnival
on checkhotspot whichobj
-- alert "about to play the animation named " & whichobj
put string(whichobj) into spotname
put "the string name is " & spotname
put getAprop(carnyspotlist, spotname) into howmanyanims
-- alert "there are " & howmanyanims & " animations"
put (spotname & string (random(howmanyanims))) into whichframe
play frame whichframe
-- put getAprop (carnylist , whichobj ) into whichone
-- dohotspot whichone
end checkhotspot