home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / shared.dir / 02007_Script_2007 < prev    next >
Text File  |  1995-11-13  |  1KB  |  51 lines
  1. --on Teika2
  2. --  global gTeika,gTeika2,Syosya4
  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
  30. --            exit repeat
  31. --          else
  32. --            if gTeika2 < 0 then
  33. --              set gTeika3 = gTeika - Money * gKake
  34. --              if gTeika3 < 0 then
  35. --                set gTeika3 = 0
  36. --                put gTeika3 into field"╔e╔C╔J"
  37. --                exit repeat
  38. --              end if
  39. --              put gTeika3 into field"╔e╔C╔J"
  40. --            end if
  41. --          end if
  42. --        end if
  43. --      end if
  44. --    end tell
  45. --  end repeat
  46. --  
  47. --  Sound playFile 2,":S_POKALT:MONEY_"
  48. --  set gTeika = gTeika3
  49. --  set gTeika2 = 0
  50. --  set Syosya4 = 0
  51. --end