diff options
Diffstat (limited to 'npc/custom/item_signer.txt')
| -rw-r--r-- | npc/custom/item_signer.txt | 133 |
1 files changed, 0 insertions, 133 deletions
diff --git a/npc/custom/item_signer.txt b/npc/custom/item_signer.txt deleted file mode 100644 index 243ca29c2..000000000 --- a/npc/custom/item_signer.txt +++ /dev/null @@ -1,133 +0,0 @@ -//===== Hercules Script ====================================== -//= Sign Your Items -//===== By: ================================================== -//= Lupus -//===== Current Version: ===================================== -//= 1.1a -//===== Description: ========================================= -//= Write you name on your rare equipment or weapon ^_- -//===== Additional Comments: ================================= -//= 1.1 Cleaned and edited for general use. [Euphy] -//= 1.1a Added 'disable_items' command. [Euphy] -//============================================================ - -prt_in,24,61,7 script Perchik 1_M_01,{ - - setarray .@item[0],644,3; // Item requirements: <ID>,<Count>{,...} (0 to disable) - setarray .@cost[0],0,5000; // Zeny requirements: <base price>,<price per refine> - - disable_items; - mes "[Perchik]"; - mes "I can ^0055FFsign your name^000000 on almost any rare item you hold."; - next; - if(select("Tell me more...:Sign my items, please!") == 1) { - mes "[Perchik]"; - mes "I can put your name on any slotless equipment or weapon."; - emotion e_ic; - next; - mes "[Perchik]"; - if (getarraysize(.@item) || getarraysize(.@cost)) { - mes "For my work I accept:"; - if (getarraysize(.@item)) for(set .@i,0; .@i<getarraysize(.@item); set .@i,.@i+2) - mes " ~ "+.@item[.@i+1]+"x "+getitemname(.@item[.@i]); - if (.@cost[0]) mes " ~ "+.@cost[0]+" Zeny"; - if (.@cost[1]) mes " ~ "+.@cost[1]+" Zeny per refine"; - } - else mes "I work for free, but..."; - next; - emotion e_cry; - mes "[Perchik]"; - mes "Alas, I have 12 hungry children"; - mes "and a very angry wife."; - next; - mes "[Perchik]"; - mes "Or it was 12 angry children"; - mes "and a very hungry wife..."; - emotion e_hmm; - close; - } - mes "[Perchik]"; - mes "Show me your items to sign..."; - next; - setarray .@pos$[1],"Upper Headgear","Armor","Left hand","Right hand","Garment","Footgear","Left Accessory","Right Accessory","Mid Headgear","Lower Headgear"; - set .@menu$,""; - for (set .@i,1; .@i<=10; set .@i,.@i+1) { - if (getequipisequiped(.@i)) - set .@menu$, .@menu$+.@pos$[.@i]+" [^0055FF"+getequipname(.@i)+"^000000]"; - set .@menu$, .@menu$+":"; - } - set .@part, select(.@menu$); - set .@id, getequipid(.@part); - set .@ref, getequiprefinerycnt(.@part); - mes "[Perchik]"; - if (!getequipisequiped(.@part)) { - mes "Nothing is equipped there!"; - emotion e_wah; - close; - } - for(set .@i,0; .@i<4; set .@i,.@i+1) - set .@slot[.@i], getequipcardid(.@part,.@i); - if (.@slot[0]==255 || .@slot[0]==254 || .@slot[0]<0) { - mes "Alas, this item's already signed."; - mes "I would never touch a master's work."; - emotion e_hmm; - close; - } - if (.@slot[0]>4000 && .@slot[0]<5000) { - mes "A card? Here?!"; - mes "As I said before, I don't sign items with cards."; - emotion e_hmm; - close; - } - if (getiteminfo(.@id,10)) { - mes "Sorry, I don't sign slotted items."; - emotion e_sry; - close; - } - getinventorylist; - for(set .@i,0; .@i<@inventorylist_count; set .@i,.@i+1) - if (@inventorylist_expire[.@i] != 0) { - mes "Sorry, I don't sign rental items!"; - emotion e_hmm; - close; - } - set .@price, .@cost[0]+(.@cost[1]*.@ref); - if (getarraysize(.@item) || .@price) { - mes "I will need:"; - if (getarraysize(.@item)) for(set .@i,0; .@i<getarraysize(.@item); set .@i,.@i+2) { - mes " ~ "+.@item[.@i+1]+"x "+getitemname(.@item[.@i]); - if (countitem(.@item[.@i]) < .@item[.@i+1]) set .@nr,1; - } - if (.@price) mes " ~ "+.@price+" Zeny"; - } - mes "Shall I sign your ^0055FF"+getitemname(.@id)+"^000000?"; - next; - if(select("Ok!:Leave")==2) { - mes "[Perchik]"; - mes "See you..."; - emotion e_yawn; - close; - } - mes "[Perchik]"; - if (Zeny < .@price || .@nr) { - mes "I don't work for 'thanks'."; - emotion e_sry; - close; - } - if (!countitem2(.@id,1,.@ref,0,.@slot[0],.@slot[1],.@slot[2],.@slot[3])) { - mes "Where is "+getitemname(@id)+"...?"; - npctalk "You're a snoozy cheater!"; - logmes "CHEATER: Tried to sign an item not having it: "+getitemname(@id); - emotion e_wah; - close; - } - if (.@price) Zeny -= .@price; - if (getarraysize(.@item)) for(set .@i,0; .@i<getarraysize(.@item); set .@i,.@i+2) - delitem .@item[.@i], .@item[.@i+1]; - delitem2 .@id,1,1,.@ref,0,.@slot[0],.@slot[1],.@slot[2],.@slot[3]; - mes "Done!"; - emotion e_proud; - getitem2 .@id,1,1,.@ref,0,254,0,getcharid(0)&0xffff,(getcharid(0)>>16)&0xffff; - equip .@id; - close; -} |