home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 17 / amigaformatcd17.iso / -screenplay- / shareware / graal / 4.room < prev    next >
Text File  |  1997-06-29  |  7KB  |  148 lines
  1. /* Ali's Fish Bait and Tax Free Shop
  2. /*
  3. /*                                   4.room
  4. /*
  5. /*                     Ali's Fish Bait and Tax Free Shop
  6. /*
  7. /* RF 1 - number of times visited
  8. /* RF 2 - anything bought?
  9. /* RF 3 - need for phrase book felt?
  10. /* RF 6 - weather outside
  11.  
  12. SECTION: 1
  13.  
  14. UPDATE: 3
  15.  
  16. BACKDROP: 4BG.IFF
  17.  
  18. START_POS: 1;//13;187;118;L;1
  19.  
  20. FLOOR: 1;148;116;194;119;1-1
  21.  
  22. EXIT: 1;191;71;193;119;190;118;harbour
  23.  
  24. CLPART: 4FG.IFF
  25.  
  26. /* 1 is counter
  27. ROOMBOBS: 1;1;3;3;15;20;0;1
  28. /* 2-4 is Ali Harrod sideways, talking
  29. ROOMBOBS: 3;2;32;8;18;31;24;0
  30. /* 5-6 is Ali crouching behind the counter
  31. ROOMBOBS: 2;5;104;8;18;31;24;0
  32. /* 7 = World map
  33. ROOMBOBS: 1;7;16;52;13;8;0;0
  34. /* 8 = Phrase Book
  35. ROOMBOBS: 1;8;16;45;10;6;0;0
  36. /* 9 = Barrel of mead
  37. ROOMBOBS: 1;9;1;44;13;14;0;0
  38. /* 10-14 Llama
  39. ROOMBOBS: 5;10;0;67;45;59;45;1
  40. /* 15-17 Spit
  41. ROOMBOBS: 3;15;0;132;10;15;10;-8
  42. /* 18 Ali handing over something
  43. ROOMBOBS: 1;18;150;8;26;31;0;0
  44.  
  45. /* Only the things that we will animate need to be objects in this room.
  46. /* All the stuff that is only shown with a single image and never leaves
  47. /* the place can just as well be depicted with BOBON commands.
  48. /*
  49. ROOMOBJ: 1;llama;4;NVIS;58;A 0,(RBOB10,348)(RBOB11,24)(RBOB12,12)(RBOB13,12)(RBOB14,48)(RBOB13,12)(RBOB12,12);128;62;0;0;0; ;NPICK;7;0;1;MID;AV;a;this;the
  50. ROOMOBJ: 2;llama spit;4;NVIS;57;S: A 1,(RBOB15,420)(RBOB16,12)(RBOB17,12)(RBOB15,24) M 0,0,396 M 50,0,12 M 0,0,36 M -50,0,0 M 0,0,24 J S;0;0;0;0;0; ;NPICK;6;0;0;MID;-D; ; ; 
  51.  
  52. /* The counter
  53. /*
  54. STATIC: 40;RBOB1;134;101
  55.  
  56. /* This room does NOT use the command area
  57. /*
  58. DACT: SETRF 40,2=1
  59. /*
  60. /* Set number of times visited
  61. DACT: ADDRF 1
  62. /* Add Ali question to bartender dialogue
  63. DACT: IFOF 5,3=0;SETOF 5,3=1
  64. /* Check the weather
  65. DACT: IFRF 6=1;COLOUR DLY,16,$678;COLOUR DLY,17,$555
  66. DACT: TRACK seagulls.track,LOOP,FILTER
  67. DACT: SHOW 7,125,117,A 4,(RBOB5,24)(RBOB6,24)(RBOB5,36)(RBOB6,42)
  68. DACT: LIGHTS ON
  69. DACT: MOBJ 7;W 100;SHOW 7, , ,DEF;W 25
  70. /* Versions of Ali's greeting procedure (depending on number of times
  71. /* shop has been visited) follow below.
  72. DACT: IFRF 1=1;RESP S,4,Ah - a customer!;W 25;RESP S,4,Welcome, Captain, to the largest shop in the whole world!;OBJ1 7;DSET 4,+1,+2,+3,+16;EXIT
  73. DACT: IFRF 1=2;RESP S,4,Welcome back to Ali Harrod's magnificent boutique, Captain!;OBJ1 7;DSET 4,+12;EXIT
  74. DACT: IFRF 1=3;RESP S,4,Well, aren't you the lucky one!;RESP S,4,You see, I have a campaign right now. My third visitor each day gets a free gift!
  75. DACT: IFRF 1=3;RESP S,4,True enough, you have been the ONLY visitor, three times in a row...
  76. DACT: IFRF 1=3;IFRF 2=0;RESP S,4,...and you haven't actually BOUGHT anything yet...
  77. DACT: IFRF 1=3;RESP S,4,...but promises are promises! Therefore, I present you with this valuable gift!;OBJ1 7;SHOW 7,125,117,RBOB18;HANDLE;GET 27,U;SOUND 1;W 100;SHOW 7,123,117,DEF;HANDLE -1;DSET 4,+10;EXIT
  78. DACT: RESP S,4,Yes, it's the magic of Ali Harrod's shopping emporium that does it...;RESP S,4,You just can't stay away, can you?
  79. DACT: RESP S,4,You have now been to my establishment no less than #R#4#1# times!;OBJ1 7;DSET 4,N10;EXIT
  80.  
  81.  
  82. /* Ali dialogue
  83. LINE: 4;1;So, where are the shelves?; ; 
  84. LACT: 4;1;RESP S,4,No shelves needed, sir...;W 25;RESP S,4,I have everything right here behind the counter.;W 25;RESP S,4,After all...;RESP S,4,This is no department store!;DSET 4,N1
  85. /*
  86. LINE: 4;2;Have you ever heard about "delusions of grandeur"?; ; 
  87. LACT: 4;2;RESP S,4,Sure, I have a very nice perfume with that name for sale... Tax free, of course!;DSET 4,N2
  88. /*
  89. LINE: 4;3;I don't think this shack can be the largest ANYTHING, really.; ; 
  90. LACT: 4;3;RESP S,4,Ah! But believe me, Ali Harrod - that's me - stocks everything you could possibly want!;DSET 4,N1,N2,N3,+4,+5,+6,+7,+8,+11
  91. /*
  92. LINE: 4;4;Do you have a barrel of really GOOD mead?; ; 
  93. LACT: 4;4;RESP S,4,Of course.;BOBOFF 58;BOBOFF 57;CUTSCENE 5,H;BOBON 58,135,103,RBOB9;RESP S,4,Do you have 8 silver pieces?;DSET 4,+5,N4,N9
  94. /*
  95. LINE: 4;5;I'll come back later, OK?;I think I'll say goodbye for now.; 
  96. LACT: 4;5;RESP S,4,Customers are always welcome back!;W 25;CMOVE 190,118,C;EDLG;GOTO 3,2;EXIT
  97. /*
  98. LINE: 4;6;Do you have a good dictionary?; ;IFRF 3=1
  99. LACT: 4;6;RESP S,4,Of course.;BOBOFF 58;BOBOFF 57;CUTSCENE 5,H;BOBON 58,135,103,RBOB8;RESP S,4,That will be one copper coin, please.;DSET 4,S1,+9,+15
  100. /*
  101. LINE: 4;7;Do you have a map of the world? I'm kind of lost.; ; 
  102. LACT: 4;7;RESP S,4,Of course.;BOBOFF 58;BOBOFF 57;CUTSCENE 5,H;BOBON 58,135,105,RBOB7;RESP S,4,This map is completely unique.;RESP S,4,In fact, ALL my world maps are unique and quite different from each other.
  103. LACT: 4;7;RESP S,4,That is why each one costs 30 gold pieces.;DSET 4,-9,N7
  104. /*
  105. LINE: 4;8;What I really need is some transport out of this place!; ; 
  106. LACT: 4;8;RESP S,4,Of course.;RESP S,4,I think a medium sized llama would fill your needs perfectly.;BOBOFF 58;BOBOFF 57;CUTSCENE 5,H;SHOW ROBJ1,128,62,DEF;SHOW ROBJ2,133,60,DEF
  107. LACT: 4;8;RESP S,4,It's yours for only 100 gold pieces. Be careful, it spits a lot.;DSET 4,N8,-9
  108. /*
  109. LINE: 4;9;Oh, great! Something I can afford - I'll take it!; ; 
  110. LACT: 4;9;RESP S,4,Very good, captain. Here you are.;SHOW 7,125,117,RBOB18;BOBOFF 58;HANDLE;GET 30,N;SOUND 1;REMOVE SOBJ2,N,0;SETRF 2=1;W 50;SHOW 7,123,117,DEF;HANDLE -1;DSET 4,R1,N6,N9,N15
  111. /*
  112. LINE: 4;10;Thank you very much. I'll pop outside and examine my gift now!; ; 
  113. LACT: 4;10;RESP S,4,Remember - No-one beats Ali Harrod's when it comes to value for money!;CMOVE 190,118,C;EDLG;GOTO 3,2;EXIT
  114. /*
  115. LINE: 4;11;OK, I would like to trade some items with you.; ; 
  116. LACT: 4;11;RESP S,4,Sorry, it's cash only if you want to buy something here, I'm afraid.;RESP R,4,It's not that I don't trust you, but...;RESP R,4,Hmm...;RESP R,4,...as I said, it's cash only!;DSET 4,N11
  117. /*
  118. LINE: 4;12;I saw a big sign outside - what is the special offer?; ;IFRF 3,7=1
  119. LACT: 4;12;RESP S,4,We have the most magnificent sale!;RESP S,4,Half the price on all fireplaces, furnaces, stoves and central heating!;DSET 4,S1,N12,+13,+14
  120. /*
  121. LINE: 4;13;In this heat???; ; 
  122. LACT: 4;13;RESP S,4,Yes, naturally.;RESP S,4,Would be a bit silly to have it in the wintertime when people buy them anyway, you know!;DSET 4,R1
  123. /*
  124. LINE: 4;14;Darn, I though I would be able to pick up something useful!; ; 
  125. LACT: 4;14;RESP S,4,Well, better luck next time!;DSET 4,R1
  126. /*
  127. LINE: 4;15;Gosh, that's all the money I have - I'll have to think about this!; ; 
  128. LACT: 4;15;RESP S,4,Very good, captain. Take your time.;BOBOFF 58;CUTSCENE 5,H;DSET 4,R1
  129. /*
  130. LINE: 4;16;Have you seen a salt merchant around here recently?; ;IFOF 9,2=1
  131. LACT: 4;16;RESP S,4,Oh, yes indeed.;RESP S,4,Saltan Peper, a very good friend of mine.;RESP S,4,But he is long gone by now.;RESP S,4,He was in a hurry to get back home with his new ship and crew.
  132. LACT: 4;16;RESP S,4,Apparently, he won them from some stupid barbarian who bet them against ten pounds of salt.;RESP S,4,What a loser, eh?;DSET 4,N16;EXIT
  133.  
  134. /* No room actions in this room, 
  135. /* because we are in dialogue mode all the time
  136. /* Action 0 - Exit
  137. /* Action 1 - Give
  138. /* Action 2 - Pick up
  139. /* Action 3 - Use
  140. /* Action 4 - Open
  141. /* Action 5 - Talk to
  142. /* Action 6 - Pushb
  143. /* Action 7 - Close
  144. /* Action 8 - Look at
  145. /* Action 9 - Pull
  146.  
  147. /* End of room file.
  148.