izlude,126,222,5 script Porteiro WOT 419,{set .item1,12920; //Substitua X por um item de 25% de chance de cair.set .qtd1,1; //Substitua Y pela quantidade de itens a cair.set .item2,12921; //Substitua X por um item de 24% de chance de cair.set .qtd2,1; //Substitua Y pela quantidade de itens a cair.set .item3,5395; //Substitua X por um item de 1% de chance de cair.set .qtd3,1; //Substitua Y pela quantidade de itens a cair.set .item4,14232; //Substitua X por um item de 25% de chance de cair.set .qtd4,1; //Substitua Y pela quantidade de itens a cair.set .name$,"[Organizador WoT]";mes .name$;mes "Ol? "+jobname(Class)+" "+strcharinfo(0)+", o qu? posso fazer por voc??";next;if (getgmlevel() >= 40) {switch(select("- Leve-me para a WoT:- O que ? a WoT:- Sair!:- Ativar WoT:- Desativar WoT")) {case 1:callsub Opt_1;case 2:callsub Opt_2;case 3:callsub Opt_3;case 4:if (getgmlevel() < 40) {close;}else {close2;callsub Timer_Event;}case 5:killmonster "prt_are_in",All;set $wot,0;stopnpctimer;mes .name$;mes "Pronto.";close;}}else if (getgmlevel() < 40) {switch(select("Leve-me para a WoT:O que ? a WoT ?:Por enquanto nada!")) {case 1:callsub Opt_1;case 2:callsub Opt_2;case 3:callsub Opt_3;}}OnClock0000:callsub Timer_Event;end;OnClock0200:callsub Timer_Event;end;OnClock0400:callsub Timer_Event;end;OnClock0600:callsub Timer_Event;end;OnClock0800:callsub Timer_Event;end;OnClock1000:callsub Timer_Event;end;OnClock1200:callsub Timer_Event;end;OnClock1400:callsub Timer_Event;end;OnClock1600:callsub Timer_Event;end;OnClock1800:callsub Timer_Event;end;OnClock2000:callsub Timer_Event;end;OnClock2200:callsub Timer_Event;end;Opt_1:if($wot == 0) {next;mes .name$;mes "A WoT n?o est? ativada agora tente novamente outra hora.";close;}if(getcharid(2) == 0) {next;mes .name$;mes "Voc? precisa estar numa guilda para entrar na WoT!";close;}set .x1,rand(86,109);set .y1,rand(6,22);close2;warp "prt_are_in",.x1,.y1;Opt_2: next; mes .name$; mes "A WoT - do inglês War of the Treasure, a Guerra do Tesouro - É um evento onde você compete com outros jogadores para conseguir os tesouros escondidos nos dois extremos das salas!"; menu "Listar Tesouros",-,"Sair",exit; next; mes "1:"+.qtd1+" "+additemname(.item1)+""; mes "2:"+.qtd2+" "+additemname(.item2)+""; mes "3:"+.qtd3+" "+additemname(.item3)+""; mes "4:"+.qtd4+" "+additemname(.item4)+""; mes ""; mes "Cada item tem uma chance diferente de ser adquirida!"; close; exit: close;exit:close;Opt_3:next;mes .name$;mes "Tudo bem, at? mais!";close;Timer_Event:set $wot,2;hideonnpc "Sa?da#WoT01";hideonnpc "Sa?da#WoT02";hideonnpc "Sa?da#WoT03";initnpctimer;end;OnTimer1000:announce "A Guerra dos Tesouros(WoT) est? agora aberta e daqui a 5 minutos os tesouros aparecer?o!",0;end;OnTimer60000:announce "A Guerra dos Tesouros(WoT) est? aberta e os tesouros aparecer?o em 4 minutos!",0;end;OnTimer120000:announce "A Guerra dos Tesouros(WoT) est? aberta e os tesouros aparecer?o em 3 minutos!",0;end;OnTimer180000:announce "A Guerra dos Tesouros(WoT) est? aberta e os tesouros aparecer?o em 2 minutos!",0;end;OnTimer240000:announce "A Guerra dos Tesouros(WoT) est? aberta e os tesouros aparecer?o em 1 minuto!",0;end;OnTimer300000:announce "Os tesouros apareceram e est?o vulner?veis! Destrua-os e ganhe recompensas!",0;monster "prt_are_in",178,88,"[WoT]Ba? do Tesouro",1845,1,"Porteiro WOT::OnBoxDead";monster "prt_are_in",126,140,"[WoT]Ba? do Tesouro",1845,1,"Porteiro WOT::OnBoxDead";end;OnTimer600000:killmonster "prt_are_in",All;set $wot,0;end;OnBoxDead:if($wot == 2){set .prize,rand(1,100);announce; ""+strsex("O","A")+" jogad"+strsex("or","ora")+" ["+strcharinfo(0)+"] do cl? ["+strcharinfo(2)+"] quebrou uma das caixas de tesouro!",0;set $wot,1;goto prize;}if($wot == 1){set .prize,rand(1,100);announce ""+strsex("O","A")+" jogad"+strsex("or","ora")+" ["+strcharinfo(0)+"] do cl? ["+strcharinfo(2)+"] quebrou uma das caixas de tesouro!",0;set $wot,0;hideoffnpc "Sa?da#WoT01";hideoffnpc "Sa?da#WoT02";hideoffnpc "Sa?da#WoT03";goto prize;}prize:additem 14374,1;if(.prize >= 75){additem .item1,.qtd1;close;}if(.prize > 50){additem .item2,.qtd2;close;}if(.prize == 50){additem .item3,.qtd3;close;}if(.prize >= 25){additem .item4,.qtd4;close;}if(.prize > 1){additem .item5,.qtd5;close;}if(.prize == 1){additem .item6,.qtd6;close;}}prt_are_in,55,13,0 warp wotreasure01 1,1,prt_are_in,178,77prt_are_in,142,13,0 warp wotreasure02 1,1,prt_are_in,126,129prt_are_in,178,75 warp wotreasureb01 1,1,prt_are_in,57,13prt_are_in,126,126 warp wotreasureb02 1,1,prt_are_in,140,13prt_are_in mapflag nowarpprt_are_in mapflag nosaveprt_are_in mapflag noteleportprt_are_in mapflag nomemoprt_are_in mapflag gvgprt_are_in mapflag nowarptoprt_are_in mapflag nobranch
izlude,126,222,5 script Porteiro WOT 419,{set .item1,12920; //Substitua X por um item de 25% de chance de cair.set .qtd1,1; //Substitua Y pela quantidade de itens a cair.set .item2,12921; //Substitua X por um item de 24% de chance de cair.set .qtd2,1; //Substitua Y pela quantidade de itens a cair.set .item3,5395; //Substitua X por um item de 1% de chance de cair.set .qtd3,1; //Substitua Y pela quantidade de itens a cair.set .item4,14232; //Substitua X por um item de 25% de chance de cair.set .qtd4,1; //Substitua Y pela quantidade de itens a cair.set .name$,"[Organizador WoT]";mes .name$;mes "Ol? "+jobname(Class)+" "+strcharinfo(0)+", o qu? posso fazer por voc??";next;if (getgmlevel() >= 40) {switch(select("- Leve-me para a WoT:- O que ? a WoT:- Sair!:- Ativar WoT:- Desativar WoT")) {case 1:callsub Opt_1;case 2:callsub Opt_2;case 3:callsub Opt_3;case 4:if (getgmlevel() < 40) {close;}else {close2;callsub Timer_Event;}case 5:killmonster "prt_are_in",All;set $wot,0;stopnpctimer;mes .name$;mes "Pronto.";close;}}else if (getgmlevel() < 40) {switch(select("Leve-me para a WoT:O que ? a WoT ?:Por enquanto nada!")) {case 1:callsub Opt_1;case 2:callsub Opt_2;case 3:callsub Opt_3;}}OnClock0000:callsub Timer_Event;end;OnClock0200:callsub Timer_Event;end;OnClock0400:callsub Timer_Event;end;OnClock0600:callsub Timer_Event;end;OnClock0800:callsub Timer_Event;end;OnClock1000:callsub Timer_Event;end;OnClock1200:callsub Timer_Event;end;OnClock1400:callsub Timer_Event;end;OnClock1600:callsub Timer_Event;end;OnClock1800:callsub Timer_Event;end;OnClock2000:callsub Timer_Event;end;OnClock2200:callsub Timer_Event;end;Opt_1:if($wot == 0) {next;mes .name$;mes "A WoT n?o est? ativada agora tente novamente outra hora.";close;}if(getcharid(2) == 0) {next;mes .name$;mes "Voc? precisa estar numa guilda para entrar na WoT!";close;}set .x1,rand(86,109);set .y1,rand(6,22);close2;warp "prt_are_in",.x1,.y1;Opt_2: next; mes .name$; mes "A WoT - do inglês War of the Treasure, a Guerra do Tesouro - É um evento onde você compete com outros jogadores para conseguir os tesouros escondidos nos dois extremos das salas!"; menu "Listar Tesouros",-,"Sair",exit; next; mes "1:"+.qtd1+" "+additemname(.item1)+""; mes "2:"+.qtd2+" "+additemname(.item2)+""; mes "3:"+.qtd3+" "+additemname(.item3)+""; mes "4:"+.qtd4+" "+additemname(.item4)+""; mes ""; mes "Cada item tem uma chance diferente de ser adquirida!"; close; exit: close;exit:close;Opt_3:next;mes .name$;mes "Tudo bem, at? mais!";close;Timer_Event:set $wot,2;hideonnpc "Sa?da#WoT01";hideonnpc "Sa?da#WoT02";hideonnpc "Sa?da#WoT03";initnpctimer;end;OnTimer1000:announce "A Guerra dos Tesouros(WoT) est? agora aberta e daqui a 5 minutos os tesouros aparecer?o!",0;end;OnTimer60000:announce "A Guerra dos Tesouros(WoT) est? aberta e os tesouros aparecer?o em 4 minutos!",0;end;OnTimer120000:announce "A Guerra dos Tesouros(WoT) est? aberta e os tesouros aparecer?o em 3 minutos!",0;end;OnTimer180000:announce "A Guerra dos Tesouros(WoT) est? aberta e os tesouros aparecer?o em 2 minutos!",0;end;OnTimer240000:announce "A Guerra dos Tesouros(WoT) est? aberta e os tesouros aparecer?o em 1 minuto!",0;end;OnTimer300000:announce "Os tesouros apareceram e est?o vulner?veis! Destrua-os e ganhe recompensas!",0;monster "prt_are_in",178,88,"[WoT]Ba? do Tesouro",1845,1,"Porteiro WOT::OnBoxDead";monster "prt_are_in",126,140,"[WoT]Ba? do Tesouro",1845,1,"Porteiro WOT::OnBoxDead";end;OnTimer600000:killmonster "prt_are_in",All;set $wot,0;end;OnBoxDead:if($wot == 2){set .prize,rand(1,100);announce; ""+strsex("O","A")+" jogad"+strsex("or","ora")+" ["+strcharinfo(0)+"] do cl? ["+strcharinfo(2)+"] quebrou uma das caixas de tesouro!",0;set $wot,1;goto prize;}if($wot == 1){set .prize,rand(1,100);announce ""+strsex("O","A")+" jogad"+strsex("or","ora")+" ["+strcharinfo(0)+"] do cl? ["+strcharinfo(2)+"] quebrou uma das caixas de tesouro!",0;set $wot,0;hideoffnpc "Sa?da#WoT01";hideoffnpc "Sa?da#WoT02";hideoffnpc "Sa?da#WoT03";goto prize;}prize:additem 14374,1;if(.prize >= 75){additem .item1,.qtd1;close;}if(.prize > 50){additem .item2,.qtd2;close;}if(.prize == 50){additem .item3,.qtd3;close;}if(.prize >= 25){additem .item4,.qtd4;close;}if(.prize > 1){additem .item5,.qtd5;close;}if(.prize == 1){additem .item6,.qtd6;close;}}prt_are_in,55,13,0 warp wotreasure01 1,1,prt_are_in,178,77prt_are_in,142,13,0 warp wotreasure02 1,1,prt_are_in,126,129prt_are_in,178,75 warp wotreasureb01 1,1,prt_are_in,57,13prt_are_in,126,126 warp wotreasureb02 1,1,prt_are_in,140,13prt_are_in mapflag nowarpprt_are_in mapflag nosaveprt_are_in mapflag noteleportprt_are_in mapflag nomemoprt_are_in mapflag gvgprt_are_in mapflag nowarptoprt_are_in mapflag nobranchmes "1:"+.qtd1+" "+additemname(.item1)+"";
mes "2:"+.qtd2+" "+additemname(.item2)+"";
mes "3:"+.qtd3+" "+additemname(.item3)+"";
mes "4:"+.qtd4+" "+additemname(.item4)+"";
Essas linhas dão erro.
Edited by CreekShare this post
Link to post
Share on other sites