Jump to content
  • 0

Error on my v4p script


chromus28

Question


  • Group:  Members
  • Topic Count:  91
  • Topics Per Day:  0.02
  • Content Count:  263
  • Reputation:   1
  • Joined:  04/25/13
  • Last Seen:  

guys can anyone help me on my v4p script? this is showing up on my putty

 

[Warning]: Unexpected type for argument 1. Expected string.
[Debug]: Data: number value=20
[Debug]: Function: compare
[Debug]: Source (NPC): Vote Shop#1 at malaya (299,350)
[Warning]: Unexpected type for argument 1. Expected string.
[Debug]: Data: number value=20
[Debug]: Function: compare
[Debug]: Source (NPC): Vote Shop#1 at malaya (299,350)
[Warning]: Unexpected type for argument 1. Expected string.
[Debug]: Data: number value=20
[Debug]: Function: compare
[Debug]: Source (NPC): Vote Shop#1 at malaya (299,350)
 
and this is the script i have
//====CHANGER====//
malaya,294,350,4	script	Voting Proof::voteproof	435,{
	
	//set .@cred2zen,10000000; //Set for you credits
	mes "[ Mr. Htnerb ]";
	mes "Hi, I am Mr. Htnerb! Here to assist you in your everyday ^008800Voting Proof Ticket^000000 needs!";
	next;
	mes "[ Mr. Htnerb ]";
	mes "So, would you like to trade your Vote Points into ^008800Voting Proof Ticket^000000?";
	menu "Inquire about Points",-,"Yes!",cred2zeny;
	next;
	mes "[ Mr. Htnerb ]";
	mes "Ok, wait for a minute. Let me check my records!";
	next;
	mes "[ Mr. Htnerb ]";
	mes "You have ^000088"+ #KAFRAPOINTS +"^000000 Vote Points.";
	dispbottom "You currently have "+ #KAFRAPOINTS +" Vote Points.";
	close;

cred2zeny:
	next;
	mes "[ Mr. Htnerb ]";
	mes "Ok, how many ^000088Vote Points^000000 would you like to convert into ^008800Voting Proof Ticket/s^000000?";
	mes "^FF0000Please be reminded that 1 Vote Point is equal to 1 Voting Proof Ticket^000000.";
	input .@vps;
	next;
	if ( .@vps < 1) goto zero;
	if ( .@vps > 30000) goto Toomeni;
	if((countitem(7227)+.@vps) >= 30000) goto Toomeni;
	//next;
	if ( #KAFRAPOINTS < .@vps) goto Tooless;
	mes "[ Mr. Htnerb ]";
	mes "Here you go.";
	set #KAFRAPOINTS,(#KAFRAPOINTS-.@vps);
	getitem 7227,.@vps;
	dispbottom "You were deducted by "+ .@vps +" Vote points. You now have a total of "+ #KAFRAPOINTS +" Vote Points.";
	next;
	mes "[ Mr. Htnerb ]";
	mes "Enjoy your ^008800Voting Proof Tickets^000000.";
	donpcevent "voteproof::OnTHX";
	close;


Toomeni:
	next;
	mes "[ Mr. Htnerb ]";
	mes "I'm sorry but you cannot hold more than ^FF00030,000^000000 items.";
	close;

Tooless:
	next;
	mes "[ Mr. Htnerb ]";
	mes "I'm sorry but you have insufficient ^000088Vote Points^000000.";
	close;

zero:
	next;
	mes "[ Mr. Htnerb ]";
	mes "I cannot work with a ^00FF000^000000!";
	close;

OnTHX:
	emotion e_thx,0;
	end;
}

//Made by Jod credits to Lunar
//Version 1.6
//6.1.09

-	shop	vote_shop1	111,501:50
malaya,299,350,4	script	Vote Shop#1	714,{
	set @i,0;
	mes "[ Annie ]";
	mes "Each item will cost you some ^008800Voting Proof Tickets^000000";
	mes "Select only one.";
	callshop "vote_shop1",1;
	npcshopattach "vote_shop1";
	end;


OnBuyItem:
	if(.BuildQuest) {
		for(set .e,0; !compare(getarg(.e+1),"Zeny"); set .e,.e+2) {}
		npcshopadditem "vote_shop1",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"SZeny");
		setarray .Shop[.i],getarg(.e+2);
		set .i,.i+1;
		goto Quest_Setup;
	}
	if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Quest_Setup; }
	for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Quest_Setup; }
	mes "[ Annie ]";
	mes "I require the following:";
	for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) mes "^880000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^008800":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
	if(getarg(@i)) mes "^880000" + ((Zeny>=getarg(@i))? "^008800":"") + "" + getarg(@i) + " Zeny";
	mes "^000000In exchange, I will give you:^000088";
	for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));
	switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) {
		case 1:
			for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {
				next;
				mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + ".";
				mes "Please obtain ^880000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000.";
				close;
			}
			if(Zeny < getarg(@i)) {
				next;
				mes "You do not have enough Zeny.";
				mes "Please obtain ^880000" + (getarg(@i)-Zeny) + " more Zeny^000000.";
				close;
			}
			for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1);
			set Zeny,Zeny-getarg(@i);
			for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1);
			if (compare(getarg(@i,0),"announce")) announce strcharinfo(0) + " has just obtained " + getitemname(@bought_nameid) + "!",bc_all;
			close;
		case 2:
			set @bottomview, getlook(3);
			set @topview, getlook(4);
			set @midview, getlook(5);
			addtimer 1000, strnpcinfo(3)+"::On_Leave";
			set @equip,getiteminfo(@bought_nameid, 5);
			set @view, getiteminfo(@bought_nameid, 11);
			if(@equip != -1 && @view > 0) {
				if(@equip & 1) atcommand "@changelook 3 " + @view;
				if(@equip & 256) atcommand "@changelook 1 " + @view;
				if(@equip & 512) atcommand "@changelook 2 " + @view;
			}
			next;
			goto OnBuyItem;
		case 3:
			close;
	}
On_Leave:
	atcommand "@changelook 1 " + @topview;
	atcommand "@changelook 2 " + @midview;
	atcommand "@changelook 3 " + @bottomview;
	set @equip,0;
	set @view,0;
	set @topview,0;
	set @midview,0;
	set @bottomview,0;
	end;
OnInit:
	npcshopitem "vote_shop1",0,0;
	set .BuildQuest,1;
	set .i,1;
Quest_Setup:
	switch(.i) {
		default: set .BuildQuest,0; set .e,0; set .i,0; end;
		case 1: callsub OnBuyItem,7227,20,20,"SZeny",5274,1;
		case 2: callsub OnBuyItem,7227,20,20,"SZeny",5274,1;
		case 3: callsub OnBuyItem,7227,20,20,"SZeny",5275,1;
		case 4: callsub OnBuyItem,7227,20,20,"SZeny",5276,1;
		case 5: callsub OnBuyItem,7227,20,20,"SZeny",5298,1;
	}
}

 

 

Link to comment
Share on other sites

1 answer to this question

Recommended Posts


  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10018
  • Reputation:   2372
  • Joined:  10/28/11
  • Last Seen:  

change all

compare(getarg

to

compare(""+getarg
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...