Luck 1 Posted May 29, 2019 Target Tarot EventI urgently need this event who can help and can share thank you for the attention. Quote Share this post Link to post Share on other sites
0 bWolfie 140 Posted May 29, 2019 Is my browser broken? Feels like there should be a video or set of images to explain the event. You should definitely explain what you want, otherwise I guarantee the chance of a response is ZERO. 2 Luck and Luciar reacted to this Quote Share this post Link to post Share on other sites
0 Luck 1 Posted May 30, 2019 On 5/29/2019 at 9:27 AM, bWolfie said: Is my browser broken? Feels like there should be a video or set of images to explain the event. You should definitely explain what you want, otherwise I guarantee the chance of a response is ZERO. An event held manually by many Game Masters and now has automatic. EXAMPLE: At startup, it will explain that you will use the 'Destination in Cards' ability on each participating player. You should only be lucky not to be 'gifted' with the 'Eat' card! And being the last to leave, will be the winner, winning event and the award. Quote Share this post Link to post Share on other sites
0 Luciar 14 Posted May 30, 2019 I would potentially be willing to help you, but this request remains unclear and lacking in detail. The poor translation coupled with limited information makes it impossible to assist you. Please try to provide clear details of what exactly you want. If you are unable to do so in English, consider using one of our international forums found here. Quote Share this post Link to post Share on other sites
0 Chengue 0 Posted May 30, 2019 (edited) That's it. https://github.com/chengue96/requests/blob/master/scripts/event_tarot.txt Reveal hidden contents prontera,128,329,4 script Evento do Destino 4_M_BARD,{ mes "[Evento do Destino]"; mes "Olá "+strcharinfo(0); mes "Está afim de testar sua sorte nas cartas? Fique atento quando anunciar o início do evento."; next; switch(select("Participar do evento", ( getgroupid() >= $@lvminGM ? ( !$tarot_status ? "Ligar":"Desligar")+" Evento":"") , "Premiação", "Não quero participar")){ case 1: // = Se evento não ativo if (!$tarot_status){ mes "[Evento do Destino]"; mes "Senhor"+(Sex? "":"a")+", no momento o evento não está atívo! Nós avisaremos quando o evento começar."; close; } // = Verifica se o nome do personagem já está no array for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { if ( $@tarot_participantes$[.@i] == strcharinfo(0) ) { mes "[Evento do Destino]"; mes "Tenha calma "+strcharinfo(0)+"! Nós ainda não estamos prontos para você, aguarde um momento."; next; warp "force_1-1",100,100; close; } } mes "[Evento do Destino]"; mes "Tudo certo, anotei a sua participação aqui! Em breve você será chamado para que o evento seja iniciado."; // = Adiciona o nome do personagem ao array set $@tarot_participantes$[getarraysize($@tarot_participantes$)], strcharinfo(0); //message strcharinfo(0), strnpcinfo(1)+" Meus parabéns! Você se registrou com êxito para participar do evento."; //announce strnpcinfo(1)+" <"+strcharinfo(0)+"> registrou-se para participar do evento!",bc_all; next; warp "force_1-1",100,100; close; case 2: if( agitcheck() || agitcheck2() ){ mes "[Evento do Destino]"; mes "Neste momento a Guerra do Emperium está atíva e não é possível dar início ao evento!"; close; } mes "[Evento do Destino]"; mes "Olá, Game-Master! Você tem certeza que deseja "+( !$tarot_status ? "Ligar":"Desligar")+" o evento?"; if(select("Não:Tenho certeza") == 1) close; if ( !$tarot_status ){ donpcevent "Tarot Event::OnStart"; }else donpcevent "Tarot Event::OnStop"; close; end; case 3: mes "[Evento do Destino]"; mes "O participante que não for atingido pela carta 'Coma' receberá pontos de evento e recompensas aleatórias."; close; case 4: close; } OnInit: // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - //set "[Evento do Destino]", "^800000"+strnpcinfo(1)+"^000000"; // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - setarray $@mapeventtarot$, "poring_w01", 102, 71; // = Configuração do mapa do evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set $@mintarot_participantes,2; // = Número mínimo de participantes para iniciar o evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set $@lvminGM, 60; // = Level mínimo de GM para ligar/desligar o evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - // = ATENÇÃO: CADA ITEM TEM SUA QUANTIDADE // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); setarray .mapflag,0,1,7,8,13,22,33,34,12; for (set .@m,0; .@m < getarraysize(.mapflag); set .@m, .@m + 1){ setmapflag $@mapeventtarot$[0], .mapflag[.@m]; } end; } - script Tarot Event -1,{ // = Início automático OnWhisperGlobal: input @pass; if(@pass != 1324) end; OnClock0500: OnClock1700: // = Início manual OnStart: set $tarot_status,1; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 5 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 4 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 3 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 2 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 1 minuto para participar. Digite @evt para participar.",bc_all; sleep 60000; if ( getarraysize($@tarot_participantes$) < $@mintarot_participantes ){ announce "As inscrições para o Evento do Destino não foram suficientes para iniciar.",bc_all; callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; } announce "[NPC] Evento do Destino: As inscrições para o evento foram encerradas. Boa sorte a todos os participantes!",bc_all; set $tarot_status,0; for(set .@p, 0; .@p < getarraysize($@tarot_participantes$); set .@p, .@p + 1){ if ( isloggedin(getcharid(3, $@tarot_participantes$[.@p])) ){ warpchar $@mapeventtarot$[0], atoi($@mapeventtarot$[1]), atoi($@mapeventtarot$[2]), getcharid(0, $@tarot_participantes$[.@p]); }else{ deletearray $@tarot_participantes$[.@p], 1; } } sleep 8000; sleep2 1500; donpcevent "[GM]Tyr::OnSpeak"; end; OnReturn: while( getarraysize($@tarot_participantes$) > 1){ // = Enquanto o total de participantes for maior que 1 // sleep 1000; for(set .@p,0;.@p<getarraysize($@tarot_participantes$);set .@p,.@p+1){ sleep2 1000; if(getmapusers("poring_w01") == 1){goto Vencer;} attachrid(getcharid(3,$@tarot_participantes$[.@p])); if( strcharinfo(3) == $@mapeventtarot$[0] ){ set .@CARDs,522+rand(1,14); specialeffect2 .@CARDs, strcharinfo(0); if( .@CARDs == 531 ){ deletearray $@tarot_participantes$[.@p], 1; percentheal -99,-99; sleep2 1500; warp "SavePoint",0,0; } } detachrid; } } sleep 2000; Vencer: if ( getarraysize($@tarot_participantes$)){ attachrid(getcharid(3, $@tarot_participantes$[0])); // = Atacha o account_id apartir do nome if ( strcharinfo(3) == $@mapeventtarot$[0] ){ announce "[NPC] Evento do Destino: O vencedor do evento é o jogador '"+$@tarot_participantes$[0]+"' parabéns!",bc_all; getitem 7227,1; set #evento,#evento+10; } detachrid; } callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; // = Encerra o Evento OnStop: //announce "["+strnpcinfo(1)+"] Evento encerrado!",bc_all; callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; } - script tarot_events -1,{ // = Se o participante que deslogou ou morreu estiver no mapa do evento, seu nome será retirado do array de tarot_participantes OnPCLogoutEvent: if ( strcharinfo(3) == $@mapeventtarot$[0] ){ for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { if ( $@tarot_participantes$[.@i] == strcharinfo(0) ){ deletearray $@tarot_participantes$[.@i], 1; break; } } } end; } poring_w01,102,73,1 script [GM]Tyr 871,{ mes "[Organizadora de Eventos]"; mes "Jogadores na disputa..."; for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { mes (.@i+1)+" - "+$@tarot_participantes$[.@i]; } close; end; OnSpeak: setarray .msgs$, "Usarei a habilidade 'Destino nas Cartas' em cada um de vocês.", "As rodadas serão de acordo com a ordem de inscrição no evento.", "O vencedor será o último a sobreviver!", "Boa sorte a todos os participantes!", "TAROOOW!"; for ( set .@i,0; .@i < getarraysize(.msgs$); set .@i, .@i+1 ){ npctalk .msgs$[.@i]; sleep 3000; } donpcevent "Tarot Event::OnReturn"; end; OnInit: setarray .x[0],94,105,99,110; setarray .y[0],68; npcspeed 195; initnpctimer; end; OnTimer1000: emotion rand(34,45); for(set .c,0;.c<getarraysize(.x); set .c,.c+1){ npcwalkto .x[.c],.y[0]; sleep 3500; } initnpctimer; end; } // = Reseta parâmetros function script resetEventoTarot { // @param0 = array dos tarot_participantes // @param1 = map event deletearray getarg(0); set $tarot_status,0; mapwarp getarg(1), "prontera",156,183; return; }prontera,128,329,4 script Evento do Destino 4_M_BARD,{ mes "[Evento do Destino]"; mes "Olá "+strcharinfo(0); mes "Está afim de testar sua sorte nas cartas? Fique atento quando anunciar o início do evento."; next; switch(select("Participar do evento", ( getgroupid() >= $@lvminGM ? ( !$tarot_status ? "Ligar":"Desligar")+" Evento":"") , "Premiação", "Não quero participar")){ case 1: // = Se evento não ativo if (!$tarot_status){ mes "[Evento do Destino]"; mes "Senhor"+(Sex? "":"a")+", no momento o evento não está atívo! Nós avisaremos quando o evento começar."; close; } // = Verifica se o nome do personagem já está no array for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { if ( $@tarot_participantes$[.@i] == strcharinfo(0) ) { mes "[Evento do Destino]"; mes "Tenha calma "+strcharinfo(0)+"! Nós ainda não estamos prontos para você, aguarde um momento."; next; warp "force_1-1",100,100; close; } } mes "[Evento do Destino]"; mes "Tudo certo, anotei a sua participação aqui! Em breve você será chamado para que o evento seja iniciado."; // = Adiciona o nome do personagem ao array set $@tarot_participantes$[getarraysize($@tarot_participantes$)], strcharinfo(0); //message strcharinfo(0), strnpcinfo(1)+" Meus parabéns! Você se registrou com êxito para participar do evento."; //announce strnpcinfo(1)+" <"+strcharinfo(0)+"> registrou-se para participar do evento!",bc_all; next; warp "force_1-1",100,100; close; case 2: if( agitcheck() || agitcheck2() ){ mes "[Evento do Destino]"; mes "Neste momento a Guerra do Emperium está atíva e não é possível dar início ao evento!"; close; } mes "[Evento do Destino]"; mes "Olá, Game-Master! Você tem certeza que deseja "+( !$tarot_status ? "Ligar":"Desligar")+" o evento?"; if(select("Não:Tenho certeza") == 1) close; if ( !$tarot_status ){ donpcevent "Tarot Event::OnStart"; }else donpcevent "Tarot Event::OnStop"; close; end; case 3: mes "[Evento do Destino]"; mes "O participante que não for atingido pela carta 'Coma' receberá pontos de evento e recompensas aleatórias."; close; case 4: close; } OnInit: // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - //set "[Evento do Destino]", "^800000"+strnpcinfo(1)+"^000000"; // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - setarray $@mapeventtarot$, "poring_w01", 102, 71; // = Configuração do mapa do evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set $@mintarot_participantes,2; // = Número mínimo de participantes para iniciar o evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set $@lvminGM, 60; // = Level mínimo de GM para ligar/desligar o evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - // = ATENÇÃO: CADA ITEM TEM SUA QUANTIDADE // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); setarray .mapflag,0,1,7,8,13,22,33,34,12; for (set .@m,0; .@m < getarraysize(.mapflag); set .@m, .@m + 1){ setmapflag $@mapeventtarot$[0], .mapflag[.@m]; } end; } - script Tarot Event -1,{ // = Início automático OnWhisperGlobal: input @pass; if(@pass != 1324) end; OnClock0500: OnClock1700: // = Início manual OnStart: set $tarot_status,1; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 5 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 4 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 3 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 2 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 1 minuto para participar. Digite @evt para participar.",bc_all; sleep 60000; if ( getarraysize($@tarot_participantes$) < $@mintarot_participantes ){ announce "As inscrições para o Evento do Destino não foram suficientes para iniciar.",bc_all; callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; } announce "[NPC] Evento do Destino: As inscrições para o evento foram encerradas. Boa sorte a todos os participantes!",bc_all; set $tarot_status,0; for(set .@p, 0; .@p < getarraysize($@tarot_participantes$); set .@p, .@p + 1){ if ( isloggedin(getcharid(3, $@tarot_participantes$[.@p])) ){ warpchar $@mapeventtarot$[0], atoi($@mapeventtarot$[1]), atoi($@mapeventtarot$[2]), getcharid(0, $@tarot_participantes$[.@p]); }else{ deletearray $@tarot_participantes$[.@p], 1; } } sleep 8000; sleep2 1500; donpcevent "[GM]Tyr::OnSpeak"; end; OnReturn: while( getarraysize($@tarot_participantes$) > 1){ // = Enquanto o total de participantes for maior que 1 // sleep 1000; for(set .@p,0;.@p<getarraysize($@tarot_participantes$);set .@p,.@p+1){ sleep2 1000; if(getmapusers("poring_w01") == 1){goto Vencer;} attachrid(getcharid(3,$@tarot_participantes$[.@p])); if( strcharinfo(3) == $@mapeventtarot$[0] ){ set .@CARDs,522+rand(1,14); specialeffect2 .@CARDs, strcharinfo(0); if( .@CARDs == 531 ){ deletearray $@tarot_participantes$[.@p], 1; percentheal -99,-99; sleep2 1500; warp "SavePoint",0,0; } } detachrid; } } sleep 2000; Vencer: if ( getarraysize($@tarot_participantes$)){ attachrid(getcharid(3, $@tarot_participantes$[0])); // = Atacha o account_id apartir do nome if ( strcharinfo(3) == $@mapeventtarot$[0] ){ announce "[NPC] Evento do Destino: O vencedor do evento é o jogador '"+$@tarot_participantes$[0]+"' parabéns!",bc_all; getitem 7227,1; set #evento,#evento+10; } detachrid; } callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; // = Encerra o Evento OnStop: //announce "["+strnpcinfo(1)+"] Evento encerrado!",bc_all; callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; } - script tarot_events -1,{ // = Se o participante que deslogou ou morreu estiver no mapa do evento, seu nome será retirado do array de tarot_participantes OnPCLogoutEvent: if ( strcharinfo(3) == $@mapeventtarot$[0] ){ for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { if ( $@tarot_participantes$[.@i] == strcharinfo(0) ){ deletearray $@tarot_participantes$[.@i], 1; break; } } } end; } poring_w01,102,73,1 script [GM]Tyr 871,{ mes "[Organizadora de Eventos]"; mes "Jogadores na disputa..."; for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { mes (.@i+1)+" - "+$@tarot_participantes$[.@i]; } close; end; OnSpeak: setarray .msgs$, "Usarei a habilidade 'Destino nas Cartas' em cada um de vocês.", "As rodadas serão de acordo com a ordem de inscrição no evento.", "O vencedor será o último a sobreviver!", "Boa sorte a todos os participantes!", "TAROOOW!"; for ( set .@i,0; .@i < getarraysize(.msgs$); set .@i, .@i+1 ){ npctalk .msgs$[.@i]; sleep 3000; } donpcevent "Tarot Event::OnReturn"; end; OnInit: setarray .x[0],94,105,99,110; setarray .y[0],68; npcspeed 195; initnpctimer; end; OnTimer1000: emotion rand(34,45); for(set .c,0;.c<getarraysize(.x); set .c,.c+1){ npcwalkto .x[.c],.y[0]; sleep 3500; } initnpctimer; end; } // = Reseta parâmetros function script resetEventoTarot { // @param0 = array dos tarot_participantes // @param1 = map event deletearray getarg(0); set $tarot_status,0; mapwarp getarg(1), "prontera",156,183; return; } Please edit the claim at line 177. Edited May 30, 2019 by matheusalves Quote Share this post Link to post Share on other sites
0 Luck 1 Posted May 31, 2019 On 5/30/2019 at 8:29 PM, Chengue said: That's it. https://github.com/chengue96/requests/blob/master/scripts/event_tarot.txt Reveal hidden contents prontera,128,329,4 script Evento do Destino 4_M_BARD,{ mes "[Evento do Destino]"; mes "Olá "+strcharinfo(0); mes "Está afim de testar sua sorte nas cartas? Fique atento quando anunciar o início do evento."; next; switch(select("Participar do evento", ( getgroupid() >= $@lvminGM ? ( !$tarot_status ? "Ligar":"Desligar")+" Evento":"") , "Premiação", "Não quero participar")){ case 1: // = Se evento não ativo if (!$tarot_status){ mes "[Evento do Destino]"; mes "Senhor"+(Sex? "":"a")+", no momento o evento não está atívo! Nós avisaremos quando o evento começar."; close; } // = Verifica se o nome do personagem já está no array for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { if ( $@tarot_participantes$[.@i] == strcharinfo(0) ) { mes "[Evento do Destino]"; mes "Tenha calma "+strcharinfo(0)+"! Nós ainda não estamos prontos para você, aguarde um momento."; next; warp "force_1-1",100,100; close; } } mes "[Evento do Destino]"; mes "Tudo certo, anotei a sua participação aqui! Em breve você será chamado para que o evento seja iniciado."; // = Adiciona o nome do personagem ao array set $@tarot_participantes$[getarraysize($@tarot_participantes$)], strcharinfo(0); //message strcharinfo(0), strnpcinfo(1)+" Meus parabéns! Você se registrou com êxito para participar do evento."; //announce strnpcinfo(1)+" <"+strcharinfo(0)+"> registrou-se para participar do evento!",bc_all; next; warp "force_1-1",100,100; close; case 2: if( agitcheck() || agitcheck2() ){ mes "[Evento do Destino]"; mes "Neste momento a Guerra do Emperium está atíva e não é possível dar início ao evento!"; close; } mes "[Evento do Destino]"; mes "Olá, Game-Master! Você tem certeza que deseja "+( !$tarot_status ? "Ligar":"Desligar")+" o evento?"; if(select("Não:Tenho certeza") == 1) close; if ( !$tarot_status ){ donpcevent "Tarot Event::OnStart"; }else donpcevent "Tarot Event::OnStop"; close; end; case 3: mes "[Evento do Destino]"; mes "O participante que não for atingido pela carta 'Coma' receberá pontos de evento e recompensas aleatórias."; close; case 4: close; } OnInit: // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - //set "[Evento do Destino]", "^800000"+strnpcinfo(1)+"^000000"; // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - setarray $@mapeventtarot$, "poring_w01", 102, 71; // = Configuração do mapa do evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set $@mintarot_participantes,2; // = Número mínimo de participantes para iniciar o evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set $@lvminGM, 60; // = Level mínimo de GM para ligar/desligar o evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - // = ATENÇÃO: CADA ITEM TEM SUA QUANTIDADE // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); setarray .mapflag,0,1,7,8,13,22,33,34,12; for (set .@m,0; .@m < getarraysize(.mapflag); set .@m, .@m + 1){ setmapflag $@mapeventtarot$[0], .mapflag[.@m]; } end; } - script Tarot Event -1,{ // = Início automático OnWhisperGlobal: input @pass; if(@pass != 1324) end; OnClock0500: OnClock1700: // = Início manual OnStart: set $tarot_status,1; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 5 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 4 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 3 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 2 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 1 minuto para participar. Digite @evt para participar.",bc_all; sleep 60000; if ( getarraysize($@tarot_participantes$) < $@mintarot_participantes ){ announce "As inscrições para o Evento do Destino não foram suficientes para iniciar.",bc_all; callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; } announce "[NPC] Evento do Destino: As inscrições para o evento foram encerradas. Boa sorte a todos os participantes!",bc_all; set $tarot_status,0; for(set .@p, 0; .@p < getarraysize($@tarot_participantes$); set .@p, .@p + 1){ if ( isloggedin(getcharid(3, $@tarot_participantes$[.@p])) ){ warpchar $@mapeventtarot$[0], atoi($@mapeventtarot$[1]), atoi($@mapeventtarot$[2]), getcharid(0, $@tarot_participantes$[.@p]); }else{ deletearray $@tarot_participantes$[.@p], 1; } } sleep 8000; sleep2 1500; donpcevent "[GM]Tyr::OnSpeak"; end; OnReturn: while( getarraysize($@tarot_participantes$) > 1){ // = Enquanto o total de participantes for maior que 1 // sleep 1000; for(set .@p,0;.@p<getarraysize($@tarot_participantes$);set .@p,.@p+1){ sleep2 1000; if(getmapusers("poring_w01") == 1){goto Vencer;} attachrid(getcharid(3,$@tarot_participantes$[.@p])); if( strcharinfo(3) == $@mapeventtarot$[0] ){ set .@CARDs,522+rand(1,14); specialeffect2 .@CARDs, strcharinfo(0); if( .@CARDs == 531 ){ deletearray $@tarot_participantes$[.@p], 1; percentheal -99,-99; sleep2 1500; warp "SavePoint",0,0; } } detachrid; } } sleep 2000; Vencer: if ( getarraysize($@tarot_participantes$)){ attachrid(getcharid(3, $@tarot_participantes$[0])); // = Atacha o account_id apartir do nome if ( strcharinfo(3) == $@mapeventtarot$[0] ){ announce "[NPC] Evento do Destino: O vencedor do evento é o jogador '"+$@tarot_participantes$[0]+"' parabéns!",bc_all; getitem 7227,1; set #evento,#evento+10; } detachrid; } callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; // = Encerra o Evento OnStop: //announce "["+strnpcinfo(1)+"] Evento encerrado!",bc_all; callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; } - script tarot_events -1,{ // = Se o participante que deslogou ou morreu estiver no mapa do evento, seu nome será retirado do array de tarot_participantes OnPCLogoutEvent: if ( strcharinfo(3) == $@mapeventtarot$[0] ){ for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { if ( $@tarot_participantes$[.@i] == strcharinfo(0) ){ deletearray $@tarot_participantes$[.@i], 1; break; } } } end; } poring_w01,102,73,1 script [GM]Tyr 871,{ mes "[Organizadora de Eventos]"; mes "Jogadores na disputa..."; for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { mes (.@i+1)+" - "+$@tarot_participantes$[.@i]; } close; end; OnSpeak: setarray .msgs$, "Usarei a habilidade 'Destino nas Cartas' em cada um de vocês.", "As rodadas serão de acordo com a ordem de inscrição no evento.", "O vencedor será o último a sobreviver!", "Boa sorte a todos os participantes!", "TAROOOW!"; for ( set .@i,0; .@i < getarraysize(.msgs$); set .@i, .@i+1 ){ npctalk .msgs$[.@i]; sleep 3000; } donpcevent "Tarot Event::OnReturn"; end; OnInit: setarray .x[0],94,105,99,110; setarray .y[0],68; npcspeed 195; initnpctimer; end; OnTimer1000: emotion rand(34,45); for(set .c,0;.c<getarraysize(.x); set .c,.c+1){ npcwalkto .x[.c],.y[0]; sleep 3500; } initnpctimer; end; } // = Reseta parâmetros function script resetEventoTarot { // @param0 = array dos tarot_participantes // @param1 = map event deletearray getarg(0); set $tarot_status,0; mapwarp getarg(1), "prontera",156,183; return; } prontera,128,329,4 script Evento do Destino 4_M_BARD,{ mes "[Evento do Destino]"; mes "Olá "+strcharinfo(0); mes "Está afim de testar sua sorte nas cartas? Fique atento quando anunciar o início do evento."; next; switch(select("Participar do evento", ( getgroupid() >= $@lvminGM ? ( !$tarot_status ? "Ligar":"Desligar")+" Evento":"") , "Premiação", "Não quero participar")){ case 1: // = Se evento não ativo if (!$tarot_status){ mes "[Evento do Destino]"; mes "Senhor"+(Sex? "":"a")+", no momento o evento não está atívo! Nós avisaremos quando o evento começar."; close; } // = Verifica se o nome do personagem já está no array for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { if ( $@tarot_participantes$[.@i] == strcharinfo(0) ) { mes "[Evento do Destino]"; mes "Tenha calma "+strcharinfo(0)+"! Nós ainda não estamos prontos para você, aguarde um momento."; next; warp "force_1-1",100,100; close; } } mes "[Evento do Destino]"; mes "Tudo certo, anotei a sua participação aqui! Em breve você será chamado para que o evento seja iniciado."; // = Adiciona o nome do personagem ao array set $@tarot_participantes$[getarraysize($@tarot_participantes$)], strcharinfo(0); //message strcharinfo(0), strnpcinfo(1)+" Meus parabéns! Você se registrou com êxito para participar do evento."; //announce strnpcinfo(1)+" <"+strcharinfo(0)+"> registrou-se para participar do evento!",bc_all; next; warp "force_1-1",100,100; close; case 2: if( agitcheck() || agitcheck2() ){ mes "[Evento do Destino]"; mes "Neste momento a Guerra do Emperium está atíva e não é possível dar início ao evento!"; close; } mes "[Evento do Destino]"; mes "Olá, Game-Master! Você tem certeza que deseja "+( !$tarot_status ? "Ligar":"Desligar")+" o evento?"; if(select("Não:Tenho certeza") == 1) close; if ( !$tarot_status ){ donpcevent "Tarot Event::OnStart"; }else donpcevent "Tarot Event::OnStop"; close; end; case 3: mes "[Evento do Destino]"; mes "O participante que não for atingido pela carta 'Coma' receberá pontos de evento e recompensas aleatórias."; close; case 4: close; } OnInit: // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - //set "[Evento do Destino]", "^800000"+strnpcinfo(1)+"^000000"; // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - setarray $@mapeventtarot$, "poring_w01", 102, 71; // = Configuração do mapa do evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set $@mintarot_participantes,2; // = Número mínimo de participantes para iniciar o evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set $@lvminGM, 60; // = Level mínimo de GM para ligar/desligar o evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - // = ATENÇÃO: CADA ITEM TEM SUA QUANTIDADE // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); setarray .mapflag,0,1,7,8,13,22,33,34,12; for (set .@m,0; .@m < getarraysize(.mapflag); set .@m, .@m + 1){ setmapflag $@mapeventtarot$[0], .mapflag[.@m]; } end; } - script Tarot Event -1,{ // = Início automático OnWhisperGlobal: input @pass; if(@pass != 1324) end; OnClock0500: OnClock1700: // = Início manual OnStart: set $tarot_status,1; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 5 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 4 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 3 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 2 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 1 minuto para participar. Digite @evt para participar.",bc_all; sleep 60000; if ( getarraysize($@tarot_participantes$) < $@mintarot_participantes ){ announce "As inscrições para o Evento do Destino não foram suficientes para iniciar.",bc_all; callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; } announce "[NPC] Evento do Destino: As inscrições para o evento foram encerradas. Boa sorte a todos os participantes!",bc_all; set $tarot_status,0; for(set .@p, 0; .@p < getarraysize($@tarot_participantes$); set .@p, .@p + 1){ if ( isloggedin(getcharid(3, $@tarot_participantes$[.@p])) ){ warpchar $@mapeventtarot$[0], atoi($@mapeventtarot$[1]), atoi($@mapeventtarot$[2]), getcharid(0, $@tarot_participantes$[.@p]); }else{ deletearray $@tarot_participantes$[.@p], 1; } } sleep 8000; sleep2 1500; donpcevent "[GM]Tyr::OnSpeak"; end; OnReturn: while( getarraysize($@tarot_participantes$) > 1){ // = Enquanto o total de participantes for maior que 1 // sleep 1000; for(set .@p,0;.@p<getarraysize($@tarot_participantes$);set .@p,.@p+1){ sleep2 1000; if(getmapusers("poring_w01") == 1){goto Vencer;} attachrid(getcharid(3,$@tarot_participantes$[.@p])); if( strcharinfo(3) == $@mapeventtarot$[0] ){ set .@CARDs,522+rand(1,14); specialeffect2 .@CARDs, strcharinfo(0); if( .@CARDs == 531 ){ deletearray $@tarot_participantes$[.@p], 1; percentheal -99,-99; sleep2 1500; warp "SavePoint",0,0; } } detachrid; } } sleep 2000; Vencer: if ( getarraysize($@tarot_participantes$)){ attachrid(getcharid(3, $@tarot_participantes$[0])); // = Atacha o account_id apartir do nome if ( strcharinfo(3) == $@mapeventtarot$[0] ){ announce "[NPC] Evento do Destino: O vencedor do evento é o jogador '"+$@tarot_participantes$[0]+"' parabéns!",bc_all; getitem 7227,1; set #evento,#evento+10; } detachrid; } callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; // = Encerra o Evento OnStop: //announce "["+strnpcinfo(1)+"] Evento encerrado!",bc_all; callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; } - script tarot_events -1,{ // = Se o participante que deslogou ou morreu estiver no mapa do evento, seu nome será retirado do array de tarot_participantes OnPCLogoutEvent: if ( strcharinfo(3) == $@mapeventtarot$[0] ){ for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { if ( $@tarot_participantes$[.@i] == strcharinfo(0) ){ deletearray $@tarot_participantes$[.@i], 1; break; } } } end; } poring_w01,102,73,1 script [GM]Tyr 871,{ mes "[Organizadora de Eventos]"; mes "Jogadores na disputa..."; for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { mes (.@i+1)+" - "+$@tarot_participantes$[.@i]; } close; end; OnSpeak: setarray .msgs$, "Usarei a habilidade 'Destino nas Cartas' em cada um de vocês.", "As rodadas serão de acordo com a ordem de inscrição no evento.", "O vencedor será o último a sobreviver!", "Boa sorte a todos os participantes!", "TAROOOW!"; for ( set .@i,0; .@i < getarraysize(.msgs$); set .@i, .@i+1 ){ npctalk .msgs$[.@i]; sleep 3000; } donpcevent "Tarot Event::OnReturn"; end; OnInit: setarray .x[0],94,105,99,110; setarray .y[0],68; npcspeed 195; initnpctimer; end; OnTimer1000: emotion rand(34,45); for(set .c,0;.c<getarraysize(.x); set .c,.c+1){ npcwalkto .x[.c],.y[0]; sleep 3500; } initnpctimer; end; } // = Reseta parâmetros function script resetEventoTarot { // @param0 = array dos tarot_participantes // @param1 = map event deletearray getarg(0); set $tarot_status,0; mapwarp getarg(1), "prontera",156,183; return; } prontera,128,329,4 script Evento do Destino 4_M_BARD,{ mes "[Evento do Destino]"; mes "Olá "+strcharinfo(0); mes "Está afim de testar sua sorte nas cartas? Fique atento quando anunciar o início do evento."; next; switch(select("Participar do evento", ( getgroupid() >= $@lvminGM ? ( !$tarot_status ? "Ligar":"Desligar")+" Evento":"") , "Premiação", "Não quero participar")){ case 1: // = Se evento não ativo if (!$tarot_status){ mes "[Evento do Destino]"; mes "Senhor"+(Sex? "":"a")+", no momento o evento não está atívo! Nós avisaremos quando o evento começar."; close; } // = Verifica se o nome do personagem já está no array for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { if ( $@tarot_participantes$[.@i] == strcharinfo(0) ) { mes "[Evento do Destino]"; mes "Tenha calma "+strcharinfo(0)+"! Nós ainda não estamos prontos para você, aguarde um momento."; next; warp "force_1-1",100,100; close; } } mes "[Evento do Destino]"; mes "Tudo certo, anotei a sua participação aqui! Em breve você será chamado para que o evento seja iniciado."; // = Adiciona o nome do personagem ao array set $@tarot_participantes$[getarraysize($@tarot_participantes$)], strcharinfo(0); //message strcharinfo(0), strnpcinfo(1)+" Meus parabéns! Você se registrou com êxito para participar do evento."; //announce strnpcinfo(1)+" <"+strcharinfo(0)+"> registrou-se para participar do evento!",bc_all; next; warp "force_1-1",100,100; close; case 2: if( agitcheck() || agitcheck2() ){ mes "[Evento do Destino]"; mes "Neste momento a Guerra do Emperium está atíva e não é possível dar início ao evento!"; close; } mes "[Evento do Destino]"; mes "Olá, Game-Master! Você tem certeza que deseja "+( !$tarot_status ? "Ligar":"Desligar")+" o evento?"; if(select("Não:Tenho certeza") == 1) close; if ( !$tarot_status ){ donpcevent "Tarot Event::OnStart"; }else donpcevent "Tarot Event::OnStop"; close; end; case 3: mes "[Evento do Destino]"; mes "O participante que não for atingido pela carta 'Coma' receberá pontos de evento e recompensas aleatórias."; close; case 4: close; } OnInit: // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - //set "[Evento do Destino]", "^800000"+strnpcinfo(1)+"^000000"; // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - setarray $@mapeventtarot$, "poring_w01", 102, 71; // = Configuração do mapa do evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set $@mintarot_participantes,2; // = Número mínimo de participantes para iniciar o evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set $@lvminGM, 60; // = Level mínimo de GM para ligar/desligar o evento // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - // = ATENÇÃO: CADA ITEM TEM SUA QUANTIDADE // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); setarray .mapflag,0,1,7,8,13,22,33,34,12; for (set .@m,0; .@m < getarraysize(.mapflag); set .@m, .@m + 1){ setmapflag $@mapeventtarot$[0], .mapflag[.@m]; } end; } - script Tarot Event -1,{ // = Início automático OnWhisperGlobal: input @pass; if(@pass != 1324) end; OnClock0500: OnClock1700: // = Início manual OnStart: set $tarot_status,1; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 5 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 4 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 3 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 2 minutos para participar. Digite @evt para participar.",bc_all; sleep 60000; announce "[NPC] Evento do Destino: As inscrições para o evento estão abertas! Vocês tem 1 minuto para participar. Digite @evt para participar.",bc_all; sleep 60000; if ( getarraysize($@tarot_participantes$) < $@mintarot_participantes ){ announce "As inscrições para o Evento do Destino não foram suficientes para iniciar.",bc_all; callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; } announce "[NPC] Evento do Destino: As inscrições para o evento foram encerradas. Boa sorte a todos os participantes!",bc_all; set $tarot_status,0; for(set .@p, 0; .@p < getarraysize($@tarot_participantes$); set .@p, .@p + 1){ if ( isloggedin(getcharid(3, $@tarot_participantes$[.@p])) ){ warpchar $@mapeventtarot$[0], atoi($@mapeventtarot$[1]), atoi($@mapeventtarot$[2]), getcharid(0, $@tarot_participantes$[.@p]); }else{ deletearray $@tarot_participantes$[.@p], 1; } } sleep 8000; sleep2 1500; donpcevent "[GM]Tyr::OnSpeak"; end; OnReturn: while( getarraysize($@tarot_participantes$) > 1){ // = Enquanto o total de participantes for maior que 1 // sleep 1000; for(set .@p,0;.@p<getarraysize($@tarot_participantes$);set .@p,.@p+1){ sleep2 1000; if(getmapusers("poring_w01") == 1){goto Vencer;} attachrid(getcharid(3,$@tarot_participantes$[.@p])); if( strcharinfo(3) == $@mapeventtarot$[0] ){ set .@CARDs,522+rand(1,14); specialeffect2 .@CARDs, strcharinfo(0); if( .@CARDs == 531 ){ deletearray $@tarot_participantes$[.@p], 1; percentheal -99,-99; sleep2 1500; warp "SavePoint",0,0; } } detachrid; } } sleep 2000; Vencer: if ( getarraysize($@tarot_participantes$)){ attachrid(getcharid(3, $@tarot_participantes$[0])); // = Atacha o account_id apartir do nome if ( strcharinfo(3) == $@mapeventtarot$[0] ){ announce "[NPC] Evento do Destino: O vencedor do evento é o jogador '"+$@tarot_participantes$[0]+"' parabéns!",bc_all; getitem 7227,1; set #evento,#evento+10; } detachrid; } callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; // = Encerra o Evento OnStop: //announce "["+strnpcinfo(1)+"] Evento encerrado!",bc_all; callfunc ("resetEventoTarot", $@tarot_participantes$, $@mapeventtarot$[0]); end; } - script tarot_events -1,{ // = Se o participante que deslogou ou morreu estiver no mapa do evento, seu nome será retirado do array de tarot_participantes OnPCLogoutEvent: if ( strcharinfo(3) == $@mapeventtarot$[0] ){ for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { if ( $@tarot_participantes$[.@i] == strcharinfo(0) ){ deletearray $@tarot_participantes$[.@i], 1; break; } } } end; } poring_w01,102,73,1 script [GM]Tyr 871,{ mes "[Organizadora de Eventos]"; mes "Jogadores na disputa..."; for (set .@i,0; .@i < getarraysize($@tarot_participantes$); set .@i,.@i + 1) { mes (.@i+1)+" - "+$@tarot_participantes$[.@i]; } close; end; OnSpeak: setarray .msgs$, "Usarei a habilidade 'Destino nas Cartas' em cada um de vocês.", "As rodadas serão de acordo com a ordem de inscrição no evento.", "O vencedor será o último a sobreviver!", "Boa sorte a todos os participantes!", "TAROOOW!"; for ( set .@i,0; .@i < getarraysize(.msgs$); set .@i, .@i+1 ){ npctalk .msgs$[.@i]; sleep 3000; } donpcevent "Tarot Event::OnReturn"; end; OnInit: setarray .x[0],94,105,99,110; setarray .y[0],68; npcspeed 195; initnpctimer; end; OnTimer1000: emotion rand(34,45); for(set .c,0;.c<getarraysize(.x); set .c,.c+1){ npcwalkto .x[.c],.y[0]; sleep 3500; } initnpctimer; end; } // = Reseta parâmetros function script resetEventoTarot { // @param0 = array dos tarot_participantes // @param1 = map event deletearray getarg(0); set $tarot_status,0; mapwarp getarg(1), "prontera",156,183; return; } Please edit the claim at line 177. thanks man, you saved my life. 1 Chengue reacted to this Quote Share this post Link to post Share on other sites
Target Tarot Event
I urgently need this event who can help and can share thank you for the attention.
Share this post
Link to post
Share on other sites