viewing paste Unknown #14891 | 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
lhz_dun03,140,252,3     script  Eremes Guile    1806,{
function Ende;
 
        set @n$, "^9932CC[Eremes Guile]^000000";       
 
 
        mes @n$;
        mes "Kannst du diese Auren sehen? Ich sehe sie überall!! Sie sind so faszinierend!";
        if(select("Welche Auren?:Was zur Hölle....") - 1) Ende;
        next;
        mes @n$;
        mes "Die Geheimnisvolle Lighthalzen Aura!";
        if(select("Ich will mehr über die Lighthalzen Aura wissen:Ich mag keine Auren") - 1) Ende;
        next;
        mes @n$;
        mes "Ich habe eine Methode gefunden, eine Lighthalzen Aura zu entwickeln.";
        if(select("Ich will eine Lighthalzen Aura haben!:Aha! Schön für dich") -1) Ende;
        next;
        mes @n$;
        mes "Ich könnte dir eine herstellen...Allerdings benötige ich dazu einige Items.";
        if(select("Natürlich! sag mir was du brauchst.:Ich habe doch kein Interesse mehr") -1) Ende;
        next;
        mes @n$;
        mes "Welche Farbe würdest du gerne haben?";
        switch(select("Schwarz:Blau:Cyan:Grün:Weiß:Lila:Orange:Pink:Rot:Gelb")){
                case 1:
                        set @color, 1;
                        break;
                case 2:
                        set @color, 2;
                        break;
                case 3:
                        set @color, 3;
                        break;
                case 4:
                        set @color, 4;
                        break;
                case 5:
                        set @color, 5;
                        break;
                case 6:
                        set @color, 6;
                        break;
                case 7:
                        set @color, 7;
                        break;
                case 8:
                        set @color, 8;
                        break;
                case 9:
                        set @color, 9;
                        break;
                case 10:
                        set @color, 10;
                        break;
 
        }
        next;
        mes @n$;
        mes "Gut! Dann benötige ich folgende Dinge von dir:";
        next;
        mes @n$;
        mes "30 " + getitemname(.farbe[@color]) +",300 Mould Powder,200 Powder of Butterfly,300 Bradium,50 Old Magic Book,200 Worn-out Magic Scoll,100 Alcohol und 150.000.000 Zeny";
        mes "Hast du alle Items?";
        if(select("Ja habe ich!:Nein, noch nicht...") -1) end;
        if(Zeny < .cost){
                next;
                mes @n$;
                mes "Mit so wenig Geld kann ich nicht's anfangen!!";
                close;
        }
        for(.@i = 0; .@i < getarraysize(.items); set .@i, .@i + 2){
                if(countitem(.items[.@i]) < .items[.@i +1] && countitem(.farbe[@color]) < .amount){
                        next;
                        mes @n$;
                        mes "Du hast nicht alle Items!";
                        close;
                }
        }
        for(.@i = 0; .@i < getarraysize(.items); set .@i, .@i + 2){
                delitem .items[.@i], .items[.@i + 1];
        }
        set Zeny, Zeny - .cost;
        next;
        mes @n$;
        mes "Wahnsinn! Du hast es wirklich geschafft, alles aufzutreiben!!";
        getitem .reward ,1;
        end;
 
Ende:
        next;
        mes @n$;
        mes "....Pfff!";
        end;
 
OnInit:
        setarray .items[0],7001,300,924,200,6224,300,1006,50,7099,200,970,100;
        setarray .farben[0],983,978,978,989,982,981,980,981,975,976;
        set .amount, 30;
        set .cost, 100000000;
        set .reward, 30504,30505,30506,30507,30508,30509,30510,30511,30512,30513;
        end;
}
 
       
Viewed 310 times, submitted by unknown.