home *** CD-ROM | disk | FTP | other *** search
/ The GRAAL Herald 2 / GraalHerald2.lha / 2.section < prev    next >
Encoding:
Text File  |  1997-05-01  |  2.6 KB  |  97 lines
  1. /* Mini-demo section
  2. /* Section script for GRAAL
  3. /*
  4.  
  5. /* ========================================================================
  6. /*
  7. /*                                Dialogues
  8. /*
  9. /* ========================================================================
  10.  
  11. /* This is the dialogue called whenever Olaf tries to talk to Thorfinn.
  12. /*
  13. LINE: 3;1;I use the same dialogue in both rooms.; ; 
  14. LACT: 3;1;RESP S,2,You don't say!;SAY I do, I do!;RESP S,2,OK then.;DSET 3;EXIT
  15. LINE: 3;2;Bye now!; ; 
  16. LACT: 3;2;RESP S,2,Bye bye!;EDLG;EXIT
  17.  
  18. /* ========================================================================
  19. /*
  20. /*                                 Actions
  21. /*
  22. /* ========================================================================
  23.  
  24. /*
  25. /* -2 - Resume actions
  26. /*
  27. /* Before jumping back to the index, the current status of the mini-demo
  28. /* is always saved - see ACTION: 5;... below.
  29. /*
  30. /* Because modules do not resume playing automatically when loading a
  31. /* saved position, you have to put the restart of the music in a -2
  32. /* statement like this!
  33. /*
  34. ACTION: -2;TRACK Herald2_1.mod,125,FILTER
  35.  
  36. /*
  37. /* 1 - Give
  38. /* --------
  39. ACTION: 1;IFCHAR 2;IFOBJ2 21;SAY Why should I give something to myself?;EXIT
  40. ACTION: 1;IFCHAR 1;IFOBJ2 20;SAY Why should I give something to myself?;EXIT
  41. /*
  42. /* Thorfinn gives something to Olaf
  43. /*
  44. ACTION: 1;IFCHAR 2;IFOBJ2 20;MOBJ 20;SAY Here you are!;HANDLE MID;SHOW 20, , ,14;W 25;SHOW 20, , ,33;W 25;HANDLE -1;REMOVE OBJ1,U,I1;SHOW 20, , ,14
  45. /*
  46. /* Olaf gives something to Thorfinn
  47. /*
  48. ACTION: 1;IFCHAR 1;IFOBJ2 21;MOBJ 21;SAY Here you are!;HANDLE MID;SHOW 21, , ,//44;W 25;SHOW 21, , ,//63;W 25;HANDLE -1;REMOVE OBJ1,U,I2;SHOW 21, , ,//44
  49. /*
  50. /* Now check if it's the "magic" item F. When given to the other character, 
  51. /* This character will follow the controlled character until control is
  52. /* switched next time!
  53. /*
  54. ACTION: 1;IFOBJ 27; ;IFOBJ2 20;FOLLOW 1,6,-2,10,2,75
  55. ACTION: =;IFOBJ2 21;FOLLOW 2,6,-2,10,2,75
  56. ACTION: 1;IFOBJ2 20|21;EXIT
  57. /*
  58. /* Not much other use for GIVE in this demo
  59. /*
  60. ACTION: 1;SAY That sounds rather stupid.;EXIT
  61.  
  62. /*
  63. /* 2 - Pick up
  64. /* -----------
  65. /*
  66. ACTION: 2;IFPICK;MOBJ;HANDLE LOW;W 25;PICK;SOUND 1;HANDLE -1;EXIT
  67.  
  68. /*
  69. /* 5 - Index
  70. /*
  71. ACTION: 5;MARK 1;INVENTORY 3,U;GOTO 1,1
  72.  
  73. /*
  74. /* 6 - Quit
  75. /*
  76. ACTION: 6;PROMPT 2,Do you really wish to quit? (y/n)
  77. ACTION: 6;IFVAR 2=y|Y|yes|Yes|YES;QUIT
  78. ACTION: 6;EXIT
  79.  
  80. /*
  81. /* 7 - Switch to Olaf
  82. /* ------------------
  83. /*
  84. ACTION: 7;INVENTORY 1,U;SWITCH 1;EXIT
  85.  
  86. /*
  87. /* 8 - Switch to Thorfinn
  88. /* ----------------------
  89. /*
  90. ACTION: 8;INVENTORY 2,U;SWITCH 2;EXIT
  91.  
  92. /*
  93. /* ? - Kill all other commands below!
  94. /*
  95. /*
  96. ACTION: ?;SAY Hmm... I wouldn't recommend it.;EXIT
  97.