viewing paste Guild Reward | 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 1096 times, submitted by Guest.