home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 2000 April & May / AMIGA_2000_04.iso / spiele / muscarine / 6.room < prev    next >
Text File  |  1999-12-27  |  6KB  |  151 lines
  1. /* King Cranium
  2. /* Room script for GRAAL
  3. /*
  4. /* RF 1 = 0 init | = 1 star caught
  5.  
  6. /* UPDATE: scroll_frames[;normal_frames]
  7. /*
  8. UPDATE: 6;1
  9.  
  10. /* 3D: max;mid;min;adjspeed (This statement is optional)
  11. /*
  12. /* SECTION: SAME|section_no
  13. /*
  14. SECTION: 2
  15.  
  16. /* BACKDROP: file
  17. /*
  18. BACKDROP: 6BG.iff
  19.  
  20. /* START_POS: startpos_no;image;x;y;L|M|R;floor_no
  21. /*
  22. START_POS: 1;//SIMG11;21;169;M;1
  23.  
  24. /* FLOOR: floor_no;x1;y1;x2;y2;floormaps
  25. /*
  26. FLOOR: 1;0;157;186;169;1-1/2-2
  27. FLOOR: 2;66;139;90;169;1-1/2-2
  28.  
  29. /* PATH: path_no;floor1;floor2;px1;py1;px2;py2;[{more_points}] (This statement is optional)
  30. /*
  31. /* EXIT: exit_no;x1;y1;x2;y2;x;y;description (This statement is optional)
  32. /*
  33. EXIT: 1;0;0;5;169;4;178;exit
  34.  
  35. /* CLPART: file (This statement is optional)
  36. /*
  37. CLPART: 6FG.iff
  38.  
  39. /* ROOMIMGS: number;start_bob;x1;y1;w;h;x-offset;hotspot (This statement is optional)
  40. /*
  41. /* 1=King Cranium
  42. ROOMIMGS: 1;1;1;90;85;59;0;-10
  43. /* 2-4=Eye Anim
  44. ROOMIMGS: 3;2;4;1;24;20;25; 
  45. /* 5-7=Mouth Anim
  46. ROOMIMGS: 3;5;1;26;85;59;85;-10
  47. /* 8=Star
  48. ROOMIMGS: 1;8;85;7;8;8;0; 
  49. /* 9=Startrap full, 10=Startrap empty
  50. ROOMIMGS: 2;9;104;1;15;21;15; 
  51. /* 11=hole
  52. ROOMIMGS: 1;11;105;97;49;46;0;-50
  53.  
  54. /* STATIC: bob;image;x;y (This statement is optional)
  55. /*
  56. /* ANIM: bob;image;anim_ch;anim|ptrn;x;y (This statement is optional)
  57. /*
  58. ANIM: 10;RIMG2;2;A 0,(RIMG2,80)(RIMG3,6)(RIMG4,6)(RIMG3,6)(RIMG2,300)(RIMG3,6)(RIMG4,6)(RIMG3,6)(RIMG2,240)(RIMG3,6)(RIMG4,6)(RIMG3,6);183;91
  59.  
  60. /* ROOMOBJ: obj;name;room;VIS|NVIS;bob;image;x;y;cx;cy;cimage;prep;PICK|NPICK;anim_ch;verb;icon;LOW|MID|HIGH;types;w1;w2;w3 (This statement is optional)
  61. /*
  62. ROOMOBJ: 1;hole;6;VIS;11;RIMG11;76;16;-5;124;SIMG31; ;NPICK; ;8; ;HIGH; ;a;this;it
  63.  
  64. /* DACT: {cond|comm}
  65. /*
  66. DACT: TRACK 6.mod,0,NOFILTER
  67. DACT: IFNOTCARR 9;IFRF 1=0;SHOW 9,260,53,RIMG8;SETOF 1=0;DOAFTER 7-10,9,1
  68. DACT: IFRF 1=1;IFNOTCARR 10;SHOW 10,68,76,RIMG10
  69. DACT: LIGHTS ON;EXIT
  70.  
  71. /* LINE: dlg;line_no;sentence1;sentence2| ;{cond} (This statement is optional)
  72. /*
  73. /* LACT: dlg;line_no;{cond|comm} (This statement is optional)
  74. /*
  75. LINE: 4;1;At your service my king!; ; 
  76. LACT: 4;1;RESP R,4,Welcome my little creep!;DSET 4,-1,+2,+8,+9,+10;EXIT
  77.  
  78. LINE: 4;2;Are there any quests to do?; ;IFOF 8,1=0
  79. LACT: 4;2;RESP R,4,Well, I do indeed have a little mission for you.
  80. LACT: 4;2;DSET 4,-1,N2,+3;EXIT
  81.  
  82. LINE: 4;3;Tell me more about that mission!; ; 
  83. LACT: 4;3;RESP R,4,Ok, the mission is to destroy the universe. That's all!
  84. LACT: 4;3;DSET 4,-1,N3,+4;EXIT
  85.  
  86. LINE: 4;4;Is it really necessary to destroy the universe?;Why did you say is it necessary to destroy the\universe?; 
  87. LACT: 4;4;IFOF 8,2=0;RESP R,4,Yes it is!;SETOF 8,2=1
  88. LACT: 4;4;RESP R,4,There are too many computer games out there where the player has to save the galaxy, the earth, his family or something.
  89. LACT: 4;4;RESP R,4,Therefore you have to destroy the entire universe in this game to keep up the COSMIC BALANCE!
  90. LACT: 4;4;DSET 4,-1,+5,+6;EXIT
  91.  
  92. LINE: 4;5;Ok, I'll do it! I'll destroy the universe.; ;IFOF 8,1=0
  93. LACT: 4;5;RESP R,4,Fine! Here, have a little gift. It will help you to make your way.
  94. LACT: 4;5;DSET 4,+7,N6,N5;EDLG
  95. LACT: 4;5;CMOVE 185,165,P;HANDLE LOW;W 12;PICK 14;HANDLE -1;SAY Thank you and good bye!
  96. LACT: 4;5;SETOF 8,1=1;RESP R,4,May the farce be with you!;EXIT
  97.  
  98. LINE: 4;6;Perhaps I'll destroy the universe later.; ;IFOF 8,1=0
  99. LACT: 4;6;RESP R,4,Ok, please come back when you are ready for your mission.
  100. LACT: 4;6;RESP R,4,You'll get a little gift from me then.;DSET 4,-1,-6;EXIT
  101.  
  102. LINE: 4;7;Do you really think I can destroy the universe\with a golden knife?; ;IFOF 8,1=1
  103. LACT: 4;7;RESP R,4,No, but it will help you to make your way.
  104. LACT: 4;7;RESP R,4,Sorry, but the knife is all I can give you.;DSET 4,-1,N7;EXIT
  105.  
  106. LINE: 4;8;What do you know about the star nilende?; ;IFOF 9,2=1;IFNOTCARR 9
  107. LACT: 4;8;RESP R,4,I would be very pleased if I could get rid of this nasty thing.;DSET 4,-1,-8;EXIT
  108.  
  109. LINE: 4;9;I've caught the star nilende!; ;IFCARR 9
  110. LACT: 4;9;RESP R,4,Well done my little creep!;DSET 4,-1,N9,N8;EXIT
  111.  
  112. LINE: 4;10;Good bye my king.; ; 
  113. LACT: 4;10;RESP R,4,May the farce be with you!;EDLG;EXIT
  114.  
  115. /* ACTION: verb_no;{cond|comm} (This statement is optional)
  116.  
  117. ACTION: -1;IFOBJ 9;IFOF 1=0;IFOF 10,1=0;SHOW 9,68,80,RIMG8;SETOF 1=1;DOAFTER 10,9,1;EXIT
  118. ACTION: -1;IFOBJ 9;IFOF 1=0;IFOF 10,1=1;SHOW 9,68,76,RIMG9;SETOF 1=2;SETRF 1=1;CANCEL 1;EXIT
  119. ACTION: -1;IFOBJ 9;IFOF 1=1;SHOW 9,260,53,RIMG8;SETOF 1=0;DOAFTER 20-30,9,1;EXIT
  120.  
  121. ACTION: 0;IFOBJ 1;CANCEL 1;MEXIT;GOTO 4,4
  122.  
  123. ACTION: 1;IFOBJ 9;SETOF 9,2=1
  124.  
  125. /* Action 2 - Pick Up
  126. ACTION: 2;IFOBJ 9;SETOF 9,2=1
  127. ACTION: 2;IFOBJ 9;IFOF 1=0;SAY I can't reach it there.;EXIT
  128. ACTION: 2;IFOBJ 9;IFOF 1=1;IFOF 3<3;ADDOF 3,1;MOBJ;HANDLE;SHOW 9,260,53,RIMG8;SETOF 1=0;DOAFTER 10-20,9,1;W 12;HANDLE -1;SAY It's gone.;EXIT
  129. ACTION: 2;IFOBJ 9;IFOF 1=1;IFOF 3=3;ADDOF 3,1;MOBJ;HANDLE;SHOW 9,260,53,RIMG8;SETOF 1=0;DOAFTER 10-20,9,1;W 12;HANDLE -1;SAY It's gone.;CIMG SIMG11;W 12;CIMG SIMG21;SAY I don't think I can catch it this way.;EXIT
  130. ACTION: 2;IFOBJ 9;IFOF 1=1;IFOF 3>3;SAY Sorry, but I don't think I can catch it this way.;EXIT
  131. ACTION: 2;IFOBJ 9;IFOF 1=2;MOBJ;HANDLE;W 12;PICK 9;PICK 10;HANDLE -1;EXIT
  132.  
  133. /* Use
  134. ACTION: 3;IFOBJ 9;SETOF 9,2=1
  135. ACTION: 3;IFOBJ 10;IFOBJ2 ROBJ1;IFOF 9,1=1;SETOF 10,1=1;SHOW 9,260,53,RIMG8;MOBJ ROBJ1;HANDLE ROBJ1;SHOW 10,68,76,RIMG10;W 12;HANDLE -1;SETOF 9,1=0;DOAFTER 10-15,9,1;EXIT
  136. ACTION: 3;IFOBJ 10;IFOBJ2 ROBJ1;IFOF 9,1=0;MOBJ ROBJ1;HANDLE ROBJ1;SHOW 10,68,76,RIMG10;W 12;HANDLE -1;SETOF 10,1=1;EXIT
  137.  
  138. ACTION: 4;IFOBJ 9;SETOF 9,2=1
  139.  
  140. ACTION: 5;IFOBJ 8;MOBJ;DSET 4,+1;EXIT
  141.  
  142. ACTION: 6;IFOBJ 9;SETOF 9,2=1
  143.  
  144. ACTION: 7;IFOBJ 9;SETOF 9,2=1
  145.  
  146. ACTION: 8;IFOBJ 9;SETOF 9,2=1;SAY The star nilende. An excellent light source.;EXIT
  147.  
  148. ACTION: 9;IFOBJ 9;SETOF 9,2=1
  149.  
  150. /* end
  151.