home *** CD-ROM | disk | FTP | other *** search
/ Quick Study Spanish / DISK_1_QSSP.iso / tlc.z / CONQUEST.MPS < prev    next >
Text File  |  1997-07-03  |  4KB  |  230 lines
  1. ;Warning!  Do not modify this file.
  2. yield on
  3. bids=HGButtonID
  4.  
  5. instruct=1
  6. playmode=0
  7. gamemode=0
  8. levelmode=0
  9. soundmode=0
  10. optionmode=100000000
  11. call createOptions
  12.  
  13. procedure doExit
  14. [
  15.   exit
  16. ]
  17.  
  18. procedure doStartGame
  19. [
  20.   drop me
  21.   
  22.   get players "State" playmode
  23.   get mode "State" gamemode
  24.   get level "State" levelmode
  25.   get option "State" optionmode
  26.   get sound "State" soundmode
  27.  
  28.   call destroyOptions
  29.  
  30.   if gamemode=0
  31.   [
  32.       Scene 21002
  33.   ]
  34.   else
  35.   [
  36.      Scene 21001
  37.   ]
  38.  
  39.   gb=HGGameBoard 283 32 playmode gamemode levelmode soundmode instruct optionmode
  40.  
  41. ;#define    CONQ_PLAY_EMD_GAME    10041
  42.   set bids ButtonID 10041
  43.   get bids X1Pos X1
  44.   get bids Y1Pos Y1
  45.   get bids ResID RESID
  46.   endg=RPButton X1 Y1 RESID
  47.   set endg hit doEndGame
  48.   
  49. ;#define    CONQ_PLAY_HELP            10042
  50.   set bids ButtonID 10042
  51.   get bids X1Pos X1
  52.   get bids Y1Pos Y1
  53.   get bids ResID RESID
  54.   help=RPButton X1 Y1 RESID
  55.   set help hit doHelp
  56.  
  57.   play gb "NewGame"
  58.  
  59.   wait
  60. ]
  61.  
  62. procedure doEndGame
  63. [
  64.   get gb "readyToQuit" readyToQuit
  65.   if readyToQuit=1
  66.   [
  67.     call doOptionScreen
  68.   ]
  69. ]
  70.  
  71. procedure doOptionScreen
  72. [
  73.   instruct=0
  74.   drop endg
  75.   drop help
  76.   drop gb
  77.   drop me
  78.   call createOptions
  79. ]
  80.  
  81. procedure doHelp
  82. [
  83. ;#define    HELP_GAME_CONQUEST        908
  84.   set bids StringID 908
  85.   get bids String hs
  86.   Help hs
  87. ]
  88.  
  89. procedure createOptions
  90. [
  91.   SceneBlack 21000
  92.  
  93. ;#define    CONQ_ARRIVAL_BUTTON    10051
  94.   set bids ButtonID 10051
  95.   get bids X1Pos X1
  96.   get bids Y1Pos Y1
  97.   get bids ResID RES1
  98. ;#define    CONQ_AROUND_BUTTON    10052
  99.   set bids ButtonID 10052
  100.   get bids X1Pos X2
  101.   get bids Y1Pos Y2
  102.   get bids ResID RES2
  103. ;#define    CONQ_LODGING_BUTTON    10053
  104.   set bids ButtonID 10053
  105.   get bids X1Pos X3
  106.   get bids Y1Pos Y3
  107.   get bids ResID RES3
  108. ;#define    CONQ_FRIENDS_BUTTON    10054
  109.   set bids ButtonID 10054
  110.   get bids X1Pos X4
  111.   get bids Y1Pos Y4
  112.   get bids ResID RES4
  113. ;#define    CONQ_TOURS_BUTTON        10055
  114.   set bids ButtonID 10055
  115.   get bids X1Pos X5
  116.   get bids Y1Pos Y5
  117.   get bids ResID RES5
  118. ;#define    CONQ_EAT_BUTTON        10056
  119.   set bids ButtonID 10056
  120.   get bids X1Pos X6
  121.   get bids Y1Pos Y6
  122.   get bids ResID RES6
  123. ;#define    CONQ_SHOP_BUTTON        10057
  124.   set bids ButtonID 10057
  125.   get bids X1Pos X7
  126.   get bids Y1Pos Y7
  127.   get bids ResID RES7
  128. ;#define    CONQ_EMERG_BUTTON        10058
  129.   set bids ButtonID 10058
  130.   get bids X1Pos X8
  131.   get bids Y1Pos Y8
  132.   get bids ResID RES8
  133. ;#define    CONQ_NUMBER_BUTTON    10059
  134.   set bids ButtonID 10059
  135.   get bids X1Pos X9
  136.   get bids Y1Pos Y9
  137.   get bids ResID RES9
  138.   option=HGRadio 9 1 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
  139.   set option "State" optionmode
  140.  
  141. ;#define    CONQ_START_BUTTON        10043
  142.   set bids ButtonID 10043
  143.   get bids X1Pos X1
  144.   get bids Y1Pos Y1
  145.   get bids ResID RESID
  146.   start=RPButton X1 Y1 RESID
  147.   set start hit doStartGame
  148.  
  149. ;#define    CONQ_HELP_BUTTON        10044
  150.   set bids ButtonID 10044
  151.   get bids X1Pos X1
  152.   get bids Y1Pos Y1
  153.   get bids ResID RESID
  154.   help=RPButton X1 Y1 RESID
  155.   set help hit doHelp
  156.  
  157. ;#define    CONQ_EXIT_SPOT            10040
  158.   set bids ButtonID 10040
  159.   get bids X1Pos X1
  160.   get bids Y1Pos Y1
  161.   get bids X2Pos X2
  162.   get bids Y2Pos Y2
  163.   exit=RHotSpot X1 Y1 X2 Y2
  164.   set exit hit doExit
  165.  
  166. ;#define    CONQ_PLAYERS_BUTTON    10045
  167.   set bids ButtonID 10045
  168.   get bids X1Pos X1
  169.   get bids Y1Pos Y1
  170.   get bids ResID RESID
  171.   players=RVButton X1 Y1 RESID
  172.   set players "State" playmode
  173.  
  174. ;#define    CONQ_MODE_BUTTON        10046
  175.   set bids ButtonID 10046
  176.   get bids X1Pos X1
  177.   get bids Y1Pos Y1
  178.   get bids ResID RESID
  179.   mode=RVButton X1 Y1 RESID
  180.   set mode "State" gamemode
  181.  
  182. ;#define    CONQ_LEVEL_BUTTON        10047
  183.   set bids ButtonID 10047
  184.   get bids X1Pos X1
  185.   get bids Y1Pos Y1
  186.   get bids ResID RESID
  187.   level=RVButton X1 Y1 RESID
  188.   set level "State" levelmode
  189.  
  190. ;#define    CONQ_SOUND_BUTTON        10048
  191.   set bids ButtonID 10048
  192.   get bids X1Pos X1
  193.   get bids Y1Pos Y1
  194.   get bids ResID RESID
  195.   sound=RVButton X1 Y1 RESID
  196.   set sound "State" soundmode
  197.  
  198.   if instruct=1
  199.   [
  200.     me=RSound 21100
  201.   ]
  202.   
  203.   wait
  204. ]
  205.  
  206. procedure destroyOptions
  207. [
  208.   drop players
  209.   drop mode
  210.   drop level
  211.   drop sound
  212.  
  213.   drop option
  214.  
  215.   drop start
  216.   drop help
  217.   drop exit
  218. ]
  219.  
  220. procedure doThemeSelect
  221. [
  222.   RECEIVER
  223. ]
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.