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 / tokyo / slot.dcr / 00066_ýŠ±ï-é¶.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  811 b   |  30 lines

  1. on dspscore
  2.   global userid, gten, gcoin
  3.   clearlamp()
  4.   put userid into field "userID"
  5.   put gten into field "point"
  6.   put gcoin into field "label"
  7. end
  8.  
  9. on _dspscore
  10.   global gname, gten, gcoin
  11.   set n to "├ëX├ëR├ëA├ë`├ëF├ëb├ëN" & RETURN & RETURN
  12.   if gname = EMPTY then
  13.     set n to n & "├ç┬Å├ç├Æ├ç├ù├çΓÇó" && "├ç┼╜├ç├Æ├ç├â" & RETURN
  14.   else
  15.     set n to n & gname && "├ç┼╜├ç├Æ├ç├â" & RETURN
  16.   end if
  17.   set n to n & "├ç┬▒├ç├â├ëQ├à[├ë├ä├ç├â" & RETURN & "├¼├ª├¼_├ç├ò "
  18.   if gten <= 0 then
  19.     set n to n & "0 ├¼_├ç┬╝├ç├¥├àB" & RETURN & RETURN
  20.   else
  21.     set n to n & gten && "├¼_├ç┬╝├ç├¥├àB" & RETURN & RETURN
  22.   end if
  23.   if gcoin > 0 then
  24.     set n to n & "├ç┬«├úΓÇí├çΓäó" && gcoin && "├çΓǪ├ç┬╗├ç┬í├ç├╜├àI"
  25.   else
  26.     set n to n & "├ç┬«├úΓÇí├çΓäó 0 ├çΓǪ├ç┬╗├ç┬í├ç├╜├àI"
  27.   end if
  28.   put n into field "SCORE"
  29. end
  30.