home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 8 / amigaformatcd08.iso / screenplay / utilities / graal / graal2b.lha / 3.room < prev    next >
Text File  |  1996-10-15  |  9KB  |  237 lines
  1. /*                       This is a room file for GRAAL
  2. /*
  3. /*                                   3.room
  4. /*
  5. /*                          The Harbour in Byzantium
  6. /*
  7. /* RF usage: 1=seagull status, 2=number of times spoken to captain
  8. /*           3=captain has received gift, 6=weather, 4=shop sign status
  9. /*           5=dictionary/captain combo. 7=Which shop sign is actually out?
  10.  
  11. SECTION: 1
  12.  
  13. UPDATE: 6;2
  14.  
  15. BG_IFF: 3BG.IFF
  16.  
  17. START_POS: 1;$800D;455;104;R;1
  18. START_POS: 2;13;70;76;L;1
  19.  
  20. FLOOR: 1;81;76;120;120;1-1/2-2/3-2/4-4
  21. FLOOR: 2;0;90;480;120;1-1/2-2/3-3/4-4
  22. FLOOR: 3;180;76;480;120;1-2/2-2/3-3/4-2
  23. FLOOR: 4;0;82;120;120;1-1/2-2/3-2/4-4
  24.  
  25. EXIT: 1;450;50;480;120;479;114;the\city
  26. EXIT: 2;60;37;68;74;64;76;shabby\shed
  27.  
  28. CLPART: 3FG.IFF
  29.  
  30. /* 1 is ship
  31. ROOMBOBS: 1;1;0;0;193;73;0;0
  32. /* 2 is a fishing net
  33. ROOMBOBS: 1;2;194;0;38;24;0;0
  34. /* 3 is some reflections in the water
  35. /* ROOMBOBS: 3;4;75;168;85;0
  36. /* 4-8 is captain walking (4 is standing sideways)
  37. ROOMBOBS: 5;4;5;93;15;36;16;0
  38. /* 9-10 is captain bending down doing something
  39. ROOMBOBS: 2;9;4;132;30;22;30;0
  40. /* 11-16 is captain loosing hat
  41. ROOMBOBS: 6;11;64;132;28;22;30;0
  42. /* 17 is gangplank
  43. ROOMBOBS: 1;17;196;30;31;16;0;0
  44. /* 18 is beam and sail
  45. ROOMBOBS: 1;18;238;0;68;62;0;72
  46. /* 19-21 are arabic "sentences"
  47. ROOMBOBS: 1;19;5;159;56;20;0;0
  48. ROOMBOBS: 1;20;60;157;61;21;0;0
  49. ROOMBOBS: 1;21;125;157;51;21;0;0
  50. /* 22-23 is captain talking
  51. ROOMBOBS: 2;22;85;93;15;36;16;0
  52. /* 24 is captain facing forward.
  53. ROOMBOBS: 1;24;116;93;16;36;0;0
  54. /* 25 is horizon
  55. ROOMBOBS: 1;25;3;183;171;9;0;-30
  56. /* 26-27 are shop signs
  57. ROOMBOBS: 1;26;197;54;36;15;0;0
  58. ROOMBOBS: 1;27;197;69;23;15;0;0
  59. /* 28 Captain stretching out hand.
  60. ROOMBOBS: 1;28;132;93;16;36;0;0
  61. /* 29 Feather
  62. ROOMBOBS: 1;29;3;193;9;7;0;0
  63. /* 30 Captain securing hat
  64. ROOMBOBS: 1;30;148;93;16;36;0;0
  65. /* 31-33 Olaf using net
  66. ROOMBOBS: 3;31;15;194;22;38;22;0
  67. /* 34-35 Seagull sitting down
  68. ROOMBOBS: 2;34;84;196;13;9;15;0
  69. /* 36-38; Seagull in flight
  70. ROOMBOBS: 3;36;115;196;18;8;20;0
  71. /* 39-42 Olaf waving knife
  72. ROOMBOBS: 4;39;173;192;33;41;31;0
  73. /* 43-44 Captain hitting
  74. ROOMBOBS: 2;43;165;93;15;36;16;0
  75. /* 45-46 Sales signs
  76. ROOMBOBS: 2;45;237;67;19;28;20;0
  77. /* 52 Olaf talks!
  78. ROOMBOBS: 1;52;184;159;77;20;0;0
  79.  
  80. CLPART: Olaf_Extras.IFF
  81.  
  82. /* 47-51 Olaf getting hit
  83. ROOMBOBS: 5;47;130;2;31;47;32;0
  84.  
  85.  
  86. ROOMOBJ: 1;ship;3;-1;59;RBOB1;327;71;80;5;$800E; ;0;0;8;0;MID;WD;a;this;it
  87. ROOMOBJ: 2;horizon;3;-1;56;RBOB25;162;2;-45;40;12; ;0;0;8;0;HIGH;-;a;this;it
  88. ROOMOBJ: 3;sign;3;-1;55;RBOB26;25;32;0;30;12; ;0;0;8;0;HIGH;WD;a;this;it
  89. ROOMOBJ: 4;sign;3;-1;54;RBOB27;84;44;00;30;12; ;0;0;8;0;HIGH;WD;a;this;it
  90. ROOMOBJ: 5;seagull;3;VIS;52;A 0,(RBOB35,100)(RBOB34,50)(RBOB35,200)(RBOB34,25);152;61;0;40;12; ;0;8;8;0;MID;AV;a;this;it
  91. ROOMOBJ: 6;sales\sign;3;0;51;RBOB45;84;74;0;15;12; ;0;0;8;0;MID;WD;a;this;it
  92.  
  93.  
  94. STATIC: 40;RBOB17;309;73
  95. STATIC: 41;RBOB18;316;72
  96.  
  97.  
  98. /* Display proper sales sign. See also DACTs in 2.room!
  99. DACT: IFRF 7=1;SHOW ROBJ6,84,74,DEF
  100. DACT: IFRF 7=2;SHOW ROBJ6,84,74,RBOB46
  101.  
  102. /* Add Rajah question to bartender dialogue
  103. DACT: OBJ1 5;SETOF 2=1;OBJ1
  104.  
  105. /* Captain's hat problem status
  106. DACT: IFRF 3=1;SHOW 15,244,58,PTRN 2
  107.  
  108. /* Show seagull on pollard
  109. DACT: IFRF 1=0;SHOW ROBJ5,152,61,DEF
  110. /* Show seagull on roof, make more floor space available
  111. DACT: IFRF 1=1;SHOW ROBJ5,50,27,DEF;FLOOR 1,61,76,480,120,1-1/2-2;FLOOR 2,0,82,480,120,1-1/2-2;NFLOOR 2
  112.  
  113. /* If Byzantium puzzle is solved, the ship and captain is gone!
  114. DACT: IFRF 2,4=4;HIDE ROBJ1;BOBOFF 40;BOBOFF 41;HIDE 15
  115.  
  116. /* Check the weather
  117. DACT: IFRF 6=1;COLOUR DLY,29,$678;COLOUR DLY,31,$555;COLOUR DLY,24,$555;COLOUR DLY,25,$666;COLOUR DLY,26,$666;COLOUR DLY,27,$777;COLOUR DLY,28,$777
  118.  
  119. /* LIGHTS! MUSIC! ACTION!
  120. DACT: TRACK Seagulls.track,LOOP,FILTER;LIGHTS ON
  121.  
  122. /* Captain dialogue
  123. LINE: 3;1;Oh, forget it! Wait here while I get a dictionary, will you?;I guess we just have to try something else.; 
  124. LACT: 3;1;BOBON 42,330,44,RBOB21;RESP S,3,          ;BOBOFF 42;CUTSCENE 3,H;SETOF 1=1
  125. LACT: 3;1;SETRF 4,3=1;EDLG
  126. /*
  127. LINE: 3;2;And the same to you!; ; 
  128. LACT: 3;2;BOBON 42,330,44,RBOB20;RESP S,3,          ;SHOW 15,330,84,RBOB4;BOBOFF 42
  129. LACT: 3;2;ADDOF 2;IFOF 2=3;DSET 3,+1,N2;EXIT
  130. LACT: 3;2;DSET 3,N2
  131. /*
  132. LINE: 3;3;Nice ship you have here.; ; 
  133. LACT: 3;3;BOBON 42,330,44,RBOB21;RESP S,3,          ;SHOW 15,330,84,RBOB4;BOBOFF 42
  134. LACT: 3;3;ADDOF 2;IFOF 2=3;DSET 3,+1,N3;EXIT
  135. LACT: 3;3;DSET 3,N3
  136. /*
  137. LINE: 3;4;Is this ship for hire?; ; 
  138. LACT: 3;4;BOBON 42,330,44,RBOB19;RESP S,3,          ;SHOW 15,330,84,RBOB4;BOBOFF 42
  139. LACT: 3;4;ADDOF 2;IFOF 2=3;DSET 3,+1,N4;EXIT
  140. LACT: 3;4;DSET 3,N4
  141. /*
  142. LINE: 3;5;Do you have any good tips on seagull usage?; ; 
  143. LACT: 3;5;BOBON 42,330,44,RBOB19;RESP S,3,          ;SHOW 15,330,84,RBOB4;BOBOFF 42
  144. LACT: 3;5;ADDOF 2;IFOF 2=3;DSET 3,+1,N5;EXIT
  145. LACT: 3;5;DSET 3,N5
  146.  
  147.  
  148. /*
  149. /* Action 0 - Exit
  150. /* ===============
  151. /*
  152. ACTION: 0;IFOBJ 1;MEXIT;GOTO 2,2
  153. ACTION: 0;IFOBJ 2;MEXIT;GOTO 4,1
  154. /*
  155. /* Action 1 - Give
  156. /* ===============
  157. /*
  158. ACTION: 1;IFOBJ2 ROBJ5;SAY If it wants something from me, it's probably coming after it anyway!;EXIT
  159. ACTION: 1;IFOBJ SOBJ4;IFOBJ2 15;SAY This can't possibly work!;SAY Oh, very well, let's have a go...;CUTSCENE 2,F;CUTSCENE 7,F;CUTSCENE 8,S;SETRF 3=1;EXIT
  160. ACTION: 1;IFOBJ2 15;IFRF 3=1;SAY I have done enough for him already.;SAY I am not in the charity business.;EXIT
  161. /* Another try to get feather from beneath seagull here. Handle like USE.
  162. ACTION: 1;IFOBJ 21;IFRF 1=0;VERB 3;REDO
  163. /* Trying out a few good ideas for gifts to the captain below.
  164. ACTION: 1;IFOBJ 21;IFOBJ2 15;SAY Yes, perhaps he could use a feather in his cap!
  165. ACTION: 1;IFOBJ 30;IFOBJ2 15;SAY OK. With his linguistic problems, it is worth a try!
  166. ACTION: 1;IFOBJ 21|30;IFOBJ2 15;CUTSCENE 2,F;CUTSCENE 9,F;CUTSCENE 3,S;CBOB 11;SAY That didn't help me very much...;EXIT
  167. /*
  168. /* Action 2- Pick up
  169. /* =================
  170. /*
  171. ACTION: 2;IFOBJ 14;IFOF 1=0;MOBJ;HANDLE;W 25;HANDLE -1;SAY I can't - The net has tied itself into a knot around one of the hooks!;EXIT
  172. ACTION: 2;IFOBJ 21;IFRF 1=0;SAY Not as long as that seagull is sitting there!;EXIT
  173. ACTION: 2;IFOBJ ROBJ5;SAY Just like that? Haven't you seen the beak??;EXIT
  174. /*
  175. /* Action 3 - Use
  176. /* ==============
  177. /*
  178. ACTION: 3;IFOBJ ROBJ1;IFOF 15,1=0;SAY I think somebody would be very upset if I did that - especially without asking!;EXIT
  179. ACTION: 3;IFOBJ ROBJ1;IFOF 15,1=1;SAY I really don't think I have persuaded the captain. Do you?;EXIT
  180. ACTION: 3;IFOBJ 14;IFOBJ2 15;SAY Perhaps if I was stronger... and a little more desperate.;EXIT
  181. ACTION: 3;IFOBJ 14;IFOBJ2 ROBJ5;IFRF 1=0;IFOF 1=0;VERB 2;OBJ2 0;REDO
  182. ACTION: 3;IFOBJ 14;IFOBJ2 ROBJ5;IFRF 1=0;IFOF 1=1;IFNOTCARR;MOBJ;HANDLE;PICK;HANDLE -1
  183. ACTION: 3;IFOBJ 14;IFOBJ2 ROBJ5;IFRF 1=0;IFOF 1=1;CUTSCENE 4,S;EXIT
  184. ACTION: 3;IFOBJ 14;IFOBJ2 ROBJ5;IFRF 1=1;SAY It's out of reach.;EXIT
  185. ACTION: 3;IFOBJ 21;IFRF 1=0;SAY I have to get my hands on it first.;EXIT
  186. ACTION: 3;IFOBJ 24;IFRF 1=0;IFOBJ2 ROBJ5;CUTSCENE 6,S;EXIT
  187. ACTION: 3;IFOBJ2 ROBJ5;SAY I'm not throwing anything at it that I may need later. The water is too close.;EXIT
  188. ACTION: 3;IFOBJ ROBJ5;SAY I can't get my hands on it. And even if I did, what do you suggest? Seagull stew?;EXIT
  189. ACTION: 3;IFOBJ 24;IFOBJ2 14;IFOF2 1=0;MOBJ 14;HANDLE;W 30;HANDLE -1;SETOF 14,1=1;SAY There - I think it is loose now.;EXIT
  190. ACTION: 3;IFOBJ 24;IFOBJ2 14;IFOF2 1=0;SAY I don't think the #OBJ1 is the right tool for the job.;EXIT
  191. ACTION: 3;IFOBJ 30;IFOBJ2 15;VERB 5;OBJ1 15;REDO
  192. /*
  193. /* Action 4 - Open
  194. /* ===============
  195. /*
  196. /*
  197. /* Action 5 - Talk to
  198. /* ==================
  199. /*
  200. ACTION: 5;IFOBJ 15;IFRF 3=1;SAY No, I have had enough of that!;EXIT
  201. ACTION: 5;IFOBJ 15;IFRF 5=1;SAY Not again!;EXIT
  202. ACTION: 5;IFOBJ 15;IFCARR 30;CUTSCENE 13,S;SETRF 5=1;EXIT
  203. ACTION: 5;IFOBJ 15;CUTSCENE 2,H;BOBON 42,330,44,RBOB19;RESP S,3,            ;SHOW 15,330,84,RBOB4;BOBOFF 42
  204. ACTION: 5;IFOBJ 15;IFOF 2=0;DSET 3,+2,+3,+4,+5;EXIT
  205. ACTION: 5;IFOBJ 15;DSET 3,+1;EXIT
  206. ACTION: 5;IFOBJ ROBJ5;SAY I don't think we are on speaking terms!;EXIT
  207. /*
  208. /* Action 6 - Push
  209. /* ===============
  210. /*
  211. ACTION: 6;IFOBJ ROBJ1;SAY It is duly secured.;EXIT
  212. /*
  213. /* Action 7 - Close
  214. /* ================
  215. /*
  216. /*
  217. /* Action 8 - Look at
  218. /* ==================
  219. /*
  220. ACTION: 8;MOBJ
  221. ACTION: 8;IFOBJ ROBJ1;SAY This looks like a safe enough ship to me.;W 50;SAY But it is not MY ship.;EXIT
  222. ACTION: 8;IFOBJ ROBJ2;SAY North... is where my home is.;SAY But it's a long way across the sea...;SAY ...and further still to Sweden!;EXIT
  223. ACTION: 8;IFOBJ ROBJ3;SAY It says: "Ali's Fish Bait and Tax-Free Shop".;EXIT
  224. ACTION: 8;IFOBJ ROBJ4;SAY It says: "Everything for the discerning traveller"!;EXIT
  225. ACTION: 8;IFOBJ ROBJ6;SAY Hmm... Seems something special is going on in the shop!;EXIT
  226. ACTION: 8;IFOBJ 15;SAY He looks like he keeps a sharp eye on things.;MOBJ;SAY Nice hat, too.;EXIT
  227. ACTION: 8;IFOBJ 21;IFRF 1=0;SAY I can't examine it properly as long as that monster of a seabird is sitting there!;EXIT
  228. ACTION: 8;IFOBJ ROBJ5;IFRF 1=0;SAY I am not going near that bird without some sort of weapon...;SAY ...it looks a little too vicious to me!;EXIT
  229. ACTION: 8;IFOBJ ROBJ5;IFRF 1=1;SAY It looks quite nice... from a distance.;EXIT
  230. /*
  231. /* Action 9 - Pull
  232. /* ===============
  233. /*
  234. ACTION: 9;IFOBJ 14;IFOF 1=0;MOBJ 14;HANDLE;W 30;HANDLE -1;SAY It doesn't help. It's still stuck to the hook.;EXIT
  235. ACTION: 9;IFOBJ 14;VERB 2;REDO
  236. /* End of room file.
  237.