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