#include <lib.h>
#include <daemons.h>

inherit LIB_VERB;
string globalstr;

static void create() {
    verb::create();
    SetVerb("roll");
    SetRules("OBS","OBS on OBJ","OBS on STR","OBS here","STR","STR on OBJ");
    SetErrorMessage("Roll something?");
    SetHelp("Syntax: roll THING\n"
      "roll THING on THING        \n"
      "");  
}

mixed can_roll() {
    return this_player()->CanManipulate();
}

mixed can_roll_obj_here() {
    return this_player()->CanManipulate();
}

varargs mixed can_roll_obj(mixed arg1, mixed arg2, mixed arg3, mixed arg4) {
    return this_player()->CanManipulate();
}

varargs mixed can_roll_obj_on_obj(mixed arg1, mixed arg2, mixed arg3, mixed arg4) {
    return this_player()->CanManipulate();
}

varargs mixed can_roll_obj_on_str(mixed arg1, mixed arg2, mixed arg3, mixed arg4) {
    return this_player()->CanManipulate();
}

varargs mixed can_roll_str_on_obj(string foo, object where, string arg1, string arg2) {
    if(!where && arg2) where = get_object(arg2);
    return this_player()->CanManipulate();
}

varargs mixed can_roll_str(string foo) {
    return this_player()->CanManipulate();
}

mixed do_roll() {
    return "Roll what?";
}

varargs mixed do_roll_obj(mixed arg1, mixed arg2, mixed arg3, mixed arg4) {
    return arg1->eventRoll();
}

varargs mixed do_roll_obj_here(mixed arg1, mixed arg2, mixed arg3, mixed arg4) {
    return arg1->eventRoll();
}

varargs mixed do_roll_obj_on_obj(mixed arg1, mixed arg2, mixed arg3, mixed arg4) {
    return arg1->eventRoll(arg2);
}

varargs mixed do_roll_obs(mixed arg1, mixed arg2, mixed arg3, mixed arg4){
    mixed sum;
    foreach(object die in arg1){
        if(!sum) sum = die->eventRoll();
        else sum += die->eventRoll();
    }
    return arg1[0]->eventResults(sum);
}

varargs mixed do_roll_obs_here(mixed arg1, mixed arg2, mixed arg3, mixed arg4) {
    return do_roll_obs(arg1, arg2);
}


varargs mixed do_roll_obs_on_obj(mixed arg1, mixed arg2, mixed arg3, mixed arg4){
    mixed sum;
    foreach(object die in arg1){
        if(!sum) sum = die->eventRoll(arg2);
        else sum += die->eventRoll(arg2);
    }
    return arg1[0]->eventResults(sum);
}

varargs mixed do_roll_obj_on_str(mixed arg1, mixed arg2, mixed arg3, mixed arg4) {
    if(arg2 == "floor" || arg2 == "ground" || arg2 == "here") arg2 = environment(this_player());
    else {
        write("That's not here.");
        return 0;
    }
    return arg1->eventRoll(arg2);
}

varargs mixed do_roll_obs_on_str(mixed arg1, mixed arg2, mixed arg3, mixed arg4){
    mixed sum;
    foreach(object die in arg1){
        if(!sum) sum = do_roll_obj_on_str(die, arg2);
        else sum += do_roll_obj_on_str(die, arg2);
    }
    return arg1[0]->eventResults(sum);
}

varargs mixed do_roll_str_on_obj(string foo, object where, string arg1, string arg2) {
    object *dice = ({});
    int d1,d2;
    mixed sum;

    globalstr = "";
    if(!stringp(foo)) return 0;
    if(sscanf(foo,"%dd%d",d1,d2) < 2){
        sscanf(foo,"d%d",d2);
    }
    if(!d2){
        write("Roll what? Are you sure you have the die?");
        return 0;
    }
    if(!d1) d1 = 1;
    globalstr = "d"+d2;
    if(arg2 && !where) where = get_object(arg2, this_player());
    dice = filter(all_inventory(this_player()), (: answers_to(globalstr, $1) :) );
    if(sizeof(dice) < d1){
        write("You seem to lack sufficient dice of that denomination.");
        return 0;
    }
    if(sizeof(dice) > d1){
        dice = dice[0..d1-1];
    }
    foreach(object die in dice){
        if(!sum) sum = die->eventRoll(where);
        else sum += die->eventRoll(where);
    }

    return dice[0]->eventResults(sum);
}

mixed do_roll_str(string foo) {
    object where;
    string s1, s2;

    if(sscanf(foo,"%s on %s",s1, s2) == 2){
        where = get_object(s2,this_player());
        foo = s1;
    }
    return do_roll_str_on_obj(foo,where);
}