viewing paste Unknown #41654 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358
//================= Hercules Script =======================================
//=       _   _                     _
//=      | | | |                   | |
//=      | |_| | ___ _ __ ___ _   _| | ___  ___
//=      |  _  |/ _ \ '__/ __| | | | |/ _ \/ __|
//=      | | | |  __/ | | (__| |_| | |  __/\__ \
//=      \_| |_/\___|_|  \___|\__,_|_|\___||___/
//================= License ===============================================
//= This file is part of Hercules.
//= http://herc.ws - http://github.com/HerculesWS/Hercules
//=
//= Copyright (C) 2012-2015  Hercules Dev Team
//= Copyright (C)  Kisuka
//= Copyright (C)  L0ne_W0lf
//= Copyright (C)  Lance
//= Copyright (C)  kobra_k88
//= Copyright (C)  Lupus
//=
//= Hercules is free software: you can redistribute it and/or modify
//= it under the terms of the GNU General Public License as published by
//= the Free Software Foundation, either version 3 of the License, or
//= (at your option) any later version.
//=
//= This program is distributed in the hope that it will be useful,
//= but WITHOUT ANY WARRANTY; without even the implied warranty of
//= MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//= GNU General Public License for more details.
//=
//= You should have received a copy of the GNU General Public License
//= along with this program.  If not, see <http://www.gnu.org/licenses/>.
//=========================================================================
//= Juice Maker Quest
//================= Description ===========================================
//= Learn where to turn apples, bananas, carrots, and grapes into juice.
//================= Current Version =======================================
//= 2.1
//================= Variables Used ========================================
//= Condition if done: (MISC_QUEST & 1)
//=========================================================================
 
prt_in,49,172,3 script  Marianne#juice  1_M_INNKEEPER,{
    if (MISC_QUEST&1 || morison_meat == 15) {
        mes "[Housewife Marianne]";
        mes "Whew...!";
        mes "Still, he won't eat anything unless it's Meat. But maybe he will eat fruit if it was cut so that it was easy to eat. Like, if it was blended into juice...";
        next;
        mother_marienu = 0;
        morison_meat = 0;
        MISC_QUEST |= 1;
        mes "[Housewife Marianne]";
        mes "Ah! Come to think of it, I heard they were making fruit juice somewhere. Now where was it... Payon Village, or Morroc?";
        close;
    }
    if (mother_marienu == 1) {
        mes "[Housewife Marianne]";
        mes "Morrison!! Eat some fruits!! You don't want to become a slobby fat pig when you grow up, do you?";
        next;
        if (select("Talk", "Cancel") == 1) {
            mes "[Housewife Marianne]";
            mes "Hm? ...You!";
            mes "You're the one who gave, my little Morrison that Meat?! Did you come here thinking I wouldn't know about it?!";
            next;
            mes "[Housewife Marianne]";
            mes "Go away, get out of my house NOW!!";
            close;
        }
        mes "[Housewife Marianne]";
        mes "Morrison!! I'm going to be very very mad if you keep doing this!";
        close;
    }
    if (morison_meat > 0) {
        mother_marienu = 1;
        mes "[Housewife Marianne]";
        mes "Oh!!.... This...";
        mes "what is this...??";
        mes "How could you do something like this to my boy?!";
        next;
        mes "[Housewife Marianne]";
        mes "Argh! Get out of my house right this instant!";
        close;
    }
    mes "[Housewife Marianne]";
    mes "Morrison!! Please eat some fruits!! Please~!";
    next;
    mes "[Housewife Marinaa]";
    mes "Sigh~!! Like father, like son...";
    next;
    switch(select("Talk", "Cancel")) {
        mes "[Housewife Marianne]";
        mes "*Sigh*... This is Morrison...";
        mes "My one and only son.";
        next;
        mes "[Housewife Marianne]";
        mes "But these days, he just won't eat fruits. His face is so dull because he refuses to eat healthy. He just wants to eat Meat. I need to find a way to feed him fruits or vegetables....";
        close;
    }
    mes "[Housewife Marianne]";
    mes "Morrison!! You're going to be in big trouble if you keep this up!";
    close;
}
 
prt_in,47,173,3 script  Morrison#juice  4W_M_01,{
    if (MISC_QUEST&1 || morison_meat == 15) {
        mes "[Little Morrison]";
        mes "Bleh... Forget it.";
        mes "I'm just going to shrivel to death just eating fruits. Don't bother worrying about me .";
        close;
    }
    if (morison_meat > 9) {
        mes "[Little Morrison]";
        mes "Ah... so full~";
        mes "I think I can live now.";
        mes "You don't have to give me any more Meat. I feel like I'm going to explode if I eat any more.";
        if (morison_meat == 10) {
            next;
            ++morison_meat;
            mes "[Little Morrison]";
            mes "Oh... and... um.";
            mes "Take this.";
            next;
            mes "[Little Morrison]";
            mes "It's a little something I've been saving to eat for later, but since you gave me Meat, I think I can pass on the sweets.";
            close;
            getitem Candy,3;
            getitem Candy_Striper,1;
        }
        close;
    }
    mes "[Little Morrison]";
    mes "Agh....Noooo!!!";
    mes "No, don't make me eat it! I can't bear to taste fruits!";
    next;
    if (countitem(Meat) > 0) {
        switch(select("Talk", "Show the Meat", "Cancel")) {
        case 1:
            mes "[Little Morrison]";
            mes "Aaaagh!! Once or twice is enough!! I refuse to eat any more fruits! You have to peel them and there's so much juice that it makes you feel icky...";
            next;
            mes "[Little Morrison]";
            mes "And they're all slippery and sour... Even if I eat it, I still feel hungry. Aaaah~! Give me Meat!";
            close;
        case 2:
            mes "[Little Morrison]";
            mes "Ooh! M-Meaaat~";
            mes "Ah... hu...hungry...";
            mes "The scent of Meat...";
            mes "Excuse me...";
            mes "C-can I please have one?";
            next;
            if (select("Give Meat", "Don't Give Meat") == 1) {
                delitem Meat,1;
                ++morison_meat;
                mes "[Little Morrison]";
                mes "Wow~!!! Meat!!";
                mes "So yummy!";
                mes "Thank you,";
                mes "I think I can";
                mes "live now.";
                mes "*Chew chew*";
                close;
            }
            morison_meat = 15;
            mes "[Little Morrison]";
            mes "Waah...!";
            mes "Fine, I get it now.";
            mes "Adults are all the same!";
            close;
        case 3:
            mes "[Little Morrison]";
            mes "Aaaaah!!! No matter what, I'm not going to eat fruits and vegetables!";
            close;
        }
    }
    if (select("Talk", "Cancel") == 1) {
        mes "[Little Morrison]";
        mes "Aaah!! I can't eat any more fruits!";
        next;
        mes "[Little Morrison]";
        mes "I refuse to eat any more fruits! You have to peel them and there's so much juice that it makes you feel icky...";
        next;
        mes "[Little Morrison]";
        mes "And they're all slippery and sour... Even if I eat it, I still feel hungry.";
        mes "Aaaah~!";
        mes "Give me Meat!";
        close;
    }
    mes "[Little Morrison]";
    mes "Aaaaah!!! No matter what, I'm not going to eat fruits and vegetables!";
    close;
}
 
payon_in03,188,146,5    script  Marx Hansen#juice   4_M_04,{
    if (checkweight(Knife,1) == 0) {
        mes "- Wait a moment! -";
        mes "- Currently you're carrying -";
        mes "- too many items with you. -";
        mes "- Please come back later -";
        mes "- after you put some items into kafra storage. -";
        close;
    }
    if (MISC_QUEST&1) {
        mes "[Merchant Marx Hansen]";
        mes "Welcome.";
        mes "Did you come to";
        mes "process fruits as well?";
        next;
        switch(select("Make Juice.", "Talk and get information about fruit processing.", "Cancel.")) {
        case 1:
            mes "[Merchant Marx Hansen]";
            mes "What kind of fruit juice would you like to make?";
            next;
            switch(select("Apple Juice", "Banana Juice", "Carrot Juice", "Grape Juice", "Cancel")) {
            case 1:
                .@fruit = 512;
                .@juice = 531;
                break;
            case 2:
                .@fruit = 513;
                .@juice = 532;
                break;
            case 3:
                .@fruit = 515;
                .@juice = 534;
                break;
            case 4:
                .@fruit = 514;
                .@juice = 533;
                break;
            case 5:
                mes "[Merchant Marx Hansen]";
                mes "Well then...";
                mes "See you next time.";
                close;
            }
            if (countitem(.@fruit) == 0 || countitem(Empty_Bottle) == 0 || Zeny < 3) {
                mes "[Merchant Marx Hansen]";
                mes "Oh no...";
                mes "You don't have all the necessary materials. To make "+getitemname(.@juice)+", I need 1 "+getitemname(.@fruit)+" and 1 Empty Bottle. I will also need a 3 zeny fee.";
                next;
                mes "[Merchant Marx Hansen]";
                mes "When you have prepared everything, I will blend the fruit to give you delicious juice.";
                close;
            }
 
            mes "[Merchant Marx Hansen]";
            mes "How many would you like?";
            next;
            switch(select("As many as I can.", "I want a certain amount.", "Cancel.")) {
            case 1:
                .@make = countitem(.@fruit);
                if (countitem(Empty_Bottle) < .@make) .@make = countitem(Empty_Bottle);
                if (Zeny/3 < .@make) .@make = Zeny/3;
                break;
            case 2:
                mes "[Merchant Marx Hansen]";
                mes "Choose a number less than 100. If you don't want to, put '0'. You can make up to " + countitem(.@fruit) + " bottles of juice.";
                next;
                while(1) {
                    input .@input;
                    if (.@input == 0) {
                        mes "[Merchant Marx Hansen]";
                        mes "Well then...";
                        mes "Come again.";
                        close;
                    }
                    else if (.@input > 100) {
                        mes "[Merchant Marx Hansen]";
                        mes "More than 100 bottles is impossible. Choose a different amount.";
                        next;
                    }
                    else {
                        break;
                    }
                }
                .@make = .@input;
                break;
            case 3:
                mes "[Merchant Marx Hansen]";
                mes "Well then...";
                mes "Come again.";
                close;
            }
 
            .@total_zeny = 3 * .@make;
 
            if (countitem(.@fruit) < .@make || countitem(Empty_Bottle) < .@make || Zeny < .@total_zeny) {
                mes "[Merchant Marx Hansen]";
                mes "Oh no...";
                mes "You don't have all the necessary materials. I can't help a situation like this. I guess you collect what you need.";
                close;
            }
            delitem .@fruit,.@make;
            delitem 713,.@make;
            Zeny -= .@total_zeny;
            getitem .@juice,.@make;
 
            mes "[Merchant Marx Hansen]";
            mes "Here you go! Fresh and delicious juice as promised. It should be very refreshing and palatable.";
            next;
            mes "[Merchant Marx Hansen]";
            mes "Well then...";
            mes "Come again.";
            close;
        case 2:
            mes "[Merchant Marx Hansen]";
            mes "Before humans were able to develop such vast societies, they gathered fruit from trees to survive. Fruits may have been nature's blessing that allowed us to exist in the world.";
            next;
            mes "[Merchant Marx Hansen]";
            mes "Since life became so prosperous, the younger generation seems not to eat fruit any more. So, I started thinking of ways to make fruit easier to eat.";
            next;
            mes "[Merchant Marx Hansen]";
            mes "I realized that when you make fruit juice, it's more convenient to eat and has a much better taste.";
            next;
            mes "# Fruit Juice Information #";
            mes "^CC4E5C- Apple Juice -^000000";
            mes "Apple x 1 ea, Empty Bottle x 1 ea, 3 zeny.";
            mes "";
            mes "^E3CF57- Banana Juice -^000000";
            mes "Banana x 1 ea, Empty Bottle x 1 ea, 3 zeny.";
            mes "";
            mes "^ED9121- Carrot Juice -^000000";
            mes "Carrot x 1 ea, Empty Bottle x 1 ea, 3 zeny.";
            mes "";
            mes "^CC00FF- Grape Juice -^000000";
            mes "Grape x 1 ea, Empty Bottle x 1 ea, 3 zeny.";
            close;
        case 3:
            mes "[Merchant Marx Hansen]";
            mes "Hey!";
            mes "If you visit";
            mes "somebody, talk to them!";
            close;
        }
    }
    else {
        mes "[Merchant Marx Hansen]";
        mes "Welcome.";
        mes "How may I help you?";
        next;
        if (select("Talk", "Cancel") == 1) {
            mes "[Merchant Marx Hansen]";
            mes "Before humans were able to develop such vast societies, they gathered fruit from trees to survive. Fruits may have been nature's blessing that allowed us to exist in the world.";
            next;
            mes "[Merchant Marx Hansen]";
            mes "Since life became so prosperous, the younger generation seems not to eat fruit any more. So, I started thinking of ways to make fruit easier to eat.";
            next;
            mes "[Merchant Marx Hansen]";
            mes "I realized that when you make fruit juice, it's more convenient to eat and has a much better taste.";
            close;
        }
        mes "[Merchant Marx Hansen]";
        mes "Hey!";
        mes "If you vist";
        mes "somebody, talk to them!";
        close;
    }
}
 
Viewed 837 times, submitted by Guest.