home *** CD-ROM | disk | FTP | other *** search
/ Curio City 11 / CURIO11.bin / pc / movie / shop / sakurain.dir / 00018.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  336 b   |  16 lines
  1. on mouseUp
  2.   global guserlist
  3.   if btndown() then
  4.     repeat with n = 31 to 35
  5.       puppetSprite(n, 0)
  6.     end repeat
  7.     resetyokin()
  8.     set d to the short date
  9.     set the sakuradate of guserlist to d
  10.     set s to the sakuramoney of guserlist
  11.     put integer(s) into field "sakuMone"
  12.     setfontsakura()
  13.     go("EXIT")
  14.   end if
  15. end
  16.