WOE Script

[Terenas]

I have error with this script, and it is not working. Can anyone see what is wrong?

prontera,146,197,5 script WoE Reward 1288,{
mes "^000088[Emperium]^000000";
mes "Greetings, adventurer!";
mes "Do you want to redeem your guild reward for last session War of Emperium?";
next;
mes "^000088[Emperium]^000000";
mes "Please select your castle.";
next;
if ( agitcheck() ) goto L_woeon;
menu
 "Neuschwanstein",L_aldeg_cas01,
 "Hohenschwangau",L_aldeg_cas02,
 "Nuenberg",L_aldeg_cas03,
// "Wuerzburg",L_aldeg_cas04,
// "Rothenburg",L_aldeg_cas05,
 "Repherion",L_gefg_cas01,
 "Eeyolbriggar",L_gefg_cas02,
 "Yesnelph",L_gefg_cas03,
 "Bergel",L_gefg_cas04,
// "Mersetzdeitz",L_gefg_cas05,
 "Bright Arbor",L_payg_cas01,
 "Scarlet Palace",L_payg_cas02,
 "Holy Shadow",L_payg_cas03,
 "Sacred Altar",L_payg_cas04,
// "Bamboo Grove Hill",L_payg_cas05,
 "Kriemhild",L_prtg_cas01,
 "Swanhild",L_prtg_cas02,
 "Fadhgridh",L_prtg_cas03,
 "Skoegul",L_prtg_cas04;
// "Gondul",L_prtg_cas05;
L_aldeg_cas01:
if ( getcastledata( "aldeg_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;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[1], 1;
close;
L_aldeg_cas02:
if ( getcastledata( "aldeg_cas02", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[2] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[2], 1;
close;
L_aldeg_cas03:
if ( getcastledata( "aldeg_cas03", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[3] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[3], 1;
close;
L_aldeg_cas04:
if ( getcastledata( "aldeg_cas04", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[4] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(7539,300) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 7539, 300;
set $castle_claimed[4], 1;
close;
L_aldeg_cas05:
if ( getcastledata( "aldeg_cas05", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[5] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
mes "receiving the reward for this castle";
getitem 7539, 300;
set $castle_claimed[5], 1;
close;L_gefg_cas01:
if ( getcastledata( "gefg_cas01", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[6] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[6], 1;
close;
L_gefg_cas02:
if ( getcastledata( "gefg_cas02", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[7] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[7], 1;
close;
L_gefg_cas03:
if ( getcastledata( "gefg_cas03", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[8] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[8], 1;
close;
L_gefg_cas04:
if ( getcastledata( "gefg_cas04", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[9] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[9], 1;
close;
L_gefg_cas05:
if ( getcastledata( "gefg_cas05", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[10] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 7539, 300;
set $castle_claimed[10], 1;
close;
L_payg_cas01:
if ( getcastledata( "payg_cas01", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[11] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[11], 1;
close;
L_payg_cas02:
if ( getcastledata( "payg_cas02", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[12] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[12], 1;
close;
L_payg_cas03:
if ( getcastledata( "payg_cas03", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[13] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[13], 1;
close;
L_payg_cas04:
if ( getcastledata( "payg_cas04", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[14] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[14], 1;
close;
L_payg_cas05:
if ( getcastledata( "payg_cas05", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[15] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
mes "receiving the reward for this castle";
getitem 7539, 300;
set $castle_claimed[15], 1;
close;L_prtg_cas01:
if ( getcastledata( "prtg_cas01", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[16] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "[Emperium]";
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[16], 1;
close;
L_prtg_cas02:
if ( getcastledata( "prtg_cas02", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[17] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[17], 1;
close;
L_prtg_cas03:
if ( getcastledata( "prtg_cas03", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[18] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "[Emperium]";
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[18], 1;
close;
L_prtg_cas04:
if ( getcastledata( "prtg_cas04", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[19] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 21069,100;
set $castle_claimed[19], 1;
close;
L_prtg_cas05:
if ( getcastledata( "prtg_cas05", 1) != getcharid(2) ) goto L_not_owner;
if ( $castle_claimed[20] ) goto L_claimed;
if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
if ( checkweight(21069,100) == 0 ) goto L_CheckWeight;
mes "receiving the reward for this castle";
getitem 7539, 300;
set $castle_claimed[20], 1;
close;
L_woeon:
mes "^000088[Emperium]^000000";
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;
L_not_owner:
mes "^000088[Emperium]^000000";
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 "^000088[Emperium]^000000";
mes "Your guild already received the reward for this castle.";
close;
L_not_gm:
mes "^000088[Emperium]^000000";
mes "Ask your guild master to see me.";
close;L_CheckWeight:
mes "Please check your weight!";
close;
//OnAgitEnd:
OnClock0000:
set $castle_claimed[1], 0; // everytime woe ends the variable resets
set $castle_claimed[2], 0;
set $castle_claimed[3], 0;
set $castle_claimed[4], 0;
set $castle_claimed[5], 0;
set $castle_claimed[6], 0;
set $castle_claimed[7], 0;
set $castle_claimed[8], 0;
set $castle_claimed[9], 0;
set $castle_claimed[10], 0;
set $castle_claimed[11], 0;
set $castle_claimed[12], 0;
set $castle_claimed[13], 0;
set $castle_claimed[14], 0;
set $castle_claimed[15], 0;
set $castle_claimed[16], 0;
set $castle_claimed[17], 0;
set $castle_claimed[18], 0;
set $castle_claimed[19], 0;
set $castle_claimed[20], 0;
end;
}

Edited November 22, 2012 by Terenas
codeboxed

[Euphy]

Updated script: http://mysterious-project.googlecode.com/svn/trunk/npc/GuildPrizer.txt

[Terenas]

I prefer it if I can find out what is wrong with the script. It's for educational purpose. Server gives word undercores error

[AnnieRuru]

@Euphy ...

this is one of the purpose I want to revive rAAC ....

currently our scripting community has been produced overly complicated script to solve a simple solution ...

@Terenas

I tested the script working fine in my test server

the only reason that I can think of is probably because you use 1288 as npc ID ? try change to 123

Server gives word undercores error

can show us some screenshot ?

[Joseph]

*checks*

http://upaste.me/11311622bfa1e45a

[Kiritoryu]

Updated script: http://mysterious-pr...GuildPrizer.txt

I cant get it to work for my server.

I try clicking it nothing happen.

using r17013

[Euphy]

It's no longer needed, really. I added a feature to auto-mail rewards to Guild Masters in v1.5 of my controller: trunk/npc/custom/woe_controller.txt

[Kiritoryu]

isit like this

setarray .Reward[1],671,10; // Reward for all members of conquering guilds, per castle: <ID>,<Count>{,...} (0 to disable) ?

I tried but players get nothing

It's no longer needed, really. I added a feature to auto-mail rewards to Guild Masters in v1.5 of my controller: trunk/npc/custom/woe_controller.txt

[Euphy]

v1.5

You're using a previous version.