home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / yomu.dir / 00219_Script_219 < prev    next >
Text File  |  1995-11-10  |  1KB  |  43 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.         put gTeika into field"╔e╔C╔J"
  17.         exit repeat
  18.       else
  19.         if gTeika2 > 0 then
  20.           set gTeika3 = gTeika + Money * gKake
  21.           put gTeika3 into field"╔e╔C╔J"
  22.         else
  23.           if gTeika2 < 0 then
  24.             set gTeika3 = gTeika - Money * gKake
  25.             if gTeika3 < 0 then
  26.               set gTeika3 = 0
  27.               put gTeika3 into field"╔e╔C╔J"
  28.               exit repeat
  29.             end if
  30.             put gTeika3 into field"╔e╔C╔J"
  31.           end if
  32.         end if
  33.       end if
  34.     end tell
  35.   end repeat
  36.   
  37.   Sound playFile 2,"\S_POKALT\MONEY_"
  38.   set gTeika = gTeika3
  39.   set gTeika2 = 0
  40.   repeat while soundbusy(2)
  41.     nothing
  42.   end repeat
  43. end