script not working

[caspa]

	
	        mes "Card removal cost 200,000 zeny.";
	
	
	        mes "  ";
	
	
	        mes "  ";
	
	
	        mes "Continue?";
	
	
	        next;
	
	
	        switch(select("Yes:No")) {
	
	
	 
	
	
	case 1:
	
	
	setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
	
	
	                        set .@menu$,"";
	
	
	                        for( set .@i,1; .@i <= 10; set .@i,.@i+1 )
	
	
	                        {
	
	
	                        if( getequipisequiped(.@i) )
	
	
	                        set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
	
	
	                        set .@menu$, .@menu$ + ":";
	
	
	                        }
	
	
	                //====================================================//
	
	
	                //      set .@part,select(.@menu$);                   //
	
	
	                //      if ( getequipisequiped(.@part) ){             //
	
	
	                //      mes "[ Ultimate Kafra ]";                     //
	
	
	                //      mes "You're not wearing anything...";         //
	
	
	                //      close;                                        //
	
	
	                //====================================================//
	
	
	                        }
	
	
	                        if(getequipcardcnt(.@part) == 0) {
	
	
	                                mes "[ Ultimate Kafra ]";
	
	
	                                mes "There is no card on this item....";
	
	
	                                close;
	
	
	                        }
	
	
	                        set .@cardcount,getequipcardcnt(.@part);
	
	
	                       
	
	
	                        if (!checkweight(1202,(.@cardcount+1))) {
	
	
	                                mes "I'm sorry, but you're carrying too much stuff.";
	
	
	                                mes "Please free some weight...";
	
	
	                                close;
	
	
	                        }
	
	
	

the part where it's circled is not working can anybody help please...
  Edited May 31, 2013 by caspa

[Jaburak]

Can you post the full script?

[caspa]

BUMP

Edited May 31, 2013 by caspa

[Jaburak]

mes "[ Ultimate Kafra ]";

mes "Card removal cost 200,000 zeny.";

mes " ";

mes " ";

mes "Continue?";

next;

switch(select("Yes:No")) {

case 1:

setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";

set .@menu$,"";

for( set .@i,1; .@i <= 10; set .@i,.@i+1 )

{

if( getequipisequiped(.@i) )

set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";

set .@menu$, .@menu$ + ":";

}

set .@part,select(.@menu$);

if(!getequipisequiped(.@part)) {

mes "[ Ultimate Kafra ]";

mes "You're not wearing anything...";

close;

}

if(getequipcardcnt(.@part) == 0) {

mes "[ Ultimate Kafra ]";

mes "There is no card on this item....";

close;

}

set .@cardcount,getequipcardcnt(.@part);

if (!checkweight(1202,(.@cardcount+1))) {

mes "I'm sorry, but you're carrying too much stuff.";

mes "Please free some weight...";

close;

}

mes "[ Ultimate Kafra ]";

mes "Remove " + .@cardcount + " card(s) in " + getequipname(.@part) + "["+getitemslots( getequipid(.@part) )+"] Item?";

next;

menu "Yes",yesremove,"No",noremove;

noremove:

mes "[ Ultimate Kafra ]";

mes "Okay, suit yourself.";

close;

yesremove:

if ( zeny < 200000){

mes "[ Ultimate Kafra ]";

mes "Hey, you don't have enough zeny.";

close;

}

mes "[ Ultimate Kafra ]";

mes "Please wait...";

mes " ";

mes " ";

sleep2 100;

mes "^009900*Uncompound Successful*^000000";

set zeny,zeny - 200000;

next;

successremovecards .@part;

mes "[ Ultimate Kafra ]";

mes "Here's your Item...";

close;

case 3:

mes "Okay, comeback when you need my service.";

close;

}

}

[caspa]

BUMP

Edited May 31, 2013 by caspa

[Jaburak]

Remove:

set .@part,select(.@menu$);

[caspa]

[sOLVED]

Edited May 31, 2013 by caspa