Forever Ragnarok

Forums of FRO
 
HomeHome  CalendarCalendar  FAQFAQ  SearchSearch  MemberlistMemberlist  UsergroupsUsergroups  RegisterRegister  Log in  

Share | 
 

 Poring Event

Go down 
AuthorMessage
GM Noob Killer
Admin
avatar

Posts : 872
Join date : 2009-05-16
Age : 22
Location : Behind you

PostSubject: Poring Event   Fri May 29, 2009 9:46 pm

/////////////////////Edited Poring Event by hellflaem aka Nezra.///////////////////////
/////////////////////Credit: Wild Karrd////////////////////////////////////////////////
/////////////////////http://www.eathena.ws/board/Poring-Event-t183026.html/////////////
prontera,147,171,3 script PoringEvent 763,{
if(getgmlevel() > 50) goto GMmenu;
if(!.poringcatch){
mes "[PoringEvent]";
mes "No event for the moment.";
close;
}

mes "[PoringcEvent]";
mes "Hello "+strcharinfo(0)+" what can I help you with?";
next;
menu "Enter",L_enter,"Information",L_info,"Nothing",bye;
close;

L_enter:
mes "[PoringEvent]";
mes "Have Fun!";
next;
warp "poring_c01", 100, 100;
end;

L_info:
mes "[PoringEvent]";
mes "This Event summons 100 Poring.";
mes "Only one is the real one can you find it.";
mes "If you do find it you are rewarded with a Event Credit.";
mes "Good Luck.";
close;

bye:
mes "[PoringEvent]";
mes "Bye.";
close;

Onclock0200:
Onclock0030:
OnClock1630:
OnClock0500:
OnClock2000:
OnClock1900:
announce "Poring Event: Hey Guys Event Time,Come Talk to me.",0;
initnpctimer;
monster "poring_c01",0,0,"Poring",1002,1,strnpcinfo(0)+"::OnMobKilled";
monster "poring_c01",0,0,"Pouring",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Proing",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Poirng",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Poing",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"I'm not a Poring",1002,5,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Gnirop",1002,1,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Poring",1113,1,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Poring",1062,1,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Por|ng",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Por1ng",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Porong",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"P0ring",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"P@ring",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Porng",1002,1,strnpcinfo(0)+"::OnWrongKilled";
set .poringcatch,1;
end;

OnTimer600000:
stopnpctimer;
announce "Poring Event: Times up better luck next time.",0;
set .poringcatch,0;
killmonsterall "poring_c01";
end;

OnMobKilled:
stopnpctimer;
announce "Poring Event: Some one found it, Better luck next time.",0;
dispbottom "Congrats, You found me.";
getitem 3027,1;
killmonsterall "poring_c01";
set .poringcatch,0;
end;

OnWrongKilled:
dispbottom "Whaa, you weren't even close.";
//percentheal -99,-99;
warp "prontera",157,175;
end;

GMmenu:
mes "[PoringEvent]";
mes "Would you like to start this event?";
menu "yes",Y_event,"no",-,"Enter",gm_warp;
mes "Good by then";
close;

Y_event:
announce "Poring Event: Hey Guys Event Time,Come Talk to me.",0;
initnpctimer;
monster "poring_c01",0,0,"Poring",1002,1,strnpcinfo(0)+"::OnMobKilled";
monster "poring_c01",0,0,"Pouring",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Proing",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Poirng",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Poing",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"I'm not a Poring",1002,5,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Gnirop",1002,1,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Poring",1113,1,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Poring",1062,1,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Por|ng",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Por1ng",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Porong",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"P0ring",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"P@ring",1002,10,strnpcinfo(0)+"::OnWrongKilled";
monster "poring_c01",0,0,"Porng",1002,1,strnpcinfo(0)+"::OnWrongKilled";
set .poringcatch,1;
close;

gm_warp:
mes "[PoringEvent]";
mes "Have Fun!";
next;
warp "poring_c01", 100, 100;
end;
}
Back to top Go down
View user profile
 
Poring Event
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Forever Ragnarok :: Scripts-
Jump to: