viewing paste Guild Reward | Plain text

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
//===== rAthena Script =======================================
//= Guild Prize Giveaway
//===== By: ==================================================
//= AnnieRuru / Mysterious / Joseph
//===== Current Version: =====================================
//= 1.9
//===== Compatible With: =====================================
//= rAthena SVN
//= Toasty WoE Controller
//= Euphy WoE Controller
//===== Description: =========================================
//= Rewards guild masters of castle owners after each
//= War of Emperium session.
//===== Additional Comments: =================================
//= v1.0 - Intitial Re-release [Mysterious]
//= v1.1 - Language structures [Mysterious]
//= v1.2 - Added divisions [Mysterious]
//= v1.3 - Added proper information [Mysterious]
//= v1.4 - Optimized! [Euphy]
//= v1.5 - Little bit of cleaning [Mysterious]
//= v1.6 - Fixed Agit on/off corruption. [Joseph]
//= v1.7 - Fixed overweight issues [Joseph]
//= v1.8 - Added the compability with Toasty's WoE Controller. [Joseph]
//= v1.9 - Invalid array size when the last array value is 0. [Joseph]
//============================================================
 
prontera,163,166,4      script  Castle Rewards  871,{
        function        GetCastle;     
        function        GetNPCVar;     
        set .@n$,"["+strnpcinfo(0)+"]";
        mes "Your guild [^0000FF"+getguildname(getcharid(2))+"^000000] has conquered:";
        for(set .@i, 0; .@i < getarraysize(.Castles$); set .@i, .@i+1)
        if (getcastledata(.Castles$[.@i],1) == getcharid(2)) {
                mes " > "+getcastlename(.Castles$[.@i])+""; set .@c,1;
                setarray .@uh$[getarraysize(.@uh$)],.Castles$[.@i],.@i;
        }
        if (!.@c) { mes " > No castles."; close; }
        next;
        if (select(((getguildmasterid(getcharid(2))==getcharid(0))?((agitcheck()||agitcheck2())?"":"Redeem Reward"):"")+":Close") == 2) close;
        mes .@n$;
        mes "Please select a castle to redeem your guild reward.";
        for(set .@i,0;.@i<getarraysize(.@uh$);set .@i,.@i+2) set .@m$,.@m$+($castle_reward&(1<<atoi(.@uh$[.@i+1]))?"^0000FF":"^FF0000")+getcastlename(.@uh$[.@i])+"^000000:";
        next;
        set .@m, select(.@m$)-1;
        if ($castle_reward&(1<<atoi(.@uh$[.@m*2+1]))) {
                mes .@n$;
                mes "Here's your reward for conquering ^0000FF"+getcastlename(.@uh$[.@m*2])+"^000000.";
                mes "You should divide these among your guild members.";
                for (set .@i,0; .@i<getarraysize(.reward); set .@i,.@i+2) {
                        set .@weight, getiteminfo(.reward[.@i],6);
                        set .@add_weight, .@add_weight+.@weight;
                        if (.@add_weight+Weight > MaxWeight) { mes " "; mes "^FF0000Overweight!^000000"; close; }
                }
                for(set .@i,0;.@i<getarraysize(.reward);set .@i,.@i+2) getitem .reward[.@i],.reward[.@i+1];
                set $castle_reward,$castle_reward^(1<<atoi(.@uh$[.@m*2+1]));
                close;
        }
        mes .@n$;
        mes "It seems like you've redeemed the reward.";
        close;
       
        function        GetCastle       {
                for(set .@j,0;.@j<getarraysize(.Castles$);set .@j,.@j+1) {
                        set .@c1,.@c2|(1<<.@j);
                        if (getarg(0)==.@c1) return .@j;
                }
                return -1;
        }
        function        GetNPCVar       {
                set .@var_1$,getarg(0);
                set .@var_2$,getarg(1);
                freeloop(1);
                for (set .@i,0; .@i<128; set .@i,.@i+1)
                        setd .@var_2$+"["+.@i+"]",getelementofarray(getvariableofnpc(getd(.@var_1$),getarg(2)),.@i);
                freeloop(0);
                return;
        }
       
OnAgitEnd:
OnAgitEnd2:
        if (.controller) {
                set .@tick, gettimetick(1);
                for (set .@i, 0; .woe_0[.@i] != 0 || .woe_1[.@i] != 0; set .@i, .@i+1)
                        for (set .@j, 0; .@j < 7; set .@j, .@j+1)
                                for (set .@c, 0; .@c < (getarraysize(.regions$)); set .@c, .@c+1)
                                        if (.woe_day[.@i] == gettime(4) && .woe_1[.@i] == .@tick && getd(".woe_state_"+.woe_state[.@i]+"["+.@j+"]") > 0 && getd(".woe_state_"+.woe_state[.@i]+"["+.@j+"]")&(1<<.@c) > 0) {
                                                set .@position,.@j*5+.@c;
                                                if ($castle_reward&(1<<.@position) == 0) set $castle_reward,$castle_reward|(1<<.@position);
                                        }
        }
        else {
                for(set .@i, 0;.@i < getarraysize($WOE_CONTROL);set .@i, .@i+4)
                        if (gettime(4) == $WOE_CONTROL[.@i] && gettime(3) == $WOE_CONTROL[.@i+2] && $castle_reward&(1<<GetCastle($WOE_CONTROL[.@i+3])) == 0)
                                set $castle_reward,$castle_reward|(1<<GetCastle($WOE_CONTROL[.@i+3]));
        }
        end;
 
OnInit:
        // === [Config] =============================================
        set .controller,1;              // WoE Controller - Euphy|Toasty:0|1
        setarray .reward,671,1; // Reward - <Item_ID>,<Amount>{,...}
        // ==========================================================
        sleep 10;
        if (!.controller)
                GetNPCVar(".Castles$",".Castles$","WOE_CONTROL");
        else {
                // Transfer NPC Variable
                setarray .@var$,".woe_day",".woe_0",".woe_1",".woe_state",".regions$",".castles_novi$";
                for (set .@i, 0; .@i < getarraysize(.@var$); set .@i, .@i+1)
                        GetNPCVar(.@var$[.@i],.@var$[.@i],"WoEInfoBase");
               
                // Generate States
                set .@i, 0;
                do {
                        GetNPCVar(".woe_state_"+.@i,".woe_state_"+.@i,"WoEInfoBase");
                        set .@i, .@i+1;
                } while (.@i < .woe_state);
                       
                // Generate Castles
                for (set .@i, 0; .@i < getarraysize(.regions$); set .@i, .@i+1) {
                        set .@j,1;
                        while (.@j<=5) {
                                if (.regions$[.@i]=="novi") {
                                        copyarray .Castles$[getarraysize(.Castles$)],.castles_novi$[0],getarraysize(.castles_novi$);
                                        break;
                                }
                                set .Castles$[getarraysize(.Castles$)],.regions$[.@i]+"_cas0"+.@j;
                                set .@j, .@j+1;
                        }
                }
        }
        end;
}
Viewed 469 times, submitted by unknown.