--- /dev/null
+
+! (level 3)
+
+Class Gambit_Room_Lev3_Class
+ with description "You are on the surface of a floating stone \
+cube. The red light from below seems a bit brighter here.",
+ name "stone" "cube" "light",
+has light;
+
+Object GAMBIT_31 "On Giant White Cube"
+ class Gambit_Room_Lev3_Class
+ with w_to
+ [ i ;
+ i = CheckGambit(n312,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W31;
+ ],
+ s_to
+ [ i ;
+ i = CheckGambit(n313,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W32;
+ ],
+;
+
+Object GAMBIT_32 "On Giant White Cube"
+ class Gambit_Room_Lev3_Class
+ with e_to
+ [ i ;
+ i = CheckGambit(n324,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W31;
+ ],
+ w_to
+ [ i ;
+ i = CheckGambit(n322,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W31;
+ ],
+ s_to
+ [ i ;
+ i = CheckGambit(n323,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W32;
+ ],
+;
+
+Object GAMBIT_33 "On Giant White Cube"
+ class Gambit_Room_Lev3_Class
+ with e_to
+ [ i ;
+ i = CheckGambit(n334,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W31;
+ ],
+ s_to
+ [ i ;
+ i = CheckGambit(n333,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W32;
+ ],
+;
+
+Object GAMBIT_34 "On Giant White Cube"
+ class Gambit_Room_Lev3_Class
+ with w_to
+ [ i ;
+ i = CheckGambit(n342,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W31;
+ ],
+ n_to
+ [ i ;
+ i = CheckGambit(n341,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W32;
+ ],
+ s_to
+ [ i ;
+ i = CheckGambit(n343,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W32;
+ ],
+;
+
+Object GAMBIT_35 "On Giant White Cube"
+ class Gambit_Room_Lev3_Class
+ with e_to
+ [ i ;
+ i = CheckGambit(n354,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W31;
+ ],
+ w_to
+ [ i ;
+ i = CheckGambit(n352,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W31;
+ ],
+ n_to
+ [ i ;
+ i = CheckGambit(n351,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W32;
+ ],
+ s_to
+ [ i ;
+ i = CheckGambit(n353,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W32;
+ ],
+;
+
+Object GAMBIT_36 "On Giant White Cube"
+ class Gambit_Room_Lev3_Class
+ with e_to
+ [ i ;
+ i = CheckGambit(n364,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W31;
+ ],
+ n_to
+ [ i ;
+ i = CheckGambit(n361,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W32;
+ ],
+ s_to
+ [ i ;
+ i = CheckGambit(n363,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W32;
+ ],
+;
+
+Object GAMBIT_37 "On Giant White Cube"
+ class Gambit_Room_Lev3_Class
+ with w_to
+ [ i ;
+ i = CheckGambit(n372,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W31;
+ ],
+ n_to
+ [ i ;
+ i = CheckGambit(n371,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W32;
+ ],
+;
+
+Object GAMBIT_38 "On Giant White Cube"
+ class Gambit_Room_Lev3_Class
+ with w_to
+ [ i ;
+ i = CheckGambit(n382,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W31;
+ ],
+ n_to
+ [ i ;
+ i = CheckGambit(n381,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W32;
+ ],
+ e_to
+ [ i ;
+ i = CheckGambit(n384,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W31;
+ ],
+;
+
+Object GAMBIT_39 "On Giant White Cube"
+ class Gambit_Room_Lev3_Class
+ with e_to
+ [ i ;
+ i = CheckGambit(n394,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W31;
+ ],
+ n_to
+ [ i ;
+ i = CheckGambit(n381,0,3);
+ if (i ~= 2) return i;
+ else return GAMBIT_W32;
+ ],
+;
+
+
+! (level 3 niches)
+
+Object n313 "southern niche" GAMBIT_31
+ class niche_class
+ with name "southern",
+ counter_niche n341,
+ niche_dir 3;
+Object n312 "western niche" GAMBIT_31
+ class niche_class
+ with name "western",
+ counter_niche n324,
+ niche_dir 2;
+
+Object n324 "eastern niche" GAMBIT_32
+ class niche_class
+ with name "eastern",
+ counter_niche n312,
+ niche_dir 4;
+Object n323 "southern niche" GAMBIT_32
+ class niche_class
+ with name "southern",
+ counter_niche n351,
+ niche_dir 3;
+Object n322 "western niche" GAMBIT_32
+ class niche_class
+ with name "western",
+ counter_niche n334,
+ niche_dir 2;
+
+Object n334 "eastern niche" GAMBIT_33
+ class niche_class
+ with name "eastern",
+ counter_niche n322,
+ niche_dir 4;
+Object n333 "southern niche" GAMBIT_33
+ class niche_class
+ with name "southern",
+ counter_niche n361,
+ niche_dir 3;
+
+Object n341 "northern niche" GAMBIT_34
+ class niche_class
+ with name "northern",
+ counter_niche n313,
+ niche_dir 1;
+Object n342 "western niche" GAMBIT_34
+ class niche_class
+ with name "western",
+ counter_niche n354,
+ niche_dir 2;
+Object n343 "southern niche" GAMBIT_34
+ class niche_class
+ with name "southern",
+ counter_niche n371,
+ niche_dir 3;
+
+Object n351 "northern niche" GAMBIT_35
+ class niche_class
+ with name "northern",
+ counter_niche n323,
+ niche_dir 1;
+Object n354 "eastern niche" GAMBIT_35
+ class niche_class
+ with name "eastern",
+ counter_niche n342,
+ niche_dir 4;
+Object n352 "western niche" GAMBIT_35
+ class niche_class
+ with name "western",
+ counter_niche n364,
+ niche_dir 2;
+Object n353 "southern niche" GAMBIT_35
+ class niche_class
+ with name "southern",
+ counter_niche n381,
+ niche_dir 3;
+
+Object n364 "eastern niche" GAMBIT_36
+ class niche_class
+ with name "eastern",
+ counter_niche n352,
+ niche_dir 4;
+Object n361 "northern niche" GAMBIT_36
+ class niche_class
+ with name "northern",
+ counter_niche n333,
+ niche_dir 1;
+Object n363 "southern niche" GAMBIT_36
+ class niche_class
+ with name "southern",
+ counter_niche n391,
+ niche_dir 3;
+
+Object n371 "northern niche" GAMBIT_37
+ class niche_class
+ with name "northern",
+ counter_niche n343,
+ niche_dir 1;
+Object n372 "western niche" GAMBIT_37
+ class niche_class
+ with name "western",
+ counter_niche n384,
+ niche_dir 2;
+
+Object n381 "northern niche" GAMBIT_38
+ class niche_class
+ with name "northern",
+ counter_niche n353,
+ niche_dir 1;
+Object n382 "western niche" GAMBIT_38
+ class niche_class
+ with name "western",
+ counter_niche n394,
+ niche_dir 2;
+Object n384 "eastern niche" GAMBIT_38
+ class niche_class
+ with name "eastern",
+ counter_niche n372,
+ niche_dir 4;
+
+Object n391 "northern niche" GAMBIT_39
+ class niche_class
+ with name "northern",
+ counter_niche n363,
+ niche_dir 1;
+Object n394 "eastern niche" GAMBIT_39
+ class niche_class
+ with name "eastern",
+ counter_niche n382,
+ niche_dir 4;
+
+! (level 3 initial wood beam layout)
+! wood beam, as two 'halves'
+
+Object p31 "pine beam" n322 class pine_beam_class;
+Object p311 "pine beam" n334 class pine_beam_class with number 99;
+
+! (side note: with balsa beams, 2nd side need not be 99, since
+! it will always break on the first try, and the default number is 0
+Object b31 "balsa beam" n312 class balsa_beam_class;
+Object b311 "balsa beam" n324 class balsa_beam_class;
+Object b32 "balsa beam" n313 class balsa_beam_class;
+Object b321 "balsa beam" n341 class balsa_beam_class;
+Object b33 "balsa beam" n323 class balsa_beam_class;
+Object b331 "balsa beam" n351 class balsa_beam_class;
+Object b34 "balsa beam" n333 class balsa_beam_class;
+Object b341 "balsa beam" n361 class balsa_beam_class;
+Object b35 "balsa beam" n342 class balsa_beam_class;
+Object b351 "balsa beam" n354 class balsa_beam_class;
+Object b36 "balsa beam" n352 class balsa_beam_class;
+Object b361 "balsa beam" n364 class balsa_beam_class;
+Object b37 "balsa beam" n343 class balsa_beam_class;
+Object b371 "balsa beam" n371 class balsa_beam_class;
+Object b38 "balsa beam" n353 class balsa_beam_class;
+Object b381 "balsa beam" n381 class balsa_beam_class;
+Object b39 "balsa beam" n363 class balsa_beam_class;
+Object b391 "balsa beam" n391 class balsa_beam_class;
+Object b3a "balsa beam" n372 class balsa_beam_class;
+Object b3a1 "balsa beam" n384 class balsa_beam_class;
+Object b3b "balsa beam" n382 class balsa_beam_class;
+Object b3b1 "balsa beam" n394 class balsa_beam_class;
+
+
+! extra goodies...
+
+Object Gambit_hole "large round hole" GAMBIT_37
+ with name "hole" "round",
+ initial "In the center of the room is a large round \
+hole, going straight down through the floating cube.",
+ description "A large round hole cut straight through the \
+giant cube you stand on. All you need is a huge square peg.",
+ size 30,
+ before [;
+ Enter:
+ if (fire_spirit in GAMBIT_37)
+ "The towering fire spirit blocks your way!";
+ print "^You close your eyes and jump straight \
+into the hole! There is a bright flash of light...^";
+ Achieved(5);
+ PlayerTo(GAMBIT_11);
+ return 2;
+ Receive:
+ if (fire_spirit in GAMBIT_37)
+ "The towering fire spirit is in your way!";
+ move noun to GAMBIT_11;
+ print "You drop "; DefArt(noun);
+ " into the hole. There is a bright flash of light, and \
+the object disappears!";
+ Rub, Push, Pull, Touch, Squeeze, Turn, Shake:
+"I don't know how to do that to a giant hole.";
+ ],
+ after [;
+ Search:
+ if (fire_spirit in GAMBIT_37)
+ "The towering fire spirit fills the hole currently!";
+else "Looking through the hole, you can see a reddish haze \
+far below.";
+ ],
+ has static container open enterable;
+
+! rod piece -- SMOKE
+Object smoke_rod_piece "smoke rod piece" GAMBIT_37
+ class rod_class,
+ with name "smoke",
+ initial "Sitting on the floor is a short smoke-colored rod.",
+ description "It's a short section of a rod made of some \
+undeterminable hard substance, \
+colored smoke. A piece of the Rod of \
+the Ancients, no doubt!",
+;
+
+
+Object fire_spirit "fire spirit" GAMBIT_37
+ with name "spirit",
+ description "It looks like a tower of animated flame.",
+ each_turn [ i ;
+ ! spirit attack
+ ! (in general, the 4 spirits are _very_ dangerous.
+ ! There's a 1/5 chance of killing outright, and 2
+ ! chances of doing 10 and 5 points of damage respectively.
+ ! In short, the player needs to realize it's time to swanko,
+ ! and do so, quickly)
+ if (self hasnt general) {
+ give self general ~concealed;
+ "^Suddenly, a flash of flame bursts through the hole \
+in the center of the cube! A living tower of flame attacks!";
+ }
+ i = random(5);
+ if (i == 1) {
+ deadflag = 1;
+ "^The fire creature engulfs you in a deadly inferno! \
+You are burned to a crisp.";
+ }
+ if (i == 2)
+ Player_HP_CUR = Player_HP_CUR - 10;
+ if (i==3)
+ Player_HP_CUR = Player_HP_CUR - 5;
+ if (Player_HP_CUR <= 0) {
+ deadflag = 1;
+ "^The last blow from the fire spirit was too much for \
+you, I'm afraid to say. The spirit senses your \
+weakness and engulfs you in flame.";
+ }
+ print "^The fir spirit ";
+ if (i==2)
+ "singes you with a jet of fire!";
+ if (i==3) {
+ "sends a small ball of \
+flame your way! You get slightly burned!";
+ }
+ "tries to torch you in a sheet of \
+flame, but you evade just in time!";
+ ],
+ before [;
+ Cast:
+ if (the_spell_was == swanko_spell) {
+ remove self;
+ "As you speak the chant, the fire spirit falls back \
+in fear! You finish the chant, and the fire spirit \
+dissipates into harmless smoke, banished!";
+ }
+ print "Crackling flame drowns out your chant.^";
+ ],
+ life [ ;
+ Attack:
+ if (random(20) >= 8)
+ "You strike the fire creature, but your attack passes \
+ harmlessly through it! You hear a crackling noise \
+that could pass for laughter.";
+ "You attack the fire spirit, but miss!";
+ default: "It's too busy trying to kill you.";
+ ],
+ has animate concealed;
projects / spiritwrak.git / blobdiff