home *** CD-ROM | disk | FTP | other *** search
/ Curio City 11 / CURIO11.bin / pc / movie / game / usagi.dir / 00076.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  2.2 KB  |  117 lines
  1. global gyusho, gbetlist, goddlist, guserlist
  2.  
  3. on statuspuppeton
  4.   repeat with i = 11 to 40
  5.     puppetSprite(i, 1)
  6.   end repeat
  7. end
  8.  
  9. on statuspuppetoff
  10.   repeat with i = 11 to 40
  11.     puppetSprite(i, 0)
  12.   end repeat
  13. end
  14.  
  15. on dispnum n, ch
  16.   set the castNum of sprite ch to n + 100
  17. end
  18.  
  19. on dispstatus p1, p2, p3, p4, p5, p6, s1, s2, s3, s4, s5, s6, l1, l2, l3, l4, l5, l6
  20.   dispnum(p1, 11)
  21.   dispnum(p2, 14)
  22.   dispnum(p3, 17)
  23.   dispnum(p4, 20)
  24.   dispnum(p5, 23)
  25.   dispnum(p6, 26)
  26.   dispnum(s1, 12)
  27.   dispnum(s2, 15)
  28.   dispnum(s3, 18)
  29.   dispnum(s4, 21)
  30.   dispnum(s5, 24)
  31.   dispnum(s6, 27)
  32.   dispnum(l1 * 2, 13)
  33.   dispnum(l2 * 2, 16)
  34.   dispnum(l3 * 2, 19)
  35.   dispnum(l4 * 2, 22)
  36.   dispnum(l5 * 2, 25)
  37.   dispnum(l6 * 2, 28)
  38. end
  39.  
  40. on inuanime ch
  41.   if the castNum of sprite ch = 205 then
  42.     set inucast to 206
  43.   else
  44.     set inucast to 205
  45.   end if
  46.   set the castNum of sprite ch to inucast
  47.   set inuh to the locH of sprite ch
  48.   if inuh >= 563 then
  49.     set the locH of sprite ch to inuh - 5
  50.   else
  51.     puppetSound(3, cast "INUGOE")
  52.     wait(30)
  53.     puppetoff()
  54.     puppetSprite(gyusho + 6, 0)
  55.     go("seisan")
  56.   end if
  57. end
  58.  
  59. on upbet ch
  60.   set n to the castNum of sprite ch
  61.   set m to the money of guserlist
  62.   set kakegoukei to 0
  63.   repeat with i = 1 to 6
  64.     set kakekin to getAt(gbetlist, i)
  65.     if kakekin <> 0 then
  66.       set kakekin to kakekin - 100
  67.     end if
  68.     set kakegoukei to kakekin + kakegoukei
  69.   end repeat
  70.   if n = 199 then
  71.     beep()
  72.   else
  73.     if (m - kakegoukei) <= 0 then
  74.       beep()
  75.     else
  76.       set bet to n + 1
  77.       set the castNum of sprite ch to bet
  78.       setAt(gbetlist, ch - 34, bet)
  79.     end if
  80.   end if
  81. end
  82.  
  83. on downbet ch
  84.   set n to the castNum of sprite ch
  85.   if n = 100 then
  86.     beep()
  87.   else
  88.     set bet to n - 1
  89.     set the castNum of sprite ch to bet
  90.     setAt(gbetlist, ch - 34, bet)
  91.   end if
  92. end
  93.  
  94. on seisan
  95.   set uu to gyusho - 2
  96.   set od to getAt(goddlist, uu)
  97.   set bt to getAt(gbetlist, uu)
  98.   put goddlist
  99.   put gbetlist
  100.   if bt <> 0 then
  101.     set bt to bt - 100
  102.   end if
  103.   set mouke to od * bt
  104.   set hazkei to 0
  105.   repeat with i = 1 to 6
  106.     set haz to getAt(gbetlist, i)
  107.     if haz <> 0 then
  108.       set haz to haz - 100
  109.     end if
  110.     set hazkei to haz + hazkei
  111.   end repeat
  112.   put hazkei
  113.   set sasihiki to mouke - hazkei
  114.   put sasihiki
  115.   return sasihiki
  116. end
  117.