help with this npc tia

K

kerbiii

New member
Messages
342
Points
0
1. NPC that will warp you to a specific map if:
- novice only
- level 1 only
- no items equip
- no items on inventory
- no items at all
- 1m entrance free
 
2. NPC that will warp you to prontera:
    - no items equipped (if no equipped next) (if with equipped reject)
upon warping:
 - delete all items in the inventory
 - reset job into novice b/jlvl 1
 - autosave on prontera,x,y,
 
3. NPC that will warp you if:

- must be in the party
- no same job in the party
- autosave infront of the npc


 
Sample1 = first request

Sample2 = second request

Sample3 = third request

Didn't test though ( /me lazy ). Just a side note i just copy the function of @KeyWorld here ( http://rathena.org/board/topic/66255-party-checker-job/?p=118481 ) so credits to him. If any error occur post it. 

Code: 
prontera,150,150,0	script	Sample1	100,{	getinventorylist;	query_sql "SELECT `nameid` FROM `storage` WHERE `account_id` = '" +getcharid(3)+ "'", .@names;	if ( ( BaseClass == Job_Novice ) && ( BaseLevel == 1 ) && ( Zeny > 1000000 ) && ( @inventorylist_count == 0 ) && ( !.@names ) ) {		for ( .@i = 1; .@i < 15; .@i++ ) {			if ( getequipid(.@i) == -1 ) {				mes "Where you want to warp?";				next;				input .@map$;				Zeny -= 1000000;				warp .@map$,0,0;				close;			}		}	}}prontera,153,153,0	script	Sample2	100,{	for ( .@i = 1; .@i < 15; .@i++ ) {		if ( getequipid(.@i) == -1 ) {			getinventorylist;			for ( set .@a, 0; .@a < @inventorylist_count; .@a++ ) {				delitem @inventorylist_id[.@a], @inventorylist_amount[.@a];			}			jobchange Job_Novice;			BaseLevel = 1;			JobLevel = 1;			savepoint "prontera",150,150;			end;		}	}}prontera,156,156,0	script	Sample3	100,{	if ( getcharid(2) ) {		if ( callfunc("party_has_duplicate_job") ) {			mes "It seems that someone in the party has the same class than another member. Please check again the requirements...";			close;		}		getmapxy .@map$, .@x, .@y, 0;		savepoint .@map$, .@x, .@y;		end;	}}function	script	party_has_duplicate_job{	set .@party_id, getarg( 0, getcharid(1) );	// Need to have a party.	if ( .@party_id != 1 )	{		return -1;	}	// Loading party members variables	getpartymember getcharid(1),1;	getpartymember getcharid(1),2;	// Keep rid attached.	set .@rid, playerattached();	// Check all members	for ( set .@i,0; .@i<$@partymembercount; set .@i, .@i+1 )	{		// Online user		if ( isloggedin( $@partymemberaid[.@i], $@partymembercid[.@i]) )		{			// Attach the member to access "Class"			attachrid( $@partymemberaid[.@i] );			if ( compare( .@tmp_class$ + "|", "|" + Class + "|" ) )			{				if ( .@rid )					attachrid(.@rid);				else					detachrid;				return 1;			}			set .@tmp_class$, .@tmp_class$ + "|" + Class;		}		// Offline user (use sql)		else		{			set .@sql$, .@sql$ + ( .@sql_i ? "OR " : "" ) "`char_id`='" + $@partymembercid[.@i] + "' ";			set .@sql_i, .@sql_i + 1;		}	}	// SQL for offline users	if ( getstrlen(.@sql$) )	{		// get class from offline members		set .@count, query_sql("SELECT `class` FROM `char` WHERE " + .@sql$, .@class );		// Check the class.		for ( set .@i, 0; .@i<.@count; set .@i, .@i+1 )		{			if ( compare( .@tmp_class$ + "|", "|" + .@class[.@i] + "|" ) )			{				if ( .@rid )					attachrid(.@rid);				else					detachrid;				return 1;			}			set .@tmp_class$, .@tmp_class$ + "|" + .@class[.@i];		}	}		// Restore RID.	if ( .@rid )		attachrid(.@rid);	else		detachrid;	return 0;}
 
Patskie said:
Sample1 = first request

Sample2 = second request

Sample3 = third request

Didn't test though ( /me lazy ). Just a side note i just copy the function of @KeyWorld here ( http://rathena.org/board/topic/66255-party-checker-job/?p=118481 ) so credits to him. If any error occur post it. 

prontera,150,150,0 script Sample1 100,{ getinventorylist; query_sql "SELECT `nameid` FROM `storage` WHERE `account_id` = '" +getcharid(3)+ "'", .@names; if ( ( BaseClass == Job_Novice ) && ( BaseLevel == 1 ) && ( Zeny > 1000000 ) && ( @inventorylist_count == 0 ) && ( !.@names ) ) { for ( .@i = 1; .@i < 15; .@i++ ) { if ( getequipid(.@i) == -1 ) { mes "Where you want to warp?"; next; input .@map$; Zeny -= 1000000; warp .@map$,0,0; close; } } }}prontera,153,153,0 script Sample2 100,{ for ( .@i = 1; .@i < 15; .@i++ ) { if ( getequipid(.@i) == -1 ) { getinventorylist; for ( set .@a, 0; .@a < @inventorylist_count; .@a++ ) { delitem @inventorylist_id[.@a], @inventorylist_amount[.@a]; } jobchange Job_Novice; BaseLevel = 1; JobLevel = 1; savepoint "prontera",150,150; end; } }}prontera,156,156,0 script Sample3 100,{ if ( getcharid(2) ) { if ( callfunc("party_has_duplicate_job") ) { mes "It seems that someone in the party has the same class than another member. Please check again the requirements..."; close; } getmapxy .@map$, .@x, .@y, 0; savepoint .@map$, .@x, .@y; end; }}function script party_has_duplicate_job{ set .@party_id, getarg( 0, getcharid(1) ); // Need to have a party. if ( .@party_id != 1 ) { return -1; } // Loading party members variables getpartymember getcharid(1),1; getpartymember getcharid(1),2; // Keep rid attached. set .@rid, playerattached(); // Check all members for ( set .@i,0; .@i<$@partymembercount; set .@i, .@i+1 ) { // Online user if ( isloggedin( $@partymemberaid[.@i], $@partymembercid[.@i]) ) { // Attach the member to access "Class" attachrid( $@partymemberaid[.@i] ); if ( compare( .@tmp_class$ + "|", "|" + Class + "|" ) ) { if ( .@rid ) attachrid(.@rid); else detachrid; return 1; } set .@tmp_class$, .@tmp_class$ + "|" + Class; } // Offline user (use sql) else { set .@sql$, .@sql$ + ( .@sql_i ? "OR " : "" ) "`char_id`='" + $@partymembercid[.@i] + "' "; set .@sql_i, .@sql_i + 1; } } // SQL for offline users if ( getstrlen(.@sql$) ) { // get class from offline members set .@count, query_sql("SELECT `class` FROM `char` WHERE " + .@sql$, .@class ); // Check the class. for ( set .@i, 0; .@i<.@count; set .@i, .@i+1 ) { if ( compare( .@tmp_class$ + "|", "|" + .@class[.@i] + "|" ) ) { if ( .@rid ) attachrid(.@rid); else detachrid; return 1; } set .@tmp_class$, .@tmp_class$ + "|" + .@class[.@i]; } } // Restore RID. if ( .@rid ) attachrid(.@rid); else detachrid; return 0;}
Click to expand...
wow thnx for the last reply, i will test it now, will post the result after

 
1. Working
2. Working

3. Cart Items are not delete

 
Last edited by a moderator:
I try on my test server and it is working 

 
For third request (no duplicate jobs in party) deleting items from cart it's not useful, so I think you mean the cart items aren't being deleted in the second request.

Cart items are just like a second storage and aren't officially removed if, for example, you rebirth a Blacksmith or Alchemist since when you get back to High Merchant the're still there, so it'd be normal if "resetted" players still had their cart content, isn't it?

 
I should instead use clearitem commands instead of loops and inventory list comand :

*clearitem;This command will destroy all items the invoking character has in theirinventory (including equipped items). It will not affect anything else,like storage or cart.
Back to business, If you want to delete cart items of an invoking player you need to run a sql query for that ( i think unless there is a command in hercules that deletes cart items ). You can add this to my script.

Change : 

mes "Where you want to warp?";next;input .@map$;Zeny -= 1000000;warp .@map$,0,0;close;
to :

if ( checkcart() ) { query_sql "SELECT `nameid` FROM `cart_inventory` WHERE `char_id` = '" +getcharid(0)+ "'",.@a; if ( .@a ) end;}mes "Where you want to warp?";next;input .@map$;Zeny -= 1000000;warp .@map$,0,0;close;
Be sure next time you are more specific when you are requesting scripts. Not tested!

 
Patskie said:
I should instead use clearitem commands instead of loops and inventory list comand :

*clearitem;This command will destroy all items the invoking character has in theirinventory (including equipped items). It will not affect anything else,like storage or cart.
Back to business, If you want to delete cart items of an invoking player you need to run a sql query for that ( i think unless there is a command in hercules that deletes cart items ). You can add this to my script.

Change : 

mes "Where you want to warp?";next;input .@map$;Zeny -= 1000000;warp .@map$,0,0;close;
to :

if ( checkcart() ) { query_sql "SELECT `nameid` FROM `cart_inventory` WHERE `char_id` = '" +getcharid(0)+ "'",.@a; if ( .@a ) end;}mes "Where you want to warp?";next;input .@map$;Zeny -= 1000000;warp .@map$,0,0;close;
Be sure next time you are more specific when you are requesting scripts. Not tested!
Click to expand...
one last thing how to add the cart wipe script on the sample 2?

 
You must log in or register to reply here.
Back
Top