// TMW2 Scripts.
// Author:
// Jesusalva
// Original File
001-1,96,37,0 script Cassia NPC_FEMALE,{
mesn;
if (getgmlevel()) goto L_Control;
if ($@BGMaster1) goto L_Busy;
L_Intro:
mesq l("Hello! I am Cassia, Ambassator. During the Monster War outbreak, Halinarzo felt.");
next;
mesq l("To train their soldiers, they frequently face Frostia in duels. Adventurers are welcome to join their drills.");
next;
mesq l("To join a drill, right click on one of the lieutenants and join their Battle Stations. The drill can last up to 10 minutes.");
next;
mesq l("The sides accept only one adventurer. You'll also lose access to General Chat upon joining, and will have to use #world.");
next;
mesq l("Be sure to have a friend before joining, or you may have to logout in order to be able to move again!");
close;
L_Close:
close;
L_Busy:
if ($@BGMaster1 == 2) {
mesq l("The soldiers are resting at the moment.");
} else {
mesq l("People are challenging now.");
}
close;
L_Control:
menu
l("Introduce"), L_Intro,
rif($@BGMaster1 != 1 && getgmlevel() >= 99,l("Enable BG")), L_On,
l("Disable BG"), L_Off;
L_On:
mes "";
mes l("Determine Team Size +1 (so 1 each side, use 2)");
input $@BG1_SIZE;
if ($@BG1_SIZE < 2) close;
donpcevent "Lt. Randy::OnSet";
donpcevent "Lt. Gerry::OnSet";
if ($@BGMaster1 == 2) $@BGMaster1=0;
enablenpc "Lt. Randy";
enablenpc "Lt. Gerry";
mapannounce "001-1", l("Frostia and Halinarzo are now on a spar!"), bc_map;
mes "Event enabled.";
close;
L_Off:
disablenpc "Lt. Randy";
disablenpc "Lt. Gerry";
mes "Event disabled.";
close;
OnPcQuit:
warp "002-4", 0, 0;
bg_leave();
end;
OnPcDeath:
warp "002-4", 0, 0;
bg_leave();
end;
OnTimer60000:
if (getmapusers("001-2") < 2 || .BGC > 10) goto L_Cancel;
mapannounce("001-2", "Reinforcements raise!", bc_map);
$@FKing_T1 = bg_monster($@FK_Team1, "001-2", 125, 38, "Frostia Guard", 1081, "Cassia::OnSkip");
bg_monster($@FK_Team1, "001-2", 126, 38, "Frostia Guard", 1081, "Cassia::OnSkip");
$@FKing_T2 = bg_monster($@FK_Team2, "001-2",124, 213, "Halinarzo Guard", 1082, "Cassia::OnSkip");
bg_monster($@FK_Team2, "001-2",125, 213, "Halinarzo Guard", 1082, "Cassia::OnSkip");
.BGC+=1;
stopnpctimer();
initnpctimer();
end;
// Arena Cooldown (every 8 hours) (CET time)
OnClock0000:
OnClock0800:
OnClock1600:
if ($@BGMaster1 == 2) $@BGMaster1=0;
end;
OnSkip:
end;
L_Skip:
end;
L_RestartTimer:
stopnpctimer();
initnpctimer();
end;
L_Cancel:
stopnpctimer();
announce "The Fallen Kings Duel ended in a draw!", bc_all;
killmonsterall "001-2";
mapwarp "001-2", "001-1", 235, 27;
bg_destroy($@FK_Team1);
bg_destroy($@FK_Team2);
$@BGMaster1=2;
end;
OnVictor1:
if (!$@BGMaster1) goto L_Skip;
stopnpctimer();
announce "Team 1 raises victorious at the Fallen Kings Duel!", bc_all; // TODO: Give players a reward
killmonsterall "001-2";
delcells "Wall_0012_left";
delcells "Wall_0012_right";
mapwarp "001-2", "001-1", 117, 72;
bg_destroy($@FK_Team1);
bg_destroy($@FK_Team2);
$@BGMaster1=2;
end;
OnVictor2:
if (!$@BGMaster1) goto L_Skip;
stopnpctimer();
announce "Team 2 raises victorious at the Fallen Kings Duel!", bc_all;
killmonsterall "001-2";
delcells "Wall_0012_left";
delcells "Wall_0012_right";
mapwarp "001-2", "001-1", 117, 72;
bg_destroy($@FK_Team1);
bg_destroy($@FK_Team2);
$@BGMaster1=2;
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;
.sex = G_FEMALE;
.distance = 7;
/*
// This script is TODO
if (!debug) {
disablenpc "Cassia";
}*/
end;
OnDoEvent:
setcells "001-2", 109, 37, 109, 213, 3, "Wall_0012_left";
setcells "001-2", 141, 37, 141, 213, 3, "Wall_0012_right";
.BGC=0;
mapannounce("001-2", "May the fight begin!", bc_map);
$@FKing_T1 = bg_monster($@FK_Team1, "001-2", 125, 38, "Frostia King", 1079, "Cassia::OnVictor2");
$@FKing_T2 = bg_monster($@FK_Team2, "001-2", 124, 213, "Halinarzo King", 1080, "Cassia::OnVictor1");
bg_monster($@FK_Team1, "001-2", 124, 38, "Frostia Guard", 1081, "Cassia::OnSkip");
bg_monster($@FK_Team2, "001-2",123, 213, "Halinarzo Guard", 1082, "Cassia::OnSkip");
initnpctimer();
end;
}
001-1,94,36,0 script Lt. Randy NPC_ELF,{
hello;
OnSet:
waitingroom("Battle Station", $@BG1_SIZE, "start#bat_a02::OnReadyCheck", $@BG1_SIZE-1);
end;
OnInit:
.@npcId = getnpcid(0, .name$);
setunitdata(.@npcId, UDT_HEADTOP, 1312); // Light armor
setunitdata(.@npcId, UDT_HEADMIDDLE, 2212); // Pants
setunitdata(.@npcId, UDT_HEADBOTTOM, 1800); // Shoes
setunitdata(.@npcId, UDT_WEAPON, 3501);
setunitdata(.@npcId, UDT_HAIRSTYLE, 13);
setunitdata(.@npcId, UDT_HAIRCOLOR, 7);
//waitingroom("Battle Station", 2, "start#bat_a02::OnReadyCheck", 1);
disablenpc("Lt. Randy");
end;
OnEnterBG:
$@FK_Team1 = waitingroom2bg("001-2",126, 38,"start#bat_a02::OnSide1Quit","");
end;
}
001-1,98,36,0 script Lt. Gerry NPC_ELF,{
hello;
OnSet:
waitingroom("Battle Station", $@BG1_SIZE, "start#bat_a02::OnReadyCheck", $@BG1_SIZE-1);
end;
OnInit:
.@npcId = getnpcid(0, .name$);
setunitdata(.@npcId, UDT_HEADTOP, 1311); // Terranite armor
setunitdata(.@npcId, UDT_HEADMIDDLE, 2212); // Pants
setunitdata(.@npcId, UDT_HEADBOTTOM, 1800); // Shoes
setunitdata(.@npcId, UDT_WEAPON, 3501);
setunitdata(.@npcId, UDT_HAIRSTYLE, 13);
setunitdata(.@npcId, UDT_HAIRCOLOR, 7);
//waitingroom("Battle Station", 2, "start#bat_a02::OnReadyCheck", 1);
disablenpc("Lt. Gerry");
end;
OnEnterBG:
$@FK_Team2 = waitingroom2bg("001-2",124,213,"start#bat_a02::OnSide2Quit","");
end;
}
//== Tierra Gorge Battleground Engine ======================
001-2,0,0,3 script start#bat_a02 NPC_HIDDEN,{
OnInit:
//mapwarp "bat_a02","bat_room",154,150;
end;
OnEnable:
end;
OnSide1Quit:
OnSide2Quit:
bg_leave;
end;
OnReadyCheck:
if( $@BGMaster1 )
end;
.@Guillaume = getwaitingroomstate(0,"Lt. Randy");
.@Croix = getwaitingroomstate(0,"Lt. Gerry");
if( !.@Guillaume && !.@Croix ) {
donpcevent "#bat_a02_timer::OnStop";
end;
}
else if( .@Guillaume < 1 || .@Croix < 1 )
end;
$@BGMaster1 = 1;
donpcevent "Lt. Randy::OnEnterBG";
donpcevent "Lt. Gerry::OnEnterBG";
donpcevent "Cassia::OnDoEvent";
bg_warp $@FK_Team1,"001-2",126,38;
bg_warp $@FK_Team2,"001-2",125,213;
//initnpctimer;
end;
}