path: root/npc/custom/eAAC_Scripts/clonearena.txt

//===== kekeRO Script =============================================
//= Clone Arena - eAAC Script
//===== By: ======================================================= 
//= Miir - For use only in kekeRO and eAthena Servers ONLY
//  Debug Team - PX, Flo, and DarkSilence
//  http://kekeRO.deltaanime.net 
//===== Current Version: ========================================== 
//= 1.6 
//===== Compatible With: ========================================== 
//= eAthena SVN 4453+ (All SVNs that support Clone commands)
//===== Description: ============================================== 
//= An Arena to fight your clone or clones
//  [Not Implimented:]
//  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 clone slave.
//===== 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]
//= 1.6 - Rewrote most of the script to make it smaller [Miir]
//      - Changed the Gatekeeper and Masters [Miir]
//      - Added a new check to the timer [Miir]
//      - Added the use of force_3-1, only 2 rooms per map [Miir]
//      - Removed ability to walk around in clone room before the
//        actual fight (potential exploit) [Miir]
//      - Added a debuff script to make the fight more fair [Miir]
//      - Added a check for Skill and Stat Points [Miir]
//      - Fixed variable names [Miir]
//      - Added check for Taekwon (no weapon) [Miir]
//      - Change Clone duration (3 minutes 7 seconds) [Miir]
//      - Edited the Clone Prizes (More items, harder to get) [Miir]
//      - Added OnPCDieEVent [Miir]
//      - Added a new function to check Arena users [Miir]
//      - Fixed the equip checks to detect change in cards
//        Originally only detecting item number, not cards [Miir]
//      - Added some mapflags (monster_noteleport, noloot, noexp) [Miir]
//      - Added an item restriction list (some exploit items) [Miir]
//      - Fixed the npc not spawning 1, 2 or 3 clones depending on
//        what you chose [erKURITA]
//      - Fixed lots of broken advanced if statements [erKURITA]
//      - Re-arranged the item violation checks according to the
//        advanced if [erKURITA]
//      - Fixed announce part not displaying correctly.
//      - Fixed a few more stuff I can't remember XD [erKURITA]
//================================================================= 
// -- Map Flags ---------------
force_2-1.gat	mapflag	pvp
force_2-1.gat	mapflag	noteleport
force_2-1.gat	mapflag	monster_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
force_2-1.gat	mapflag	noloot
force_2-1.gat	mapflag	noexp
force_3-1.gat	mapflag	pvp
force_3-1.gat	mapflag	noteleport
force_3-1.gat	mapflag	monster_noteleport
//force_3-1.gat	mapflag	nosave	SavePoint
force_3-1.gat	mapflag	nobranch
force_3-1.gat	mapflag	nopenalty
force_3-1.gat	mapflag	nomemo
force_3-1.gat	mapflag	nowarp
force_3-1.gat	mapflag	nowarpto
force_3-1.gat	mapflag	noicewall
force_3-1.gat	mapflag	noreturn
force_3-1.gat	mapflag	noloot
force_3-1.gat	mapflag	noexp

// -- Clone Arena Gatekeeper ---------------
prt_are_in.gat,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,"^FF0000Restriction List^000000",L_Restrict,"I'd like to register!",L_Register,"No thanks",L_Quit;

	L_Q:
	mes "[Clone Arena Gatekeeper]";
	mes "The ^0000FFClone Arena^000000 allows you to test your skills by fighting a clone of yourself.";
	next;
	mes "[Clone Arena Gatekeeper]";
	mes "The clone is created using your basic stats, skills, and equipment. 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 every successful match. The points obtained can be traded 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 upon a successful victory.";
	next;
	goto L_Menu;

	L_Restrict:
	mes "[Clone Arena Gatekeeper]";
	mes "^FF0000The following Equipment and Cards are restricted, and you cannot use them in the Clone Arena:^000000";
	mes " ";
	mes "^0000FFEQUIPMENT:^000000";
	mes "- Azoth";
	mes "- Zeny Knife";
	mes " ";
	mes "^0000FFCARDS:^000000";
	mes "- Angeling Card";
	mes "- Deviling Card";
	mes "- Ghostring Card";
	mes "- Raydric Card";
	next;
	goto L_Menu;

	L_Register:
	mes "[Clone Arena Gatekeeper]";
	if(BaseLevel < 50) goto L_Limit;  //-- Limits anyone under level 50 from entering
	if(statuspoint > 10) goto L_Stat;    //-- Checks stat points
	if(skillpoint > 0) goto L_Skill;  //-- Checks skill points
	mes "Registration Confirmed! Checking for available rooms...";
	next;

	if (getareausers("force_2-1.gat",7,192,44,155) == 0) && (getareausers("force_2-1.gat",7,44,44,7) == 0) goto L_Room1;
	if (getareausers("force_2-1.gat",155,192,192,155) == 0) && (getareausers("force_2-1.gat",155,44,192,7) == 0) goto L_Room2;
	if (getareausers("force_3-1.gat",7,192,44,155) == 0) && (getareausers("force_3-1.gat",7,44,44,7) == 0) goto L_Room3;
	if (getareausers("force_3-1.gat",155,192,192,155) == 0) && (getareausers("force_3-1.gat",155,44,192,7) == 0) goto L_Room4;

	mes "[Clone Arena Gatekeeper]";
	mes "I'm sorry, but at this time all the available rooms are occupied. Please try again when an arena has been vacated.";
	close;

	L_Room1:
	killmonster "force_2-1.gat","CloneMob 1::OnMobDead";
	set $cloneroomn1$,"force_2-1.gat";	//-- Sets room name
	set $clonename1$,getcharid(0);	//-- Sets the clone name
	set cloneroom,1;			//-- Clone room
	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,177;			//-- Y of where the clone spawns
	set $@wrp1X,25;				//-- X of where the player spawns
	set $@wrp1Y,171;			//-- Y of where the player spawns
	warp "force_2-1.gat",25,23;
	close;	

	L_Room2:
	killmonster "force_2-1.gat","CloneMob 2::OnMobDead";
	set $cloneroomn2$,"force_2-1.gat";	//-- Sets room name
	set $clonename2$,getcharid(0);	//-- Sets the clone name
	set cloneroom,2;			//-- Clone room
	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,174;			//-- X of where the clone spawns
	set $@clonemob2Y,177;			//-- Y of where the clone spawns
	set $@wrp2X,174;			//-- X of where the player spawns
	set $@wrp2Y,171;			//-- Y of where the player spawns
	warp "force_2-1.gat",174,23;
	close;

	L_Room3:
	killmonster "force_3-1.gat","CloneMob 3::OnMobDead";
	set $cloneroomn3$,"force_3-1.gat";	//-- Sets room name
	set $clonename3$,getcharid(0);	//-- Sets the clone name
	set cloneroom,3;			//-- Clone room
	set $@clone3X1,7;			//-- Top-Left X Coordinate
	set $@clone3Y1,192;			//-- Top-Left Y Coordinate
	set $@clone3X2,44;			//-- Bottom-Right X Coordinate
	set $@clone3Y2,155;			//-- Bottom-Right Y Coordinate
	set $@clonemob3X,25;			//-- X of where the clone spawns
	set $@clonemob3Y,177;			//-- Y of where the clone spawns
	set $@wrpX,25;				//-- X of where the player spawns
	set $@wrpY,171;				//-- Y of where the player spawns
	warp "force_3-1.gat",25,23;
	close;	

	L_Room4:
	killmonster "force_3-1.gat","CloneMob 4::OnMobDead";
	set $cloneroomn4$,"force_3-1.gat";	//-- Sets room name
	set $clonename4$,getcharid(0);	//-- Sets the clone name
	set cloneroom,4;			//-- Clone room
	set $@clone4X1,155;			//-- Top-Left X Coordinate
	set $@clone4Y1,192;			//-- Top-Left Y Coordinate
	set $@clone4X2,192;			//-- Bottom-Right X Coordinate
	set $@clone4Y2,155;			//-- Bottom-Right Y Coordinate
	set $@clonemob4X,174;			//-- X of where the clone spawns
	set $@clonemob4Y,177;			//-- Y of where the clone spawns
	set $@wrp4X,174;			//-- X of where the player spawns
	set $@wrp4Y,171;			//-- Y of where the player spawns
	warp "force_3-1.gat",174,23;
	close;

	L_Limit:
	mes "I'm sorry, but you must be at least ^0000FFBase Level 50^000000 or higher to register. We cannot allow the weak to be harmed in this arena.";
	close;

	L_Stat:
	mes "I'm sorry, but you must allocate your stat points before continuing. You may only have 10 unused stat points.";
	close;

	L_Skill:
	mes "I'm sorry, but you must allocate all of your stat points before continuing.";
	close;

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

}

//=========================================================================================
//== Clone Masters ========================================================================
//=========================================================================================
force_2-1.gat,25,27,4	script	Clone Master::cmasta	105,{
	mes "[Clone Master]";
	mes "I will arrange the settings for the arena.";
	next;
	mes "[Clone Master]";
	mes "Please select the number of clones you wish to battle.";
	next;
	menu "1 Clone",C_1,"2 Clones",C_2,"3 Clones",C_3,"Leave Arena",L_End;

	C_1:
	if(cloneroom == 1) {
		set $@clonemob1,1;			//-- Number of Clones
		set $@tempclonepts1,1;			//-- Number of possible points
		goto L_Start;
	} else if(cloneroom == 2) {
		set $@clonemob2,1;			//-- Number of Clones
		set $@tempclonepts2,1;			//-- Number of possible points
		goto L_Start;
	} else if(cloneroom == 3) {
		set $@clonemob3,1;			//-- Number of Clones
		set $@tempclonepts3,1;			//-- Number of possible points
		goto L_Start;
	} else if(cloneroom == 4) {
		set $@clonemob4,1;			//-- Number of Clones
		set $@tempclonepts4,1;			//-- Number of possible points
		goto L_Start;
	} else 
		close;

	C_2:
	if(cloneroom == 1) {
		set $@clonemob1,2;			//-- Number of Clones
		set $@tempclonepts1,3;			//-- Number of possible points
		goto L_Start;
	} else if(cloneroom == 2) {
		set $@clonemob2,2;			//-- Number of Clones
		set $@tempclonepts2,3;			//-- Number of possible points
		goto L_Start;
	} else if(cloneroom == 3) {
		set $@clonemob3,2;			//-- Number of Clones
		set $@tempclonepts3,3;			//-- Number of possible points
		goto L_Start;
	} else if(cloneroom == 4) {
		set $@clonemob4,2;			//-- Number of Clones
		set $@tempclonepts4,3;			//-- Number of possible points
		goto L_Start;
	} else 
		close;

	C_3:
	if(cloneroom == 1) {
		set $@clonemob1,3;			//-- Number of Clones
		set $@tempclonepts1,6;			//-- Number of possible points
		goto L_Start;
	} else if(cloneroom == 2) {
		set $@clonemob2,3;			//-- Number of Clones
		set $@tempclonepts2,6;			//-- Number of possible points
		goto L_Start;
	} else if(cloneroom == 3) {
		set $@clonemob3,3;			//-- Number of Clones
		set $@tempclonepts3,6;			//-- Number of possible points
		goto L_Start;
	} else if(cloneroom == 4) {
		set $@clonemob4,3;			//-- Number of Clones
		set $@tempclonepts4,6;			//-- Number of possible points
		goto L_Start;
	} else
		close;

	L_Start:
	mes "[Clone Master]";
	callfunc "F_CloneICheck";		//-- Starts the function to check gear
	mes "I will now lead you to the arena.";
	next;
	if(cloneroom == 1) {
	initnpctimer "CloneTimer 1";
//	attachnpctimer getcharid(0);
	warp $cloneroomn1$,$@wrp1X,$@wrp1Y;
	donpcevent "CloneMob 1";
	close;
	} else if(cloneroom == 2) {
	initnpctimer "CloneTimer 2";
//	attachnpctimer getcharid(0);
	warp $cloneroomn2$,$@wrp2X,$@wrp2Y;
	donpcevent "CloneMob 2";
	close;
	} else if(cloneroom == 3) {
	initnpctimer "CloneTimer 3";
//	attachnpctimer getcharid(0);
	warp $cloneroomn3$,$@wrp3X,$@wrp3Y;
	donpcevent "CloneMob 3";
	close;
	} else if(cloneroom == 4) {
	initnpctimer "CloneTimer 4";
//	attachnpctimer getcharid(0);
	warp $cloneroomn4$,$@wrp4X,$@wrp4Y;
	donpcevent "CloneMob 4";
	close;
	} else

	L_End:
	warp "prt_are_in",97,24;
	close;
}

force_2-1.gat,174,27,4	duplicate(cmasta)	Clone Master	105
force_3-1.gat,25,27,4	duplicate(cmasta)	Clone Master	105
force_3-1.gat,174,27,4	duplicate(cmasta)	Clone Master	105

//=========================================================================================
//== Clone Mobs ===========================================================================
//=========================================================================================
// -- Clone Mob 1 ---------------
force_2-1.gat,0,0,0	script	CloneMob 1	-1,{
	if($@clonemob1==1) {
		clone $cloneroomn1$,$@clonemob1X,$@clonemob1Y,"CloneMob 1::OnMobDead",$clonename1$,0,1693,0,192;
	} else if ($@clonemob1==2) {
		clone $cloneroomn1$,$@clonemob1X +2,$@clonemob1Y,"CloneMob 1::OnMobDead",$clonename1$,0,1693,0,192;
		clone $cloneroomn1$,$@clonemob1X -2,$@clonemob1Y,"CloneMob 1::OnMobDead",$clonename1$,0,1693,0,192;
	} else if ($@clonemob1==3) {
		clone $cloneroomn1$,$@clonemob1X,$@clonemob1Y,"CloneMob 1::OnMobDead",$clonename1$,0,1693,0,192;
		clone $cloneroomn1$,$@clonemob1X +2,$@clonemob1Y,"CloneMob 1::OnMobDead",$clonename1$,0,1693,0,192;
		clone $cloneroomn1$,$@clonemob1X -2,$@clonemob1Y,"CloneMob 1::OnMobDead",$clonename1$,0,1693,0,192;
	} else
		end;

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

	stopnpctimer "CloneTimer 1";
	if($@tempclonepts1 == 1 ) areaannounce $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"Congratulations! You have succesfully defeated your clone!",8;
	if($@tempclonepts1 > 1 ) areaannounce $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"Congratulations! You have succesfully defeated your clones!",8;
	set clonepts,clonepts + $@tempclonepts1;
	addtimer 3000,"CloneTimer 1::OnTimer192000";
	end;

}

// -- Clone Mob 2 ---------------
force_2-1.gat,0,0,0	script	CloneMob 2	-1,{
	if($@clonemob2==1) {
		clone $cloneroomn2$,$@clonemob2X,$@clonemob2Y,"CloneMob 2::OnMobDead",$clonename2$,0,1693,0,192;
	} else if ($@clonemob2==2) {
		clone $cloneroomn2$,$@clonemob2X +2,$@clonemob2Y,"CloneMob 2::OnMobDead",$clonename2$,0,1693,0,192;
		clone $cloneroomn2$,$@clonemob2X -2,$@clonemob2Y,"CloneMob 2::OnMobDead",$clonename2$,0,1693,0,192;
	} else if ($@clonemob2==3) {
		clone $cloneroomn2$,$@clonemob2X,$@clonemob2Y,"CloneMob 2::OnMobDead",$clonename2$,0,1693,0,192;
		clone $cloneroomn2$,$@clonemob2X +2,$@clonemob2Y,"CloneMob 2::OnMobDead",$clonename2$,0,1693,0,192;
		clone $cloneroomn2$,$@clonemob2X -2,$@clonemob2Y,"CloneMob 2::OnMobDead",$clonename2$,0,1693,0,192;
	} else
		end;

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

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

}

// -- Clone Mob 3 ---------------
force_3-1.gat,0,0,0	script	CloneMob 3	-1,{
	if($@clonemob3==1) {
		clone $cloneroomn3$,$@clonemob3X,$@clonemob3Y,"CloneMob 3::OnMobDead",$clonename3$,0,1693,0,192;
	} else if ($@clonemob3==2) {
		clone $cloneroomn3$,$@clonemob3X +2,$@clonemob3Y,"CloneMob 3::OnMobDead",$clonename3$,0,1693,0,192;
		clone $cloneroomn3$,$@clonemob3X -2,$@clonemob3Y,"CloneMob 3::OnMobDead",$clonename3$,0,1693,0,192;
	} else if ($@clonemob3==3) {
		clone $cloneroomn3$,$@clonemob3X,$@clonemob3Y,"CloneMob 3::OnMobDead",$clonename3$,0,1693,0,192;
		clone $cloneroomn3$,$@clonemob3X +2,$@clonemob3Y,"CloneMob 3::OnMobDead",$clonename3$,0,1693,0,192;
		clone $cloneroomn3$,$@clonemob3X -2,$@clonemob3Y,"CloneMob 3::OnMobDead",$clonename3$,0,1693,0,192;
	} else
		end;

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

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

}

// -- Clone Mob 4 ---------------
force_3-1.gat,0,0,0	script	CloneMob 4	-1,{
	if($@clonemob4==1){
		clone $cloneroomn4$,$@clonemob4X,$@clonemob4Y,"CloneMob 4::OnMobDead",$clonename4$,0,1693,0,192;
	} else if($@clonemob4==2) {
		clone $cloneroomn4$,$@clonemob4X +2,$@clonemob4Y,"CloneMob 4::OnMobDead",$clonename4$,0,1693,0,192;
		clone $cloneroomn4$,$@clonemob4X -2,$@clonemob4Y,"CloneMob 4::OnMobDead",$clonename4$,0,1693,0,192;
	} else if($@clonemob4==3) {
		clone $cloneroomn4$,$@clonemob4X,$@clonemob4Y,"CloneMob 4::OnMobDead",$clonename4$,0,1693,0,192;
		clone $cloneroomn4$,$@clonemob4X +2,$@clonemob4Y,"CloneMob 4::OnMobDead",$clonename4$,0,1693,0,192;
		clone $cloneroomn4$,$@clonemob4X -2,$@clonemob4Y,"CloneMob 4::OnMobDead",$clonename4$,0,1693,0,192;
	} else
		end;

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

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

}

//=========================================================================================
//== Clone Timers =========================================================================
//=========================================================================================
// -- Clone Timer 1 --------------- 
force_2-1.gat,0,0,0	script	CloneTimer 1	-1,{
OnTimer1000:
	areaannounce $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"The arena has been initiated! Prepare to fight!",8;
	callfunc "F_CloneBuff";
	callfunc "F_CloneEquip";
	end;
OnTimer2000:
	callfunc "F_CloneEquip";
	end;
OnTimer3000:
	callfunc "F_CloneEquip";
	end;
OnTimer4000:
	callfunc "F_CloneEquip";
	end;
OnTimer5000:
	areaannounce $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"You have 3 minutes to defeat your clone!",8;
	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:
	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 $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"You have 2 minutes left!",8;
	callfunc "F_CloneEquip";
	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:
	callfunc "F_CloneEquip";
	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 $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"You have 1 minute left!",8;
	callfunc "F_CloneEquip";
	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 $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"You have 30 seconds left!",8;
	callfunc "F_CloneEquip";
	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 $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"You have 5 seconds left!",8;
	end;
OnTimer177000:
	areaannounce $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"You have 4 seconds left!",8;
	end;
OnTimer178000:
	areaannounce $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"You have 3 seconds left!",8;
	end;
OnTimer179000:
	areaannounce $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"You have 2 seconds left!",8;
	end;
OnTimer180000:
	areaannounce $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"You have 1 second left!",8;
	end;
OnTimer185000:
	areaannounce $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"Okay time's up! You failed!",8;
	end;
OnTimer192000:
	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 $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"prt_are_in", 97, 24;
	killmonster $cloneroomn$,"CloneMob 1::OnMobDead";
	end;

}

// -- Clone Timer 2 --------------- 
force_2-1.gat,1,1,0	script	CloneTimer 2	-1,{
OnTimer1000:
	areaannounce $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"The arena has been initiated! Prepare to fight!",8;
	callfunc "F_CloneBuff";
	callfunc "F_CloneEquip";
	end;
OnTimer2000:
	callfunc "F_CloneEquip";
	end;
OnTimer3000:
	callfunc "F_CloneEquip";
	end;
OnTimer4000:
	callfunc "F_CloneEquip";
	end;
OnTimer5000:
	areaannounce $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"You have 3 minutes to defeat your clone!",8;
	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:
	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 $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"You have 2 minutes left!",8;
	callfunc "F_CloneEquip";
	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:
	callfunc "F_CloneEquip";
	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 $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"You have 1 minute left!",8;
	callfunc "F_CloneEquip";
	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 $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"You have 30 seconds left!",8;
	callfunc "F_CloneEquip";
	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 $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"You have 5 seconds left!",8;
	end;
OnTimer177000:
	areaannounce $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"You have 4 seconds left!",8;
	end;
OnTimer178000:
	areaannounce $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"You have 3 seconds left!",8;
	end;
OnTimer179000:
	areaannounce $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"You have 2 seconds left!",8;
	end;
OnTimer180000:
	areaannounce $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"You have 1 second left!",8;
	end;
OnTimer185000:
	areaannounce $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"Okay time's up! You failed!",8;
	end;
OnTimer192000:
	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 $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"prt_are_in", 97, 24;
	killmonster $cloneroomn$,"CloneMob 2::OnMobDead";
	end;

}

// -- Clone Timer 3 --------------- 
force_2-1.gat,0,0,0	script	CloneTimer 3	-1,{
OnTimer1000:
	areaannounce $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"The arena has been initiated! Prepare to fight!",8;
	callfunc "F_CloneBuff";
	callfunc "F_CloneEquip";
	end;
OnTimer2000:
	callfunc "F_CloneEquip";
	end;
OnTimer3000:
	callfunc "F_CloneEquip";
	end;
OnTimer4000:
	callfunc "F_CloneEquip";
	end;
OnTimer5000:
	areaannounce $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"You have 3 minutes to defeat your clone!",8;
	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:
	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 $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"You have 2 minutes left!",8;
	callfunc "F_CloneEquip";
	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:
	callfunc "F_CloneEquip";
	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 $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"You have 1 minute left!",8;
	callfunc "F_CloneEquip";
	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 $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"You have 30 seconds left!",8;
	callfunc "F_CloneEquip";
	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 $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"You have 5 seconds left!",8;
	end;
OnTimer177000:
	areaannounce $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"You have 4 seconds left!",8;
	end;
OnTimer178000:
	areaannounce $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"You have 3 seconds left!",8;
	end;
OnTimer179000:
	areaannounce $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"You have 2 seconds left!",8;
	end;
OnTimer180000:
	areaannounce $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"You have 1 second left!",8;
	end;
OnTimer185000:
	areaannounce $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"Okay time's up! You failed!",8;
	end;
OnTimer192000:
	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 $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"prt_are_in", 97, 24;
	killmonster $cloneroomn$,"CloneMob 3::OnMobDead";
	end;

}

// -- Clone Timer 4 --------------- 
force_2-1.gat,0,0,0	script	CloneTimer 4	-1,{
OnTimer1000:
	areaannounce $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"The arena has been initiated! Prepare to fight!",8;
	callfunc "F_CloneBuff";
	callfunc "F_CloneEquip";
	end;
OnTimer2000:
	callfunc "F_CloneEquip";
	end;
OnTimer3000:
	callfunc "F_CloneEquip";
	end;
OnTimer4000:
	callfunc "F_CloneEquip";
	end;
OnTimer5000:
	areaannounce $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"You have 3 minutes to defeat your clone!",8;
	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:
	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 $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"You have 2 minutes left!",8;
	callfunc "F_CloneEquip";
	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:
	callfunc "F_CloneEquip";
	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 $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"You have 1 minute left!",8;
	callfunc "F_CloneEquip";
	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 $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"You have 30 seconds left!",8;
	callfunc "F_CloneEquip";
	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 $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"You have 5 seconds left!",8;
	end;
OnTimer177000:
	areaannounce $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"You have 4 seconds left!",8;
	end;
OnTimer178000:
	areaannounce $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"You have 3 seconds left!",8;
	end;
OnTimer179000:
	areaannounce $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"You have 2 seconds left!",8;
	end;
OnTimer180000:
	areaannounce $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"You have 1 second left!",8;
	end;
OnTimer185000:
	areaannounce $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"Okay time's up! You failed!",8;
	end;
OnTimer192000:
	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 $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"prt_are_in", 97, 24;
	killmonster $cloneroomn$,"CloneMob 4::OnMobDead";
	end;

}

//=========================================================================================
//== Clone Functions ======================================================================
//=========================================================================================
// -- Clone Buff/Debuff ---------------
function	script	F_CloneBuff	{
	sc_end SC_PROVOKE;
	sc_end SC_ENDURE;
	sc_end SC_TWOHANDQUICKEN;
	sc_end SC_CONCENTRATE;
	sc_end SC_ENCPOISON;
	sc_end SC_POISONREACT;
	sc_end SC_ANGELUS;
	sc_end SC_BLESSING;
	sc_end SC_SIGNUMCRUCIS;
	sc_end SC_INCREASEAGI;
	sc_end SC_SLOWPOISON;
	sc_end SC_IMPOSITIO;
	sc_end SC_SUFFRAGIUM;
	sc_end SC_ASPERSIO;
	sc_end SC_KYRIE;
	sc_end SC_MAGNIFICAT;
	sc_end SC_GLORIA;
	sc_end SC_ADRENALINE;
	sc_end SC_WEAPONPERFECTION;
	sc_end SC_OVERTHRUST;
	sc_end SC_MAXIMIZEPOWER;
	sc_end SC_LOUD;
	sc_end SC_ENERGYCOAT;
	sc_end SC_ASPDPOTION0;
	sc_end SC_ASPDPOTION1;
	sc_end SC_ASPDPOTION2;
	sc_end SC_ASPDPOTION3;
	sc_end SC_SPEEDUP0;
	sc_end SC_SPEEDUP1;
	sc_end SC_ATKPOTION;
	sc_end SC_MATKPOTION;
	sc_end SC_AUTOGUARD;
	sc_end SC_REFLECTSHIELD;
	sc_end SC_PROVIDENCE;
	sc_end SC_DEFENDER;
	sc_end SC_AUTOSPELL;
	sc_end SC_SIGHTTRASHER;
	sc_end SC_SPEARSQUICKEN;
	sc_end SC_AUTOCOUNTER;
	sc_end SC_SIGHT;
	sc_end SC_RUWACH;
	sc_end SC_EXTREMITYFIST;
	sc_end SC_EXPLOSIONSPIRITS;
	sc_end SC_COMBO;
	sc_end SC_BLADESTOP_WAIT;
	sc_end SC_BLADESTOP;
	sc_end SC_FIREWEAPON;
	sc_end SC_WATERWEAPON;
	sc_end SC_WINDWEAPON;
	sc_end SC_EARTHWEAPON;
	sc_end SC_VIOLENTGALE;
	sc_end SC_WATK_ELEMENT;
	sc_end SC_ARMOR_ELEMENT;
	sc_end SC_AURABLADE;
	sc_end SC_PARRYING;
	sc_end SC_CONCENTRATION;
	sc_end SC_TENSIONRELAX;
	sc_end SC_BERSERK;
	sc_end SC_FURY;
	sc_end SC_GOSPEL;
	sc_end SC_ASSUMPTIO;
	sc_end SC_GUILDAURA;
	sc_end SC_MAGICPOWER;
	sc_end SC_EDP;
	sc_end SC_TRUESIGHT;
	sc_end SC_WINDWALK;
	sc_end SC_MELTDOWN;
	sc_end SC_CARTBOOST;
	sc_end SC_CHASEWALK;
	sc_end SC_REJECTSWORD;
	sc_end SC_MARIONETTE;
	sc_end SC_MARIONETTE2;
	sc_end SC_MOONLIT;
	sc_end SC_JOINTBEAT;
	sc_end SC_MINDBREAKER;
	sc_end SC_MEMORIZE;
	sc_end SC_DEVOTION;
	sc_end SC_SACRIFICE;
	sc_end SC_STEELBODY;
	sc_end SC_READYSTORM;
	sc_end SC_READYDOWN;
	sc_end SC_READYTURN;
	sc_end SC_READYCOUNTER;
	sc_end SC_DODGE;
	sc_end SC_RUN;
	sc_end SC_SHADOWWEAPON;
	sc_end SC_ADRENALINE2;
	sc_end SC_GHOSTWEAPON;
	sc_end SC_KAIZEL;
	sc_end SC_KAAHI;
	sc_end SC_KAUPE;
	sc_end SC_ONEHAND;
	sc_end SC_PRESERVE;
	sc_end SC_BATTLEORDERS;
	sc_end SC_REGENERATION;
	sc_end SC_DOUBLECAST;
	sc_end SC_MAXOVERTHRUST;
	sc_end SC_LONGING;
	sc_end SC_HERMODE;
	sc_end SC_SHRINK;
	sc_end SC_SIGHTBLASTER;
	sc_end SC_CLOSECONFINE;
	sc_end SC_CLOSECONFINE2;
	sc_end SC_DANCING;
	sc_end SC_LULLABY;
	sc_end SC_RICHMANKIM;
	sc_end SC_ETERNALCHAOS;
	sc_end SC_DRUMBATTLE;
	sc_end SC_NIBELUNGEN;
	sc_end SC_ROKISWEIL;
	sc_end SC_INTOABYSS;
	sc_end SC_SIEGFRIED;
	sc_end SC_WHISTLE;
	sc_end SC_ASSNCROS;
	sc_end SC_POEMBRAGI;
	sc_end SC_APPLEIDUN;
	sc_end SC_UGLYDANCE;
	sc_end SC_HUMMING;
	sc_end SC_DONTFORGETME;
	sc_end SC_FORTUNE;
	sc_end SC_SERVICE4U;
	sc_end SC_STOP;
	sc_end SC_SPURT;
	sc_end SC_SPIRIT;
	sc_end SC_COMA;
	sc_end SC_INTRAVISION;
	sc_end SC_INCALLSTATUS;
	sc_end SC_INCSTR;
	sc_end SC_INCAGI;
	sc_end SC_INCVIT;
	sc_end SC_INCINT;
	sc_end SC_INCDEX;
	sc_end SC_INCLUK;
	sc_end SC_INCHIT;
	sc_end SC_INCHITRATE;
	sc_end SC_INCFLEE;
	sc_end SC_INCFLEERATE;
	sc_end SC_INCMHPRATE;
	sc_end SC_INCMSPRATE;
	sc_end SC_INCATKRATE;
	sc_end SC_INCMATKRATE;
	sc_end SC_INCDEFRATE;
	sc_end SC_STRFOOD;
	sc_end SC_AGIFOOD;
	sc_end SC_VITFOOD;
	sc_end SC_INTFOOD;
	sc_end SC_DEXFOOD;
	sc_end SC_LUKFOOD;
	sc_end SC_HITFOOD;
	sc_end SC_FLEEFOOD;
	sc_end SC_BATKFOOD;
	sc_end SC_WATKFOOD;
	sc_end SC_MATKFOOD;
	sc_end SC_SCRESIST;
	sc_end SC_WARM;
	sc_end SC_SUN_COMFORT;
	sc_end SC_MOON_COMFORT;
	sc_end SC_STAR_COMFORT;
	sc_end SC_FUSION;
	sc_end SC_SKILLRATE_UP;
	sc_end SC_SKE;
	sc_end SC_KAITE;
	sc_end SC_SWOO;
	sc_end SC_SKA;
//	sc_end SC_TKDORI;
//	sc_end SC_MAX;
	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
	return;
}

// -- Clone Inventory Function ---------------
function	script	F_CloneICheck	{
	if(getequipisequiped(1)==0) {
	mes "^FF0000You must equip a Head Gear before entering the Clone Arena!^000000";
	close;
	} else if(getequipisequiped(2)==0) {
	mes "^FF0000You must equip an Armor before entering the Clone Arena!^000000";
	close;
	} else if(getequipisequiped(3)==0) {
	mes "^FF0000You must equip a Weapon and/or Shield before entering the Clone Arena!^000000";
	close;
	} else if((getequipisequiped(4)==0) && (BaseJob != Job_Taekwon)) {
	mes "^FF0000You must equip a Weapon and/or Shield before entering the Clone Arena!^000000";
	close;
	} else if((getequipid(4)==1235) || (getequipid(4)==1238)) {
	mes "^FF0000This weapon is restricted! Please select another weapon before entering the Clone Arena!^000000";
	close;
	} else if(getequipisequiped(5)==0) {
	mes "^FF0000You must equip a Garment before entering the Clone Arena!^000000";
	close;
	} else if(getequipisequiped(6)==0) {
	mes "^FF0000You must equip a Foot Gear before entering the Clone Arena!^000000";
	close;
	} else 	if(getequipisequiped(7)==0) {
	mes "^FF0000You must equip two Accessories before entering the Clone Arena!^000000";
	close;
	} else if(getequipisequiped(8)==0) {
	mes "^FF0000You must equip two Accessories before entering the Clone Arena!^000000";
	close;
	} else if (cloneroom == 1) {
	set $@equip1r1,getequipid(1);
	set $@slot1r1n0,getequipcardid(1,0);
	set $@slot1r1n1,getequipcardid(1,1);
	set $@slot1r1n2,getequipcardid(1,2);
	set $@slot1r1n3,getequipcardid(1,3);
	set $@equip1r2,getequipid(2);
	set $@slot1r2n0,getequipcardid(2,0);
	set $@slot1r2n1,getequipcardid(2,1);
	set $@slot1r2n2,getequipcardid(2,2);
	set $@slot1r2n3,getequipcardid(2,3);
	set $@equip1r3,getequipid(3);
	set $@slot1r3n0,getequipcardid(3,0);
	set $@slot1r3n1,getequipcardid(3,1);
	set $@slot1r3n2,getequipcardid(3,2);
	set $@slot1r3n3,getequipcardid(3,3);
	set $@equip1r4,getequipid(4);
	set $@slot1r4n0,getequipcardid(4,0);
	set $@slot1r4n1,getequipcardid(4,1);
	set $@slot1r4n2,getequipcardid(4,2);
	set $@slot1r4n3,getequipcardid(4,3);
	set $@equip1r5,getequipid(5);
	set $@slot1r5n0,getequipcardid(5,0);
	set $@slot1r5n1,getequipcardid(5,1);
	set $@slot1r5n2,getequipcardid(5,2);
	set $@slot1r5n3,getequipcardid(5,3);
	set $@equip1r6,getequipid(6);
	set $@slot1r6n0,getequipcardid(6,0);
	set $@slot1r6n1,getequipcardid(6,1);
	set $@slot1r6n2,getequipcardid(6,2);
	set $@slot1r6n3,getequipcardid(6,3);
	set $@equip1r7,getequipid(7);
	set $@slot1r7n0,getequipcardid(7,0);
	set $@slot1r7n1,getequipcardid(7,1);
	set $@slot1r7n2,getequipcardid(7,2);
	set $@slot1r7n3,getequipcardid(7,3);
	set $@equip1r8,getequipid(8);
	set $@slot1r8n0,getequipcardid(8,0);
	set $@slot1r8n1,getequipcardid(8,1);
	set $@slot1r8n2,getequipcardid(8,2);
	set $@slot1r8n3,getequipcardid(8,3);
	return;
	} else if (cloneroom == 2) {
	set $@equip2r1,getequipid(1);
	set $@slot2r1n0,getequipcardid(1,0);
	set $@slot2r1n1,getequipcardid(1,1);
	set $@slot2r1n2,getequipcardid(1,2);
	set $@slot2r1n3,getequipcardid(1,3);
	set $@equip2r2,getequipid(2);
	set $@slot2r2n0,getequipcardid(2,0);
	set $@slot2r2n1,getequipcardid(2,1);
	set $@slot2r2n2,getequipcardid(2,2);
	set $@slot2r2n3,getequipcardid(2,3);
	set $@equip2r3,getequipid(3);
	set $@slot2r3n0,getequipcardid(3,0);
	set $@slot2r3n1,getequipcardid(3,1);
	set $@slot2r3n2,getequipcardid(3,2);
	set $@slot2r3n3,getequipcardid(3,3);
	set $@equip2r4,getequipid(4);
	set $@slot2r4n0,getequipcardid(4,0);
	set $@slot2r4n1,getequipcardid(4,1);
	set $@slot2r4n2,getequipcardid(4,2);
	set $@slot2r4n3,getequipcardid(4,3);
	set $@equip2r5,getequipid(5);
	set $@slot2r5n0,getequipcardid(5,0);
	set $@slot2r5n1,getequipcardid(5,1);
	set $@slot2r5n2,getequipcardid(5,2);
	set $@slot2r5n3,getequipcardid(5,3);
	set $@equip2r6,getequipid(6);
	set $@slot2r6n0,getequipcardid(6,0);
	set $@slot2r6n1,getequipcardid(6,1);
	set $@slot2r6n2,getequipcardid(6,2);
	set $@slot2r6n3,getequipcardid(6,3);
	set $@equip2r7,getequipid(7);
	set $@slot2r7n0,getequipcardid(7,0);
	set $@slot2r7n1,getequipcardid(7,1);
	set $@slot2r7n2,getequipcardid(7,2);
	set $@slot2r7n3,getequipcardid(7,3);
	set $@equip2r8,getequipid(8);
	set $@slot2r8n0,getequipcardid(8,0);
	set $@slot2r8n1,getequipcardid(8,1);
	set $@slot2r8n2,getequipcardid(8,2);
	set $@slot2r8n3,getequipcardid(8,3);
	return;
	} else if (cloneroom == 3) {
	set $@equip3r1,getequipid(1);
	set $@slot3r1n0,getequipcardid(1,0);
	set $@slot3r1n1,getequipcardid(1,1);
	set $@slot3r1n2,getequipcardid(1,2);
	set $@slot3r1n3,getequipcardid(1,3);
	set $@equip3r2,getequipid(2);
	set $@slot3r2n0,getequipcardid(2,0);
	set $@slot3r2n1,getequipcardid(2,1);
	set $@slot3r2n2,getequipcardid(2,2);
	set $@slot3r2n3,getequipcardid(2,3);
	set $@equip3r3,getequipid(3);
	set $@slot3r3n0,getequipcardid(3,0);
	set $@slot3r3n1,getequipcardid(3,1);
	set $@slot3r3n2,getequipcardid(3,2);
	set $@slot3r3n3,getequipcardid(3,3);
	set $@equip3r4,getequipid(4);
	set $@slot3r4n0,getequipcardid(4,0);
	set $@slot3r4n1,getequipcardid(4,1);
	set $@slot3r4n2,getequipcardid(4,2);
	set $@slot3r4n3,getequipcardid(4,3);
	set $@equip3r5,getequipid(5);
	set $@slot3r5n0,getequipcardid(5,0);
	set $@slot3r5n1,getequipcardid(5,1);
	set $@slot3r5n2,getequipcardid(5,2);
	set $@slot3r5n3,getequipcardid(5,3);
	set $@equip3r6,getequipid(6);
	set $@slot3r6n0,getequipcardid(6,0);
	set $@slot3r6n1,getequipcardid(6,1);
	set $@slot3r6n2,getequipcardid(6,2);
	set $@slot3r6n3,getequipcardid(6,3);
	set $@equip3r7,getequipid(7);
	set $@slot3r7n0,getequipcardid(7,0);
	set $@slot3r7n1,getequipcardid(7,1);
	set $@slot3r7n2,getequipcardid(7,2);
	set $@slot3r7n3,getequipcardid(7,3);
	set $@equip3r8,getequipid(8);
	set $@slot3r8n0,getequipcardid(8,0);
	set $@slot3r8n1,getequipcardid(8,1);
	set $@slot3r8n2,getequipcardid(8,2);
	set $@slot3r8n3,getequipcardid(8,3);
	return;
	} else if (cloneroom == 4) {
	set $@equip4r1,getequipid(1);
	set $@slot4r1n0,getequipcardid(1,0);
	set $@slot4r1n1,getequipcardid(1,1);
	set $@slot4r1n2,getequipcardid(1,2);
	set $@slot4r1n3,getequipcardid(1,3);
	set $@equip4r2,getequipid(2);
	set $@slot4r2n0,getequipcardid(2,0);
	set $@slot4r2n1,getequipcardid(2,1);
	set $@slot4r2n2,getequipcardid(2,2);
	set $@slot4r2n3,getequipcardid(2,3);
	set $@equip4r3,getequipid(3);
	set $@slot4r3n0,getequipcardid(3,0);
	set $@slot4r3n1,getequipcardid(3,1);
	set $@slot4r3n2,getequipcardid(3,2);
	set $@slot4r3n3,getequipcardid(3,3);
	set $@equip4r4,getequipid(4);
	set $@slot4r4n0,getequipcardid(4,0);
	set $@slot4r4n1,getequipcardid(4,1);
	set $@slot4r4n2,getequipcardid(4,2);
	set $@slot4r4n3,getequipcardid(4,3);
	set $@equip4r5,getequipid(5);
	set $@slot4r5n0,getequipcardid(5,0);
	set $@slot4r5n1,getequipcardid(5,1);
	set $@slot4r5n2,getequipcardid(5,2);
	set $@slot4r5n3,getequipcardid(5,3);
	set $@equip4r6,getequipid(6);
	set $@slot4r6n0,getequipcardid(6,0);
	set $@slot4r6n1,getequipcardid(6,1);
	set $@slot4r6n2,getequipcardid(6,2);
	set $@slot4r6n3,getequipcardid(6,3);
	set $@equip4r7,getequipid(7);
	set $@slot4r7n0,getequipcardid(7,0);
	set $@slot4r7n1,getequipcardid(7,1);
	set $@slot4r7n2,getequipcardid(7,2);
	set $@slot4r7n3,getequipcardid(7,3);
	set $@equip4r8,getequipid(8);
	set $@slot4r8n0,getequipcardid(8,0);
	set $@slot4r8n1,getequipcardid(8,1);
	set $@slot4r8n2,getequipcardid(8,2);
	set $@slot4r8n3,getequipcardid(8,3);
	return;
	} else return;
}

// -- Clone Equipment Function ---------------
function	script	F_CloneEquip	{
	if(cloneroom == 1) {
	if((getequipid(1) != $@equip1r1) || (getequipcardid(1,0) != $@slot1r1n0) || (getequipcardid(1,1) != $@slot1r1n1) || (getequipcardid(1,2) != $@slot1r1n2) || (getequipcardid(1,3) != $@slot1r1n3) || (getequipcardid(1,4) != $@slot1r1n4)) goto L_Violate1;
	if((getequipid(2) != $@equip1r2) || (getequipcardid(2,0) != $@slot1r2n0) || (getequipcardid(2,1) != $@slot1r2n1) || (getequipcardid(2,2) != $@slot1r2n2) || (getequipcardid(2,3) != $@slot1r2n3) || (getequipcardid(2,4) != $@slot1r2n4)) goto L_Violate1;
	if((getequipid(3) != $@equip1r3) || (getequipcardid(3,0) != $@slot1r3n0) || (getequipcardid(3,1) != $@slot1r3n1) || (getequipcardid(3,2) != $@slot1r3n2) || (getequipcardid(3,3) != $@slot1r3n3) || (getequipcardid(3,4) != $@slot1r3n4)) goto L_Violate1;
	if((getequipid(4) != $@equip1r4) || (getequipcardid(4,0) != $@slot1r4n0) || (getequipcardid(4,1) != $@slot1r4n1) || (getequipcardid(4,2) != $@slot1r4n2) || (getequipcardid(4,3) != $@slot1r4n3) || (getequipcardid(4,4) != $@slot1r4n4)) goto L_Violate1;
	if((getequipid(5) != $@equip1r5) || (getequipcardid(5,0) != $@slot1r5n0) || (getequipcardid(5,1) != $@slot1r5n1) || (getequipcardid(5,2) != $@slot1r5n2) || (getequipcardid(5,3) != $@slot1r5n3) || (getequipcardid(5,4) != $@slot1r5n4)) goto L_Violate1;
	if((getequipid(6) != $@equip1r6) || (getequipcardid(6,0) != $@slot1r6n0) || (getequipcardid(6,1) != $@slot1r6n1) || (getequipcardid(6,2) != $@slot1r6n2) || (getequipcardid(6,3) != $@slot1r6n3) || (getequipcardid(6,4) != $@slot1r6n4)) goto L_Violate1;
	if((getequipid(7) != $@equip1r7) || (getequipcardid(7,0) != $@slot1r7n0) || (getequipcardid(7,1) != $@slot1r7n1) || (getequipcardid(7,2) != $@slot1r7n2) || (getequipcardid(7,3) != $@slot1r7n3) || (getequipcardid(7,4) != $@slot1r7n4)) goto L_Violate1;
	if((getequipid(8) != $@equip1r8) || (getequipcardid(8,0) != $@slot1r8n0) || (getequipcardid(8,1) != $@slot1r8n1) || (getequipcardid(8,2) != $@slot1r8n2) || (getequipcardid(8,3) != $@slot1r8n3) || (getequipcardid(8,4) != $@slot1r8n4)) goto L_Violate1;
	} else if(cloneroom == 2) {
	if((getequipid(1) != $@equip2r1) || (getequipcardid(1,0) != $@slot2r1n0) || (getequipcardid(1,1) != $@slot2r1n1) || (getequipcardid(1,2) != $@slot2r1n2) || (getequipcardid(1,3) != $@slot2r1n3) || (getequipcardid(1,4) != $@slot2r1n4)) goto L_Violate2;
	if((getequipid(2) != $@equip2r2) || (getequipcardid(2,0) != $@slot2r2n0) || (getequipcardid(2,1) != $@slot2r2n1) || (getequipcardid(2,2) != $@slot2r2n2) || (getequipcardid(2,3) != $@slot2r2n3) || (getequipcardid(2,4) != $@slot2r2n4)) goto L_Violate2;
	if((getequipid(3) != $@equip2r3) || (getequipcardid(3,0) != $@slot2r3n0) || (getequipcardid(3,1) != $@slot2r3n1) || (getequipcardid(3,2) != $@slot2r3n2) || (getequipcardid(3,3) != $@slot2r3n3) || (getequipcardid(3,4) != $@slot2r3n4)) goto L_Violate2;
	if((getequipid(4) != $@equip2r4) || (getequipcardid(4,0) != $@slot2r4n0) || (getequipcardid(4,1) != $@slot2r4n1) || (getequipcardid(4,2) != $@slot2r4n2) || (getequipcardid(4,3) != $@slot2r4n3) || (getequipcardid(4,4) != $@slot2r4n4)) goto L_Violate2;
	if((getequipid(5) != $@equip2r5) || (getequipcardid(5,0) != $@slot2r5n0) || (getequipcardid(5,1) != $@slot2r5n1) || (getequipcardid(5,2) != $@slot2r5n2) || (getequipcardid(5,3) != $@slot2r5n3) || (getequipcardid(5,4) != $@slot2r5n4)) goto L_Violate2;
	if((getequipid(6) != $@equip2r6) || (getequipcardid(6,0) != $@slot2r6n0) || (getequipcardid(6,1) != $@slot2r6n1) || (getequipcardid(6,2) != $@slot2r6n2) || (getequipcardid(6,3) != $@slot2r6n3) || (getequipcardid(6,4) != $@slot2r6n4)) goto L_Violate2;
	if((getequipid(7) != $@equip2r7) || (getequipcardid(7,0) != $@slot2r7n0) || (getequipcardid(7,1) != $@slot2r7n1) || (getequipcardid(7,2) != $@slot2r7n2) || (getequipcardid(7,3) != $@slot2r7n3) || (getequipcardid(7,4) != $@slot2r7n4)) goto L_Violate2;
	if((getequipid(8) != $@equip2r8) || (getequipcardid(8,0) != $@slot2r8n0) || (getequipcardid(8,1) != $@slot2r8n1) || (getequipcardid(8,2) != $@slot2r8n2) || (getequipcardid(8,3) != $@slot2r8n3) || (getequipcardid(8,4) != $@slot2r8n4)) goto L_Violate2;
	} else if(cloneroom == 3) {
	if((getequipid(1) != $@equip3r1) || (getequipcardid(1,0) != $@slot3r1n0) || (getequipcardid(1,1) != $@slot3r1n1) || (getequipcardid(1,2) != $@slot3r1n2) || (getequipcardid(1,3) != $@slot3r1n3) || (getequipcardid(1,4) != $@slot3r1n4)) goto L_Violate3;
	if((getequipid(2) != $@equip3r2) || (getequipcardid(2,0) != $@slot3r2n0) || (getequipcardid(2,1) != $@slot3r2n1) || (getequipcardid(2,2) != $@slot3r2n2) || (getequipcardid(2,3) != $@slot3r2n3) || (getequipcardid(2,4) != $@slot3r2n4)) goto L_Violate3;
	if((getequipid(3) != $@equip3r3) || (getequipcardid(3,0) != $@slot3r3n0) || (getequipcardid(3,1) != $@slot3r3n1) || (getequipcardid(3,2) != $@slot3r3n2) || (getequipcardid(3,3) != $@slot3r3n3) || (getequipcardid(3,4) != $@slot3r3n4)) goto L_Violate3;
	if((getequipid(4) != $@equip3r4) || (getequipcardid(4,0) != $@slot3r4n0) || (getequipcardid(4,1) != $@slot3r4n1) || (getequipcardid(4,2) != $@slot3r4n2) || (getequipcardid(4,3) != $@slot3r4n3) || (getequipcardid(4,4) != $@slot3r4n4)) goto L_Violate3;
	if((getequipid(5) != $@equip3r5) || (getequipcardid(5,0) != $@slot3r5n0) || (getequipcardid(5,1) != $@slot3r5n1) || (getequipcardid(5,2) != $@slot3r5n2) || (getequipcardid(5,3) != $@slot3r5n3) || (getequipcardid(5,4) != $@slot3r5n4)) goto L_Violate3;
	if((getequipid(6) != $@equip3r6) || (getequipcardid(6,0) != $@slot3r6n0) || (getequipcardid(6,1) != $@slot3r6n1) || (getequipcardid(6,2) != $@slot3r6n2) || (getequipcardid(6,3) != $@slot3r6n3) || (getequipcardid(6,4) != $@slot3r6n4)) goto L_Violate3;
	if((getequipid(7) != $@equip3r7) || (getequipcardid(7,0) != $@slot3r7n0) || (getequipcardid(7,1) != $@slot3r7n1) || (getequipcardid(7,2) != $@slot3r7n2) || (getequipcardid(7,3) != $@slot3r7n3) || (getequipcardid(7,4) != $@slot3r7n4)) goto L_Violate3;
	if((getequipid(8) != $@equip3r8) || (getequipcardid(8,0) != $@slot3r8n0) || (getequipcardid(8,1) != $@slot3r8n1) || (getequipcardid(8,2) != $@slot3r8n2) || (getequipcardid(8,3) != $@slot3r8n3) || (getequipcardid(8,4) != $@slot3r8n4)) goto L_Violate3;
	} else if(cloneroom == 4) {
	if((getequipid(1) != $@equip4r1) || (getequipcardid(1,0) != $@slot4r1n0) || (getequipcardid(1,1) != $@slot4r1n1) || (getequipcardid(1,2) != $@slot4r1n2) || (getequipcardid(1,3) != $@slot4r1n3) || (getequipcardid(1,4) != $@slot4r1n4)) goto L_Violate1;
	if((getequipid(2) != $@equip4r2) || (getequipcardid(2,0) != $@slot4r2n0) || (getequipcardid(2,1) != $@slot4r2n1) || (getequipcardid(2,2) != $@slot4r2n2) || (getequipcardid(2,3) != $@slot4r2n3) || (getequipcardid(2,4) != $@slot4r2n4)) goto L_Violate1;
	if((getequipid(3) != $@equip4r3) || (getequipcardid(3,0) != $@slot4r3n0) || (getequipcardid(3,1) != $@slot4r3n1) || (getequipcardid(3,2) != $@slot4r3n2) || (getequipcardid(3,3) != $@slot4r3n3) || (getequipcardid(3,4) != $@slot4r3n4)) goto L_Violate1;
	if((getequipid(4) != $@equip4r4) || (getequipcardid(4,0) != $@slot4r4n0) || (getequipcardid(4,1) != $@slot4r4n1) || (getequipcardid(4,2) != $@slot4r4n2) || (getequipcardid(4,3) != $@slot4r4n3) || (getequipcardid(4,4) != $@slot4r4n4)) goto L_Violate1;
	if((getequipid(5) != $@equip4r5) || (getequipcardid(5,0) != $@slot4r5n0) || (getequipcardid(5,1) != $@slot4r5n1) || (getequipcardid(5,2) != $@slot4r5n2) || (getequipcardid(5,3) != $@slot4r5n3) || (getequipcardid(5,4) != $@slot4r5n4)) goto L_Violate1;
	if((getequipid(6) != $@equip4r6) || (getequipcardid(6,0) != $@slot4r6n0) || (getequipcardid(6,1) != $@slot4r6n1) || (getequipcardid(6,2) != $@slot4r6n2) || (getequipcardid(6,3) != $@slot4r6n3) || (getequipcardid(6,4) != $@slot4r6n4)) goto L_Violate1;
	if((getequipid(7) != $@equip4r7) || (getequipcardid(7,0) != $@slot4r7n0) || (getequipcardid(7,1) != $@slot4r7n1) || (getequipcardid(7,2) != $@slot4r7n2) || (getequipcardid(7,3) != $@slot4r7n3) || (getequipcardid(7,4) != $@slot4r7n4)) goto L_Violate1;
	if((getequipid(8) != $@equip4r8) || (getequipcardid(8,0) != $@slot4r8n0) || (getequipcardid(8,1) != $@slot4r8n1) || (getequipcardid(8,2) != $@slot4r8n2) || (getequipcardid(8,3) != $@slot4r8n3) || (getequipcardid(8,4) != $@slot4r8n4)) goto L_Violate1;
	} else
	return;

	L_Violate1:
	stopnpctimer "CloneTimer 1";
	areaannounce $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"Clone Rules Violation! Equipments changed from registration!",bc_all,0xFF0000;
	set clonepts,clonepts - $@tempclonepts1;
	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 $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"prt_are_in",97,24;
	killmonster $cloneroomn1$,"CloneMob 1::OnMobDead";
	end;

	L_Violate2:
	stopnpctimer "CloneTimer 2";
	areaannounce $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"Clone Rules Violation! Equipments changed from registration!",bc_all,0xFF0000;
	set clonepts,clonepts - $@tempclonepts2;
	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 $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"prt_are_in",97,24;
	killmonster $cloneroomn2$,"CloneMob 2::OnMobDead";
	end;

	L_Violate3:
	stopnpctimer "CloneTimer 3";
	areaannounce $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"Clone Rules Violation! Equipments changed from registration!",bc_all,0xFF0000;
	set clonepts,clonepts - $@tempclonepts3;
	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 $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"prt_are_in",97,24;
	killmonster $cloneroomn3$,"CloneMob 3::OnMobDead";
	end;

	L_Violate4:
	stopnpctimer "CloneTimer 4";
	areaannounce $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"Clone Rules Violation! Equipments changed from registration!",bc_all,0xFF0000;
	set clonepts,clonepts - $@tempclonepts4;
	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 $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"prt_are_in",97,24;
	killmonster $cloneroomn4$,"CloneMob 4::OnMobDead";
	end;

}

// -- PC Die Event ---------------
-	script	PCDieEvent	-1,{
	getmapxy @mapname$,@mapx,@mapy,0;
	if((@mapname$ == "force_2-1.gat") || (@mapname$ == "force_3-1.gat")) goto L_Diestart;
	end;

	L_Diestart:
	if(cloneroom == 1) {
	stopnpctimer "CloneTimer 1";
	areaannounce $cloneroomn1$,$@clone1X1,$@clone1Y1,$@clone1X2,$@clone1Y2,"You have died! You failed!",8;
	set clonepts,clonepts - $@tempclonepts1;
	killmonster $cloneroomn1$,"CloneMob 1::OnMobDead";
	} else if(cloneroom == 2) {
	stopnpctimer "CloneTimer 2";
	areaannounce $cloneroomn2$,$@clone2X1,$@clone2Y1,$@clone2X2,$@clone2Y2,"You have died! You failed!",8;
	set clonepts,clonepts - $@tempclonepts2;
	killmonster $cloneroomn2$,"CloneMob 2::OnMobDead";
	} else if(cloneroom == 3) {
	stopnpctimer "CloneTimer 3";
	areaannounce $cloneroomn3$,$@clone3X1,$@clone3Y1,$@clone3X2,$@clone3Y2,"You have died! You failed!",8;
	set clonepts,clonepts - $@tempclonepts3;
	killmonster $cloneroomn3$,"CloneMob 3::OnMobDead";
	} else if(cloneroom == 4) {
	stopnpctimer "CloneTimer 4";
	areaannounce $cloneroomn4$,$@clone4X1,$@clone4Y1,$@clone4X2,$@clone4Y2,"You have died! You failed!",8;
	set clonepts,clonepts - $@tempclonepts4;
	killmonster $cloneroomn4$,"CloneMob 4::OnMobDead";
	} else
	end;
	
}

// -- 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;
}