home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 17 / amigaformatcd17.iso / -screenplay- / shareware / graal / 40.room < prev    next >
Text File  |  1997-06-29  |  4KB  |  127 lines
  1. /* Load/Save/Quit Room
  2. /*
  3. /* 40 - The save and info room
  4. /*
  5. /* RF 1 = Number of slot that has been clicked
  6.  
  7. UPDATE: 6;1
  8.  
  9. SECTION: SAME
  10.  
  11. BACKDROP: Olafsavebg.iff
  12.  
  13. START_POS: 1;11;0;0;L;1
  14.  
  15. FLOOR: 1;500;500;501;501;1-1
  16.  
  17. /* 1-4: BACK / QUIT / LOAD / SAVE buttons
  18. EXIT: 1;4;4;46;23;0;0; 
  19. EXIT: 2;49;4;91;23;0;0; 
  20. EXIT: 3;228;4;270;23;0;0; 
  21. EXIT: 4;273;4;315;23;0;0; 
  22. /* 5-10: Numbered "saved game slots"
  23. EXIT: 5;230;29;245;54;0;0; 
  24. EXIT: 6;263;29;278;54;0;0; 
  25. EXIT: 7;297;29;312;54;0;0; 
  26. EXIT: 8;230;55;245;80;0;0; 
  27. EXIT: 9;263;55;278;80;0;0; 
  28. EXIT: 10;297;55;312;80;0;0; 
  29.  
  30. CLPART: Olafsavefg.iff
  31. /* 1-4 Active buttons
  32. ROOMBOBS: 4;1;9;52;44;21;45;0
  33. /* 5-8 Activated buttons
  34. ROOMBOBS: 4;5;9;29;44;21;45;0
  35. /* 9 Frame for slot selection
  36. ROOMBOBS: 1;9;210;91;25;34;0;0
  37. /* 10-15 Used slots
  38. ROOMBOBS: 6;10;15;83;20;24;33;0
  39. /* 22-23 Disabled load/save buttons
  40. ROOMBOBS: 2;22;9;7;44;21;45;0
  41.  
  42. /*
  43. /* No main character in this room
  44. /*
  45. DACT: SETVAR 1=Loading game - please wait...;CHAR OFF;TRACK OFF
  46. /*
  47. /* Make no slot selected (room flag 1=0)
  48. /*
  49. DACT: SETRF 1=0
  50. /*
  51. /* Ask for and check if save disk is available, otherwise return
  52. /*
  53. DACT: IFNOTSAVEDISK;RESUME
  54. /*
  55. /* Print the score
  56. /*
  57. DACT: TYPE 1,6,40,76,NONE,#R#0#20#
  58. /*
  59. /* Check which slots on the save disk has been used already
  60. /* and mark them accordingly
  61. /*
  62. DACT: IFEXISTS 1;PBOB 225,30,RBOB10
  63. DACT: IFEXISTS 2;PBOB 262,30,RBOB11
  64. DACT: IFEXISTS 3;PBOB 295,30,RBOB12
  65. DACT: IFEXISTS 4;PBOB 229,56,RBOB13
  66. DACT: IFEXISTS 5;PBOB 262,57,RBOB14
  67. DACT: IFEXISTS 6;PBOB 296,56,RBOB15
  68. /*
  69. DACT: LIGHTS ON;EXIT
  70.  
  71.  
  72. /*
  73. /* Clicked "Back"
  74. /*
  75. ACTION: 0;IFOBJ 1;BOBON 8,25,24,RBOB7;RESUME
  76.  
  77. /*
  78. /* Clicked "Quit"
  79. /*
  80. ACTION: 0;IFOBJ 2;BOBON 8,70,24,RBOB8
  81. ACTION: 0;IFOBJ 2;PROMPT 1,Quit - Really? (Y/N);IFVAR 1=y|Y|yes|YES|Yes;QUIT
  82. ACTION: 0;IFOBJ 2;RESUME
  83.  
  84. /*
  85. /* Clicked "Load"
  86. /*
  87. /* If no slot selected, this is not possible.
  88. /*
  89. ACTION: 0;IFOBJ 3;IFRF 1=0;EXIT
  90. /*
  91. /* Check if the saved game file exists, and if so, load
  92. /*
  93. ACTION: 0;IFOBJ 3;IFRF 1=1;IFEXISTS 1;BOBON 8,249,24,RBOB5;LOAD 1;EXIT
  94. ACTION: 0;IFOBJ 3;IFRF 1=2;IFEXISTS 2;BOBON 8,249,24,RBOB5;LOAD 2;EXIT
  95. ACTION: 0;IFOBJ 3;IFRF 1=3;IFEXISTS 3;BOBON 8,249,24,RBOB5;LOAD 3;EXIT
  96. ACTION: 0;IFOBJ 3;IFRF 1=4;IFEXISTS 4;BOBON 8,249,24,RBOB5;LOAD 4;EXIT
  97. ACTION: 0;IFOBJ 3;IFRF 1=5;IFEXISTS 5;BOBON 8,249,24,RBOB5;LOAD 5;EXIT
  98. ACTION: 0;IFOBJ 3;IFRF 1=6;IFEXISTS 6;BOBON 8,249,24,RBOB5;LOAD 6;EXIT
  99.  
  100. /*
  101. /* CLicked "Save"
  102. /*
  103. ACTION: 0;IFOBJ 4;BOBON 8,294,24,RBOB6
  104. ACTION: 0;IFOBJ 4;IFRF 1=1;SAVE 1;IFEXISTS 1;PBOB 225,30,RBOB10
  105. ACTION: 0;IFOBJ 4;IFRF 1=2;SAVE 2;IFEXISTS 2;PBOB 262,30,RBOB11
  106. ACTION: 0;IFOBJ 4;IFRF 1=3;SAVE 3;IFEXISTS 3;PBOB 295,30,RBOB12
  107. ACTION: 0;IFOBJ 4;IFRF 1=4;SAVE 4;IFEXISTS 4;PBOB 229,56,RBOB13
  108. ACTION: 0;IFOBJ 4;IFRF 1=5;SAVE 5;IFEXISTS 5;PBOB 262,57,RBOB14
  109. ACTION: 0;IFOBJ 4;IFRF 1=6;SAVE 6;IFEXISTS 6;PBOB 296,56,RBOB15
  110. ACTION: 0;IFOBJ 4;BOBOFF 8;EXIT
  111.  
  112. /*
  113. /* Clicked a slot - always activate save, activate load if saved game exists
  114. /*
  115. ACTION: 0;IFOBJ 5;BOBON 9,238,58,RBOB9;SETRF 1=1;PBOB 273,4,RBOB2;IFEXISTS 1;PBOB 228,4,RBOB1;EXIT
  116. ACTION: 0;IFOBJ 5;PBOB 228,4,RBOB22;EXIT
  117. ACTION: 0;IFOBJ 6;BOBON 9,272,58,RBOB9;SETRF 1=2;PBOB 273,4,RBOB2;IFEXISTS 2;PBOB 228,4,RBOB1;EXIT
  118. ACTION: 0;IFOBJ 6;PBOB 228,4,RBOB22;EXIT
  119. ACTION: 0;IFOBJ 7;BOBON 9,305,58,RBOB9;SETRF 1=3;PBOB 273,4,RBOB2;IFEXISTS 3;PBOB 228,4,RBOB1;EXIT
  120. ACTION: 0;IFOBJ 7;PBOB 228,4,RBOB22;EXIT
  121. ACTION: 0;IFOBJ 8;BOBON 9,238,84,RBOB9;SETRF 1=4;PBOB 273,4,RBOB2;IFEXISTS 4;PBOB 228,4,RBOB1;EXIT
  122. ACTION: 0;IFOBJ 8;PBOB 228,4,RBOB22;EXIT
  123. ACTION: 0;IFOBJ 9;BOBON 9,271,84,RBOB9;SETRF 1=5;PBOB 273,4,RBOB2;IFEXISTS 5;PBOB 228,4,RBOB1;EXIT
  124. ACTION: 0;IFOBJ 9;PBOB 228,4,RBOB22;EXIT
  125. ACTION: 0;IFOBJ 10;BOBON 9,305,85,RBOB9;SETRF 1=6;PBOB 273,4,RBOB2;IFEXISTS 6;PBOB 228,4,RBOB1;EXIT
  126. ACTION: 0;IFOBJ 10;PBOB 228,4,RBOB22;EXIT
  127.