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