inherit "obj/monster"; 
#include "../island.h" 

    
  reset(arg) {
    ::reset(arg);
  if (!arg) {

    set_name("red dragon");
    set_level(50); 
    set_size(4);
    set_hp(4000);
    set_al(-400); 
    set_alias("dragon"); 
    set_alt_name("volcano dragon");
    set_race("dragon"); 
    set_short("A red volcano Dragon"); 
    set_long("You see a big dangerous looking volcano dragon\n"+ 
               "hungrily staring at you.\n");
    set_gender(1+random(2));
    set_ac(10); 
    set_whimpy(10);
    load_chat(1,({
      "C hhhhhhhhhhhhh\n", 
      "The dragon sharpens its claws\n"}));
    set_spell_mess1("The dragon throws a red fireball");
    set_spell_mess2("The dragon throws a red fireball at you");
    set_chance(2); 
    set_spell_dam(80+random(80));
    move_object(clone_object("players/whisky/island/obj/dragontail"),
    this_object());
    move_object(clone_object("players/whisky/island/obj/red_star"),
    this_object());
    move_object(clone_object("players/whisky/island/obj/r_skin"),
    this_object());
}
} 


