home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 8 / amigaformatcd08.iso / screenplay / utilities / graal / graal2a.lha / 1.section < prev    next >
Text File  |  1996-10-15  |  6KB  |  98 lines
  1. /*
  2. /*                     Section file for Olaf Longhair
  3. /*
  4. /* =========================================================================
  5. /*
  6. /*                          Section 1 - Byzantium
  7. /*
  8. /* =========================================================================
  9. /*
  10.  
  11.  
  12. CLPART: Olaf_Extras.iff
  13.  
  14. /* SECTIONBOBS: no_of_imgs;startrbob;grabx;graby;width;height;xoffset;hotsp
  15. /*
  16. /*   See the BOBS: statement in the graal.main file. The difference is
  17. /*   that SECTIONBOBS: define "section" images instead of "global" images
  18. /*   - that is, the image numbers given here must be prefixed with "SBOB"
  19. /*   when referred to in other statements and commands.
  20. /*
  21. /* 1-2 playing flute
  22. SECTIONBOBS: 2;1;34;2;31;47;32;0
  23. /* 3 reading guide
  24. SECTIONBOBS: 2;3;2;50;31;47;32;0
  25. /* 5 reading dictionary
  26. SECTIONBOBS: 1;5;98;2;31;47;0;0
  27.  
  28. CLPART: Olaf_Symbols.iff
  29. /* SOBJ10-14 flute, copper coin, cup, rubber band, gold
  30. SECTIONBOBS: 5;10;0;83;51;21;50;0
  31.  
  32.  
  33. /* SECTIONOBJ: sectionobjno,object_definition....
  34. /*             (see graal.main documentation)
  35. /*
  36. /*   The object number specified here must later be prefixed by "ROBJ" when
  37. /*   referred to in other statements and commands.
  38. /*
  39. SECTIONOBJ: 1;exotic\flute;0;0;0;0;0;0;0;0;0; ;-1;0;8;SBOB10;MID;WD;an;this;the
  40. SECTIONOBJ: 2;copper coin;0;0;0;99;0;0;0;0;0; ;-1;0;8;SBOB11;MID;TD;a;this;the
  41. SECTIONOBJ: 3;cup;1;-1;58;RBOB18;70;222;6;-106;11; ;-1;0;8;SBOB12;MID;CD;a;this;the
  42. SECTIONOBJ: 4;rubber band;0;0;0;0;0;0;0;0;0; ;-1;0;8;SBOB13;MID;WD;a;this;the
  43. SECTIONOBJ: 5;20 gold\pieces;0;0;0;0;0;0;0;0;0; ;-1;0;8;SBOB14;MID;WD; ;these;the
  44.  
  45.  
  46. /* Action 1 - Give
  47. /* ===============
  48. /*
  49. ACTION: 1;IFOBJ 14;IFOBJ2 15;SAY I'm pretty sure that\it is not a fishing boat;EXIT
  50. /*
  51. /* Action 3 - Use
  52. /* ==============
  53. /*
  54. 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
  55. ACTION: 3;IFOBJ SOBJ2;SAY I don't see anything to spend\it on right here.;EXIT
  56. ACTION: 3;IFOBJ 21;IFNOTCARR;MOBJ;HANDLE;PICK;HANDLE -1
  57. 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
  58. ACTION: 3;IFOBJ 21;IFOBJ2 SOBJ1;IFOF 1=1;SAY It's already as clean as can be.;EXIT
  59. ACTION: 3;IFOBJ 24;IFOBJ2 SOBJ3;SAY What? You mean you want me to\stir the mead with the knife??\I'm shaken!;EXIT
  60. ACTION: 3;IFOBJ 24;IFOBJ2 SOBJ1;SAY It is not small enough\- I can't get the blade\into the opening.;EXIT
  61. ACTION: 3;IFOBJ 27;VERB 4;REDO
  62. 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
  63. 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
  64. 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
  65. ACTION: 3;IFOBJ SOBJ1;IFOF 1=1;IFOF 2=0;CUTSCENE 10,S;EXIT
  66. 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
  67. 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
  68. /* Since conditions are not allowed in cutscene files, the weather change
  69. /* sequences for rooms 2 and 3 stay here: However, the CUTSCENE 11,F command
  70. /* above leaves the cutscene indicator on screen. It is removed again
  71. /* after CUTSCENE 12,S which follows after the fade commands below!
  72. ACTION: 3;IFOBJ SOBJ1;IFOF 1=1;IFOF 2=1;IFOF 3=0;IFROOM 2;FADE 23,30,$678,WAIT
  73. 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
  74. ACTION: 3;IFOBJ SOBJ1;IFOF 1=1;IFOF 2=1;IFOF 3=0;CUTSCENE 12,S;SETOF 3=1;EXIT
  75. ACTION: 3;IFOBJ SOBJ1;IFOF 3=1;SAY I think it has served its purpose.\I am not that good a musician.;EXIT
  76. /*
  77. /* Action 4 - Open
  78. /* ===============
  79. /*
  80. ACTION: 4;IFOBJ 27;IFOF 1=0;SAY There's a book inside!;ICON 43;NAME guide book;GET 28,N;GET SOBJ4,U;SAY I'll keep the wrapping paper\and the strange, elastic string\that was around the parcel, too.;SETOF 1=1;EXIT
  81. ACTION: 4;IFOBJ 27;CBOB 11;OMOVE 0, , ,1, ,WAIT,A 0,(SBOB3,250)(SBOB4,50)
  82. 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
  83. ACTION: 4;IFOBJ 27;THINK "CONSTANTINOPLE. If you are stranded in\Constantinople, get out as quickly as\possible. It is a boring place."
  84. 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."
  85. ACTION: 4;IFOBJ 27;IFRF 2,4=0;SETRF 2,4=1
  86. ACTION: 4;IFOBJ 27;CBOB 11;EXIT
  87. /*
  88. /* Action 8 - Look at
  89. /* ==================
  90. /*
  91. 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
  92. ACTION: 8;IFOBJ SOBJ2;SAY I can't buy much with this,\that's for sure.;EXIT
  93. ACTION: 8;IFOBJ SOBJ3;SAY It contains mead of an\appallingly bad quality!;EXIT
  94. ACTION: 8;IFOBJ SOBJ4;SAY It is a thin, elastic string\made of some material that\is unknown to me.;EXIT
  95. ACTION: 8;IFOBJ SOBJ5;SAY This should make it\possible to get out\of here in some\way or other!;EXIT
  96. /*
  97. /* END of section file
  98.