//#################################################################################
//# #
//# this script file contains the script for the cloth dyer. It first needs a #
//# large amount of money to unlock (cooporative quest). Then it will exchange #
//# Cotton Shirts, T-Neck Sweaters and V-Neck Sweaters for colored versions #
//# of them. #
//# #
//#################################################################################
new_19-1.gat,59,47,0 script Dyer 142, {
if ($QUEST_clothdyer_collected > 500000000) goto L_paid;
if (QUEST_clothdyer_state == 1) goto L_shortversion;
mes "[Cloth Dyer]";
mes "*snif* The world is so unfair!";
next;
menu "I know. Goodbye!", close, "What's wrong?", -;
mes "I came to the mana world to open a cloth";
mes "dying shop. But when I bought my machine";
mes "here it fell down and now it is broken.";
next;
menu "Can't it be repaired?", -;
mes "Yes, it can, but the replacement parts are";
mes "very expensive.";
mes "They cost 500 million GP!";
mes "I only got " + $QUEST_clothdyer_collected + "gp yet.";
set QUEST_clothdyer_state, 1;
next;
goto L_donate;
L_shortversion:
mes "Please help me to collect the money to";
mes "repair my dyeing machine.";
mes "I need 500000000gp";
mes "I already got " + $QUEST_clothdyer_collected + "gp";
next;
L_donate:
menu
"Sorry, I am poor myself.", -,
"Here are 1.000gp", L_donate_1k,
"Here are 5.000gp", L_donate_5k,
"Here are 10.000gp", L_donate_10k,
"Here are 50.000gp", L_donate_50k,
"Here are 100.000gp", L_donate_100k,
"Here are 500.000gp", L_donate_500k,
"Here are 1.000.000gp", L_donate_1m,
"Here are 5.000.000gp", L_donate_5m,
"Here are 10.000.000gp", L_donate_10m,
"Here are 50.000.000gp", L_donate_50m;
mes "What a pity. But I heard that there are some";
mes "incredable rich people in this world who have";
mes "more money than they could ever spend.";
mes "Maybe you could persuade them to give me";
mes "some money.";
close;
L_donate_1k:
if (zeny < 1000) goto L_nomoney;
set zeny, zeny - 1000;
set $QUEST_clothdyer_collected, $QUEST_clothdyer_collected + 1000;
goto L_thanks;
L_donate_5k:
if (zeny < 5000) goto L_nomoney;
set zeny, zeny - 5000;
set $QUEST_clothdyer_collected, $QUEST_clothdyer_collected + 5000;
goto L_thanks;
L_donate_10k:
if (zeny < 10000) goto L_nomoney;
set zeny, zeny - 10000;
set $QUEST_clothdyer_collected, $QUEST_clothdyer_collected + 10000;
goto L_thanks;
L_donate_50k:
if (zeny < 50000) goto L_nomoney;
set zeny, zeny - 50000;
set $QUEST_clothdyer_collected, $QUEST_clothdyer_collected + 50000;
goto L_thanks;
L_donate_100k:
if (zeny < 100000) goto L_nomoney;
set zeny, zeny - 100000;
set $QUEST_clothdyer_collected, $QUEST_clothdyer_collected + 100000;
goto L_thanks;
L_donate_500k:
if (zeny < 500000) goto L_nomoney;
set zeny, zeny - 500000;
set $QUEST_clothdyer_collected, $QUEST_clothdyer_collected + 500000;
goto L_thanks;
L_donate_1m:
if (zeny < 1000000) goto L_nomoney;
set zeny, zeny - 1000000;
set $QUEST_clothdyer_collected, $QUEST_clothdyer_collected + 1000000;
goto L_thanks;
L_donate_5m:
if (zeny < 5000000) goto L_nomoney;
set zeny, zeny - 5000000;
set $QUEST_clothdyer_collected, $QUEST_clothdyer_collected + 5000000;
goto L_thanks;
L_donate_10m:
if (zeny < 10000000) goto L_nomoney;
set zeny, zeny - 10000000;
set $QUEST_clothdyer_collected, $QUEST_clothdyer_collected + 10000000;
goto L_thanks;
L_donate_50m:
if (zeny < 50000000) goto L_nomoney;
set zeny, zeny - 50000000;
set $QUEST_clothdyer_collected, $QUEST_clothdyer_collected + 50000000;
goto L_thanks;
L_thanks:
mes "Thank you for your generosity.";
next;
menu
"I can give you even more", L_donate,
"I do what I can", -;
close;
L_nomoney:
mes "You don't have that much money.";
next;
goto L_donate;
L_paid:
mes "Thanks to the generous donations I received";
mes "I could finally repair my dyeing machine.";
mes "What item can I dye for you?";
next;
menu
"Cotton Shirt", L_cottonshirt,
"V-Neck Sweater", L_vneck,
"Turtleneck Sweater", L_tneck,
"nothing, thanks.", -;
close;
L_cottonshirt:
if (countitem(1202) == 0) goto L_havenone;
set @del, 1202;
set @new, 2050;
goto L_color;
L_vneck:
if (countitem(624) == 0) goto L_havenone;
set @del, 624;
set @new, 2060;
goto L_color;
L_tneck:
if (countitem(564) == 0) goto L_havenone;
set @del, 564;
set @new, 2070;
goto L_color;
L_color:
mes "What color do you want?";
next;
menu
"Red", L_color0,
"Green", L_color1,
"Dark Blue", L_color2,
"Yellow", L_color3,
"Light Blue", L_color4,
"Pink", L_color5,
"Black", L_color6,
"I've changed my mind.", -;
close;
L_color0:
set @color, 0;
goto L_finish;
L_color1:
set @color, 1;
goto L_finish;
L_color2:
set @color, 2;
goto L_finish;
L_color3:
set @color, 3;
goto L_finish;
L_color4:
set @color, 4;
goto L_finish;
L_color5:
set @color, 5;
goto L_finish;
L_color6:
set @color, 6;
goto L_finish;
L_finish:
delitem @del, 1;
getitem @new + @color, 1;
mes "Here is your colored item.";
close;
L_havenone:
mes "Sorry, but I can't find any uncolored ones in your bag.";
close;
}