-	script	claimpoints	-1,{
OnInit:
bindatcmd "claimpoints",strnpcinfo(3)+"::OnAtcommand";
end;

OnAtcommand:
if (BaseLevel < 255) {
mes @header$;
mes "You need to be level 255 to use this command.";
close;
}
if( !getcharid(2) ){
mes "You must have a guild to use this command.";
close;
}
if( #claimpoints14 ){
mes "[ ^0000ffclaimpoints^000000 ]";
mes "Hello, " +strcharinfo(0);
mes "You already took your Free Points.";
mes "Sorry you can only claim once.";
close;
}else{
#claimpoints14 = 1;
//set #KOEPOINTS,#KOEPOINTS+50;
set #WOEPOINTS,#WOEPOINTS+50;
//dispbottom "You received 50 KoE Points, You have Total of "+#KOEPOINTS+" Points";
dispbottom "You received 50 WoE Points, You have Total of "+#WOEPOINTS+" Points";
}
end;
}