home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / roudoku.dir / 00288_Script_288 < prev    next >
Text File  |  1995-11-10  |  1KB  |  45 lines
  1. on Teika
  2.   global gTeika,gTeika2
  3.   Sound playFile 2,"\S_POKALT\COIN"
  4.   if abs(gTeika2) >= 1000 then
  5.     set gKake = 100
  6.   else
  7.     if abs(gTeika2) <= 100 then
  8.       set gKake = 1
  9.     end if
  10.   end if
  11.   
  12.   repeat with Money = 1 to abs(gTeika2) / gKake
  13.     tell the stage
  14.       if gTeika < 0 then
  15.         set gTeika = 0
  16.         set gTeika3 = 0
  17.         put gTeika into field"╔e╔C╔J"
  18.         exit repeat
  19.       else
  20.         if gTeika2 > 0 then
  21.           set gTeika3 = gTeika + Money * gKake
  22.           put gTeika3 into field"╔e╔C╔J"
  23.         else
  24.           if gTeika2 < 0 then
  25.             set gTeika3 = gTeika - Money * gKake
  26.             if gTeika3 < 0 then
  27.               set gTeika3 = 0
  28.               put gTeika3 into field"╔e╔C╔J"
  29.               exit repeat
  30.             end if
  31.             put gTeika3 into field"╔e╔C╔J"
  32.           end if
  33.         end if
  34.       end if
  35.     end tell
  36.   end repeat
  37.   
  38.   Sound playFile 2,"\S_POKALT\MONEY_"
  39.   set gTeika = gTeika3
  40.   set gTeika2 = 0
  41.   repeat while soundbusy(2)
  42.     nothing
  43.   end repeat
  44. end   
  45.