COWbrowse

You are in a floating orb in the center of the room

This room is a room where a random monster of your chosen level is spawned for you to fight! If either you or the monster are defeated the monster disintegrates in oblivion.

Button 1: monster with 10 health
Button 2: monster with 25 health
Button 3: monster with 40 health
Button 4: monster with 65 health
Epic Button: monster with 100 health and magical weapons
Large Lever: not recommended that you try this one
Swarm Button: 1 monster from buttons 1-4

Keep note that all of the mosnters in here are fake magical representations, many are weaker than their real counterparts.

Created by Chaotic Bob, last updated 31 Jan 2015

Code

##arrives:
runsub whattodo;
##whattodo:
runsub introd;
##introd:
msg $loc,$init_obj,$init_obj,0,'says',"Welcome to the ultimate training center!";

##wins:
runsub whattodo2;
##whattodo2:
runsub prizegive;
##prizegive:
print "Congratulations on your victory!";
print "Here's your prize!";
find $actor, prize1;
copy $found_id;
var $weak to $new_id;
var $newwy to (sword, mace, hammer);
set $weak's class to $newwy;
set $weak's healthmax to 15;
set $weak's health to 15;
set $weak's worth to 300;
call "drop $weak";
##wins2:
runsub whattodo3;
##whattodo3:
runsub prizegive2;
##prizegive2:
print "Congratulations on your victory!";
print "Here's your prize!";
find $actor, prize2;
copy $found_id;
var $subpar to $new_id;
var $newwy to (long sword, heavy mace, warhammer);
set $subpar's class to $newwy;
set $subpar's healthmax to 25;
set $subpar's health to 25;
set $subpar's worth to 500;
call "drop $subpar";
##wins3:
runsub whattodo4;
##wins4:
runsub whattodo5;
##winsepic:
runsub whattodoepic;
##whattodo4:
runsub prizegive3;
##prizegive3:
print "Congratulations on your victory!";
print "Here's your prize!";
find $actor, prize3;
copy $found_id;
var $moder to $new_id;
var $newwy to (bastard sword, war mace, maul);
set $moder's class to $newwy;
set $moder's healthmax to 35;
set $moder's health to 35;
set $moder's worth to 800;
call "drop $moder";
##whattodo5:
runsub prizegive4;
##prizegive4:
print "Congratulations on your victory!";
print "Here's your prize!";
find $actor, prize4;
copy $found_id;
var $powe to $new_id;
var $newwy to (greatsword, flail, glaive);
set $powe's class to $newwy;
set $powe's healthmax to 45;
set $powe's health to 45;
set $powe's worth to 1000;
call "drop $powe";
##whattodoepic:
runsub prizegiveepic;
##prizegiveepic:
print "Congratulations on your victory!";
print "Here's your prize!";
find $actor, prizeepic;
copy $found_id;
var $epic to $new_id;
var $newwy to (dire flail, double-blade sword, halberd);
set $epic's class to $newwy;
set $epic's healthmax to 55;
set $epic's health to 55;
set $epic's worth to 2000;
call "drop $epic";
##winsdeific:
runsub whattodoboss;
##whattodoboss:
runsub bossprizegive;
##bossprizegive:
print "You're Outstanding!";
print "Take this for your victory!";
find $actor, oddly shaped pole;
copy $found_id;
var $arti to $new_id;
call "drop $arti";