viewing paste Unknown #13309 | 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
prontera,150,150,3  script  Will'o Gods 802,{
 
 
// == Configuration == //
set .@required,7701; // Required Item id for the Quest - Example Dragon Spirit
set .@reqcount,1;   // Required Count.. not neccessary but.. i want to set it
set .@reward,25374; // Reward they will get after the Registration..
// == End of Config == //
 
    set .@n$,"[^DC143C Faction Manager ^000000]";
    mes .@n$;
    mes "Hello.";
    next;
    goto L_Topmenu;
L_Topmenu:
    mes .@n$;
    mes "Why are you here?!";
    mes "Are you here to destroy Argonians and to depopulate us?!";
    mes "You cannot do that!";
    mes "What do you want!";
    switch(select("Argonians:Choose Argonian Tribe:Exit")) {
    case 1: // Top Menu cases
        next;
            mes .@n$;
            mes "So you're innocent?";
            mes "I see, let us see...";
            mes "Argonians are the strongest Tribe at the Millenium Age of Ragnarok...";
            mes "Somehow.... The Slayers betrayed us and got jealous of our own powers, they then became the strongest Tribe today!";
        next;
            mes .@n$;
            mes "Not too long, the Argonians will live!";
            mes "Once you become like us, you'll feel the power surging up in your veins!";
            mes "Our power gives such Enormous Strength, and Speed to chase down enemies!";
            mes "Not only that! Argonian gives defensive tactics to any Tribes that attacks you!";
            mes "I believe that we shall rule the world!";
        next;
            menu "Interested",L_ChooseEffect,"Return",L_Topmenu;
        next;
            mes .@n$;
            mes "Ah, so you're interested?";
            mes "Let's see....";
        L_ChooseEffect:
            switch(select("Check Argonian:Choose Argonian:Close")){
    case 1: // Choose Effect cases
        next;
            mes .@n$;
            mes "Argonians have immersed strength!";
            mes "Surging your strength, adding your strength up to 10";
            mes "The Speed of the Argonians surges up from your legs, adding your running tactics up to 30%";
            mes "The Defensive Tacticts of the Argonians grants you the Reduction to all Tribes by 5%";
            mes "This is what we need, Argonians must live!";
            next;
            goto L_Topmenu;
    case 2: // Choose Effect cases
        next;
        goto L_Topmenu;
        }
        next;
    case 2: // Top Menu cases
        next;
            if(getcharid(5) == 2 ) {
                // Guardians check -- Block them  if they are already in Guardians faction
                mes .@n$;
                mes "A Guardians huh?!";
                mes "Leave before i land a punch in your face..";
                close;
            } else if(getcharid(5) == 3 ) {
                // Slayer check -- Block them  if they are already in Slayer faction
                mes .@n$;
                mes "A Slayer?!";
                mes "Did you forgot what did you're tribe do against us?";
                mes "You better leave, before i kick your ass..";
                close;
            } else if(getcharid(5) == 1 ) {
                // Argonians Check -- Nothing to deal with.. just want to add some check here and remind to train their skills
                mes .@n$;
                mes "What are you still doing here, Argonians?!";
                mes "Go away ! im too busy..";
                mes "You better improve your fighting skills !";
                close;
            } else {
                // Script Continue Here, if the Conditions are not stated..
                next;
                mes .@n$;
                mes "Do you have the Argonians Soul?!";
                menu "Yes",L_Next,"Not, Yet",L_NoExit;
            L_Next:
                next;
                mes .@n$;
                mes "Let's see.........";
                if(countitem(.@required) >= .@reqcount) {
                    next;
                    mes .@n$;
                    mes "I see...";
                    mes "Let me test your Soul...";
                    menu "Give the Soul",L_Argonians,"Back Out",L_Wag;
                }else{
                    next;
                    mes .@n$;
                    mes "Soul? This is such a filthy";
                    mes "^DC143C Soul ^000000 !!";
                    mes "Remove your filthiness!";
                    close;
                }
            }
            L_NoExit:
                mes .@n$;
                mes "Get off kid..";
                mes "Don't Waste my time..";
                close;
    case 3: // Top Menu cases
        close;
    }
L_Argonians:
    next;
    mes "Bwahahahha!! Your Soul is mine! Your Fate lies in here!";
    mes "You shall become one of us!!";
    next;
    mes .@n$;
    mes "Equillia!";
    mes "Argonia!";
    mes "Mili Sa Porsa!";
    menu "Proceed",L_Tuloy,"Cancel",L_Wag;
L_Tuloy:
    progressbar "green",3;
    next;
    specialeffect2 380;
    next;
    specialeffect2 91;
    next;
    specialeffect2 72;
    setfaction 1;
    setlook 7,165;
    delitem .@required,.@reqcount;
    getitem .@reward,.@reqcount;
    equip .@reward;
    specialeffect2 338;
    mes .@n$;
    mes "It seems you're one of us now....!!!";
    mes "Leave and you shall die...";
    announce "[ "+strcharinfo(0)+" ] Has registered as [ Argonian ] Tribe.",bc_all,0xFFFF00;
    close;
L_Wag:
    next;
    goto L_Topmenu;
    }
Viewed 820 times, submitted by Guest.