Runnes Remover Help

[EL Dragon]

I am looking for a possibility to removing, the runnen

 

 

hope it can someone help me 

 

 

 

 

this is my script

event,95,88,0	script	Runes Enchanter	627,{
	function ReturnName;
	mes "["+.name$+"]";
	mes strcharinfo(0)+", was kann ich für dich tun?";
	@s_menu = select("Customs verzaubern:Information:^ff0000Abbrechen^000000");
	next;
	mes "["+.name$+"]";
	if (@s_menu==3){mes "Danke für die Benutzung meines Services."; close;}
	if (@s_menu==2){
		mes "Ich kann Runen in deine Customs einbauen.";
		mes "Du solltest das Custom Item tragen um es verzaubern zu lassen.";
		mes "Du musst außerdem Runen in deinem Inventar haben.";
		next;
		mes "["+.name$+"]";
		mes "Das verzaubern kostet dich keinen Zeny!";
		mes "Die Runen kommen in das spezielle Slot.";
		close;
	}
	mes "Wähle ein Custom zum verzaubern:";
	@s_menu = select(
			"Upper Headgear - ^00FF00"+ReturnName(EQI_HEAD_TOP,1)+
			"^000000:Middle Headgear - ^00FF00"+ReturnName(EQI_HEAD_MID,1)+
			"^000000:Lower Headgear - ^00FF00"+ReturnName(EQI_HEAD_LOW,1)
		);
	next;
	mes "["+.name$+"]";
	@item_id = getequipid(@s_menu);
	mes "S:"+ReturnName(@s_menu,2);
	if (ReturnName(@s_menu,2)==0){mes "Ich kann dieses Item nicht verzaubern."; close; }
	if (@item_id==-1){mes "Du hast kein verzauberbares Item an."; close;}
	if (getequipcardcnt(@s_menu)==4){mes "Sorry, du hast bereits Cards drinnen!"; close;}
	@card0 = getequipcardid(@s_menu,0);
	@card1 = getequipcardid(@s_menu,1);
	@card2 = getequipcardid(@s_menu,2);
	@card3 = getequipcardid(@s_menu,3);
	@refine = getequiprefinerycnt(@s_menu);
	if (@card1){mes "Du hast keinen freien Slot."; close;}
	mes "Welche Rune soll in welchen Slot?";
	next;
	mes "["+.name$+"]";
	deletearray @Rune_list[0],256;
	deletearray @inventorylist_id[0],256;
	@inventorylist_count = 0;
	@k = 0;
	.@s_menu_select$ = "";
	mes "Wähle eine Rune aus:";
	getinventorylist;
	for (.@i=0; .@i<@inventorylist_count; .@i++){
		if (@inventorylist_id[.@i] < .RuneRange[0] || @inventorylist_id[.@i] > .RuneRange[1]){ continue;}
		@Rune_list[@k] = @inventorylist_id[.@i];
		@k++;
		.@s_menu_select$ = .@s_menu_select$ +"- ^00FF00"+getitemname(@inventorylist_id[.@i])+"^000000:";
	}
	.@s_menu_select$ = .@s_menu_select$ +"- ^ff0000Abbrechen^000000";
	.@i = select(.@s_menu_select$);
	if (.@i>getarraysize(@Rune_list)) { next; mes "["+.name$+"]"; mes "Danke für die Benutzung meines Services."; close;}
	@RuneID = @Rune_list[.@i-1];
	next;
	mes "["+.name$+"]";
	if (getequipid(@s_menu) != @item_id){mes "Versuchst du mich zu verarschen?"; close;}
	unequip(@s_menu);
	if(!countitem2(@item_id,1,@refine,0,@card0,@card1,@card2,@card3)){mes "Versuchst du mich zu verarschen?"; close;}
	delitem2 @item_id,1,1,@refine,0,@card0,@card1,@card2,@card3;
	@card1 = @RuneID;
	delitem @RuneID,1;
	getitem2 @item_id,1,1,@refine,0,@card0,@card1,@card2,@card3;
	mes "Item verzaubert.";
	equip @item_id;
	close;
	
function ReturnName {
	.@fine = 0;
	.@equip_id = getequipid(getarg(0));
	for (.@i=0; .@i < getarraysize(.CustomRange); .@i=.@i+2){
		if (.@equip_id < .CustomRange[.@i] || .@equip_id > .CustomRange[.@i+1]){ .@fine=0; continue;}
		else{ .@fine = 1; break; } 
	}
	if (.@fine==1){
		set .@a$,(getequipid(getarg(0))?getequipname(getarg(0)):"");
	}
	if (getarg(1)==1){
		return .@a$;
	}
	return .@fine;
}



OnInit:
	set .name$,"Rune Enchanter";
	setarray .RuneRange[0],40100, 40126;	//RuneRange1,RuneRange2 30141
	setarray .CustomRange[0],40127, 40783;	//CustomID Range. (1,2,3,4,....)
	end;
}

 

there is no possibility to removing, runes?

 

hope someone knows a solution 

Nobody can help me ?

Edited August 8, 2014 by EL Dragon