Jump to content

Terenas

Members
 View Profile  See their activity

  • Posts

    4

  • Joined

  • Last visited

 Content Type 

Posts posted by Terenas

    WOE Script

    in Scripting Support

    Posted · Edited by Terenas
    codeboxed

    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;
}

×
×
  • Create New...