Jump to content
  • 0

All in one event npc


Question

23 answers to this question

Recommended Posts

Posted

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.

Posted

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

Posted

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.

Posted (edited)

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 by Emistry
Please use [CODEBOX] or Attachments for long contents.
Posted (edited)

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 by xmaniacx
  • Upvote 1
Posted

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 :D

Posted (edited)

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 by GM Takumirai

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...