// Petrarch
// Merentha Lib 1.0
// <fireball>  sample magic attack spell

int command() {
    object at;
    int dam;

    if(this_player()->query_class()!="mage") return notify_fail("Only mages can cast fireballs.\n");
    at=this_player()->query_current_attacker();
    message("magic", "You summon up the magic to cast a giant ball of fire.", this_player());
    message("magic", this_player()->query_cap_name()+" concentrates on a magic spell.",environment(this_player()),({this_player(),at}));
    if(at) {
        if(random(this_player()->query_skill_level("attack"))<random(at->query_skill_level("defense"))) dam=0;
        else dam=this_player()->query_skill_level("attack magic");
        this_player()->set_casting(2);
        this_player()->set_casting_damage(dam);
        this_player()->set_magic_casting(({
            "Your fireball his "+at->query_cap_name()+".", 
            "A fireball from "+this_player()->query_cap_name()+" burns you badly.",
            this_player()->query_cap_name()+" hits "+at->query_cap_name()+" with a ball of fire."
          }));
                if (dam>0) {
                   this_player()->use_skill("attack magic",(dam<100?dam/2:50));
                } else {
                   at->use_skill("defense", 10);
                }
    } else {
        message("magic", "You release a ball of fire into the sky.", this_player());
        message("magic", this_player()->query_cap_name()+" releases a ball of fire into the sky.",environment(this_player()),({this_player(),at}));
        message("magic", "A magistic fireball flies overhead.", users());
    }
    return 1;
}

string help() {
    return "Syntax: fireball\n\nThis powerful command of the magi allows the caster to create and fire off a magical ball of fire.  When used in combat the fireball will be directed at the enemy.";
}