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