frenzmu06

That looks like a pretty cool server.

i loled

// Made by iTouch
// ----------------------------------------------------------------------------
// Ultimate PvP Warper ver. 1
// Features:
// Baby PvP Room
// PvP Square(Every 2 days Random PvP Room)
// PvP Nightmare
// PvP Lowlvl( Supports 1 - 150 Lvl)
// PvP No Potion (Berrys , Ygg seed , Any potions , etc. are restricted)
// PvP Non Donator (Got Items are restricted here)
// -----------------------------------------------------------------------------
// ver. 2 update idea:
// Adding a PvP Room that removes the buffs of the player when entering the room
// Adding a PvP Room for GM's Only so GM's will have fun
// -----------------------------------------------------------------------------
// Special thanks to:
// icescope of eAthena for helping me configuring the error at PvP Square
// -----------------------------------------------------------------------------

prontera,155,188,6	script	Ultimate PvP Warper	753,{

	mes "[PvP Warper]";
	mes "Which arena do you want to go to?";
	switch(select("Normal PVP ["+getmapusers("5@tower")+"/100]:PVP NoPotion ["+getmapusers("5@tower")+"/100]:SinX PVP Room ["+getmapusers("5@tower")+"/100]:Champ PvP Room ["+getmapusers("5@tower")+"/100]")) {
		
	case 1:	// Normal PVP
		if (getmapusers("5@tower") > 99) callsub S_full;
		warp "5@tower",0,0;
		end;

	case 2:	// PVP NoPotion
		if (getmapusers("5@tower") > 99) callsub S_full;
		warp "5@tower",0,0;
		end;

	case 3:	// SinX PVP Room
		if (getmapusers("5@tower") > 99) callsub S_full;
		if (Class != Job_Assassin_Cross) { mes "You are not an Assassin Cross."; close; }
		warp "5@tower",0,0;
		end;
		
	case 4:	// Champ PvP Room
		if (getmapusers("5@tower") > 99) callsub S_full;
		if (Class != Job_Champion) { mes "You are not an Assassin Cross."; close; }
		warp "5@tower",0,0;
		end;

		S_full:
		mes " ";
		mes "I'm sorry, this arena is full. Please try again later...";
		close;

OnInit:
		waitingroom "PvP Warper",0;
		end;
	}
}

5@tower	mapflag	zone	NoYgg


moscovia.gat,226,198,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#1	871
//askydun.gat,96,113,3	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#2	871 // Kliwa
alberta.gat,110,140,3	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#3	871 // Kliwa
aldebaran.gat,147,115,1	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#4	871 // Kliwa
amatsu.gat,207,86,3	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#5	871 // Kliwa
ayothaya.gat,155,117,2	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#6	871 // Kliwa
comodo.gat,206,80,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#7	871 // Kliwa
einbech.gat,198,83,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#8	871 // Taas Kaliwa
einbroch.gat,174,172,5	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#9	871 // Taas Kaliwa
geffen.gat,125,71,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#10	871
gonryun.gat,162,120,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#11	871
hugel.gat,89,151,5	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#12	871
izlude.gat,134,90,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#13	871
lighthalzen.gat,166,101,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#14	871
louyang.gat,214,120,5	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#15	871
xmas.gat,154,136,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#16	871
morocc.gat,160,97,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#17	871
payon.gat,148,226,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#18	871
rachel.gat,135,115,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#19	 871
veins.gat,219,127,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#20	871
yuno.gat,163,170,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#21	871
umbala.gat,106,159,3	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#22	871
poring_c02,139,81,4	duplicate(Ultimate PvP Warper)	Ultimate PvP Warper#23	871

and add this to your map_zone_db

add as many items as you want

,
{
	name: "NoYgg"

	disabled_items: {
		Yggdrasilberry: true
		Seed_Of_Yggdrasil: true
	}
}

NOTE: all room warps you in the same map 5@tower, (edit each and put your corresponding map)

you can use BrowEdit to clone maps

prontera,166,187,4	script	Piercing Expert	4_M_BABYCAT,{
	mes .n$ = "[Piercing Expert]";
	mes "I have been researching ways to use ^0000FF"+getitemname(.item_req)+"^000000 to put a socket on some headgears.";
	next;
	switch(select("Guide:Headgear List:Use Piercing Service")) {
	case 2:
		callsub OnMenuGen;
		close;
	case 3: 
		if (countitem(.headgear_list) == 0) {
		mes .n$;
		mes "You don't have any of the listed items.";
		close;
		}
	break;
	case 1:
		.@rate$ = ((.rate_setting == 1) ? "but only at ^0000FF"+.success_rate[0]+"^000000%" : "on different");
		mes .n$;
		mes "It was successful, "+.@rate$+" success rate. If you are willing to try your luck and some risk, just bring me a ^0000FF"+getitemname(.item_req)+"^000000 and the headgear.";
		next;
		mes .n$;
		mes "You can use ^0000FF"+getitemname(.item_prot)+"^000000 to prevent losing the item if socketing fails.";
		next;
		mes .n$;
		mes "You can also use ^0000FF"+getitemname(.inc_chance[0])+"^000000, to increase your success chance by an additional ^0000FF"+.inc_chance[1]+"^000000%.";
		close;
	}
	callsub OnMenuGen;
	next;
	mes .n$;
	mes "If I fail your ^0000FF"+getitemname(.headgear_list[.@s])+"^000000 will be destroyed. Do you still want to have it pierced?";
	next;
	if (select("Yes:No") == 2) {
		mes .n$;
		mes "All right, "+callfunc("F_Bye");
		close;
	}

	if (countitem(.item_prot)) {
		mes .n$;
		mes "Do you want to use ^0000FF"+getitemname(.item_prot)+"^000000?, it will prevent losing breaking the item if the process fails.";
		next;
		.@p = select("No:Yes") -1;
	}

	if (countitem(.inc_chance[0])) {
		mes .n$;
		mes "Do you want to use ^0000FF"+getitemname(.inc_chance[0])+"^000000?, it increase your success chance by ^0000FF"+.inc_chance[1]+"^000000%.";
		next;
		.@c = select("No:Yes") -1;
	}

	.@rate = ((.rate_setting == 1) ? .success_rate[0] : .success_rate[.@s]);
	.@rate$ = ((.rate_setting == 1) ? .success_rate[0]+"%" : .success_rate[.@s]+"%");

	if (.@c) {
		delitem .inc_chance[0],1;
		.@rate += .inc_chance[2];
	}
	
	progressbar "0xFFFFFF",2;
	if (rand(99) > .@rate) {
		if (!.@p)
		specialeffect2 .effect_f;
		delitem .item_req,1;
		delitem .headgear_list[.@s],1;
		mes .n$;
		mes "Oh, my... I failed.";
		mes "I told you it was only "+.@rate$+" chance.";
		mes "There's always a next time!";
		close;
	}
	if (.@p)
	specialeffect2 .effect_s;
	delitem .item_prot,1;
	delitem .item_req,1;
	delitem .headgear_list[.@s],1;
	getitem .headgear_list2[.@s],1;
	mes .n$;
	mes "Wow!, It was a success.";
	close;

OnMenuGen:
	.@menu$ = "";
	for (.@i = 0;
	.@i < getarraysize(.headgear_list);
	.@i++) {
		.@menu$ += getitemname(.headgear_list[.@i])+":";
	}
	mes .n$;
	mes "Select a headgear to see the difference before and after piercing"+((.rate_setting == 2) ? "and Rate of success" : "")+".";
	next;
	.@s = select(.@menu$) -1;
	explode(.@item_diff$, .diff_change$[.@s], "|");
	mes .n$;
	mes getitemname(.headgear_list[.@s])+":";
	if (.rate_setting == 2) {
		mes "Rate: "+.success_rate[.@s];
	}
	mes "Before: ^0000FF"+.@item_diff$[0]+"^000000";
	mes "After:   ^0000FF"+.@item_diff$[1]+"^000000";
	mes "How tempting...";
	return;

OnInit:
	//rate_setting:
	//1 = Chance will only use the first value of .success_rate
	//2 = All headgear will have different chance, set the chance on .success_rate array
	set .rate_setting,1;
	setarray .success_rate, 20, 20;
	set .item_req,6396;							// item req for piercing	//Auger
	set .item_prot,7345;						// item that will protect the item from breaking	//handcuff
	setarray .inc_chance,6242,10;				// item that will increase the chance of slotting the item	<item_id>, <increase chance>	midgard coin
	set .effect_s,154;							// success effect
	set .effect_f,155;							// fail effect
	//Headgear list that can be pierced
	setarray .headgear_list, 2286, 18599;
	//Headgear list exchange of the pierced headgear
	setarray .headgear_list2, 18507, 18603;

	//Item Comparisson Preview Info
	setarray .diff_change$, 
	"Unslotted|Slotted",
	"All Stats +2, Unslotted|All Stats +1, Slotted";

	//Do not touch it from here, insanity check;
	if (getarraysize(.headgear_list) != getarraysize(.headgear_list2)) {
		logmes "Piercing Expert: Error! Different array size on Headgear List.";
		disablenpc "Piercing Expert";
		end;
	}
	if (.rate_setting < 1 || .rate_setting > 2) .rate_setting = 1;
	if (.rate_setting == 2) {
		if (getarraysize(.headgear_list) != getarraysize(.success_rate)) {
			logmes "Piercing Expert: Error! Different size on headgear list ["+getarraysize(.headgear_list)+"] and success rate ["+getarraysize(.succes_rate)+"]";
			disablenpc "Piercing Expert";
		}
	}
	end;
}

i edited the script like this, fixed somethings but its still buggy,

#1 i can chose the 2nd headgear from the list even if i dont have it as long as i have the 1st headgear (elven ears) on my inventory and the enchantment can proceed

#2 the protection item (handcuffs) is not deleted if the process fails even if you have chosen to use it

can someone check and correct this script. tnx

thanks bro.. i did fix again your script     

and i remove the elven ears on the script yay...   

this is perfect... i wanna say

thank you so much again @Litro  

can you share the script sir? 

solved mine, used another client (20141022b) the one defaulted @mmo.h

idk what the problem was i just can't connect to the map server after login with 2015-05-13 (no error or anything)