Joseph

2620

2618

2616

2612

Set your own restricted words. map,x,y,z script Name -1,{ end; OnInit: setarray .@w$, "fuck","noob","lol"; // Restricted Words for ( set .@i, 0; .@i < getarraysize(.@w$); set .@i, .@i + 1 ) defpattern 1,".*"+.@w$[.@i]+".*","OnRestrict"; activatepset 1; end; OnRestrict: dispbottom "You will be banned for 1 year for saying the restricted word in 5 seconds."; sleep2 5000; atcommand "@ban +1y " + strcharinfo(0); end; }

2608

Here it is.. map,x,y,z script Name 100,{ set .@z, 1000000000; // Zeny (Default: 1b) setarray .@v, 1234,4321; // <ItemID1>,<ItemID2>{...} set .@n$, "[Valkyrie Helm Changer]"; // NPC Name for ( set .@i, 0; .@i < getarraysize(.@v); set .@i, .@i + 1 ) { set .@menu$, .@menu$ + getitemname(.@v[.@i]) + ":"; if ( countitem(.@v[.@i]) > 0 ) setarray .@tmp[getarraysize(.@tmp), .@v[.@i]; } mes .@n$; mes "Which Valkyrie Helm would you like to have?"; set .@j, select ( .@menu$ ) - 1; set .@k, 0; if ( getarraysize(.@tmp) > 1 ) { set .@menu$, ""; for ( set .@i, 0; .@i < getarraysize(.@tmp); set .@i, .@i + 1 ) set .@menu$, .@menu$ + getitemname(.@tmp[.@i]) + ":"; mes .@n$; mes "There are more than one Valkyrie Helm in your inventory."; mes "Please select one to be exchanged."; set .@k, select ( .@menu$ ) - 1; } next; mes .@n$; if ( !.@tmp ) { mes "You need a Valkyrie Helm to use my services."; close; } if ( Zeny < .@z ) { mes "You need " + .@z + "z to use my services."; close; } mes "Thank you!"; close2; delitem .@tmp[.@k], 1; getitem .@v[.@j], 1; set Zeny, Zeny - .@z; end; }

O_O Okay. No idea. Probably others can help you with this.

2604

2600

2598

Try this. Not tested though. map,x,y,z script Name 100,{ setarray .@v, 1234,100, 4321,1000; //<ItemID>,<Zeny>{...} set .@n$, "[Valkyrie Helm Changer]"; for ( set .@i, 0; .@i < getarraysize(.@v); set .@i, .@i + 2 ) { set .@menu$, .@menu$ + getitemname(.@v[.@i]) + ":"; if ( countitem(.@v[.@i]) > 0 ) setarray .@tmp[getarraysize(.@tmp), .@v[.@i]; } mes .@n$; mes "Which Valkyrie Helm would you like to have?"; set .@j, select ( .@menu$ ) - 1; set .@k, 0; if ( getarraysize(.@tmp) > 1 ) { set .@menu$, ""; for ( set .@i, 0; .@i < getarraysize(.@tmp); set .@i, .@i + 1 ) set .@menu$, .@menu$ + getitemname(.@tmp[.@i]) + ":"; mes .@n$; mes "There are more than one Valkyrie Helm in your inventory."; mes "Please select one to be exchanged."; set .@k, select ( .@menu$ ) - 1; } next; mes .@n$; if ( !.@tmp ) { mes "You need a Valkyrie Helm to use my services."; close; } if ( Zeny < .@v[.@j+1] ) { mes "You need " + .@v[.@j+1] + "z to use my services."; close; } mes "Thank you!"; close2; delitem .@tmp[.@k], 1; getitem .@v[.@j], 1; set Zeny, Zeny - .@v[.@j+1]; end; }

Great work!

I think your guild has 22 members before you changed the cap to 13. Try kicking some members.

2596

Transferring to rAthena is worth it. Back to the topic.. You can try rAthena battleground's scripts, but test it before you use. It shouldn't be a problem if the scripts doesn't have any new script commands.

Ah I saw your problem. switch(select("Yes, please!::No thanks!")) Remove one of the ":" and it should work fine.

2593

2588

mes (test$ != gettimestr("%m",4))?"Minute changes.":"Minute doesn't change."; close2; set test$, gettimestr("%m",4); end;

2586

2583

Inflict Damage towards Demi Human by 10% bonus2 bAddRace,RC_DemiHuman,10; Reduce Damage from Demi Human, where x = % bonus2 bSubRace,RC_DemiHuman,x;

{ if (Class == Job_Gunslinger) { bonus bDex,5; bonus bStr,5; } },{},{}

EDITED: O_O I'm slow.