home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 17 / amigaformatcd17.iso / -screenplay- / shareware / graal / 3.room < prev    next >
Text File  |  1997-06-29  |  10KB  |  248 lines
  1. /* Harbour in Constantinople
  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. BACKDROP: 3BG.IFF
  16.  
  17. START_POS: 1;//13;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;472;99;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. /* 53 Cargo 1
  80. ROOMBOBS: 1;53;257;112;32;25;0;0
  81. /* 54 Cargo 2
  82. ROOMBOBS: 1;54;88;210;81;27;0;0
  83.  
  84.  
  85. CLPART: Olaf_Extras.IFF
  86.  
  87. /* 47-51 Olaf getting hit
  88. ROOMBOBS: 5;47;130;2;31;47;32;0
  89.  
  90.  
  91. ROOMOBJ: 1;ship;3;-1;59;RBOB1;327;71;80;5;//14; ;0;0;8;0;MID;WD;a;this;it
  92. ROOMOBJ: 2;horizon;3;-1;56;RBOB25;162;2;-45;40;12; ;0;0;8;0;HIGH;-;a;this;it
  93. ROOMOBJ: 3;sign;3;-1;55;RBOB26;25;32;0;30;12; ;0;0;8;0;HIGH;WD;a;this;it
  94. ROOMOBJ: 4;sign;3;-1;54;RBOB27;84;44;00;30;12; ;0;0;8;0;HIGH;WD;a;this;it
  95. 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
  96. ROOMOBJ: 6;sales\sign;3;0;51;RBOB45;84;74;0;15;12; ;0;0;8;0;MID;WD;a;this;it
  97.  
  98.  
  99. STATIC: 40;RBOB17;309;73
  100. STATIC: 41;RBOB18;316;72
  101. STATIC: 37;RBOB53;285;121
  102. STATIC: 38;RBOB54;196;122
  103.  
  104.  
  105.  
  106. /* This room uses the command area
  107. /*
  108. DACT: SETRF 40,2=0
  109. /*
  110. /* Display proper sales sign. See also DACTs in 2.room!
  111. DACT: IFRF 7=1;SHOW ROBJ6,84,74,DEF
  112. DACT: IFRF 7=2;SHOW ROBJ6,84,74,RBOB46
  113. /* Add Rajah question to bartender dialogue
  114. DACT: OBJ1 5;SETOF 2=1;OBJ1
  115. /* Captain's hat problem status
  116. DACT: IFRF 3=1;SHOW 15,244,58,PTRN 2
  117. /* Show seagull on pollard
  118. DACT: IFRF 1=0;SHOW ROBJ5,152,61,DEF
  119. /* Show seagull on roof, make more floor space available
  120. 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
  121. /* If Byzantium puzzle is solved, the ship and captain is gone!
  122. DACT: IFRF 2,4=4;HIDE ROBJ1;BOBOFF 40;BOBOFF 41;HIDE 15
  123. /* Check the weather
  124. 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
  125. /* MUSIC!
  126. DACT: TRACK seagulls.track,125,FILTER
  127. /* Restore command area if we came back from shop
  128. DACT: IFSPOS 2;COMAREA ON
  129. /*
  130. DACT: LIGHTS ON
  131.  
  132. /* Captain dialogue
  133. LINE: 3;1;Oh, forget it! Wait here while I get a dictionary, will you?;I guess we just have to try something else.; 
  134. LACT: 3;1;BOBON 42,330,44,RBOB21;RESP S,3,          ;BOBOFF 42;CUTSCENE 3,H;SETOF 1=1
  135. LACT: 3;1;SETRF 4,3=1;EDLG
  136. /*
  137. LINE: 3;2;And the same to you!; ; 
  138. LACT: 3;2;BOBON 42,330,44,RBOB20;RESP S,3,          ;SHOW 15,330,84,RBOB4;BOBOFF 42
  139. LACT: 3;2;ADDOF 2;IFOF 2=3;DSET 3,+1,N2;EXIT
  140. LACT: 3;2;DSET 3,N2
  141. /*
  142. LINE: 3;3;Nice ship you have here.; ; 
  143. LACT: 3;3;BOBON 42,330,44,RBOB21;RESP S,3,          ;SHOW 15,330,84,RBOB4;BOBOFF 42
  144. LACT: 3;3;ADDOF 2;IFOF 2=3;DSET 3,+1,N3;EXIT
  145. LACT: 3;3;DSET 3,N3
  146. /*
  147. LINE: 3;4;Is this ship for hire?; ; 
  148. LACT: 3;4;BOBON 42,330,44,RBOB19;RESP S,3,          ;SHOW 15,330,84,RBOB4;BOBOFF 42
  149. LACT: 3;4;ADDOF 2;IFOF 2=3;DSET 3,+1,N4;EXIT
  150. LACT: 3;4;DSET 3,N4
  151. /*
  152. LINE: 3;5;Do you have any good tips on seagull usage?; ; 
  153. LACT: 3;5;BOBON 42,330,44,RBOB19;RESP S,3,          ;SHOW 15,330,84,RBOB4;BOBOFF 42
  154. LACT: 3;5;ADDOF 2;IFOF 2=3;DSET 3,+1,N5;EXIT
  155. LACT: 3;5;DSET 3,N5
  156.  
  157.  
  158. /*
  159. /* Action 0 - Exit
  160. /* ===============
  161. /*
  162. ACTION: 0;IFOBJ 1;MEXIT;GOTO 2,2
  163. ACTION: 0;IFOBJ 2;MEXIT;COMAREA OFF;GOTO 4,1
  164. /*
  165. /* Action 1 - Give
  166. /* ===============
  167. /*
  168. ACTION: 1;IFOBJ 14;IFOBJ2 15;SAY I'm pretty sure that\it is not a fishing boat;EXIT
  169. ACTION: 1;IFOBJ2 ROBJ5;SAY If it wants something from me, it's probably coming after it anyway!;EXIT
  170. 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
  171. ACTION: 1;IFOBJ2 15;IFRF 3=1;SAY I have done enough for him already.;SAY I am not in the charity business.;EXIT
  172. /* Another try to get feather from beneath seagull here. Handle like USE.
  173. ACTION: 1;IFOBJ 21;IFRF 1=0;VERB 3;REDO
  174. /* Trying out a few good ideas for gifts to the captain below.
  175. ACTION: 1;IFOBJ 21;IFOBJ2 15;SAY Yes, perhaps he could use a feather in his cap!
  176. ACTION: 1;IFOBJ 30;IFOBJ2 15;SAY OK. With his linguistic problems, it is worth a try!
  177. 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
  178. /*
  179. /* Action 2- Pick up
  180. /* =================
  181. /*
  182. 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
  183. ACTION: 2;IFOBJ 21;IFRF 1=0;SAY Not as long as that seagull is sitting there!;EXIT
  184. ACTION: 2;IFOBJ ROBJ5;SAY Just like that? Haven't you seen the beak??;EXIT
  185. /*
  186. /* Action 3 - Use
  187. /* ==============
  188. /*
  189. ACTION: 3;IFOBJ ROBJ1;IFOF 15,1=0;SAY I think somebody would be very upset if I did that - especially without asking!;EXIT
  190. ACTION: 3;IFOBJ ROBJ1;IFOF 15,1=1;SAY I really don't think I have persuaded the captain. Do you?;EXIT
  191. ACTION: 3;IFOBJ 14;IFOBJ2 15;SAY Perhaps if I was stronger... and a little more desperate.;EXIT
  192. ACTION: 3;IFOBJ 14;IFOBJ2 ROBJ5;IFRF 1=0;IFOF 1=0;VERB 2;OBJ2 0;REDO
  193. ACTION: 3;IFOBJ 14;IFOBJ2 ROBJ5;IFRF 1=0;IFOF 1=1;IFNOTCARR;MOBJ;HANDLE;PICK;SOUND 1;HANDLE -1
  194. ACTION: 3;IFOBJ 14;IFOBJ2 ROBJ5;IFRF 1=0;IFOF 1=1;CUTSCENE 4,S;EXIT
  195. ACTION: 3;IFOBJ 14;IFOBJ2 ROBJ5;IFRF 1=1;SAY It's out of reach.;EXIT
  196. ACTION: 3;IFOBJ 21;IFRF 1=0;SAY I have to get my hands on it first.;EXIT
  197. ACTION: 3;IFOBJ 24;IFRF 1=0;IFOBJ2 ROBJ5;CUTSCENE 6,S;EXIT
  198. ACTION: 3;IFOBJ2 ROBJ5;SAY I'm not throwing anything at it that I may need later. The water is too close.;EXIT
  199. 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
  200. 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
  201. ACTION: 3;IFOBJ 24;IFOBJ2 14;IFOF2 1=0;SAY I don't think the #OBJ1 is the right tool for the job.;EXIT
  202. ACTION: 3;IFOBJ 30;IFOBJ2 15;VERB 5;OBJ1 15;REDO
  203. /*
  204. /* Action 4 - Open
  205. /* ===============
  206. /*
  207. /*
  208. /* Action 5 - Talk to
  209. /* ==================
  210. /*
  211. ACTION: 5;IFOBJ 15;IFRF 3=1;SAY No, I have had enough of that!;EXIT
  212. ACTION: 5;IFOBJ 15;IFRF 5=1;SAY Not again!;EXIT
  213. ACTION: 5;IFOBJ 15;IFCARR 30;CUTSCENE 13,S;SETRF 5=1;EXIT
  214. ACTION: 5;IFOBJ 15;CUTSCENE 2,H;BOBON 42,330,44,RBOB19;RESP S,3,            ;SHOW 15,330,84,RBOB4;BOBOFF 42
  215. ACTION: 5;IFOBJ 15;IFOF 2=0;DSET 3,+2,+3,+4,+5;EXIT
  216. ACTION: 5;IFOBJ 15;DSET 3,+1;EXIT
  217. ACTION: 5;IFOBJ ROBJ5;SAY I don't think we are on speaking terms!;EXIT
  218. /*
  219. /* Action 6 - Push
  220. /* ===============
  221. /*
  222. ACTION: 6;IFOBJ ROBJ1;SAY It is duly secured.;EXIT
  223. /*
  224. /* Action 7 - Close
  225. /* ================
  226. /*
  227. /*
  228. /* Action 8 - Look at
  229. /* ==================
  230. /*
  231. ACTION: 8;MOBJ
  232. ACTION: 8;IFOBJ ROBJ1;SAY This looks like a safe enough ship to me.;W 50;SAY But it is not MY ship.;EXIT
  233. 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
  234. ACTION: 8;IFOBJ ROBJ3;SAY It says: "Ali's Fish Bait and Tax-Free Shop".;EXIT
  235. ACTION: 8;IFOBJ ROBJ4;SAY It says: "Everything for the discerning traveller"!;EXIT
  236. ACTION: 8;IFOBJ ROBJ6;SAY Hmm... Seems something special is going on in the shop!;EXIT
  237. ACTION: 8;IFOBJ 15;SAY He looks like he keeps a sharp eye on things.;MOBJ;SAY Nice hat, too.;EXIT
  238. 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
  239. 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
  240. ACTION: 8;IFOBJ ROBJ5;IFRF 1=1;SAY It looks quite nice... from a distance.;EXIT
  241. /*
  242. /* Action 9 - Pull
  243. /* ===============
  244. /*
  245. 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
  246. ACTION: 9;IFOBJ 14;VERB 2;REDO
  247. /* End of room file.
  248.