Good day!
Can someone help me to make this script work with Hercules. thank you!
Can someone help me to make this script work with Hercules. thank you!
Code:
- script WoE_Reward FAKE_NPC,{
OnAgitEnd: callsub S_AgitEnd, 0, 20;
OnAgitEnd2: callsub S_AgitEnd, 21, 30;
S_AgitEnd:
.@start = getarg(0);
.@end = getarg(1);
for ( .@i = .@start; .@i < .@end; ++.@i ) {
.@guild_id = getcastledata( .castle$[.@i], 1 );
if ( .@guild_id ) {
deletearray .@unique_id;
getguildmember .@guild_id, 1;
getguildmember .@guild_id, 2;
for ( .@j = 0; .@j < $@guildmembercount; ++.@j ) {
if ( isloggedin( $@guildmemberaid[.@j], $@guildmembercid[.@j] ) ) {
attachrid $@guildmemberaid[.@j];
if (setarray(.@unique_id, get_unique_id() ) == 0 ) {
dispbottom "Reward given for conquered "+ getcastlename(.castle$[.@i]) +"("+ .castle$[.@i] +")";
//getitem 31509, 1;
//getitem 12103, 1;
//getitem 16770, 1;
//getitem 6380, 15;
getitem 11504, 100;
getitem 11503, 250;
getitem 25046, 10;
.@unique_id[ getarraysize(.@unique_id) ] = get_unique_id();
}
}
}
}
}
end;
OnInit:
setarray .castle$[0],
"aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05",
"gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05",
"payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05",
"prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05",
"arug_cas01","arug_cas02","arug_cas03","arug_cas04","arug_cas05",
"schg_cas01","schg_cas02","schg_cas03","schg_cas04","schg_cas05";
end;
}