// TMW2 Scripts.
// Author:
//  Jesusalva

004-2,29,23,0	script	BGMaster	NPC_FEMALE,{
    mesn;
    if ($@BattleOn) goto L_Busy;
    mesq l("Hello, lets bg masterize this.");
    mes "";
    menu
        l("Init!"), L_Init,
        l("Join team 1."), L_T1,
        l("Join team 2."), L_T2;

L_T1:
    mesn;
    if (bg_join_team($@FK_Team1))
        goto L_SuccessJoin;
    mes "An error happened.";
    goto L_Close;

L_T2:
    mesn;
    if (bg_join_team($@FK_Team1))
        goto L_SuccessJoin;
    mes "An error happened.";
    goto L_Close;

L_SuccessJoin:
    mesq l("Done!");
    close;

L_Init:
    $@BattleOn=1;
    mesn;
    next;
    //for 
    bg_warp $@FK_Team1, "testbg", 13, 4;
    bg_warp $@FK_Team2, "testbg", 13, 26;
    mesn;
    next;
    //setbgteam $@FK_Team1, 1;
    //setbgteam $@FK_Team2, 2;
    //mesn;
    //next;
	mapannounce("testbg", "May the fight begin!", bc_map);
    mesn;
    next;
	$@FKing_T1 = bg_monster($@FK_Team1, "testbg", 1, 1, "OldFallen", 1079, "BGMaster::OnVictor2");
	$@FKing_T2 = bg_monster($@FK_Team2, "testbg", 13, 28, "OldFallen2", 1080, "BGMaster::OnVictor1");
    mesn;
    next;
	initnpctimer();
    close;

L_Close:
    close;

L_Busy:
    mesq l("Sorry, registration period is over.");
    close;

OnPcQuit:
    warp "002-4", 0, 0;
    bg_leave();
    end;

OnPcDeath:
    warp "002-4", 0, 0;
    bg_leave();
    end;

OnTimer30000:
	mapannounce("testbg", "Reinforcements raise!", bc_map);
	$@FKing_T1 = bg_monster($@FK_Team1, "testbg", 1, 1, "FallenGuard1", 1081, "BGMaster::OnSkip");
	$@FKing_T2 = bg_monster($@FK_Team2, "testbg", 13, 28, "FallenGuard2", 1082, "BGMaster::OnSkip");
	stopnpctimer();
	initnpctimer();
    end;

OnSkip:
    end;

OnVictor1:
	stopnpctimer();
    announce "Team 1 raises victorious!", bc_all;
    bg_warp $@FK_Team1, "004-2", 29, 23;
    bg_warp $@FK_Team2, "004-2", 29, 23;
    bg_destroy($@FK_Team1);
    bg_destroy($@FK_Team2);
    $@BattleOn=0;
    end;

OnVictor2:
	stopnpctimer();
    announce "Team 2 raises victorious!", bc_all;
    bg_warp $@FK_Team1, "004-2", 29, 23;
    bg_warp $@FK_Team2, "004-2", 29, 23;
    bg_destroy($@FK_Team1);
    bg_destroy($@FK_Team2);
    $@BattleOn=0;
    end;

OnInit:
    .@npcId = getnpcid(0, .name$);
    setunitdata(.@npcId, UDT_HEADTOP, 1322); // Dress
    setunitdata(.@npcId, UDT_HEADMIDDLE, 2204); // Not needed
    setunitdata(.@npcId, UDT_HEADBOTTOM, 1800); // Shoes
    setunitdata(.@npcId, UDT_WEAPON, 3501);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 12);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 5);
    npcsit;

    $@FK_Team1=waitingroom2bg("testbg", 13, 4, "BGMaster::OnPcQuit", "BGMaster::OnPcDeath");
    $@FK_Team2=waitingroom2bg("testbg", 13, 26, "BGMaster::OnPcQuit", "BGMaster::OnPcDeath");

    .sex = G_FEMALE;
    .distance = 5;
    end;
}