// Moubootaur Legends Script
// Author:
//    Jesusalva
// Description:
//  Guild House & Warps

033-1,134,79,0	script	#GDoor	NPC_NO_SPRITE,0,0,{
    end;
OnTouch:
    if (getcharid(2) < 1) {
        dispbottom l("You do not belong to a guild.");
        end;
    }
    // Warp you to your guild house if exist.
    // Build the instance otherwise.

    // Well, "checking if instance exist by mapname" is an illusion.
    // So we try to build and if we fail, we warp the player to the instance.
    .@ID=getcharid(2);
    @MAP_NAME$="guild@"+str(.@ID); // Max 4 chars for map name

    .@INSTID = instance_create("guilds@a"+(.@ID), getcharid(2), IOT_GUILD);

    // Instance already exists - .@INSTID returns "-4"
    if (.@INSTID == -4) {
        warp @MAP_NAME$, any(34,35), 48;
        end;
    }

    .@instanceMapName$ = instance_attachmap("guilds", .@INSTID, 0, @MAP_NAME$);

    instance_set_timeout(0, 0, .@INSTID);
    instance_init(.@INSTID);
    warp @MAP_NAME$, any(34,35), 48;
    end;

}






function	script	SetPorthosPortal	{
    .@id = getarg(0);
        mesn l("Portal %02d", .@id);
        mes l("Do you want to activate an event?");
        next;
        select
            l("Cancel"),
            l("Moubootaur Showdown");
        mes "";
        switch (@menu) {
        case 2:
            setd(sprintf("$@EVENT_%02d", .@id), PORTHOS_ACTIVE);
            setd(sprintf("$@EVENT_%02d_M$", .@id), "001-13-2");
            setd(sprintf("$@EVENT_%02d_X", .@id), 47);
            setd(sprintf("$@EVENT_%02d_Y", .@id), 52);
            break;
        default:
            mes l("Ok.");
            break;
        }
        close;
    return;
}


033-1,72,190,0	script	#Porthos01	NPC_NO_SPRITE,0,0,{
    end;
OnTouch:
    if ($@EVENT_01 == PORTHOS_BUSY) {
        dispbottom l("This portal is currently busy - an event must be in progress.");
        end;
    }
    if ($@EVENT_01 == PORTHOS_UNUSED) {
        if (is_admin() || is_master())
            SetPorthosPortal(1);
        dispbottom l("This portal is not currently active.");
        end;
    }
    warp $@EVENT_01_M$, $@EVENT_01_X, $@EVENT_01_Y;
    end;
}

// Shortcut to Moubootaur Legends?
033-1,31,155,0	script	#Porthos02	NPC_NO_SPRITE,0,0,{
    end;
OnTouch:
    slide 31, 156;
    mes l("Do you want to visit The Mana World: Moubootaur Legends?");
    next;
    if (askyesno() == ASK_YES)
        MirrorLakeSendTo(MLP_ML, 0);
    closeclientdialog;
    end;
}