summaryrefslogtreecommitdiff
path: root/npc/pre-re/merchants/cashheadgear_dye.txt
diff options
context:
space:
mode:
authorshennetsind <shennetsind@54d463be-8e91-2dee-dedb-b68131a5f0ec>2012-07-08 19:30:07 +0000
committershennetsind <shennetsind@54d463be-8e91-2dee-dedb-b68131a5f0ec>2012-07-08 19:30:07 +0000
commit31825ccc2dde034a218d9ad466dd721c40b5651d (patch)
tree961b976e45988f7f7158d33b3f11a18688f34b1f /npc/pre-re/merchants/cashheadgear_dye.txt
parent22c75b070526de8b103032f5bf13504af81e0095 (diff)
downloadhercules-31825ccc2dde034a218d9ad466dd721c40b5651d.tar.gz
hercules-31825ccc2dde034a218d9ad466dd721c40b5651d.tar.bz2
hercules-31825ccc2dde034a218d9ad466dd721c40b5651d.tar.xz
hercules-31825ccc2dde034a218d9ad466dd721c40b5651d.zip
Okie ladies and gentleman if this commit breaks anything it's jman's and maki's fault, yes, blame them.
Fixing pre-re / re npc support, moving /config/ folder to src root so other servers may also make use of the #define renewal dir and other stuff. git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16382 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/pre-re/merchants/cashheadgear_dye.txt')
-rw-r--r--npc/pre-re/merchants/cashheadgear_dye.txt119
1 files changed, 119 insertions, 0 deletions
diff --git a/npc/pre-re/merchants/cashheadgear_dye.txt b/npc/pre-re/merchants/cashheadgear_dye.txt
new file mode 100644
index 000000000..fa309738a
--- /dev/null
+++ b/npc/pre-re/merchants/cashheadgear_dye.txt
@@ -0,0 +1,119 @@
+//===== rAthena Script =======================================
+//= Headgear Dyer (Cash)
+//===== By: ==================================================
+//= Xantara
+//= Maud_Dib
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= [Aegis Conversion]
+//= Change headgear's color. Cost is a Mysterious Dyestuff
+//===== Additional Comments: =================================
+//= v1.0 First / Optimized Version
+//============================================================
+
+prt_in,253,168,4 script Alora 862,{
+
+// Mysterious Dyestuff
+ set .@dyeID, 6220;
+// Headgear Choices
+ setarray .@hgn$[1], "Mage Hat","Beanie","Drooping Cat","Deviruchi Hat","Wig","Ribbon","Magestic Goat";
+// Mage Hats - Normal, Yellow, Blue, Brown, Gray, Red
+ setarray .@hg_1[1], 5027, 5242, 5241, 5240, 5239, 5238;
+// Beanies - Normal, Pink, Blue, Brown
+ setarray .@hg_2[1], 5076, 5237, 5236, 5235;
+// Drooping Cats - Normal, Blue, Brown, Gray, Pink, Yellow
+ setarray .@hg_3[1], 5058, 5233, 5231, 5230, 5232, 5234;
+// Deviruchi Hats - Normal, Red, Gray, Brown
+ setarray .@hg_4[1], 5038, 5227, 5228, 5229;
+// Wigs - Happy, Shiny, Marvelous, Fantastic
+ setarray .@hg_5[1], 5273, 5274, 5275, 5276;
+// Ribbons - Normal, Black, Yellow, Green, Pink, Red, Orange, White
+ setarray .@hg_6[1], 2208, 5191, 5192, 5193, 5194, 5195, 5196, 5197;
+// Magestic Goats - Normal, Evolved
+ setarray .@hg_7[1], 2256, 5217;
+
+ mes "[Alora]";
+ mes "Hello, I can change your headgear's color if you bring me a Mysterious Dyestuff.";
+ next;
+ mes "[Alora]";
+ mes "Do you have a headgear that you would like to dye?";
+ next;
+ for(set .@i,1; .@i < getarraysize(.@hgn$); set .@i,.@i+1) {
+ if(.@i == 1) set .@menu$, .@hgn$[.@i];
+ else set .@menu$, .@menu$ +":"+ .@hgn$[.@i];
+ }
+ set .@menu$, .@menu$ +":Cancel";
+ set .@t, select(.@menu$);
+ if(.@t == getarraysize(.@hgn$)) {
+ mes "[Alora]";
+ mes "Have a good journey adventurer!";
+ mes "If you ever are curious to try a new color on your Kafra headgear or the ones you found on your adventures please come to me!";
+ close;
+ }
+ mes "[Alora]";
+ mes "Okay, what color do you want to change it to?";
+ next;
+ for(set .@i,1; .@i < getarraysize(getd(".@hg_"+.@t+"")); set .@i,.@i+1) {
+ if(.@i == 1 && .@t != 5)
+ set .@menu$, "Normal";
+ else if(.@i == 1 && .@t == 5)
+ set .@menu$, getitemname(getd(".@hg_"+.@t+"["+.@i+"]"));
+ else {
+ sscanf(getitemname(getd(".@hg_"+.@t+"["+.@i+"]")),"%s "+ .@hgn$[.@t],.@colour$);
+ set .@menu$, .@menu$ +":"+ .@colour$;
+ }
+ }
+ set .@menu$, .@menu$ +":Cancel";
+ set .@c, select(.@menu$);
+ if(.@c == getarraysize(getd(".@hg_"+.@t+""))) {
+ mes "[Alora]";
+ mes "Oh, okay no problem!";
+ close;
+ }
+ set .@dyHG, getd(".@hg_"+.@t+"["+.@c+"]");
+ mes "[Alora]";
+ mes "Oh I'm so excited aren't you?";
+ mes "And just to be sure, what color is the "+ .@hgn$[.@t] +" you want me to use?";
+ next;
+ mes "[Alora]";
+ mes "Please understand that I'm going to use the ^FF00001st "+ .@hgn$[.@t] +" of that color in your inventory!^000000";
+ next;
+ mes "[Alora]";
+ mes "Any upgrades and cards will be dissolved by the mysterious dye, so be sure you are ok with having a ^0000FF+0 "+ getitemname(.@dyHG) +" without any cards.^000000";
+ next;
+ mes "["+ strcharinfo(0) +"]";
+ mes "Ok, thanks for the warning, I think I'll give you my";
+ next;
+ set .@menu$, "Nevermind";
+ for(set .@i,1; .@i < getarraysize(getd(".@hg_"+.@t+"")); set .@i,.@i+1) {
+ if(.@i == 1) set .@menu$, .@menu$ +":Normal "+ getitemname(getd(".@hg_"+.@t+"["+.@i+"]"));
+ else set .@menu$, .@menu$ +":"+ getitemname(getd(".@hg_"+.@t+"["+.@i+"]"));
+ }
+ set .@mine, select(.@menu$) - 1;
+ if(!.@mine) {
+ mes "[Alora]";
+ mes "It's best to be very sure, have a safe journey.";
+ close;
+ }
+ set .@myHG, getd(".@hg_"+.@t+"["+.@mine+"]");
+ if(.@dyHG == .@myHG) {
+ mes "[Alora]";
+ mes "Woah what happened?";
+ close;
+ }
+ if(!countitem(.@dyeID) || !countitem(.@myHG)) {
+ mes "[Alora]";
+ mes "Oh my, you seem to be missing something.";
+ close;
+ }
+ mes "[Alora]";
+ mes "Looks great doesn't it?!";
+ mes "I hope you'll come back to dye more pretty headgears!";
+ delitem .@dyeID,1; // Dyestuff
+ delitem .@myHG,1; // Your headgear
+ getitem .@dyHG,1; // Dyed headgear
+ close;
+} \ No newline at end of file