home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1997 December / macgaichiban199712.bin / MOVIES / SCHEDULE.DXR / 00104.ls < prev    next >
Encoding:
Text File  |  1997-10-06  |  2.2 KB  |  96 lines
  1. on button
  2.   set ch to clickOn()
  3.   set cname to item 1 of the name of cast the castNum of sprite ch
  4.   set the castNum of sprite ch to the number of member (cname & ",on")
  5.   updateStage()
  6.   wait(5)
  7.   repeat while the stillDown
  8.     if rollOver(ch) then
  9.       set the castNum of sprite ch to the number of member (cname & ",on")
  10.       updateStage()
  11.       next repeat
  12.     end if
  13.     set the castNum of sprite ch to the number of member (cname & ",off")
  14.     updateStage()
  15.   end repeat
  16.   set the castNum of sprite ch to the number of member (cname & ",off")
  17.   updateStage()
  18. end
  19.  
  20. on visbleon n, m
  21.   repeat with i = n to m
  22.     set the visible of sprite i to 1
  23.   end repeat
  24. end
  25.  
  26. on visbleoff n, m
  27.   repeat with i = n to m
  28.     set the visible of sprite i to 0
  29.   end repeat
  30. end
  31.  
  32. on puppetspon n, m
  33.   repeat with i = n to m
  34.     puppetSprite(i, 1)
  35.   end repeat
  36. end
  37.  
  38. on puppetspoff n, m
  39.   repeat with i = n to m
  40.     puppetSprite(i, 0)
  41.   end repeat
  42. end
  43.  
  44. on chcastnm name, n, m
  45.   set t to 1
  46.   repeat with i = n to m
  47.     set the name of cast i to name & "," & t
  48.     set t to t + 1
  49.   end repeat
  50. end
  51.  
  52. on place spnum, castno, inkno, h, v
  53.   set the type of sprite spnum to 1
  54.   set the ink of sprite spnum to inkno
  55.   set the foreColor of sprite spnum to 255
  56.   set the backColor of sprite spnum to 0
  57.   set the castNum of sprite spnum to castno
  58.   set the loc of sprite spnum to point(h, v)
  59.   updateStage()
  60. end
  61.  
  62. on notupdateplace spnum, castno, inkno, h, v
  63.   set the type of sprite spnum to 1
  64.   set the ink of sprite spnum to inkno
  65.   set the foreColor of sprite spnum to 255
  66.   set the backColor of sprite spnum to 0
  67.   set the castNum of sprite spnum to castno
  68.   set the loc of sprite spnum to point(h, v)
  69. end
  70.  
  71. on wait t
  72.   set etime to ticks() + t
  73.   repeat while etime > ticks()
  74.     nothing()
  75.   end repeat
  76. end
  77.  
  78. on setcastname name, s, e
  79.   set list to ["1", "2", "3_3", "3_2", "3_1", "4_2", "4_1", "5"]
  80.   repeat with i = s to e
  81.     set cnt to i - s + 1
  82.     if (cnt mod 2) = 1 then
  83.       set sex to "MAN"
  84.     else
  85.       set sex to "WOMAN"
  86.     end if
  87.     set realcnt to getAt(list, 9 - ((cnt + 1) / 2))
  88.     set the name of cast i to name & "," & sex & "," & realcnt
  89.   end repeat
  90. end
  91.  
  92. on changecursor type
  93.   set yubino to the number of member type
  94.   cursor([yubino, yubino + 1])
  95. end
  96.