home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 17 / amigaformatcd17.iso / -screenplay- / shareware / graal / 1.section < prev    next >
Text File  |  1997-06-29  |  6KB  |  96 lines
  1. /* Constantinople
  2. /*
  3. /* =========================================================================
  4. /*
  5. /*                          Section 1 - Constantinople
  6. /*
  7. /* =========================================================================
  8. /*
  9.  
  10.  
  11. CLPART: Olaf_Extras.iff
  12.  
  13. /* SECTIONBOBS: no_of_imgs;startrbob;grabx;graby;width;height;xoffset;hotsp
  14. /*
  15. /*   See the BOBS: statement in the graal.main file. The difference is
  16. /*   that SECTIONBOBS: define "section" images instead of "global" images
  17. /*   - that is, the image numbers given here must be prefixed with "SBOB"
  18. /*   when referred to in other statements and commands.
  19. /*
  20. /* 1-2 playing flute
  21. SECTIONBOBS: 2;1;34;2;31;47;32;0
  22. /* 3 reading guide
  23. SECTIONBOBS: 2;3;2;50;31;47;32;0
  24. /* 5 reading dictionary
  25. SECTIONBOBS: 1;5;98;2;31;47;0;0
  26.  
  27. CLPART: Olaf_Symbols.iff
  28. /* SOBJ10-14 flute, copper coin, cup, rubber band, gold
  29. SECTIONBOBS: 5;10;0;83;51;21;50;0
  30.  
  31.  
  32. /* SECTIONOBJ: sectionobjno,object_definition....
  33. /*             (see graal.main documentation)
  34. /*
  35. /*   The object number specified here must later be prefixed by "ROBJ" when
  36. /*   referred to in other statements and commands.
  37. /*
  38. SECTIONOBJ: 1;exotic\flute;0;0;0;0;0;0;0;0;0; ;-1;0;8;SBOB10;MID;WD;an;this;the
  39. SECTIONOBJ: 2;copper coin;0;0;0;99;0;0;0;0;0; ;-1;0;8;SBOB11;MID;TD;a;this;the
  40. SECTIONOBJ: 3;cup;1;-1;58;RBOB18;69;222;6;-106;11; ;-1;0;8;SBOB12;MID;CD;a;this;the
  41. SECTIONOBJ: 4;rubber band;0;0;0;0;0;0;0;0;0; ;-1;0;8;SBOB13;MID;WD;a;this;the
  42. SECTIONOBJ: 5;20 gold\pieces;0;0;0;0;0;0;0;0;0; ;-1;0;8;SBOB14;MID;WD; ;these;the
  43.  
  44.  
  45. /* Action 1 - Give
  46. /* ===============
  47. /*
  48. /*
  49. /* Action 3 - Use
  50. /* ==============
  51. /*
  52. ACTION: 3;IFOBJ SOBJ3;MOBJ;SAY I'm not sure I want\more of this stuff!;W 40;SAY It's almost lethal, you know.;EXIT
  53. ACTION: 3;IFOBJ SOBJ2;SAY I don't see anything to spend\it on right here.;EXIT
  54. ACTION: 3;IFOBJ 21;IFNOTCARR;MOBJ;HANDLE;PICK;SOUND 1;W 25;HANDLE -1
  55. ACTION: 3;IFOBJ 21;IFOBJ2 SOBJ1;IFOF 1=0;SAY I say - using the feather to\clean the flute worked splendidly!;OBJ1 SOBJ1;SETOF 1=1;EXIT
  56. ACTION: 3;IFOBJ 21;IFOBJ2 SOBJ1;IFOF 1=1;SAY It's already as clean as can be.;EXIT
  57. ACTION: 3;IFOBJ 24;IFOBJ2 SOBJ3;SAY What? You mean you want me to\stir the mead with the knife??\I'm shaken!;EXIT
  58. ACTION: 3;IFOBJ 24;IFOBJ2 SOBJ1;SAY It is not small enough\- I can't get the blade\into the opening.;EXIT
  59. ACTION: 3;IFOBJ 27;VERB 4;REDO
  60. ACTION: 3;IFOBJ 30;IFOBJ2 SOBJ1;CBOB SBOB5;W 50;SAY How convenient - the strange text on the\flute is explained in this book!;SAY Hmm...;SAY Apparently, the text on the flute reads:\"Play all notes twice to change the weather.";CBOB 11
  61. ACTION: 3;IFOBJ 30;IFOBJ2 SOBJ1;OBJ1 SOBJ1;SAY Well, it seems it's either\a genuine, magical flute...;SAY ...or tourist junk.;SETOF 2=1;EXIT
  62. ACTION: 3;IFOBJ SOBJ1;IFOF 1=0;OMOVE 0, , ,1, , ,A 0,(SBOB1,12)(SBOB2,24)(SBOB1,24)(SBOB2,12);W 150;CBOB 11;SAY I can't get a tone.\It seems something inside\is clogging the flute.;SAY Perhaps I'd better get\something to clean it out with.;EXIT
  63. ACTION: 3;IFOBJ SOBJ1;IFOF 1=1;IFOF 2=0;CUTSCENE 10,S;EXIT
  64. ACTION: 3;IFOBJ SOBJ1;IFOF 1=1;IFOF 2=1;IFOF 3=0;IFROOM 1;SAY I think I'd better be outside\beneath the open sky to try that.;EXIT
  65. ACTION: 3;IFOBJ SOBJ1;IFOF 1=1;IFOF 2=1;IFOF 3=0;CUTSCENE 11,F;SETRF 2,6=1;SETRF 3,6=1;SETRF 4,6=1
  66. /* Since conditions are not allowed in cutscene files, the weather change
  67. /* sequences for rooms 2 and 3 stay here: However, the CUTSCENE 11,F command
  68. /* above leaves the cutscene indicator on screen. It is removed again
  69. /* after CUTSCENE 12,S which follows after the fade commands below!
  70. ACTION: 3;IFOBJ SOBJ1;IFOF 1=1;IFOF 2=1;IFOF 3=0;IFROOM 2;FADE 23,30,$678,WAIT
  71. ACTION: 3;IFOBJ SOBJ1;IFOF 1=1;IFOF 2=1;IFOF 3=0;IFROOM 3;FADE 29,10,$678,STACK;FADE 31,10,$555,STACK;FADE 24,10,$555,STACK;FADE 25,10,$666,STACK;FADE 26,10,$666,STACK;FADE 27,10,$777,STACK;FADE 28,30,$777,WAIT
  72. ACTION: 3;IFOBJ SOBJ1;IFOF 1=1;IFOF 2=1;IFOF 3=0;CUTSCENE 12,S;SETOF 3=1;EXIT
  73. ACTION: 3;IFOBJ SOBJ1;IFOF 3=1;SAY I think it has served its purpose.\I am not that good a musician.;EXIT
  74. /*
  75. /* Action 4 - Open
  76. /* ===============
  77. /*
  78. ACTION: 4;IFOBJ 27;IFOF 1=0;SAY There's a book inside!;ICON 43;NAME guide book;SOUND 1;SAY I'll keep the wrapping paper\and the strange, elastic string\that was around the parcel, too.;GET 28,N;GET SOBJ4,U;SOUND 1;SETOF 1=1;EXIT
  79. ACTION: 4;IFOBJ 27;CBOB 11;OMOVE 0, , ,1, ,WAIT,A 0,(SBOB3,250)(SBOB4,50)
  80. ACTION: 4;IFOBJ 27;IFOF 2=0;THINK This book seems to contain a\lot of useful tips.;THINK Let's see...;THINK Ah, here:;SETOF 2=1
  81. ACTION: 4;IFOBJ 27;THINK "CONSTANTINOPLE. If you are stranded in\Constantinople, get out as quickly as\possible. It is a boring place."
  82. ACTION: 4;IFOBJ 27;THINK "Sea transportation in Constantinople is scarce\and generally unreliable. Your best bet\is to find a tough, reliable camel of some\sort, and then travel East towards Gurgan,\where better transportation may be found."
  83. ACTION: 4;IFOBJ 27;IFRF 2,4=0;SETRF 2,4=1
  84. ACTION: 4;IFOBJ 27;CBOB 11;EXIT
  85. /*
  86. /* Action 8 - Look at
  87. /* ==================
  88. /*
  89. ACTION: 8;IFOBJ SOBJ1;SAY There are some carvings that look like\text in a foreign language along the\side of the flute.;SETRF 4,3=1;EXIT
  90. ACTION: 8;IFOBJ SOBJ2;SAY I can't buy much with this,\that's for sure.;EXIT
  91. ACTION: 8;IFOBJ SOBJ3;SAY It contains mead of an\appallingly bad quality!;EXIT
  92. ACTION: 8;IFOBJ SOBJ4;SAY It is a thin, elastic string\made of some material that\is unknown to me.;EXIT
  93. ACTION: 8;IFOBJ SOBJ5;SAY This should make it\possible to get out\of here in some\way or other!;EXIT
  94. /*
  95. /* END of section file
  96.