All in one event npc

[KoriAK]

I need a npc with event setting, with admin/gm menu were you can setup event. Can someone help me.

[nicoscene]

Im fuster all i ask for a little help and you guys want me to buy a script, i just need a little event manager.

im sure noone will help you with this request. making that script will consume much time. if i were you, just study how to create scripts, so you can have your own.

[Mootie]

This suits on your needs http://rathena.org/board/files/file/2577-event-manager/

but its paid o.o

[KoriAK]

i want the thing where i cant set my own not only be limited to 7.

[Mootie]

oh okay good luck then

[nicoscene]

why not create your own? o.O

[KoriAK]

dont know were to start

[icabit]

try to think of the events you wanted to add 1st then

start from there

[KoriAK]

you kinda don't understand, here what i want

Automated events, with a schedule display for players.

Detailed event status for ongoing events.

Built-in rewards shop.

Limitations for lower-level GMs (optional).

Provides warps to the current event map.

Includes event information and rules.

Custom Event

Admin/GM Panel

[Euphy]

^ So a copy-paste of my script.

[Nipsino]

you kinda don't understand, here what i want

Automated events, with a schedule display for players.

Detailed event status for ongoing events.

Built-in rewards shop.

Limitations for lower-level GMs (optional).

Provides warps to the current event map.

Includes event information and rules.

Custom Event

Admin/GM Panel

Lol, just purchase Euphy's Event Manager.

[KoriAK]

no, your welcome to buy it for me.

can you tell me why i can access the menu on this

new_1-1,58,112,9 script event 975,{
OnInit:
set .GM, 99; // Minimum gm level for access to the npc
// Survivor PVP Mapflags.
setarray .Mapflags1[0], 1, 0, 2, 3, 6, 7, 8, 13, 14, 22, 33, 34, 37, 41, 42, 43;
// Search the mob mapflags.
setarray .Mapflags2[0], 1, 3, 31;
// Survivor PVP Prizes,
// Max: 128.
setarray .Premios1[0], 616; // IDS
setarray .Cantidad1[0], 5; // Amounts.
// Search the correct mob Prizes,
// Max: 128.
setarray .Premios2[0], 616; // IDS
setarray .Cantidad2[0], 5; // Amounts.
set .MobModo, 1;	 // Name of correct mob.
	// 1 = Correct mob 2 = Normal name.
disablenpc "Sobrevivencia" ;
disablenpc "Correctmob" ;
end;
OnWhisperGlobal:
jump_zero ( .GM, OnInit ) ;
if ( getgmlevel ( ) < .GM ) end ;
set .@nombre$, "^2b86b5Event Manager^000000";
mes .@nombre$;
if ( .de ) {
 mes "I'm sorry, but now is other gm using this npc.";
 close ;
}
set .de, 1;
donpcevent "event::OnDen0";
mes "Hi "+ strcharinfo(0) +", how i can see you're a GM.";
mes "^FF0000*It's commendable do 1 event per time^000000*";
mes "Which event do you want to organize?";
next ;
while ( ! .@a || .@b == 3 || .@c == 1 ) {
 donpcevent "event::OnDen0";
 set .@a,prompt("Survivor PvP","Search the correct mob");
 mes .@nombre$;
 mes "Do you want to do the event in this map or another?";
 mes "^880000Is not commendable do event in citys.^000000";
 set .@b, select ( "In this map", "In other map", "^db0202Back^000000" );
 donpcevent "event::OnDen0";
 while ( getmapmobs ( .@m$ ) == -1 ) {
  if ( .@b == 1 ) getmapxy ( .@m$, .@x, .@y, 0 ) ;
  else {
mes "Input the map.";
mes "^e8052f* Is not commendable do events in citys *^000000";
input .@m$ ;
  }
 }
 mes "Are you sure?";
 next ;
 set .@c, select ( "No", "Yes!" );
 if (.@a == 1) {
  setd "$@mapa"+ ( ( .@a == 1 ) ? "" : .@a )+"$", .@m$;
  while ( .@nivel1 < 1 ) {
mes "^f61c26Input the minimum level.";
input .@nivel1 ;
  }
  mes "^080585Input the maximum level.";
  mes "^150cff0 for any level.^000000";
  input .@nivel2 ;
  if ( getd( "$@M_"+.@m$ ) != 1 ) {
next ;
mes .@nombre$;
mes "Event activated.";
deletearray $@ev_m, 128;
for ( set .@a, 0; .@a < getarraysize ( .Mapflags1 ) ; set .@a, .@a + 1 ) {
 if ( ! getmapflag ( $@mapa$, .Mapflags1[.@a] ) ) {
  setmapflag $@mapa$, .Mapflags1[.@a];
  set $@ev_m1[getarraysize ( $@ev_m1 )], .@a + 1;
 }
}
setmapflagnosave $@mapa$, "prontera", 156, 161 ;
enablenpc "Sobrevivencia" ;
setd "$@M_"+$@mapa$, 1;
warp $@mapa$, 0, 0 ;
set $@item, getarraysize ( .Premios1 );
set $@nivelm, .@nivel1;
set $@nivelmx, .@nivel2;
atcommand "@recallall" ;
announce "Event activated: Survivor PvP in "+$@mapa$, bc_all, 0xdbc10f;
  }
  else mes "It map actually has a active event...";
 }
 if (.@a == 2) {
  if (getd("$@M_"+.@m$) != 1) {
while ( getmonsterinfo ( .@id, 0 ) == "null" ) {
 mes "^067c00Input the ID of common mobs.";
 input .@id ;
}
while ( .@cantidad < 1 ) {
 mes "^067c00Input the amount of common mobs.";
 input .@cantidad ;
}
while ( getmonsterinfo ( .@id2, 0 ) == "null" ) {
 mes "^007c66Input the ID of correct mob.";
 input .@id2 ;
}
while ( .@cantidad2 < 1 ) {
 mes "^007c66Input the amount of the correct mob.";
 input .@cantidad2 ;
}
next;
mes .@nombre$;
mes "Event activated.";
deletearray $@ev_m2, 128;
for ( set .@a, 0; .@a < getarraysize ( .Mapflags2 ) ; set .@a, .@a + 1 ) {
 if ( ! getmapflag ( $@mapa$, .Mapflags2[.@a] ) ) {
  setmapflag $@mapa2$, .Mapflags2[.@a];
  set $@ev_m2[getarraysize ( $@ev_m2 )], .@a + 1;
 }
}
enablenpc "Correctmob" ;
setd "$@M_"+$@mapa2$, 1;
monster $@mapa2$, 0, 0, "--ja--", .@id, .@cantidad, "Correctmob::OnX" ;
set $@mons, .@cantidad2;
monster $@mapa2$, 0, 0, ( ( .MobModo != 1 ) ? "--ja--" : "Correct Mob" ), .@id2, .@cantidad2, "Correctmob::OnWin" ;
set $@item2,getarraysize(.Premios2);
announce "Event activated: Search the correct mob in "+ $@mapa2$, bc_all, 0xdbc10f;
  }
  else mes "It map actually has a active event...";
 }
 set .de, 0;
}
if ( .@a == 255 || .@b == 255 || .@c == 255 ) set .de, 0;
else set .de, 0;
close ;

OnDen0:
set .@s, gettimetick ( 2 ) - .de1;
set .de1, 0;
if ( .@s >= 300 ) set .de, 0;
else if ( playerattached ( ) ) set .de, 1;
if ( ! .de1 ) set .de1, gettimetick ( 2 );
end ;
}

- script Sobrevivencia -1,{
OnPCKillEvent:
getmapxy ( .@mapa$, .@x, .@y, 0 );
if ( .@mapa$ == $@mapa$ ) {
 set .@u, getmapusers ( $@mapa$ );
 if ( .@u == 1 ) {
  announce strcharinfo(0) +" has won the Survivor PVP!", bc_all, 0x9ad488;
  for ( set .@i,0; .@i < $@item ; set .@i,.@i + 1 ) {
announce "You won "+ getvariableofnpc ( .Cantidad1[.@i],"event") +" "+ getitemname ( getvariableofnpc ( .Premios1[.@i], "event" ) ), bc_self, 0x05e8db ;
getitem getvariableofnpc ( .Premios1[.@i], "event" ), getvariableofnpc ( .Cantidad1[.@i], "evento" );
  }
  for ( set .@a, 0; .@a < getarraysize ( $@ev_m1 ) ; set .@a, .@a + 1 ) {
set .@b, $@ev_m1[.@a] - 1;
removemapflag $@mapa$, getvariableofnpc ( .Mapflags1[.@b], "event" );
  }
  setd "$@M_"+$@mapa$, 0;
  disablenpc "Sobrevivencia" ;
 }
}
end ;
OnPCDieEvent:
getmapxy ( .@mapa$, .@x, .@y, 0 );
if ( .@mapa$ == $@mapa$ ) warp "SavePoint", 0, 0;
end ;
OnPCLoadMapEvent:
set @W, @W + 1;
getmapxy ( .@mapa$, .@x, .@y, 0 );
if ( ( .@mapa$ == $@mapa$ && @W > 1 ) || ( BaseLevel < $@nivelm ) || ( BaseLevel > $@nivelmx && $@nivelmx ) ) warp "SavePoint", 0, 0 ;
end ;
}
- script Correctmob -1,{

OnX:

end ;

OnWin:
set $@nmobs, $@nmobs + 1;
announce strcharinfo(0) +" has won the Search the correct mob event!", bc_all, 0x9ad488;
for ( set .@i,0; .@i < $@item2 ; set .@i,.@i + 1 ) {
 announce "You won "+ getvariableofnpc ( .Cantidad2[.@i], "evento" ) +" "+ getitemname( getvariableofnpc ( .Premios2[.@i],"evento" ) ), bc_self, 0x05e8db ;
 getitem getvariableofnpc ( .Premios2[.@i],"evento" ), getvariableofnpc ( .Cantidad2[.@i],"evento" );
}
if ( $@nmobs >= $@mons ) {
 killmonster $@mapa2$,"Correctmob::OnX";
 disablenpc "Correctmob" ;
 for ( set .@a, 0; .@a < getarraysize ( $@ev_m2 ) ; set .@a, .@a + 1 ) {
  set .@b, $@ev_m2[.@a] - 1;
  removemapflag $@mapa2$, getvariableofnpc ( .Mapflags2[.@b], "event" );
 }
 setd "$@M_"+$@mapa2$, 0;
 set $@nmobs, 0;
}
end ;
}

Edited January 21, 2013 by Emistry
Please use [CODEBOX] or Attachments for long contents.

[icabit]

^ So a copy-paste of my script.

most probably >.>

[KoriAK]

this is the script that i found http://www.eathena.ws/board/index.php?act=attach&type=post&id=4774

[Yudax]

The best way for you is to is hire a Scripter. This is a lot of work to do. Or just do it you self then.

[nicoscene]

You can't find such script for free >.< noone will make it for free though, just buy euphy's script. and the script you posted. it is incomplete.

[Mootie]

or else buy euphy script

[KoriAK]

Im fuster all i ask for a little help and you guys want me to buy a script, i just need a little event manager.

[xmaniacx]

i believe that script does not have a "little" details on it, and requires a lot of complicated combination that's why no one would put an effort to do it just to give it for free

Edited January 21, 2013 by xmaniacx

[KoriAK]

im fuster now.

[icabit]

Im fuster all i ask for a little help and you guys want me to buy a script, i just need a little event manager.

im sure noone will help you with this request. making that script will consume much time. if i were you, just study how to create scripts, so you can have your own.

no offense i agree with nicoscene

+1

[Mootie]

good luck to her

[Photons]

+1 to nicoscene

[GM Takumirai]

Please guys the topic starter wanted a support for his script.. he is not intended to do fight.. script request and support is not thesame as buying a script.. he just wanted to ask a support not to buy no offense to euphy.. and also what is the point of this support and request script section if he cant find an answer.. maybe someone can answer or help him make from the scratch.. but its not bad to try his luck.. anyway goodluck

Edited February 14, 2013 by GM Takumirai