home *** CD-ROM | disk | FTP | other *** search
/ Curio City 11 / CURIO11.bin / pc / movie / shop / cal_g.dir / 00027_ãóLÉnÉìÉhÉâ.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  2.6 KB  |  109 lines
  1. on pushbutton1 markername
  2.   set spnum to clickOn()
  3.   set nowcastnum to the memberNum of sprite spnum
  4.   puppetSprite(spnum, 1)
  5.   repeat while the stillDown
  6.     if rollOver(spnum) then
  7.       set the memberNum of sprite spnum to nowcastnum + 1
  8.     else
  9.       set the memberNum of sprite spnum to nowcastnum
  10.     end if
  11.     updateStage()
  12.   end repeat
  13.   updateStage()
  14.   if rollOver(spnum) then
  15.     wait(30)
  16.     puppetSprite(spnum, 0)
  17.     updateStage()
  18.     go(markername)
  19.   end if
  20.   puppetSprite(spnum, 0)
  21.   updateStage()
  22. end
  23.  
  24. on pushbutton2 markername
  25.   set spnum to clickOn()
  26.   set nowcasth to the locH of sprite spnum
  27.   set nowcastv to the locV of sprite spnum
  28.   puppetSprite(spnum, 1)
  29.   repeat while the stillDown
  30.     if rollOver(spnum) then
  31.       set the locH of sprite spnum to nowcasth + 4
  32.       set the locV of sprite spnum to nowcastv + 4
  33.     else
  34.       set the locH of sprite spnum to nowcasth
  35.       set the locV of sprite spnum to nowcastv
  36.     end if
  37.     updateStage()
  38.   end repeat
  39.   set the locH of sprite spnum to nowcasth
  40.   set the locV of sprite spnum to nowcastv
  41.   updateStage()
  42.   if rollOver(spnum) then
  43.     wait(30)
  44.     puppetSprite(spnum, 0)
  45.     updateStage()
  46.     go(markername)
  47.   end if
  48.   puppetSprite(spnum, 0)
  49.   updateStage()
  50. end
  51.  
  52. on btndown2
  53.   set spnum to clickOn()
  54.   set nowcastnum to the memberNum of sprite spnum
  55.   puppetSprite(spnum, 1)
  56.   repeat while stillDown()
  57.     if rollOver(clickOn()) then
  58.       set the memberNum of sprite spnum to nowcastnum + 1
  59.     else
  60.       set the memberNum of sprite spnum to nowcastnum
  61.     end if
  62.     updateStage()
  63.   end repeat
  64.   wait(30)
  65.   puppetSprite(spnum, 0)
  66.   updateStage()
  67.   set the memberNum of sprite spnum to nowcastnum
  68.   puppetSprite(spnum, 0)
  69.   updateStage()
  70.   if rollOver(clickOn()) then
  71.     return 1
  72.   end if
  73.   return 0
  74. end
  75.  
  76. on btndown3
  77.   set spnum to clickOn()
  78.   set nowcastnum to the memberNum of sprite spnum
  79.   puppetSprite(spnum, 1)
  80.   repeat while stillDown()
  81.     if rollOver(clickOn()) then
  82.       set the cursor of sprite 22 to [member "yubiG", member "yubiGM"]
  83.       set the memberNum of sprite spnum to nowcastnum + 1
  84.     else
  85.       set the cursor of sprite 22 to [member "yubiP", member "yubiPM"]
  86.       set the memberNum of sprite spnum to nowcastnum
  87.     end if
  88.     updateStage()
  89.   end repeat
  90.   wait(20)
  91.   puppetSprite(spnum, 0)
  92.   updateStage()
  93.   set the cursor of sprite 22 to [member "yubiP", member "yubiPM"]
  94.   set the memberNum of sprite spnum to nowcastnum
  95.   puppetSprite(spnum, 0)
  96.   updateStage()
  97.   if the mouseUp then
  98.     return 1
  99.   end if
  100.   return 0
  101. end
  102.  
  103. on wait t
  104.   set endtime to the ticks + t
  105.   repeat while the ticks <= endtime
  106.     nothing()
  107.   end repeat
  108. end
  109.