fRO_french_translation_rAthena/npc/custom/eAAC_Scripts/clonearena.txt

//===== kekeRO Script =============================================
//= Clone Arena Script 
//===== By: ======================================================= 
//= Miir - For use only in kekeRO 
//===== Current Version: ========================================== 
//= 1.5 
//===== Compatible With: ========================================== 
//= Any eAthena Version 
//===== Description: ============================================== 
//= Arena to fight your clone or clones
//  Also a two part quest that allows you to create the
//  Stone of Sage, then to create a custom item, Homunculus
//  Scroll, which allows you to summon a helpful clone.
//===== Additional Comments: ====================================== 
//= 1.0 - NPCs created, basic idea from Zhumos
//= 1.1 - Moved the location to force_2-1 [Miir]
//= 1.2 - Fixed Rooms 3 and 4 [Miir]
//      - Changed the labels so they are easy to edit [Miir]
//      - Added a point rewards system [Miir]
//= 1.3 - Added option to fight 2 or 3 clones [Miir]
//	- Fixed when Clone Masters were enabled [Miir]
//      - Added level restriction (Level 50+) [Miir]
//      - Modified the Prizes [Miir]
//= 1.4 - Added a check for inventory [Miir]
//	- Added a Kafra [Miir]
//	- Modified the Clone modes [Miir]
//= 1.5 - Added time equipment check to stop exploitation [Miir]
//	- Fixed OnTouch warping (oops...) [Miir]
//	- Added a few more mapflags [Miir]
//	- Added Chemical Protection Buffs to avoid equipment
//	  breaking (causing the violation to trigger) [Miir]
//================================================================= 
// -- Map Flags ---------------
force_2-1.gat	mapflag	pvp
force_2-1.gat	mapflag	noteleport
force_2-1.gat	mapflag	nosave	SavePoint
force_2-1.gat	mapflag	nobranch
force_2-1.gat	mapflag	nopenalty
force_2-1.gat	mapflag	nomemo
force_2-1.gat	mapflag	nowarp
force_2-1.gat	mapflag	nowarpto
force_2-1.gat	mapflag	noicewall
force_2-1.gat	mapflag	noreturn

// -- Clone Arena Gatekeeper ---------------
prt_are_in,97,28,4	script	Clone Arena Gatekeeper	105,{
	mes "[Clone Arena Gatekeeper]";
	mes "Welcome, warrior, to the ^0000FFClone Arena^000000!";
	next;
	L_Menu:
	menu "^0000FFClone Arena Information^000000",L_Q,"I'd like to sign up!",L_Room,"No thanks",L_Quit;

	L_Q:
	mes "[Clone Arena Gatekeeper]";
	mes "The ^0000FFClone Arena^000000 allows you to test your skills against yourself.";
	next;
	mes "[Clone Arena Gatekeeper]";
	mes "A clone is created using your basic stats, skills, and weapons. A basic AI runs the clone.";
	next;
	mes "[Clone Arena Gatekeeper]";
	mes "You have 3 minutes to kill your clone. If you don't, or die, you lose the match.";
	next;
	mes "[Clone Arena Gatekeeper]";
	mes "You obtain points for even successful match. You can trade them in for prizes.";
	next;
	mes "[Clone Arena Gatekeeper]";
	mes "You must use all possible equipment expect Middle and Lower Headgear. You may not switch equipment during the fight. If you do, you will be kicked and points will be taken away from you.";
	next;
	mes "[Clone Arena Gatekeeper]";
	mes "Finally, you can increase the difficulty by fighting more clones. In return, you can gain more bonus points.";
	next;
	goto L_Menu;

	L_Room:
	mes "[Clone Arena Gatekeeper]";
	if(BaseLevel < 50) goto L_Limit;          //-- Limits anyone under level 50 from entering
	mes "Registration confirmed. Please apply to a room. You may only appy to a room that isn't occupied.";
	next;
	menu "Room 1 [" + getareausers("force_2-1.gat",7,192,44,155) + " Users]",L_Room1,"Room 2 [" + getareausers("force_2-1.gat",155,192,192,155) + " Users]",L_Room2,"Room 3 [" + getareausers("force_2-1.gat",7,44,44,7) + " Users]",L_Room3,
		"Room 4 [" + getareausers("force_2-1.gat",155,44,192,7) + " Users]",L_Room4,"Cancel",L_Quit;

	L_Room1:
	if (getareausers("force_2-1.gat",7,192,44,155) >= 1) goto L_Occupied;
	warp "force_2-1.gat",25,172;

	L_Room2:
	if (getareausers("force_2-1.gat",155,192,192,155) >= 1) goto L_Occupied;
	warp "force_2-1.gat",173,172;

	L_Room3:
	if (getareausers("force_2-1.gat",7,44,44,7) >= 1) goto L_Occupied;
	warp "force_2-1.gat",25,24;

	L_Room4:
	if (getareausers("force_2-1.gat",155,44,192,7) >= 1) goto L_Occupied;
	warp "force_2-1.gat",173,24;

	L_Occupied:
	mes "[Clone Arena Gatekeeper]";
	mes "The room is currently occupied. Please apply to another room, or wait until this room is free for use.";
	close;

	L_Limit:
	mes "I'm sorry, but you must be at least ^0000FFBase Level 50^000000 or higher to register.";
	close;

	L_Quit:
	mes "[Clone Arena Gatekeeper]";
	mes "Just speak to me if you have any further questions.";
	close;
}

// -- Clone Arena Prizes ---------------
prt_are_in,108,18,2	script	Clone Arena Prizes	102,{
	mes "[Clone Arena Prizes]";
	mes "Hiya! I can exchange the points you earn in the arena for amazing prizes! You currently have";
	mes "^0000FF"+ $@clonepts +" Points^000000!";
	next;
	menu 

"Racoon Doll - 10 pts.",P_Racoon_Doll,
"Yoyo Doll - 10 pts.",P_Yoyo_Doll,
"Baphomet Doll - 15 pts.",P_Baphomet_Doll,
"Osiris Doll - 15 pts.",P_Osiris_Doll,
"Elunium - 20 pts.",P_Elunium,
"Oridecon - 20 pts.",P_Oridecon,
"Resist Fire Potion - 25 pts.",P_Resist_Fire,
"Resist Cold Potion - 25 pts.",P_Resist_Cold,
"Resist Earth Potion - 25 pts.",P_Resist_Earth,
"Resist Thunder Potion - 25 pts.",P_Resist_Thunder,
"Fire Element Converter - 30 pts.",P_Fire_Converter,
"Frost Element Converter - 30 pts.",P_Frost_Converter,
"Seismic Element Converter - 30 pts.",P_Seismic_Converter,
"Lightning Element Converter - 30 pts.",P_Lightning_Converter,
"Old Blue Box - 40 pts.",P_OBB,
"Old Card Album - 60 pts.",P_OCA,
"Old Purple Box - 60 pts.",P_OPB,
"Distilled Fighting Spirit - 75 pts.",P_Distilled_Fighting,
"Herb of Incantation - 75 pts.",P_Herb_Incantation,
"Forbidden Red Candle - 90 pts.",P_Forbidden_Red,
"Soft Apron - 90 pts.",P_Soft_Apron,
"Emperium - 110 pts.",P_Emperium,
"Durian - 140 pts.",P_Durian,
"Cancel",L_End;

	P_Racoon_Doll:
	set $@cloneprize, 754;
	set $@cloneprizepts, 10;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA doll made to resemble Smokie, the raccoon.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFRacoon Doll^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Yoyo_Doll:
	set $@cloneprize, 753;
	set $@cloneprizepts, 10;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA doll made to resemble Yoyo, the monkey. They live in groups deep in the forest, are very smart, and familiar with humans.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFYoyo Doll^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Baphomet_Doll:
	set $@cloneprize, 750;
	set $@cloneprizepts, 15;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA doll made to resemble Baphomet, scourge of the living. It is a dollmaker's masterpiece.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFBaphomet Doll^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Osiris_Doll:
	set $@cloneprize, 751;
	set $@cloneprizepts, 15;
	mes "[Clone Arena Prizes]";
	mes "'A doll made to resemble Osiris, the king of darkness. It is a dollmaker's masterpiece.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFOsiris Doll^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Elunium:
	set $@cloneprize, 985;
	set $@cloneprizepts, 20;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFVery light, non toxic metal. Used for toughening armors.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like an ^0000FFElunium^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Oridecon:
	set $@cloneprize, 984;
	set $@cloneprizepts, 20;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA pure Oridecon. Known as the blessed metal, it's extremely strong and can increase the damage of weapons if it is welded to them. Used for tempering lvl 3 or lvl 4 Weapons.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like an ^0000FFOridecon^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Resist_Fire:
	set $@cloneprize, 12118;
	set $@cloneprizepts, 25;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA Potion used to grant some resistance to Fire. Be careful since you receive more damage from the opposite property.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFResist Fire Potion^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Resist_Cold:
	set $@cloneprize, 12119;
	set $@cloneprizepts, 25;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA Potion used to grant some resistance to Water. Be careful since you receive more damage from the opposite property.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFResist Cold Potion^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Resist_Earth:
	set $@cloneprize, 12120;
	set $@cloneprizepts, 25;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA Potion used to grant some resistance to Earth. Be careful since you receive more damage from the opposite property.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFResist Earth Potion^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Resist_Thunder:
	set $@cloneprize, 12121;
	set $@cloneprizepts, 25;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA Potion used to grant some resistance to Wind. Be careful since you receive more damage from the opposite property.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFResist Thunder Potion^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Fire_Converter:
	set $@cloneprize, 12114;
	set $@cloneprizepts, 30;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFWhen used causes the users weapon to change to Fire Property attribute for a short period of time.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFFire Element Converter^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Frost_Converter:
	set $@cloneprize, 12115;
	set $@cloneprizepts, 30;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFWhen used causes the users weapon to change to Water Property attribute for a short period of time.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFFrost Element Converter^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Seismic_Converter:
	set $@cloneprize, 12116;
	set $@cloneprizepts, 30;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFWhen used causes the users weapon to change to Earth Property attribute for a short period of time.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFSeismic Element Converter^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Lightning_Converter:
	set $@cloneprize, 12117;
	set $@cloneprizepts, 30;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFWhen used causes the users weapon to change to Wind Property attribute for a short period of time.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFLightning Element Converter^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_OBB:
	set $@cloneprize, 603;
	set $@cloneprizepts, 40;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA mysterious blue box. It seems it contain something, but you'll have to open it to find out.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like an ^0000FFOld Blue Box^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_OCA:
	set $@cloneprize, 616;
	set $@cloneprizepts, 60;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFAn antique album possessing mysterious powers. It's very likely that there is a card inside.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like an ^0000FFOld Card Album^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_OPB:
	set $@cloneprize, 617;
	set $@cloneprizepts, 60;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFAn old and mysterious looking purple box. It must be opened in order to see what's inside.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like an ^0000FFOld Purple Box^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Distilled_Fighting:
	set $@cloneprize, 682;
	set $@cloneprizepts, 75;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA magical drink which increases attack strength when it is taken.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFDistilled Fighting Spirit^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Herb_Incantation:
	set $@cloneprize, 683;
	set $@cloneprizepts, 75;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFAn enchanted herb which increases magical attack strength when eaten.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like an ^0000FFHerb of Incantation^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Forbidden_Red:
	set $@cloneprize, 660;
	set $@cloneprizepts, 90;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA candle that may have a mysterious purpose.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFForbidden Red Candle^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Soft_Apron:
	set $@cloneprize, 661;
	set $@cloneprizepts, 90;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA soft apron that is double stitched for better quality. Favorite item of the Alice monster.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFSoft Apron^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Emperium:
	set $@cloneprize, 714;
	set $@cloneprizepts, 110;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA very splendid, shiny ore. It is rumored that this jewel can bring power and glory to one that is chosen by fate.'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like an ^0000FFEmperium^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Durian:
	set $@cloneprize, 684;
	set $@cloneprizepts, 140;
	mes "[Clone Arena Prizes]";
	mes "'^0000FFA tropical fruit which is called as 'the king of fruits' having a hard, prickly rind and soft pulp. It also has an offensive odor but a pleasant taste. Increase Attack Strength and Magic Attack Strength for a duration. ATK + 10, MATK + 10'^000000";
	next;
	mes "[Clone Arena Prizes]";
	mes "Would you like a ^0000FFDurian^000000?";
	next;
	menu "Yes",P_Get,"No thanks",L_End;

	P_Get:
	mes "[Clone Arena Prizes]";
	if ($@clonepts < $@cloneprizepts) goto P_No;
	mes "Alright! Here you go!";
	set $@clonepts, $@clonepts - $@cloneprizepts;
	getitem $@cloneprize, 1;
	close;

	P_No:
	mes "I'm sorry, but you don't have enough points to get this item!";
	close;

	L_End:
	mes "[Clone Arena Prizes]";
	mes "Alright, please enjoy the arena!";
	close;
}

// -- Clone Arena Kafra ---------------
prt_are_in,108,22,2	script	Kafra	115,{
	cutin "kafra_03",2;
	callfunc "F_Kafra",0,3;

M_Save:
	savepoint "prt_are_in",98,15;
	callfunc "F_KafEnd",0,1;
}

//=========================================================================================
//== Clone Room 1 =========================================================================
//=========================================================================================
// -- Clone Master 1 ---------------
force_2-1.gat,25,175,4	script	Clone Master 1	105,{
	mes "[Clone Master 1]";
	mes "Welcome to the Clone Room 1. Please select an option for fighting.";
	set $@clonename, getcharid(0);  //-- Clones the character using that room
	set $@cloneroom, 1;		//-- Clone Room number
	set $@clone1X1, 7;              //-- Top-Left X Coordinate
	set $@clone1Y1, 192;            //-- Top-Left Y Coordinate
	set $@clone1X2, 44;             //-- Bottom-Right X Coordinate
	set $@clone1Y2, 155;            //-- Bottom-Right Y Coordinate
	set $@clonemob1X, 25;           //-- X of where the clone spawns
	set $@clonemob1Y, 178;          //-- Y of where the clone spawns
	set $@wrp1X, 25;                //-- X of where the player spawns
	set $@wrp1Y, 172;               //-- Y of where the player spawns
	next;
	menu "Fight 1 Clone",L_1,"Fight 2 Clones",L_2,"Fight 3 Clones",L_3,"Leave Arena",L_Leave;

	L_1:
	mes "[Clone Master 1]";
	mes "Alright... Get ready!!!";
	next;
	mes "[Clone Master 1]";
	callfunc "F_CloneCheck";
	sc_start 72,188000,10;           //-- Chemical Protection Weapon
	sc_start 73,188000,10;           //-- Chemical Protection Shield
	sc_start 74,188000,10;           //-- Chemical Protection Armor
	sc_start 75,188000,10;           //-- Chemical Protection Helm
	set $@clonemob1, 1;              //-- The number of clones
	set $@tempclonepts, 1;           //-- Number of possible points
	disablenpc "Clone Master 1";
	donpcevent "CloneMob 1";
	initnpctimer "CloneTimer 1";
	attachnpctimer getcharid(0);
	close;

	L_2:
	mes "[Clone Master 1]";
	mes "Alright... Get ready!!!";
	next;
	mes "[Clone Master 1]";
	callfunc "F_CloneCheck";
	sc_start 72,188000,10;           //-- Chemical Protection Weapon
	sc_start 73,188000,10;           //-- Chemical Protection Shield
	sc_start 74,188000,10;           //-- Chemical Protection Armor
	sc_start 75,188000,10;           //-- Chemical Protection Helm
	set $@clonemob1, 2;              //-- The number of clones
	set $@tempclonepts, 3;           //-- Number of possible points
	disablenpc "Clone Master 1";
	donpcevent "CloneMob 1";
	initnpctimer "CloneTimer 1";
	attachnpctimer getcharid(0);
	close;

	L_3:
	mes "[Clone Master 1]";
	mes "Alright... Get ready!!!";
	next;
	mes "[Clone Master 1]";
	callfunc "F_CloneCheck";
	sc_start 72,188000,10;           //-- Chemical Protection Weapon
	sc_start 73,188000,10;           //-- Chemical Protection Shield
	sc_start 74,188000,10;           //-- Chemical Protection Armor
	sc_start 75,188000,10;           //-- Chemical Protection Helm
	set $@clonemob1, 3;              //-- The number of clones
	set $@tempclonepts, 9;           //-- Number of possible points
	disablenpc "Clone Master 1";
	donpcevent "CloneMob 1";
	initnpctimer "CloneTimer 1";
	attachnpctimer getcharid(0);
	close;

	L_Inventory:
	mes "I'm sorry, but we can only start if you have no items in your inventory.";
	close;

	L_Leave:
	mes "[Clone Master 1]";
	mes "Thank for you participating, you will now be warped out of the arena.";
	next;
	close2;
	warp "prt_are_in", 97, 24;
	donpcevent "Clone Master 1::OnStart";
	end;

OnStart:
	set $@CloneUsers, getareausers("force_2-1.gat",$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2);
	set $@CloneUsers, $@CloneUsers + getareausers("force_2-1.gat",$@clone1X1,$@clone1Y1,$@clone1X1,$@clone1Y2);
	if ($@CloneUsers > 0) end;
	killmonster "force_2-1.gat","CloneMob 1::OnMobDead";
	enablenpc "Clone Master 1";
	end;

}

// -- Clone Mob 1 ---------------
force_2-1.gat,1,1,1	script	CloneMob 1	-1,{
	if ($@clonemob1 == 1) clone "force_2-1.gat",$@clonemob1X,$@clonemob1Y,"CloneMob 1::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob1 == 2) clone "force_2-1.gat",$@clonemob1X +2,$@clonemob1Y,"CloneMob 1::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob1 == 2) clone "force_2-1.gat",$@clonemob1X -2,$@clonemob1Y,"CloneMob 1::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob1 == 3) clone "force_2-1.gat",$@clonemob1X,$@clonemob1Y,"CloneMob 1::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob1 == 3) clone "force_2-1.gat",$@clonemob1X +2,$@clonemob1Y,"CloneMob 1::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob1 == 3) clone "force_2-1.gat",$@clonemob1X -2,$@clonemob1Y,"CloneMob 1::OnMobDead",$@clonename,0,1693,0,185000;
	areawarp "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "force_2-1.gat", $@wrp1X, $@wrp1Y;
	end;

OnMobDead:
	set $@clonemob1, $@clonemob1 -1;
	if($@clonemob1 > 1) areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have " + $@clonemob1 + " clones left to defeat!",8;
	if($@clonemob1 == 1) areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have " + $@clonemob1 + " clone left to defeat!",8;
	if($@clonemob1 > 0) end;

	stopnpctimer "CloneTimer 1";
	if($@tempclonepts == 1 ) areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "Congratulations! You have succesfully defeated your clone!",8;
	if($@tempclonepts > 1 ) areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "Congratulations! You have succesfully defeated your clones!",8;
	set $@clonepts,$@clonepts + $@tempclonepts;
	addtimer 3000, "CloneTimer 1::OnTimer188000";
	end;

}

// -- Clone Timer 1 --------------- 
force_2-1.gat,1,1,0	script	CloneTimer 1	-1,{
OnTimer1000:
	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 3 minutes to defeat your clone!",8;
	callfunc "F_CloneEquip";
	end;
OnTimer2000:
	callfunc "F_CloneEquip";
	end;
OnTimer3000:
	callfunc "F_CloneEquip";
	end;
OnTimer4000:
	callfunc "F_CloneEquip";
	end;
OnTimer5000:
	callfunc "F_CloneEquip";
	end;
OnTimer6000:
	callfunc "F_CloneEquip";
	end;
OnTimer7000:
	callfunc "F_CloneEquip";
	end;
OnTimer8000:
	callfunc "F_CloneEquip";
	end;
OnTimer9000:
	callfunc "F_CloneEquip";
	end;
OnTimer10000:
	callfunc "F_CloneEquip";
	end;
OnTimer11000:
	callfunc "F_CloneEquip";
	end;
OnTimer12000:
	callfunc "F_CloneEquip";
	end;
OnTimer13000:
	callfunc "F_CloneEquip";
	end;
OnTimer14000:
	callfunc "F_CloneEquip";
	end;
OnTimer15000:
	callfunc "F_CloneEquip";
	end;
OnTimer16000:
	callfunc "F_CloneEquip";
	end;
OnTimer17000:
	callfunc "F_CloneEquip";
	end;
OnTimer18000:
	callfunc "F_CloneEquip";
	end;
OnTimer19000:
	callfunc "F_CloneEquip";
	end;
OnTimer20000:
	callfunc "F_CloneEquip";
	end;
OnTimer21000:
	callfunc "F_CloneEquip";
	end;
OnTimer22000:
	callfunc "F_CloneEquip";
	end;
OnTimer23000:
	callfunc "F_CloneEquip";
	end;
OnTimer24000:
	callfunc "F_CloneEquip";
	end;
OnTimer25000:
	callfunc "F_CloneEquip";
	end;
OnTimer26000:
	callfunc "F_CloneEquip";
	end;
OnTimer27000:
	callfunc "F_CloneEquip";
	end;
OnTimer28000:
	callfunc "F_CloneEquip";
	end;
OnTimer29000:
	callfunc "F_CloneEquip";
	end;
OnTimer30000:
	callfunc "F_CloneEquip";
	end;
OnTimer31000:
	callfunc "F_CloneEquip";
	end;
OnTimer32000:
	callfunc "F_CloneEquip";
	end;
OnTimer33000:
	callfunc "F_CloneEquip";
	end;
OnTimer34000:
	callfunc "F_CloneEquip";
	end;
OnTimer35000:
	donpcevent "Clone Master 1::OnStart";
	callfunc "F_CloneEquip";
	end;
OnTimer40000:
	callfunc "F_CloneEquip";
	end;
OnTimer45000:
	callfunc "F_CloneEquip";
	end;
OnTimer50000:
	callfunc "F_CloneEquip";
	end;
OnTimer55000:
	callfunc "F_CloneEquip";
	end;
OnTimer60000:
	callfunc "F_CloneEquip";
	end;
OnTimer61000:
	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 2 minutes left!",8;
	donpcevent "Clone Master 1::OnStart";
	end;
OnTimer65000:
	callfunc "F_CloneEquip";
	end;
OnTimer70000:
	callfunc "F_CloneEquip";
	end;
OnTimer75000:
	callfunc "F_CloneEquip";
	end;
OnTimer80000:
	callfunc "F_CloneEquip";
	end;
OnTimer85000:
	callfunc "F_CloneEquip";
	end;
OnTimer90000:
	callfunc "F_CloneEquip";
	end;
OnTimer95000:
	donpcevent "Clone Master 1::OnStart";
	end;
OnTimer100000:
	callfunc "F_CloneEquip";
	end;
OnTimer105000:
	callfunc "F_CloneEquip";
	end;
OnTimer110000:
	callfunc "F_CloneEquip";
	end;
OnTimer115000:
	callfunc "F_CloneEquip";
	end;
OnTimer120000:
	callfunc "F_CloneEquip";
	end;
OnTimer121000:
	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 1 minute left!",8;
	donpcevent "Clone Master 1::OnStart";
	end;
OnTimer125000:
	callfunc "F_CloneEquip";
	end;
OnTimer130000:
	callfunc "F_CloneEquip";
	end;
OnTimer135000:
	callfunc "F_CloneEquip";
	end;
OnTimer140000:
	callfunc "F_CloneEquip";
	end;
OnTimer145000:
	callfunc "F_CloneEquip";
	end;
OnTimer150000:
	callfunc "F_CloneEquip";
	end;
OnTimer151000:
	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 30 seconds left!",8;
	donpcevent "Clone Master 1::OnStart";
	end;
OnTimer155000:
	callfunc "F_CloneEquip";
	end;
OnTimer160000:
	callfunc "F_CloneEquip";
	end;
OnTimer165000:
	callfunc "F_CloneEquip";
	end;
OnTimer170000:
	callfunc "F_CloneEquip";
	end;
OnTimer175000:
	callfunc "F_CloneEquip";
	end;
OnTimer176000:
	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 5 seconds left!",8;
	end;
OnTimer177000:
	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 4 seconds left!",8;
	end;
OnTimer178000:
	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 3 seconds left!",8;
	end;
OnTimer179000:
	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 2 seconds left!",8;
	end;
OnTimer180000:
	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "You have 1 second left!",8;
	end;
OnTimer181000:
	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "Okay time's up! You failed!",8;
	end;
OnTimer188000:
	stopnpctimer;
	sc_end 72;           //-- Stops Chemical Protection Weapon
	sc_end 73;           //-- Stops Chemical Protection Shield
	sc_end 74;           //-- Stops Chemical Protection Armor
	sc_end 75;           //-- Stops Chemical Protection Helm
	areawarp "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "prt_are_in", 97, 24;
	killmonster "force_2-1.gat","CloneMob 1::OnMobDead";
	donpcevent "Clone Master 1::OnStart";
	end;
}

//=========================================================================================
//== Clone Room 2 =========================================================================
//=========================================================================================
// -- Clone Master 2 ---------------
force_2-1.gat,173,175,4	script	Clone Master 2	105,{
	mes "[Clone Master 2]";
	mes "Welcome to the Clone Room 2. Please select an option for fighting.";
	set $@clonename, getcharid(0);  //-- Clones the character using that room
	set $@cloneroom, 2;		//-- Clone Room number
	set $@clone2X1, 155;            //-- Top-Left X Coordinate
	set $@clone2Y1, 192;            //-- Top-Left Y Coordinate
	set $@clone2X2, 192;            //-- Bottom-Right X Coordinate
	set $@clone2Y2, 155;            //-- Bottom-Right Y Coordinate
	set $@clonemob2X, 173;          //-- X of where the clone spawns
	set $@clonemob2Y, 178;          //-- Y of where the clone spawns
	set $@wrp2X, 173;               //-- X of where the player spawns
	set $@wrp2Y, 172;               //-- Y of where the player spawns
	next;
	menu "Fight 1 Clone",L_1,"Fight 2 Clones",L_2,"Fight 3 Clones",L_3,"Leave Arena",L_Leave;

	L_1:
	mes "[Clone Master 2]";
	mes "Alright... Get ready!!!";
	next;
	mes "[Clone Master 2]";
	callfunc "F_CloneCheck";
	sc_start 72,188000,10;           //-- Chemical Protection Weapon
	sc_start 73,188000,10;           //-- Chemical Protection Shield
	sc_start 74,188000,10;           //-- Chemical Protection Armor
	sc_start 75,188000,10;           //-- Chemical Protection Helm
	set $@clonemob2, 1;              //-- The number of clones
	set $@tempclonepts, 1;           //-- Number of possible points
	disablenpc "Clone Master 2";
	donpcevent "CloneMob 2";
	initnpctimer "CloneTimer 2";
	attachnpctimer getcharid(0);
	close;

	L_2:
	mes "[Clone Master 2]";
	mes "Alright... Get ready!!!";
	next;
	mes "[Clone Master 2]";
	callfunc "F_CloneCheck";
	sc_start 72,188000,10;           //-- Chemical Protection Weapon
	sc_start 73,188000,10;           //-- Chemical Protection Shield
	sc_start 74,188000,10;           //-- Chemical Protection Armor
	sc_start 75,188000,10;           //-- Chemical Protection Helm
	set $@clonemob2, 2;              //-- The number of clones
	set $@tempclonepts, 3;           //-- Number of possible points
	disablenpc "Clone Master 2";
	donpcevent "CloneMob 2";
	initnpctimer "CloneTimer 2";
	attachnpctimer getcharid(0);
	close;

	L_3:
	mes "[Clone Master 2]";
	mes "Alright... Get ready!!!";
	next;
	mes "[Clone Master 2]";
	callfunc "F_CloneCheck";
	sc_start 72,188000,10;           //-- Chemical Protection Weapon
	sc_start 73,188000,10;           //-- Chemical Protection Shield
	sc_start 74,188000,10;           //-- Chemical Protection Armor
	sc_start 75,188000,10;           //-- Chemical Protection Helm
	set $@clonemob2, 3;              //-- The number of clones
	set $@tempclonepts, 9;           //-- Number of possible points
	disablenpc "Clone Master 2";
	donpcevent "CloneMob 2";
	initnpctimer "CloneTimer 2";
	attachnpctimer getcharid(0);
	close;

	L_Leave:
	mes "[Clone Master 2]";
	mes "Thank for you participating, you will now be warped out of the arena.";
	next;
	close2;
	warp "prt_are_in", 97, 24;
	donpcevent "Clone Master 2::OnStart";
	end;

OnStart:
	set $@CloneUsers, getareausers("force_2-1.gat",$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2);
	set $@CloneUsers, $@CloneUsers + getareausers("force_2-1.gat",$@clone2X1,$@clone2Y1,$@clone2X1,$@clone2Y2);
	if ($@CloneUsers > 0) end;
	killmonster "force_2-1.gat","CloneMob 2::OnMobDead";
	enablenpc "Clone Master 2";
	end;

}

// -- Clone Mob 2 ---------------
force_2-1.gat,1,1,1	script	CloneMob 2	-1,{
	if ($@clonemob2 == 1) clone "force_2-1.gat",$@clonemob2X,$@clonemob2Y,"CloneMob 2::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob2 == 2) clone "force_2-1.gat",$@clonemob2X +2,$@clonemob2Y,"CloneMob 2::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob2 == 2) clone "force_2-1.gat",$@clonemob2X -2,$@clonemob2Y,"CloneMob 2::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob2 == 3) clone "force_2-1.gat",$@clonemob2X,$@clonemob2Y,"CloneMob 2::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob2 == 3) clone "force_2-1.gat",$@clonemob2X +2,$@clonemob2Y,"CloneMob 2::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob2 == 3) clone "force_2-1.gat",$@clonemob2X -2,$@clonemob2Y,"CloneMob 2::OnMobDead",$@clonename,0,1693,0,185000;
	areawarp "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "force_2-1.gat", $@wrp2X, $@wrp2Y;
	end;

OnMobDead:
	set $@clonemob2, $@clonemob2 -1;
	if($@clonemob2 > 1) areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have " + $@clonemob2 + " clones left to defeat!",8;
	if($@clonemob2 == 1) areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have " + $@clonemob2 + " clone left to defeat!",8;
	if($@clonemob2 > 0) end;

	stopnpctimer "CloneTimer 2";
	if($@tempclonepts == 1 ) areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "Congratulations! You have succesfully defeated your clone!",8;
	if($@tempclonepts > 1 ) areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "Congratulations! You have succesfully defeated your clones!",8;
	set $@clonepts,$@clonepts + $@tempclonepts;
	addtimer 3000, "CloneTimer 2::OnTimer188000";
	end;

}

// -- Clone Timer 2 --------------- 
force_2-1.gat,1,1,0	script	CloneTimer 2	-1,{
OnTimer1000:
	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 3 minutes to defeat your clone!",8;
	callfunc "F_CloneEquip";
	end;
OnTimer2000:
	callfunc "F_CloneEquip";
	end;
OnTimer3000:
	callfunc "F_CloneEquip";
	end;
OnTimer4000:
	callfunc "F_CloneEquip";
	end;
OnTimer5000:
	callfunc "F_CloneEquip";
	end;
OnTimer6000:
	callfunc "F_CloneEquip";
	end;
OnTimer7000:
	callfunc "F_CloneEquip";
	end;
OnTimer8000:
	callfunc "F_CloneEquip";
	end;
OnTimer9000:
	callfunc "F_CloneEquip";
	end;
OnTimer10000:
	callfunc "F_CloneEquip";
	end;
OnTimer11000:
	callfunc "F_CloneEquip";
	end;
OnTimer12000:
	callfunc "F_CloneEquip";
	end;
OnTimer13000:
	callfunc "F_CloneEquip";
	end;
OnTimer14000:
	callfunc "F_CloneEquip";
	end;
OnTimer15000:
	callfunc "F_CloneEquip";
	end;
OnTimer16000:
	callfunc "F_CloneEquip";
	end;
OnTimer17000:
	callfunc "F_CloneEquip";
	end;
OnTimer18000:
	callfunc "F_CloneEquip";
	end;
OnTimer19000:
	callfunc "F_CloneEquip";
	end;
OnTimer20000:
	callfunc "F_CloneEquip";
	end;
OnTimer21000:
	callfunc "F_CloneEquip";
	end;
OnTimer22000:
	callfunc "F_CloneEquip";
	end;
OnTimer23000:
	callfunc "F_CloneEquip";
	end;
OnTimer24000:
	callfunc "F_CloneEquip";
	end;
OnTimer25000:
	callfunc "F_CloneEquip";
	end;
OnTimer26000:
	callfunc "F_CloneEquip";
	end;
OnTimer27000:
	callfunc "F_CloneEquip";
	end;
OnTimer28000:
	callfunc "F_CloneEquip";
	end;
OnTimer29000:
	callfunc "F_CloneEquip";
	end;
OnTimer30000:
	callfunc "F_CloneEquip";
	end;
OnTimer31000:
	callfunc "F_CloneEquip";
	end;
OnTimer32000:
	callfunc "F_CloneEquip";
	end;
OnTimer33000:
	callfunc "F_CloneEquip";
	end;
OnTimer34000:
	callfunc "F_CloneEquip";
	end;
OnTimer35000:
	donpcevent "Clone Master 2::OnStart";
	callfunc "F_CloneEquip";
	end;
OnTimer40000:
	callfunc "F_CloneEquip";
	end;
OnTimer45000:
	callfunc "F_CloneEquip";
	end;
OnTimer50000:
	callfunc "F_CloneEquip";
	end;
OnTimer55000:
	callfunc "F_CloneEquip";
	end;
OnTimer60000:
	callfunc "F_CloneEquip";
	end;
OnTimer61000:
	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 2 minutes left!",8;
	donpcevent "Clone Master 2::OnStart";
	end;
OnTimer65000:
	callfunc "F_CloneEquip";
	end;
OnTimer70000:
	callfunc "F_CloneEquip";
	end;
OnTimer75000:
	callfunc "F_CloneEquip";
	end;
OnTimer80000:
	callfunc "F_CloneEquip";
	end;
OnTimer85000:
	callfunc "F_CloneEquip";
	end;
OnTimer90000:
	callfunc "F_CloneEquip";
	end;
OnTimer95000:
	donpcevent "Clone Master 2::OnStart";
	end;
OnTimer100000:
	callfunc "F_CloneEquip";
	end;
OnTimer105000:
	callfunc "F_CloneEquip";
	end;
OnTimer110000:
	callfunc "F_CloneEquip";
	end;
OnTimer115000:
	callfunc "F_CloneEquip";
	end;
OnTimer120000:
	callfunc "F_CloneEquip";
	end;
OnTimer121000:
	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 1 minute left!",8;
	donpcevent "Clone Master 2::OnStart";
	end;
OnTimer125000:
	callfunc "F_CloneEquip";
	end;
OnTimer130000:
	callfunc "F_CloneEquip";
	end;
OnTimer135000:
	callfunc "F_CloneEquip";
	end;
OnTimer140000:
	callfunc "F_CloneEquip";
	end;
OnTimer145000:
	callfunc "F_CloneEquip";
	end;
OnTimer150000:
	callfunc "F_CloneEquip";
	end;
OnTimer151000:
	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 30 seconds left!",8;
	donpcevent "Clone Master 2::OnStart";
	end;
OnTimer155000:
	callfunc "F_CloneEquip";
	end;
OnTimer160000:
	callfunc "F_CloneEquip";
	end;
OnTimer165000:
	callfunc "F_CloneEquip";
	end;
OnTimer170000:
	callfunc "F_CloneEquip";
	end;
OnTimer175000:
	callfunc "F_CloneEquip";
	end;
OnTimer176000:
	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 5 seconds left!",8;
	end;
OnTimer177000:
	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 4 seconds left!",8;
	end;
OnTimer178000:
	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 3 seconds left!",8;
	end;
OnTimer179000:
	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 2 seconds left!",8;
	end;
OnTimer180000:
	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "You have 1 second left!",8;
	end;
OnTimer181000:
	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "Okay time's up! You failed!",8;
	end;
OnTimer188000:
	stopnpctimer;
	sc_end 72;           //-- Stops Chemical Protection Weapon
	sc_end 73;           //-- Stops Chemical Protection Shield
	sc_end 74;           //-- Stops Chemical Protection Armor
	sc_end 75;           //-- Stops Chemical Protection Helm
	areawarp "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "prt_are_in", 97, 24;
	killmonster "force_2-1.gat","CloneMob 2::OnMobDead";
	donpcevent "Clone Master 2::OnStart";
	end;
}

//=========================================================================================
//== Clone Room 3 =========================================================================
//=========================================================================================
// -- Clone Master 3 ---------------
force_2-1.gat,25,27,4	script	Clone Master 3	105,{
	mes "[Clone Master 3]";
	mes "Welcome to the Clone Room 3. Please select an option for fighting.";
	set $@clonename, getcharid(0);  //-- Clones the character using that room
	set $@cloneroom, 3;		//-- Clone Room number
	set $@clone3X1, 7;              //-- Top-Left X Coordinate
	set $@clone3Y1, 44;             //-- Top-Left Y Coordinate
	set $@clone3X2, 44;             //-- Bottom-Right X Coordinate
	set $@clone3Y2, 7;              //-- Bottom-Right Y Coordinate
	set $@clonemob3X, 25;           //-- X of where the clone spawns
	set $@clonemob3Y, 30;           //-- Y of where the clone spawns
	set $@wrp3X, 25;                //-- X of where the player spawns
	set $@wrp3Y, 24;                //-- Y of where the player spawns
	next;
	menu "Fight 1 Clone",L_1,"Fight 2 Clones",L_2,"Fight 3 Clones",L_3,"Leave Arena",L_Leave;

	L_1:
	mes "[Clone Master 3]";
	mes "Alright... Get ready!!!";
	next;
	mes "[Clone Master 3]";
	callfunc "F_CloneCheck";
	sc_start 72,188000,10;           //-- Chemical Protection Weapon
	sc_start 73,188000,10;           //-- Chemical Protection Shield
	sc_start 74,188000,10;           //-- Chemical Protection Armor
	sc_start 75,188000,10;           //-- Chemical Protection Helm
	set $@clonemob3, 1;              //-- The number of clones
	set $@tempclonepts, 1;           //-- Number of possible points
	disablenpc "Clone Master 3";
	donpcevent "CloneMob 3";
	initnpctimer "CloneTimer 3";
	attachnpctimer getcharid(0);
	close;

	L_2:
	mes "[Clone Master 3]";
	mes "Alright... Get ready!!!";
	next;
	mes "[Clone Master 3]";
	callfunc "F_CloneCheck";
	sc_start 72,188000,10;           //-- Chemical Protection Weapon
	sc_start 73,188000,10;           //-- Chemical Protection Shield
	sc_start 74,188000,10;           //-- Chemical Protection Armor
	sc_start 75,188000,10;           //-- Chemical Protection Helm
	set $@clonemob3, 2;              //-- The number of clones
	set $@tempclonepts, 3;           //-- Number of possible points
	disablenpc "Clone Master 3";
	donpcevent "CloneMob 3";
	initnpctimer "CloneTimer 3";
	attachnpctimer getcharid(0);
	close;

	L_3:
	mes "[Clone Master 3]";
	mes "Alright... Get ready!!!";
	next;
	mes "[Clone Master 3]";
	callfunc "F_CloneCheck";
	sc_start 72,188000,10;           //-- Chemical Protection Weapon
	sc_start 73,188000,10;           //-- Chemical Protection Shield
	sc_start 74,188000,10;           //-- Chemical Protection Armor
	sc_start 75,188000,10;           //-- Chemical Protection Helm
	set $@clonemob3, 3;              //-- The number of clones
	set $@tempclonepts, 9;           //-- Number of possible points
	disablenpc "Clone Master 3";
	donpcevent "CloneMob 3";
	initnpctimer "CloneTimer 3";
	attachnpctimer getcharid(0);
	close;

	L_Leave:
	mes "[Clone Master 3]";
	mes "Thank for you participating, you will now be warped out of the arena.";
	next;
	close2;
	warp "prt_are_in", 97, 24;
	donpcevent "Clone Master 3::OnStart";
	end;

OnStart:
	set $@CloneUsers, getareausers("force_2-1.gat",$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2);
	set $@CloneUsers, $@CloneUsers + getareausers("force_2-1.gat",$@clone3X1,$@clone3Y1,$@clone3X1,$@clone3Y2);
	if ($@CloneUsers > 0) end;
	killmonster "force_2-1.gat","CloneMob 3::OnMobDead";
	enablenpc "Clone Master 3";
	end;

}

// -- Clone Mob 3 ---------------
force_2-1.gat,1,1,1	script	CloneMob 3	-1,{
	if ($@clonemob3 == 1) clone "force_2-1.gat",$@clonemob3X,$@clonemob3Y,"CloneMob 3::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob3 == 2) clone "force_2-1.gat",$@clonemob3X +2,$@clonemob3Y,"CloneMob 3::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob3 == 2) clone "force_2-1.gat",$@clonemob3X -2,$@clonemob3Y,"CloneMob 3::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob3 == 3) clone "force_2-1.gat",$@clonemob3X,$@clonemob3Y,"CloneMob 3::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob3 == 3) clone "force_2-1.gat",$@clonemob3X +2,$@clonemob3Y,"CloneMob 3::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob3 == 3) clone "force_2-1.gat",$@clonemob3X -2,$@clonemob3Y,"CloneMob 3::OnMobDead",$@clonename,0,1693,0,185000;
	areawarp "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "force_2-1.gat", $@wrp3X, $@wrp3Y;
	end;

OnMobDead:
	set $@clonemob3, $@clonemob3 -1;
	if($@clonemob3 > 1) areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have " + $@clonemob3 + " clones left to defeat!",8;
	if($@clonemob3 == 1) areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have " + $@clonemob3 + " clone left to defeat!",8;
	if($@clonemob3 > 0) end;

	stopnpctimer "CloneTimer 3";
	if($@tempclonepts == 1 ) areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "Congratulations! You have succesfully defeated your clone!",8;
	if($@tempclonepts > 1 ) areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "Congratulations! You have succesfully defeated your clones!",8;
	set $@clonepts,$@clonepts + $@tempclonepts;
	addtimer 3000, "CloneTimer 3::OnTimer188000";
	end;

}

// -- Clone Timer 3 --------------- 
force_2-1.gat,1,1,0	script	CloneTimer 3	-1,{
OnTimer1000:
	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 3 minutes to defeat your clone!",8;
	callfunc "F_CloneEquip";
	end;
OnTimer2000:
	callfunc "F_CloneEquip";
	end;
OnTimer3000:
	callfunc "F_CloneEquip";
	end;
OnTimer4000:
	callfunc "F_CloneEquip";
	end;
OnTimer5000:
	callfunc "F_CloneEquip";
	end;
OnTimer6000:
	callfunc "F_CloneEquip";
	end;
OnTimer7000:
	callfunc "F_CloneEquip";
	end;
OnTimer8000:
	callfunc "F_CloneEquip";
	end;
OnTimer9000:
	callfunc "F_CloneEquip";
	end;
OnTimer10000:
	callfunc "F_CloneEquip";
	end;
OnTimer11000:
	callfunc "F_CloneEquip";
	end;
OnTimer12000:
	callfunc "F_CloneEquip";
	end;
OnTimer13000:
	callfunc "F_CloneEquip";
	end;
OnTimer14000:
	callfunc "F_CloneEquip";
	end;
OnTimer15000:
	callfunc "F_CloneEquip";
	end;
OnTimer16000:
	callfunc "F_CloneEquip";
	end;
OnTimer17000:
	callfunc "F_CloneEquip";
	end;
OnTimer18000:
	callfunc "F_CloneEquip";
	end;
OnTimer19000:
	callfunc "F_CloneEquip";
	end;
OnTimer20000:
	callfunc "F_CloneEquip";
	end;
OnTimer21000:
	callfunc "F_CloneEquip";
	end;
OnTimer22000:
	callfunc "F_CloneEquip";
	end;
OnTimer23000:
	callfunc "F_CloneEquip";
	end;
OnTimer24000:
	callfunc "F_CloneEquip";
	end;
OnTimer25000:
	callfunc "F_CloneEquip";
	end;
OnTimer26000:
	callfunc "F_CloneEquip";
	end;
OnTimer27000:
	callfunc "F_CloneEquip";
	end;
OnTimer28000:
	callfunc "F_CloneEquip";
	end;
OnTimer29000:
	callfunc "F_CloneEquip";
	end;
OnTimer30000:
	callfunc "F_CloneEquip";
	end;
OnTimer31000:
	callfunc "F_CloneEquip";
	end;
OnTimer32000:
	callfunc "F_CloneEquip";
	end;
OnTimer33000:
	callfunc "F_CloneEquip";
	end;
OnTimer34000:
	callfunc "F_CloneEquip";
	end;
OnTimer35000:
	donpcevent "Clone Master 3::OnStart";
	callfunc "F_CloneEquip";
	end;
OnTimer40000:
	callfunc "F_CloneEquip";
	end;
OnTimer45000:
	callfunc "F_CloneEquip";
	end;
OnTimer50000:
	callfunc "F_CloneEquip";
	end;
OnTimer55000:
	callfunc "F_CloneEquip";
	end;
OnTimer60000:
	callfunc "F_CloneEquip";
	end;
OnTimer61000:
	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 2 minutes left!",8;
	donpcevent "Clone Master 3::OnStart";
	end;
OnTimer65000:
	callfunc "F_CloneEquip";
	end;
OnTimer70000:
	callfunc "F_CloneEquip";
	end;
OnTimer75000:
	callfunc "F_CloneEquip";
	end;
OnTimer80000:
	callfunc "F_CloneEquip";
	end;
OnTimer85000:
	callfunc "F_CloneEquip";
	end;
OnTimer90000:
	callfunc "F_CloneEquip";
	end;
OnTimer95000:
	donpcevent "Clone Master 3::OnStart";
	end;
OnTimer100000:
	callfunc "F_CloneEquip";
	end;
OnTimer105000:
	callfunc "F_CloneEquip";
	end;
OnTimer110000:
	callfunc "F_CloneEquip";
	end;
OnTimer115000:
	callfunc "F_CloneEquip";
	end;
OnTimer120000:
	callfunc "F_CloneEquip";
	end;
OnTimer121000:
	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 1 minute left!",8;
	donpcevent "Clone Master 3::OnStart";
	end;
OnTimer125000:
	callfunc "F_CloneEquip";
	end;
OnTimer130000:
	callfunc "F_CloneEquip";
	end;
OnTimer135000:
	callfunc "F_CloneEquip";
	end;
OnTimer140000:
	callfunc "F_CloneEquip";
	end;
OnTimer145000:
	callfunc "F_CloneEquip";
	end;
OnTimer150000:
	callfunc "F_CloneEquip";
	end;
OnTimer151000:
	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 30 seconds left!",8;
	donpcevent "Clone Master 3::OnStart";
	end;
OnTimer155000:
	callfunc "F_CloneEquip";
	end;
OnTimer160000:
	callfunc "F_CloneEquip";
	end;
OnTimer165000:
	callfunc "F_CloneEquip";
	end;
OnTimer170000:
	callfunc "F_CloneEquip";
	end;
OnTimer175000:
	callfunc "F_CloneEquip";
	end;
OnTimer176000:
	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 5 seconds left!",8;
	end;
OnTimer177000:
	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 4 seconds left!",8;
	end;
OnTimer178000:
	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 3 seconds left!",8;
	end;
OnTimer179000:
	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 2 seconds left!",8;
	end;
OnTimer180000:
	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "You have 1 second left!",8;
	end;
OnTimer181000:
	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "Okay time's up! You failed!",8;
	end;
OnTimer188000:
	stopnpctimer;
	sc_end 72;           //-- Stops Chemical Protection Weapon
	sc_end 73;           //-- Stops Chemical Protection Shield
	sc_end 74;           //-- Stops Chemical Protection Armor
	sc_end 75;           //-- Stops Chemical Protection Helm
	areawarp "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "prt_are_in", 97, 24;
	killmonster "force_2-1.gat","CloneMob 3::OnMobDead";
	donpcevent "Clone Master 3::OnStart";
	end;
}

//=========================================================================================
//== Clone Room 4 =========================================================================
//=========================================================================================
// -- Clone Master 4 ---------------
force_2-1.gat,173,27,4	script	Clone Master 4	105,{
	mes "[Clone Master 4]";
	mes "Welcome to the Clone Room 4. Please select an option for fighting.";
	set $@clonename, getcharid(0);  //-- Clones the character using that room
	set $@cloneroom, 4;		//-- Clone Room number
	set $@clone4X1, 155;            //-- Top-Left X Coordinate
	set $@clone4Y1, 44;             //-- Top-Left Y Coordinate
	set $@clone4X2, 192;            //-- Bottom-Right X Coordinate
	set $@clone4Y2, 7;              //-- Bottom-Right Y Coordinate
	set $@clonemob4X, 173;          //-- X of where the clone spawns
	set $@clonemob4Y, 30;           //-- Y of where the clone spawns
	set $@wrp4X, 173;               //-- X of where the player spawns
	set $@wrp4Y, 24;                //-- Y of where the player spawns
	next;
	menu "Fight 1 Clone",L_1,"Fight 2 Clones",L_2,"Fight 3 Clones",L_3,"Leave Arena",L_Leave;

	L_1:
	mes "[Clone Master 4]";
	mes "Alright... Get ready!!!";
	next;
	mes "[Clone Master 4]";
	callfunc "F_CloneCheck";
	sc_start 72,188000,10;           //-- Chemical Protection Weapon
	sc_start 73,188000,10;           //-- Chemical Protection Shield
	sc_start 74,188000,10;           //-- Chemical Protection Armor
	sc_start 75,188000,10;           //-- Chemical Protection Helm
	set $@clonemob4, 1;              //-- The number of clones
	set $@tempclonepts, 1;           //-- Number of possible points
	disablenpc "Clone Master 4";
	donpcevent "CloneMob 4";
	initnpctimer "CloneTimer 4";
	attachnpctimer getcharid(0);
	close;

	L_2:
	mes "[Clone Master 4]";
	mes "Alright... Get ready!!!";
	next;
	mes "[Clone Master 4]";
	callfunc "F_CloneCheck";
	sc_start 72,188000,10;           //-- Chemical Protection Weapon
	sc_start 73,188000,10;           //-- Chemical Protection Shield
	sc_start 74,188000,10;           //-- Chemical Protection Armor
	sc_start 75,188000,10;           //-- Chemical Protection Helm
	set $@clonemob4, 2;              //-- The number of clones
	set $@tempclonepts, 3;           //-- Number of possible points
	disablenpc "Clone Master 4";
	donpcevent "CloneMob 4";
	initnpctimer "CloneTimer 4";
	attachnpctimer getcharid(0);
	close;

	L_3:
	mes "[Clone Master 4]";
	mes "Alright... Get ready!!!";
	next;
	mes "[Clone Master 4]";
	callfunc "F_CloneCheck";
	sc_start 72,188000,10;           //-- Chemical Protection Weapon
	sc_start 73,188000,10;           //-- Chemical Protection Shield
	sc_start 74,188000,10;           //-- Chemical Protection Armor
	sc_start 75,188000,10;           //-- Chemical Protection Helm
	set $@clonemob4, 3;              //-- The number of clones
	set $@tempclonepts, 9;           //-- Number of possible points
	disablenpc "Clone Master 4";
	donpcevent "CloneMob 4";
	initnpctimer "CloneTimer 4";
	attachnpctimer getcharid(0);
	close;

	L_Leave:
	mes "[Clone Master 4]";
	mes "Thank for you participating, you will now be warped out of the arena.";
	next;
	close2;
	warp "prt_are_in", 97, 24;
	donpcevent "Clone Master 4::OnStart";
	end;

OnStart:
	set $@CloneUsers, getareausers("force_2-1.gat",$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2);
	set $@CloneUsers, $@CloneUsers + getareausers("force_2-1.gat",$@clone4X1,$@clone4Y1,$@clone4X1,$@clone4Y2);
	if ($@CloneUsers > 0) end;
	killmonster "force_2-1.gat","CloneMob 4::OnMobDead";
	enablenpc "Clone Master 4";
	end;

}

// -- Clone Mob 4 ---------------
force_2-1.gat,1,1,1	script	CloneMob 4	-1,{
	if ($@clonemob4 == 1) clone "force_2-1.gat",$@clonemob4X,$@clonemob4Y,"CloneMob 4::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob4 == 2) clone "force_2-1.gat",$@clonemob4X +2,$@clonemob4Y,"CloneMob 4::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob4 == 2) clone "force_2-1.gat",$@clonemob4X -2,$@clonemob4Y,"CloneMob 4::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob4 == 3) clone "force_2-1.gat",$@clonemob4X,$@clonemob4Y,"CloneMob 4::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob4 == 3) clone "force_2-1.gat",$@clonemob4X +2,$@clonemob4Y,"CloneMob 4::OnMobDead",$@clonename,0,1693,0,185000;
	if ($@clonemob4 == 3) clone "force_2-1.gat",$@clonemob4X -2,$@clonemob4Y,"CloneMob 4::OnMobDead",$@clonename,0,1693,0,185000;
	areawarp "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "force_2-1.gat", $@wrp4X, $@wrp4Y;
	end;

OnMobDead:
	set $@clonemob4, $@clonemob4 -1;
	if($@clonemob4 > 1) areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have " + $@clonemob4 + " clones left to defeat!",8;
	if($@clonemob4 == 1) areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have " + $@clonemob4 + " clone left to defeat!",8;
	if($@clonemob4 > 0) end;

	stopnpctimer "CloneTimer 4";
	if($@tempclonepts == 1 ) areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "Congratulations! You have succesfully defeated your clone!",8;
	if($@tempclonepts > 1 ) areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "Congratulations! You have succesfully defeated your clones!",8;
	set $@clonepts,$@clonepts + $@tempclonepts;
	addtimer 3000, "CloneTimer 4::OnTimer188000";
	end;

}


// -- Clone Timer 4 --------------- 
force_2-1.gat,1,1,0	script	CloneTimer 4	-1,{
OnTimer1000:
	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 3 minutes to defeat your clone!",8;
	callfunc "F_CloneEquip";
	end;
OnTimer2000:
	callfunc "F_CloneEquip";
	end;
OnTimer3000:
	callfunc "F_CloneEquip";
	end;
OnTimer4000:
	callfunc "F_CloneEquip";
	end;
OnTimer5000:
	callfunc "F_CloneEquip";
	end;
OnTimer6000:
	callfunc "F_CloneEquip";
	end;
OnTimer7000:
	callfunc "F_CloneEquip";
	end;
OnTimer8000:
	callfunc "F_CloneEquip";
	end;
OnTimer9000:
	callfunc "F_CloneEquip";
	end;
OnTimer10000:
	callfunc "F_CloneEquip";
	end;
OnTimer11000:
	callfunc "F_CloneEquip";
	end;
OnTimer12000:
	callfunc "F_CloneEquip";
	end;
OnTimer13000:
	callfunc "F_CloneEquip";
	end;
OnTimer14000:
	callfunc "F_CloneEquip";
	end;
OnTimer15000:
	callfunc "F_CloneEquip";
	end;
OnTimer16000:
	callfunc "F_CloneEquip";
	end;
OnTimer17000:
	callfunc "F_CloneEquip";
	end;
OnTimer18000:
	callfunc "F_CloneEquip";
	end;
OnTimer19000:
	callfunc "F_CloneEquip";
	end;
OnTimer20000:
	callfunc "F_CloneEquip";
	end;
OnTimer21000:
	callfunc "F_CloneEquip";
	end;
OnTimer22000:
	callfunc "F_CloneEquip";
	end;
OnTimer23000:
	callfunc "F_CloneEquip";
	end;
OnTimer24000:
	callfunc "F_CloneEquip";
	end;
OnTimer25000:
	callfunc "F_CloneEquip";
	end;
OnTimer26000:
	callfunc "F_CloneEquip";
	end;
OnTimer27000:
	callfunc "F_CloneEquip";
	end;
OnTimer28000:
	callfunc "F_CloneEquip";
	end;
OnTimer29000:
	callfunc "F_CloneEquip";
	end;
OnTimer30000:
	callfunc "F_CloneEquip";
	end;
OnTimer31000:
	callfunc "F_CloneEquip";
	end;
OnTimer32000:
	callfunc "F_CloneEquip";
	end;
OnTimer33000:
	callfunc "F_CloneEquip";
	end;
OnTimer34000:
	callfunc "F_CloneEquip";
	end;
OnTimer35000:
	donpcevent "Clone Master 4::OnStart";
	callfunc "F_CloneEquip";
	end;
OnTimer40000:
	callfunc "F_CloneEquip";
	end;
OnTimer45000:
	callfunc "F_CloneEquip";
	end;
OnTimer50000:
	callfunc "F_CloneEquip";
	end;
OnTimer55000:
	callfunc "F_CloneEquip";
	end;
OnTimer60000:
	callfunc "F_CloneEquip";
	end;
OnTimer61000:
	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 2 minutes left!",8;
	donpcevent "Clone Master 4::OnStart";
	end;
OnTimer65000:
	callfunc "F_CloneEquip";
	end;
OnTimer70000:
	callfunc "F_CloneEquip";
	end;
OnTimer75000:
	callfunc "F_CloneEquip";
	end;
OnTimer80000:
	callfunc "F_CloneEquip";
	end;
OnTimer85000:
	callfunc "F_CloneEquip";
	end;
OnTimer90000:
	callfunc "F_CloneEquip";
	end;
OnTimer95000:
	donpcevent "Clone Master 4::OnStart";
	end;
OnTimer100000:
	callfunc "F_CloneEquip";
	end;
OnTimer105000:
	callfunc "F_CloneEquip";
	end;
OnTimer110000:
	callfunc "F_CloneEquip";
	end;
OnTimer115000:
	callfunc "F_CloneEquip";
	end;
OnTimer120000:
	callfunc "F_CloneEquip";
	end;
OnTimer121000:
	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 1 minute left!",8;
	donpcevent "Clone Master 4::OnStart";
	end;
OnTimer125000:
	callfunc "F_CloneEquip";
	end;
OnTimer130000:
	callfunc "F_CloneEquip";
	end;
OnTimer135000:
	callfunc "F_CloneEquip";
	end;
OnTimer140000:
	callfunc "F_CloneEquip";
	end;
OnTimer145000:
	callfunc "F_CloneEquip";
	end;
OnTimer150000:
	callfunc "F_CloneEquip";
	end;
OnTimer151000:
	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 30 seconds left!",8;
	donpcevent "Clone Master 4::OnStart";
	end;
OnTimer155000:
	callfunc "F_CloneEquip";
	end;
OnTimer160000:
	callfunc "F_CloneEquip";
	end;
OnTimer165000:
	callfunc "F_CloneEquip";
	end;
OnTimer170000:
	callfunc "F_CloneEquip";
	end;
OnTimer175000:
	callfunc "F_CloneEquip";
	end;
OnTimer176000:
	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 5 seconds left!",8;
	end;
OnTimer177000:
	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 4 seconds left!",8;
	end;
OnTimer178000:
	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 3 seconds left!",8;
	end;
OnTimer179000:
	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 2 seconds left!",8;
	end;
OnTimer180000:
	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "You have 1 second left!",8;
	end;
OnTimer181000:
	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "Okay time's up! You failed!",8;
	end;
OnTimer188000:
	stopnpctimer;
	sc_end 72;           //-- Stops Chemical Protection Weapon
	sc_end 73;           //-- Stops Chemical Protection Shield
	sc_end 74;           //-- Stops Chemical Protection Armor
	sc_end 75;           //-- Stops Chemical Protection Helm
	areawarp "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "prt_are_in", 97, 24;
	killmonster "force_2-1.gat","CloneMob 4::OnMobDead";
	donpcevent "Clone Master 4::OnStart";
	end;
}

//=========================================================================================
//== Clone Functions ======================================================================
//=========================================================================================
// -- Clone Inventory Function ---------------
function	script	F_CloneCheck	{
	if(getequipisequiped(1)==0) goto L_Head;
	if(getequipisequiped(2)==0) goto L_Armor;
	if(getequipisequiped(3)==0) goto L_Hand;
	if(getequipisequiped(4)==0) goto L_Hand;
	if(getequipisequiped(5)==0) goto L_Garment;
	if(getequipisequiped(6)==0) goto L_Foot;
	if(getequipisequiped(7)==0) goto L_Acc;
	if(getequipisequiped(8)==0) goto L_Acc;

	if($@cloneroom == 1) goto L_Check1;
	if($@cloneroom == 2) goto L_Check2;
	if($@cloneroom == 3) goto L_Check3;
	if($@cloneroom == 4) goto L_Check4;

	L_Check1:
	set $@equip11, getequipid(1);
	set $@equip12, getequipid(2);
	set $@equip13, getequipid(3);
	set $@equip14, getequipid(4);
	set $@equip15, getequipid(5);
	set $@equip16, getequipid(6);
	set $@equip17, getequipid(7);
	set $@equip18, getequipid(8);
	return;

	L_Check2:
	set $@equip21, getequipid(1);
	set $@equip22, getequipid(2);
	set $@equip23, getequipid(3);
	set $@equip24, getequipid(4);
	set $@equip25, getequipid(5);
	set $@equip26, getequipid(6);
	set $@equip27, getequipid(7);
	set $@equip28, getequipid(8);
	return;

	L_Check3:
	set $@equip31, getequipid(1);
	set $@equip32, getequipid(2);
	set $@equip33, getequipid(3);
	set $@equip34, getequipid(4);
	set $@equip35, getequipid(5);
	set $@equip36, getequipid(6);
	set $@equip37, getequipid(7);
	set $@equip38, getequipid(8);
	return;

	L_Check4:
	set $@equip41, getequipid(1);
	set $@equip42, getequipid(2);
	set $@equip43, getequipid(3);
	set $@equip44, getequipid(4);
	set $@equip45, getequipid(5);
	set $@equip46, getequipid(6);
	set $@equip47, getequipid(7);
	set $@equip48, getequipid(8);
	return;

	L_Head:
	mes "^FF0000You must equip a Head Gear before continuing!^000000";
	next;
	warp "prt_are_in", 97, 24;
	end;

	L_Armor:
	mes "^FF0000You must equip an Armor before continuing!^000000";
	next;
	warp "prt_are_in", 97, 24;
	end;

	L_Hand:
	mes "^FF0000You must equip a Weapon and/or Shield before continuing!^000000";
	next;
	warp "prt_are_in", 97, 24;
	end;

	L_Garment:
	mes "^FF0000You must equip a Garment before continuing!^000000";
	next;
	warp "prt_are_in", 97, 24;
	end;

	L_Foot:
	mes "^FF0000You must equip a Foot Gear before continuing!^000000";
	next;
	warp "prt_are_in", 97, 24;
	end;

	L_Acc:
	mes "^FF0000You must equip two Accessories before continuing!^000000";
	next;
	warp "prt_are_in", 97, 24;
	end;

}

// -- Clone Equipment Function ---------------
function	script	F_CloneEquip	{
	if($@cloneroom == 1) goto L_Equip1;
	if($@cloneroom == 2) goto L_Equip2;
	if($@cloneroom == 3) goto L_Equip3;
	if($@cloneroom == 4) goto L_Equip4;

	L_Equip1:
	if(getequipid(1) != $@equip11) goto L_Violate1;
	if(getequipid(2) != $@equip12) goto L_Violate1;
	if(getequipid(3) != $@equip13) goto L_Violate1;
	if(getequipid(4) != $@equip14) goto L_Violate1;
	if(getequipid(5) != $@equip15) goto L_Violate1;
	if(getequipid(6) != $@equip16) goto L_Violate1;
	if(getequipid(7) != $@equip17) goto L_Violate1;
	if(getequipid(8) != $@equip18) goto L_Violate1;
	return;

	L_Equip2:
	if(getequipid(1) != $@equip21) goto L_Violate2;
	if(getequipid(2) != $@equip22) goto L_Violate2;
	if(getequipid(3) != $@equip23) goto L_Violate2;
	if(getequipid(4) != $@equip24) goto L_Violate2;
	if(getequipid(5) != $@equip25) goto L_Violate2;
	if(getequipid(6) != $@equip26) goto L_Violate2;
	if(getequipid(7) != $@equip27) goto L_Violate2;
	if(getequipid(8) != $@equip28) goto L_Violate2;
	return;

	L_Equip3:
	if(getequipid(1) != $@equip31) goto L_Violate3;
	if(getequipid(2) != $@equip32) goto L_Violate3;
	if(getequipid(3) != $@equip33) goto L_Violate3;
	if(getequipid(4) != $@equip34) goto L_Violate3;
	if(getequipid(5) != $@equip35) goto L_Violate3;
	if(getequipid(6) != $@equip36) goto L_Violate3;
	if(getequipid(7) != $@equip37) goto L_Violate3;
	if(getequipid(8) != $@equip38) goto L_Violate3;
	return;

	L_Equip4:
	if(getequipid(1) != $@equip41) goto L_Violate4;
	if(getequipid(2) != $@equip42) goto L_Violate4;
	if(getequipid(3) != $@equip43) goto L_Violate4;
	if(getequipid(4) != $@equip44) goto L_Violate4;
	if(getequipid(5) != $@equip45) goto L_Violate4;
	if(getequipid(6) != $@equip46) goto L_Violate4;
	if(getequipid(7) != $@equip47) goto L_Violate4;
	if(getequipid(8) != $@equip48) goto L_Violate4;
	return;

	L_Violate1:
	areaannounce "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "Clone Rules Violation! Equipments Changed!",bc_all,0xFF0000;
	set $@clonepts,$@clonepts - $@tempclonepts;
	sc_end 72;           //-- Stops Chemical Protection Weapon
	sc_end 73;           //-- Stops Chemical Protection Shield
	sc_end 74;           //-- Stops Chemical Protection Armor
	sc_end 75;           //-- Stops Chemical Protection Helm
	stopnpctimer;
	areawarp "force_2-1.gat", $@clone1X1, $@clone1Y1, $@clone1X2, $@clone1Y2, "prt_are_in", 97, 24;
	killmonster "force_2-1.gat","CloneMob 1::OnMobDead";
	donpcevent "Clone Master 1::OnStart";
	end;

	L_Violate2:
	areaannounce "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "Clone Rules Violation! Equipments Changed!",bc_all,0xFF0000;
	set $@clonepts,$@clonepts - $@tempclonepts;
	sc_end 72;           //-- Stops Chemical Protection Weapon
	sc_end 73;           //-- Stops Chemical Protection Shield
	sc_end 74;           //-- Stops Chemical Protection Armor
	sc_end 75;           //-- Stops Chemical Protection Helm
	stopnpctimer;
	areawarp "force_2-1.gat", $@clone2X1, $@clone2Y1, $@clone2X2, $@clone2Y2, "prt_are_in", 97, 24;
	killmonster "force_2-1.gat","CloneMob 2::OnMobDead";
	donpcevent "Clone Master 2::OnStart";
	end;

	L_Violate3:
	areaannounce "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "Clone Rules Violation! Equipments Changed!",bc_all,0xFF0000;
	set $@clonepts,$@clonepts - $@tempclonepts;
	sc_end 72;           //-- Stops Chemical Protection Weapon
	sc_end 73;           //-- Stops Chemical Protection Shield
	sc_end 74;           //-- Stops Chemical Protection Armor
	sc_end 75;           //-- Stops Chemical Protection Helm
	stopnpctimer;
	areawarp "force_2-1.gat", $@clone3X1, $@clone3Y1, $@clone3X2, $@clone3Y2, "prt_are_in", 97, 24;
	killmonster "force_2-1.gat","CloneMob 3::OnMobDead";
	donpcevent "Clone Master 3::OnStart";
	end;

	L_Violate4:
	areaannounce "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "Clone Rules Violation! Equipments Changed!",bc_all,0xFF0000;
	set $@clonepts,$@clonepts - $@tempclonepts;
	sc_end 72;           //-- Stops Chemical Protection Weapon
	sc_end 73;           //-- Stops Chemical Protection Shield
	sc_end 74;           //-- Stops Chemical Protection Armor
	sc_end 75;           //-- Stops Chemical Protection Helm
	stopnpctimer;
	areawarp "force_2-1.gat", $@clone4X1, $@clone4Y1, $@clone4X2, $@clone4Y2, "prt_are_in", 97, 24;
	killmonster "force_2-1.gat","CloneMob 4::OnMobDead";
	donpcevent "Clone Master 4::OnStart";
	end;

}