home *** CD-ROM | disk | FTP | other *** search
/ Quick Study Spanish / DISK_1_QSSP.iso / tlc.z / VIDEOMAT.MPS < prev    next >
Text File  |  1997-08-23  |  4KB  |  245 lines
  1. ;Warning!  Do not modify this file.
  2. yield on
  3.  
  4. bids=HGButtonID
  5. level=0
  6. ;one player by default
  7. nplayers=1
  8. ;first theme by default
  9. mm=1
  10.  
  11. call setOptions
  12.  
  13. wait
  14.  
  15. procedure setOptions
  16. [
  17.   SceneBlack 4100
  18.  
  19. ;#define    VIDEO_START_BUTTON    10011
  20.   set bids ButtonID 10011
  21.   get bids X1Pos X1
  22.   get bids Y1Pos Y1
  23.   get bids ResID RESID
  24.  
  25.   pbStart=RPButton X1 Y1 RESID
  26.   set pbStart hit goStart
  27.  
  28. ;#define    VIDEO_HELP_BUTTON        10010
  29.   set bids ButtonID 10010
  30.   get bids X1Pos X1
  31.   get bids Y1Pos Y1
  32.   get bids ResID RESID
  33.  
  34.   pbHelpOpt=RPButton X1 Y1 RESID
  35.   set pbHelpOpt hit goHelp
  36.  
  37. ;#define    VIDEO_EXIT_SPOT        10012
  38.   set bids ButtonID 10012
  39.   get bids X1Pos X1
  40.   get bids Y1Pos Y1
  41.   get bids X2Pos X2
  42.   get bids Y2Pos Y2
  43.   pbExit=RHotSpot X1 Y1 X2 Y2
  44.   set pbExit hit goExit
  45.  
  46. ;#define    VIDEO_PLAYER_BUTTON    10013
  47.   set bids ButtonID 10013
  48.   get bids X1Pos X1
  49.   get bids Y1Pos Y1
  50.   get bids ResID RESID
  51.  
  52.   playersButton=RVButton X1 Y1 RESID
  53.   nplayers0based=nplayers-1
  54.   set playersButton "State" nplayers0based
  55.  
  56. ;#define    VIDEO_ARRIVAL_BUTTON    10014
  57.   set bids ButtonID 10014
  58.   get bids X1Pos X1
  59.   get bids Y1Pos Y1
  60.   get bids ResID RES1
  61. ;#define    VIDEO_AROUND_BUTTON    10015
  62.   set bids ButtonID 10015
  63.   get bids X1Pos X2
  64.   get bids Y1Pos Y2
  65.   get bids ResID RES2
  66. ;#define    VIDEO_LODGING_BUTTON    10016
  67.   set bids ButtonID 10016
  68.   get bids X1Pos X3
  69.   get bids Y1Pos Y3
  70.   get bids ResID RES3
  71. ;#define    VIDEO_FRIENDS_BUTTON    10017
  72.   set bids ButtonID 10017
  73.   get bids X1Pos X4
  74.   get bids Y1Pos Y4
  75.   get bids ResID RES4
  76. ;#define    VIDEO_TOURS_BUTTON    10018
  77.   set bids ButtonID 10018
  78.   get bids X1Pos X5
  79.   get bids Y1Pos Y5
  80.   get bids ResID RES5
  81. ;#define    VIDEO_EAT_BUTTON        10019
  82.   set bids ButtonID 10019
  83.   get bids X1Pos X6
  84.   get bids Y1Pos Y6
  85.   get bids ResID RES6
  86. ;#define    VIDEO_SHOP_BUTTON        10020
  87.   set bids ButtonID 10020
  88.   get bids X1Pos X7
  89.   get bids Y1Pos Y7
  90.   get bids ResID RES7
  91. ;#define    VIDEO_EMERG_BUTTON    10021
  92.   set bids ButtonID 10021
  93.   get bids X1Pos X8
  94.   get bids Y1Pos Y8
  95.   get bids ResID RES8
  96. ;#define    VIDEO_RANDOM_BUTTON    10025
  97.   set bids ButtonID 10025
  98.   get bids X1Pos X9
  99.   get bids Y1Pos Y9
  100.   get bids ResID RES9
  101.   menu=HGRadio 9 0 RES1 X1 Y1 RES2 X2 Y2 RES3 X3 Y3 RES4 X4 Y4 RES5 X5 Y5 RES6 X6 Y6 RES7 X7 Y7 RES8 X8 Y8 RES9 X9 Y9
  102.   menustate="1"
  103.   a="0"
  104.   for mm>0
  105.   [
  106.      mm=mm-1
  107.      if mm>0
  108.      [
  109.         menustate=`a+menustate
  110.     ]
  111.     else
  112.         break
  113.   ]
  114.   set menu "State" menustate
  115. ]
  116.  
  117. procedure resetOptions
  118. [
  119.   drop pbStart
  120.   drop pbExit
  121.   drop pbHelpOpt
  122.   drop playersButton
  123.   drop menu
  124. ]
  125.  
  126. procedure goExit
  127. [
  128.   exit
  129. ]
  130.  
  131. procedure goStart
  132. [
  133. ;debug on
  134.   get menu "State" menustate
  135. ;  mm=1@$menustate
  136.   a="0"
  137.   b="1"
  138.   mm=0
  139.   for mm<10
  140.   [
  141.     mm=mm+1
  142.      if `menustate<b
  143.       b=`a+b
  144.     else
  145.       break
  146.   ]
  147.   get playersButton "State" nplayers0based
  148.   nplayers=nplayers0based+1
  149.  
  150.   call resetOptions
  151.   if level=0
  152.   [
  153.     if nplayers=1
  154.     call videom 3 1 mm
  155.     else
  156.     call videom 3 2 mm
  157.   ]
  158.   else
  159.   [
  160.     if nplayers=1
  161.     call videom 4 1 mm
  162.     else
  163.      call videom 4 2 mm
  164.   ]
  165. ]
  166.  
  167. procedure videom nrow npl menuID
  168. [
  169. ;  call setGame nrow npl mm
  170. ;]
  171. ;
  172. ;procedure setGame nrow npl menuID
  173. ;[
  174. ;debug on
  175. ;  if npl=1
  176.   SceneBlack 4101
  177. ;  else
  178. ;  SceneBlack 4102
  179.  
  180.   obGame=RVideoMatch nrow npl menuID
  181.  
  182. ;#define    VIDEO_PLAY_OPTION        10022
  183.   set bids ButtonID 10022
  184.   get bids X1Pos X1
  185.   get bids Y1Pos Y1
  186.   get bids ResID RESID
  187.  
  188.   pbOptions=RPButton X1 Y1 RESID
  189.   set pbOptions hit goOptions
  190.  
  191. ;#define    VIDEO_PLAY_HELP        10023
  192.   set bids ButtonID 10023
  193.   get bids X1Pos X1
  194.   get bids Y1Pos Y1
  195.   get bids ResID RESID
  196.  
  197.   pbHelp=RPButton X1 Y1 RESID
  198.   set pbHelp hit goHelp
  199.  
  200. ;#define    VIDEO_PLAY_EXIT        10024
  201.   set bids ButtonID 10024
  202.   get bids X1Pos X1
  203.   get bids Y1Pos Y1
  204.   get bids X2Pos X2
  205.   get bids Y2Pos Y2
  206.   pbExit1=RHotSpot X1 Y1 X2 Y2
  207.   set pbExit1 hit goExit1
  208. ]
  209.  
  210. procedure resetGame
  211. [
  212.   drop obGame
  213.   drop pbOptions
  214.   drop pbHelp
  215.   drop pbExit1
  216. ]
  217.  
  218. procedure goOptions
  219. [
  220.   get obGame "readyToQuit" readyToQuit
  221.   if readyToQuit=1
  222.   [
  223.     call resetGame
  224.     call setOptions
  225.   ]
  226. ]
  227.  
  228. procedure goHelp
  229. [
  230. ;#define    HELP_VIDEO_MATCH        913
  231.   set bids StringID    913
  232.   get bids String hs
  233.   Help hs
  234. ;  Help "Video Match"
  235. ]
  236.  
  237. procedure goExit1
  238. [
  239.   get obGame "readyToQuit" readyToQuit
  240.   if readyToQuit=1
  241.   exit
  242. ]
  243.  
  244.  
  245.