viewing paste guild_prize | Athena

Posted on the | Last edited on
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
//===== 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,0;              // WoE Controller - Euphy|Toasty:0|1
        setarray .reward,671,1; // Reward - <Item_ID>,<Amount>{,...}
        // ==========================================================
        sleep 10;
        if (!.controller)
                GetNPCVar(".Castles$",".Castles$","WOE_CONTROL");
        else {
                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");
 
                set .@i, 0;
                do {
                        GetNPCVar(".woe_state_"+.@i,".woe_state_"+.@i,"WoEInfoBase");
                        set .@i, .@i+1;
                } while (.@i < .woe_state);
 
                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 418 times, submitted by jtkay.