home *** CD-ROM | disk | FTP | other *** search
/ Curio City 11 / CURIO11.bin / pc / movie / shop / sakurain.dir / 00325.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  342 b   |  15 lines
  1. on mouseUp
  2.   global guserlist
  3.   set m to the money of guserlist
  4.   set s to the sakuramoney of guserlist
  5.   set m to s + m + getkinri()
  6.   set the money of guserlist to m
  7.   set the sakuramoney of guserlist to 0
  8.   set gu2 to 0
  9.   puppetSound(cast 337)
  10.   puppetSprite(3, 0)
  11.   put integer(m) into field "money"
  12.   setfontsakura()
  13.   go("UKETUKE")
  14. end
  15.