home *** CD-ROM | disk | FTP | other *** search
/ Curio City 11 / CURIO11.bin / pc / movie / shop / sakurain.dir / 00012.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  1.4 KB  |  43 lines
  1. on exitFrame
  2.   global guserlist, gnowvoldaka, gvol
  3.   set m to the vol of guserlist
  4.   set s to integer(gnowvoldaka)
  5.   put integer(s) into field "volF"
  6.   set mojisu to length(field "volF")
  7.   if mojisu = 2 then
  8.     puppetSprite(31, 1)
  9.     set ghitoketa to char 1 of field "volF"
  10.     set the memberNum of sprite 31 to 720 + ghitoketa
  11.     set the visible of sprite 31 to 1
  12.   else
  13.     if mojisu = 3 then
  14.       puppetSprite(31, 1)
  15.       puppetSprite(32, 1)
  16.       set ghitoketa to char 1 of field "volF"
  17.       set gfutaketa to char 2 of field "volF"
  18.       set the memberNum of sprite 32 to 720 + ghitoketa
  19.       set the memberNum of sprite 31 to 720 + gfutaketa
  20.       set the visible of sprite 31 to 1
  21.       set the visible of sprite 32 to 1
  22.     else
  23.       if mojisu = 4 then
  24.         puppetSprite(31, 1)
  25.         puppetSprite(32, 1)
  26.         puppetSprite(33, 1)
  27.         set ghitoketa to char 1 of field "volF"
  28.         set gfutaketa to char 2 of field "volF"
  29.         set gsanketa to char 3 of field "volF"
  30.         set the memberNum of sprite 33 to 720 + ghitoketa
  31.         set the memberNum of sprite 32 to 720 + gfutaketa
  32.         set the memberNum of sprite 31 to 720 + gsanketa
  33.         set the visible of sprite 31 to 1
  34.         set the visible of sprite 32 to 1
  35.         set the visible of sprite 33 to 1
  36.       end if
  37.     end if
  38.   end if
  39.   set gvol to s + m
  40.   set the vol of guserlist to s + m
  41.   set gnowvoldaka to 0
  42. end
  43.