hello can anyone please fix this script ?i need it for all people in guild can claim , not only guild leader can claim

[hello can anyone please fix this script ?i need it for all people in guild can claim , not only guild leader can claim]

here are the script
 
 
 
 
 

//===== rAthena Script =======================================
//= Guild Prize Giveaway
//===== By: ==================================================
//= AnnieRuru / Mysterious
//===== Current Version: =====================================
//= 1.5
//===== Compatible With: =====================================
//= rAthena SVN
//===== 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]
//============================================================
 
prontera,149,188,5    script    Castle Rewards    924,{
 
    mes "[Castle Rewards]";
    if (agitcheck() || agitcheck2()) { mes "WoE is currently still in progress."; close; }
    mes "Please select a castle:";
    next;
    for(set .@i,0; .@i<30; set .@i,.@i+1)
        set .@menu$, .@menu$+getcastlename(.Castles$[.@i])+":";
    set .@i, select(.@menu$)-1;
    mes "[Castle Rewards]";
    if (getcastledata(.Castles$[.@i],1) != getcharid(2)) { mes "You aren't the owner of this castle."; close; }
    if (getguildmasterid(getcharid(2)) != getcharid(0)) { mes "Only the guild master can claim the reward."; close; }
    if ($castle_claimed&(1<<.@i)) { mes "You've already claimed this castle's reward!"; close; }
    mes "Here's your reward for conquering "+getcastlename(.Castles$[.@i])+".";
    set $castle_claimed, $castle_claimed | (1<<.@i);
    getitem 14232,100;
    getitem 14004,100;
    getitem 25000,100; 
    getitem 7776,5;
    getitem 25000,20;
    getitem 12100,20;
    getitem 12202,20;
    getitem 12203,20;
    getitem 12204,20;
    getitem 12205,20;
    getitem 12206,20;
    getitem 12207,20;
    getitem 12740,10;
    getitem 25001,10;
 
 
    set #CASHPOINTS, #CASHPOINTS + 100;
    close;
 
OnAgitEnd:
    set $castle_claimed, 0;
    end;
 
OnInit:
    setarray .Castles$[0],
        "prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05",
        "payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05",
        "gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05",
        "aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05",
        "arug_cas01","arug_cas02","arug_cas03","arug_cas04","arug_cas05",
        "schg_cas01","schg_cas02","schg_cas03","schg_cas04","schg_cas05";
    end;
}