[Error] npc_event: event not found [Poporing::OnRed]
[Error] npc_event: event not found [Poporing::OnGreen]
//===== eAthena Script =======================================
//= RGB Event
//===== By: ==================================================
//= Katazui/WanMan/Ghost
//===== Current Version: =====================================
//= 1.0 First Release
//===== Compatible With: =====================================
//= SVNr Version 14362
//===== Description: =========================================
//= GM Actived Event, and Get Points by killing Porings >
//===== Editing: =============================================
- script settings#rgbevent -1,{
OnInit:
set $RGBItem,501; //Prize goes here. Make it Small
set $RGBGM,80; //Input what GM Level that can Active the Event.
end;
}
//============================================================
Hyrule,127,47,1 script Marin 1857,{
mes "[Marin]";
mes "Bounce! Bounce! Bounce!";
next;
mes "[Marin]";
mes "You have ^FF0000"+#RPoring+" Red Poring Points^000000";
mes "You have ^008800"+#GPoring+" Green Poring Points^000000";
mes "You have ^0000FF"+#BPoring+" Blue Poring Points^000000";
close2;
getitem $RGBItem,#RPoring;
getitem $RGBItem,#GPoring;
getitem $RGBItem,#BPoring;
set #RPoring,0;
set #GPoring,0;
set #BPoring,0;
end;
}
Hyrule,140,47,1 script Poring 1002,{
mes "[Poring]";
mes "Bounce! Bounce! Bounce!";
next;
mes "[Poring]";
mes "You have ^FF0000"+#RPoring+" Red Poring Points^000000";
mes "You have ^008800"+#GPoring+" Green Poring Points^000000";
mes "You have ^0000FF"+#BPoring+" Blue Poring Points^000000";
close2;
getitem $RGBItem,#RPoring;
getitem $RGBItem,#GPoring;
getitem $RGBItem,#BPoring;
set #RPoring,0;
set #GPoring,0;
set #BPoring,0;
end;
}
//$RGBGM
Hyrule,140,50,6 script Poporing 1031,{
if (getgmlevel() >= 80) goto L_admin;
mes "[Poporing]";
mes "Bounce! Bounce! Bounce!";
next;
mes "[Poporing]";
mes "You have ^FF0000"+#RPoring+" Red Poring Points^000000";
mes "You have ^008800"+#GPoring+" Green Poring Points^000000";
mes "You have ^0000FF"+#BPoring+" Blue Poring Points^000000";
next;
mes "[Poporing]";
mes "There are ^FF0000"+.Red1+" Red Poring^000000";
mes "There are ^008800"+.Green1+" Green Poring^000000";
mes "There are ^0000FF"+.Blue1+" Blue Poring^000000";
mes "There all at "+.Map$+"";
close2;
getitem $RGBItem,#RPoring;
getitem $RGBItem,#GPoring;
getitem $RGBItem,#BPoring;
set #RPoring,0;
set #GPoring,0;
set #BPoring,0;
end;
L_admin:
mes "Hello! Please edit the Settings to start the Event";
mes "^FF0000Red Poring Points^000000 is 10 Points";
mes "^008800Green Poring Points^000000 is 5 Points";
mes "^0000FFBlue Poring Points^000000 is 1 Points";
menu "^777777Map^000000 ["+.Map$+"]",map,"^FF0000Red Porings^000000 ["+.@RPoring+"]",red,"^008800Green Porings^000000 ["+.@GPoring+"]",green,"^0000FFBlue Porings^000000 ["+.@BPoring+"]",blue,"Start Event",sevent,"End Event",ajdhfs;
sevent:
if (.1Event >= 1) goto lolol;
close2;
set .1Event,1;
monster .Map$,0,0,"Red Poring",1002,.@RPoring,"Poporing::OnRed";
monster .Map$,0,0,"Green Poring",1031,.@GPoring,"Poporing::OnGreen";
monster .Map$,0,0,"Blue Poring",1857,.@BPoring,"Poporing::OnBlue";
announce "The Blue/Red/Green Porings has Attacked "+.Map$+"! Please Clear them away!",0;
set .Red1,.@RPoring;;
set .Green1,.@GPoring;
set .Blue1,.@BPoring;
goto PoringCount;
end;
OnRed:
set #RPoring, #RPoring + 10;
dispbottom "You have "+#RPoring+" Red Poring Points";
//dispbottom "You have "+#GPoring+" Green Poring Points";
//dispbottom "You have "+#BPoring+" Blue Poring Points";
set .Red1, .Red1 - 1;
goto PoringCount;
end;
OnGreen:
set #GPoring, #GPoring + 5;
//dispbottom "You have "+#RPoring+" Red Poring Points";
dispbottom "You have "+#GPoring+" Green Poring Points";
//dispbottom "You have "+#BPoring+" Blue Poring Points";
set .Green1, .Green1 -1;
goto PoringCount;
end;
OnBlue:
set #BPoring, #BPoring + 1;
//dispbottom "You have "+#RPoring+" Red Poring Points";
//dispbottom "You have "+#GPoring+" Green Poring Points";
dispbottom "You have "+#BPoring+" Blue Poring Points";
set .Blue1, .Blue1 - 1;
goto PoringCount;
end;
PoringCount:
if(.Red1 == 0) && (.Green1 == 0) && (.Blue1 == 0) goto ajdhfs;
end;
ajdhfs:
killmonster .Map$,"All";
announce "Thank You! You Clear all the Red/Green/Blue Porings from "+.Map$+"",0;
set .1Event,0;
close;
end;
red:
next;
mes "[Poporing]";
mes "Input how many ^0000FFRed Porings^000000";
input .@RPoring;
next;
goto L_admin;
end;
green:
next;
mes "[Poporing]";
mes "Input how many ^008800Green Porings^000000";
input .@GPoring;
next;
goto L_admin;
end;
blue:
next;
mes "[Poporing]";
mes "Input how many ^FF0000Blue Porings^000000";
input .@BPoring;
next;
goto L_admin;
end;
map:
next;
mes "[Poporing]";
mes "Input your Location";
input .Map$;
next;
goto L_admin;
end;
lolol:
next;
mes "[Poporing]";
mes "The Event is still on";
close;
end;
}