home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / vivi_ex.exe / vivi_ex.DXR / 00009.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  852 b   |  48 lines
  1. on mouseUp
  2.   global gmode
  3.   set gmode to the clickOn
  4.   set h to the mouseH
  5.   cursor(200)
  6.   set the cursor of sprite 46 to 0
  7.   set the cursor of sprite 48 to 0
  8.   repeat with n = 20 to 24
  9.     set the cursor of sprite n to 0
  10.   end repeat
  11.   puppetSound(3, 98)
  12.   puppetSprite(gmode, 1)
  13.   if h > 370 then
  14.     gogameh()
  15.   else
  16.     helph()
  17.   end if
  18. end
  19.  
  20. on gogameh
  21.   global gmode
  22.   if gmode < 22 then
  23.     sound stop 1
  24.     puppetSound(1, 0)
  25.   end if
  26.   set the castNum of sprite gmode to 172 + gmode
  27.   updateStage()
  28.   if gmode < 22 then
  29.     go("pl")
  30.   else
  31.     go(string(gmode))
  32.   end if
  33. end
  34.  
  35. on helph
  36.   global gmode
  37.   set the castNum of sprite gmode to 226
  38.   updateStage()
  39.   repeat while soundBusy(3)
  40.     nothing()
  41.   end repeat
  42.   puppetSound(3, 93)
  43.   set the castNum of sprite gmode to gmode + 201
  44.   puppetTransition(29, 1, 4, 1)
  45.   updateStage()
  46.   go("h1")
  47. end
  48.