home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 080.VOC.RSC < prev    next >
Text File  |  1993-02-28  |  2KB  |  102 lines
  1.   goto init
  2.  
  3. turnvoc:
  4.   setvar(j,0)
  5.   i:= a / b / b
  6.  
  7. digit:
  8.   if vartest(i,1,9)
  9.    if vartest(i,1,5)
  10.     if vartest(t,3,7)
  11.       if vartest(t,5,7)
  12.         if vartest(t,5,5)
  13.           play"appvoc\vector.voc"
  14.         endif
  15.         if vartest(t,7,7)
  16.           play"appvoc\clear.voc"
  17.         endif
  18.         setvar(t,100)
  19.       endif
  20.       if vartest(t,3,4)
  21.         if vartest(t,3,3)
  22.           play"appvoc\right.voc"
  23.         endif
  24.         if vartest(t,4,4)
  25.           play"appvoc\left.voc"
  26.         endif
  27.         setvar(t,1)
  28.       endif
  29.     endif
  30.     if vartest(i,1,1)
  31.       play"appvoc\1.voc"
  32.       goto digit2
  33.     endif
  34.     if vartest(i,2,2)
  35.       play"appvoc\2.voc"
  36.       goto digit2
  37.     endif
  38.     if vartest(i,3,3)
  39.       play"appvoc\3.voc"
  40.       goto digit2
  41.     endif
  42.     if vartest(i,4,4)
  43.       play"appvoc\4.voc"
  44.       goto digit2
  45.     endif
  46.     if vartest(i,5,5)
  47.       play"appvoc\5.voc"
  48.       goto digit2
  49.     endif
  50.    endif
  51.    if vartest(i,6,9)
  52.     if vartest(t,3,6)
  53.       if vartest(t,3,7)
  54.         if vartest(t,5,5)
  55.           play"appvoc\vector.voc"
  56.         endif
  57.         if vartest(t,7,7)
  58.           play"appvoc\clear.voc"
  59.         endif
  60.         setvar(t,100)
  61.       endif
  62.       if vartest(t,3,4)
  63.         if vartest(t,3,3)
  64.           play"appvoc\right.voc"
  65.         endif
  66.         if vartest(t,4,4)
  67.           play"appvoc\left.voc"
  68.         endif
  69.         setvar(t,1)
  70.       endif
  71.     endif
  72.     if vartest(i,6,6)
  73.       play"appvoc\6.voc"
  74.       goto digit2
  75.     endif
  76.     if vartest(i,7,7)
  77.       play"appvoc\7.voc"
  78.       goto digit2
  79.     endif
  80.     if vartest(i,8,8)
  81.       play"appvoc\8.voc"
  82.     endif
  83.     if vartest(i,9,9)
  84.       play"appvoc\9.voc"
  85.     endif
  86.    endif
  87.   endif
  88.  
  89. digit2:
  90.   if vartest(j,0,0)
  91.     i:= i * b * b
  92.     i:= a - i / b
  93.     setvar(j,1)
  94.     goto digit
  95.   endif
  96.   if vartest(t,1,1)
  97.     play"appvoc\0.voc"
  98.   endif
  99.   return
  100.  
  101. init:
  102.