viewing paste WoE Prize Giver | 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
prontera,164,169,3  script  WoE Prize   459,{
if (agitcheck() || agitcheck2()) goto L_woeon;
mes "Hi  ^ff8000"+strcharinfo(0)+"^000000,";
mes "Which castle you want to take your prize with ?";
switch(select("Kriemhild:Swanhild:Fadgridh:Skoegul:Gondul")) {
    case 1:
        if ( getcastledata( "prtg_cas01", 1) != getcharid(2) ) goto L_not_owner;
        if ( $castle_claimed[1] ) goto L_claimed;
        if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
        mes "receiving the reward for this castle";
        getitem 20001,40;
        getitem 2004,25;
        getitem 676,40;
        set $castle_claimed[1], 1;
        close;
            L_not_owner:
    mes "Your guild failed to take this castle";
    mes "If your guild owned a castle ask your guild master to claim reward from me";
    close;
        L_claimed:
    mes "Your guild already received the reward for this castle";
    close;
        L_not_gm:
    mes "Ask your Guild Master to see me";
    close;
    case 2:
        if ( getcastledata( "prtg_cas02", 1) != getcharid(2) ) goto L_not_owner2;
        if ( $castle_claimed2[1] ) goto L_claimed2;
        if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm2;
        mes "receiving the reward for this castle";
        getitem 20001,40;
        getitem 2004,25;
        getitem 676,40;
        set $castle_claimed2[1], 1;
        close;
            L_not_owner2:
        mes "Your Guild Failed to take this Castle";
        mes "If your guild owned a castle ask your guild master to claim reward from me";
        close;
        L_claimed2:
        mes "Your guild already received the reward for this castle";
        close;
            L_not_gm2:
        mes "Ask your Guild Master to see me";
        close;
 
    case 3:
        if ( getcastledata( "prtg_cas03", 1) != getcharid(2) ) goto L_not_owner3;
        if ( $castle_claimed2[1] ) goto L_claimed3;
        if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm3;
        mes "receiving the reward for this castle";
        getitem 20001,40;
        getitem 2004,25;
        getitem 676,40;
        set $castle_claimed3[1], 1;
        close;
            L_not_owner3:
        mes "Your Guild Failed to take this Castle";
        mes "If your guild owned a castle ask your guild master to claim reward from me";
        close;
        L_claimed3:
        mes "Your guild already received the reward for this castle";
        close;
            L_not_gm3:
        mes "Ask your Guild Master to see me";
        close;
 
    case 4:
        if ( getcastledata( "prtg_cas04", 1) != getcharid(2) ) goto L_not_owner4;
        if ( $castle_claimed2[1] ) goto L_claimed4;
        if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm4;
        mes "receiving the reward for this castle";
        getitem 20001,40;
        getitem 2004,25;
        getitem 676,40;
        set $castle_claimed4[1], 1;
        close;
        L_not_owner4:
        mes "Your Guild Failed to take this Castle";
        mes "If your guild owned a castle ask your guild master to claim reward from me";
        close;
        L_claimed4:
        mes "Your guild already received the reward for this castle";
        close;
        L_not_gm4:
        mes "Ask your Guild Master to see me";
        close;
 
    case 5:
        if ( getcastledata( "prtg_cas05", 1) != getcharid(2) ) goto L_not_owner5;
        if ( $castle_claimed2[1] ) goto L_claimed5;
        if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm5;
        mes "receiving the reward for this castle";
        getitem 20001,40;
        getitem 2004,25;
        getitem 676,40;
        set $castle_claimed5[1], 1;
        close;
        L_not_owner5:
        mes "Your Guild Failed to take this Castle";
        mes "If your guild owned a castle ask your guild master to claim reward from me";
        close;
        L_claimed5:
        mes "Your guild already received the reward for this castle";
        close;
        L_not_gm5:
        mes "Ask your Guild Master to see me";
        close;
        }
 
    L_woeon:
        mes "A war is currently in progress";
        mes "If your guild owned a castle ask your guild master to see me to claim the reward";
        close;
 
OnAgitEnd:
set $castle_claimed[1], 0; // everytime woe ends the variable resets
set $castle_claimed2[1], 0;
set $castle_claimed3[1], 0;
set $castle_claimed4[1], 0;
set $castle_claimed5[1], 0; // everytime woe ends the variable resets
end;
 
OnInit:
waitingroom "Castle Rewards",0;
end;
}
Viewed 826 times, submitted by Guest.