home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / paris / wave / COUT.dcr / 00196_Ý€¨Ÿø›êÞéZ.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  200 b   |  14 lines
  1. global mm, status
  2.  
  3. on payment money
  4.   if status = 1 then
  5.     if (mm - money) < 0 then
  6.       return 1
  7.       abort()
  8.     end if
  9.   end if
  10.   set mm to mm - money
  11.   put mm into field "gold"
  12.   return 0
  13. end
  14.