Registrar | Comunidade | Postados Hoje | Pesquisar | Calendário | FAQ |
#13
|
||||
|
||||
BOm.... xD eu sakei que tava bugado.. até porq tehj de manhã quando eu baxei o forum eathena tava off.. e o cronus tava em manuutenção(pelo menos aki). E tipo eu kero akeles servidores normais.. Custons e tudo... O meu vai ser um High rate, 100k/100k/100%, lvl 750/300.. Então é um estilo desses axo que voce ja viu.. xD mais com vendedor de custons e tudo...e o cash shop se você puder.. com Sharingan, chapéu de taxista, byakugan, e todos.. axo que você ja viu quais são.. espero que eu tenha detalhado bem.. qualquer coisa.. aata pode ser um cronus TxT?e pode ser Packever 8? é que meu xray é packever 8.. s epuder.. vlws... pesso desculpas o encomodo.
|
#14
|
||||
|
||||
Ok, vou tentar fazer um melhor possível, e dentro de 4 ou 7 dias entrego a vc, abraços
|
#15
|
||||
|
||||
A.. enquanto isso.. você poderia me disponibilizar um link de um cronus.. sem bug? É que tu sabe né... 4 dias 7 dias.. euu espero.. mas preciso praticar xD... Se você tiver.. pode me passar? Vlws
|
#16
|
||||
|
||||
Olá, Nosyel, cara to com um probleminha em alguns npc´s que eu peguei daqui.
Tipo o Sortudo, ele até em certo momento funciona, mas quando você adiciona mais de 3 itens ele começa a bugar tudo. Exemplo, quero mudar o item de numero 3 e ele muda o de número 1 com o numero da ID que era do 3. Dai deu um bug sinistro no servidor, o cara quebrou um bau e começou a chover Elmo de Ying Yang huehuhe. Outro npc que é ótimo mas ta bugado tbm é o Resta Um, qual o erro? Simplesmente ele fica paradão em prontera, num da pra clicar, e nem anuncia quando começa o evento. E só mais uma coisinha, queria um sistema vip que contase os dia vip,pois to tendo muito trabalho no meu servidor, muita gente pagando vip e tipo, estou tendo que marcar tudo no excell, e as vezes esqueço de retirar um vip que já acabou. Já procurei algum sistema vip que funcione e num consegui achar nenhum se tiver como vc me ajudar com isso ficarei grato. |
#17
|
||||
|
||||
Citação:
1º Sortudo: Código:
//**************************************************************************// //* Um Nome... Um Reinado... Uma Reputação... *// //**************************************************************************// //* *// //* *// //* \|||/ *// //* .-.________ (o o) ________.-. *// //* ----/ \_)_______) +--oooO--(_)------------+ (_______(_/ \---- *// //* ( ()___) | | (___() ) *// //* ()__) | * NOSYEL * | (__() *// //* ----\___()_) | | (_()___/----- *// //* +------------Ooo--------+ *// //* |__|__| *// //* || || *// //* ________ooO Ooo________ *// //* *// //**************************************************************************// //* Invejados Por Muitos, Copiados Por Alguns, e Admirados Por Todos!!!... *// //**************************************************************************// prontera.gat,158,193,5 script Sortudo 106,{ set .n$, "[^FF0000Sortudo^000000]"; if(getgmlevel() > 9 && getgmlevel() < 99){show .n$; show "Você não pode participar !"; close;} if(getgmlevel() == 99){ show .n$; show "Olá ^0000CD"+StrCharInfo(0)+"^000000 !"; show "O que deseja ?"; switch(select("- Entrar","- Alterar Drops")){ case 1: if($portao_sortudo == FALSE){next; show .n$; show "O Evento está fechado !"; close;} next; show .n$; show "Boa sorte durante o evento !"; close2; set @rand_sortudo, rand(1,8); if(@rand_sortudo == 1){warp "quiz_02.gat",318,34; end;} if(@rand_sortudo == 2){warp "quiz_02.gat",37,52; end;} if(@rand_sortudo == 3){warp "quiz_02.gat",73,52; end;} if(@rand_sortudo == 4){warp "quiz_02.gat",330,34; end;} if(@rand_sortudo == 5){warp "quiz_02.gat",49,52; end;} if(@rand_sortudo == 6){warp "quiz_02.gat",342,34; end;} if(@rand_sortudo == 7){warp "quiz_02.gat",354,34; end;} if(@rand_sortudo == 8){warp "quiz_02.gat",61,52; end;} case 2: next; show .n$; show "Digite o ID do item que poderá ser dropado !"; input @id_sortudo; next; show .n$; show "Digite outro ID de item que poderá ser dropado !"; input @id_sortudo_t; next; show .n$; show "Digite a quantia em Zeny que poderá ser ganha !"; input @zeny_sortudo; next; show .n$; show "Você escolheu como prêmios:"; show "1 "+getitemname(@id_sortudo); show "1 "+getitemname(@id_sortudo_t); show @zeny_sortudo+" Zenys"; close2; set $item_sortudo,@id_sortudo; set $item_sortudo_t,@id_sortudo_t; set $zeny_sortudo,@zeny_sortudo; end; } } show .n$; show "Olá ^0000CD"+StrCharInfo(0)+"^000000 !"; show "O que deseja ?"; if(select("- Entrar:- Nada") == 2) close; if($portao_sortudo == FALSE){next; show .n$; show "O Evento está fechado !"; close;} next; show .n$; show "Boa sorte durante o evento !"; close2; set @rand_sortudo, rand(1,8); if(@rand_sortudo == 1){warp "quiz_02.gat",318,34; end;} if(@rand_sortudo == 2){warp "quiz_02.gat",37,52; end;} if(@rand_sortudo == 3){warp "quiz_02.gat",73,52; end;} if(@rand_sortudo == 4){warp "quiz_02.gat",330,34; end;} if(@rand_sortudo == 5){warp "quiz_02.gat",49,52; end;} if(@rand_sortudo == 6){warp "quiz_02.gat",342,34; end;} if(@rand_sortudo == 7){warp "quiz_02.gat",354,34; end;} if(@rand_sortudo == 8){warp "quiz_02.gat",61,52; end;} OnClock0100: set $portao_sortudo,1; announce "O Evento 'Sortudo' irá começar, vocês só tem 5 minutos !",bc_yellow; end; OnClock0105: set $portao_sortudo,0; announce "Os portões para o evento foram fechados !",bc_yellow; end; OnClock0300: set $portao_sortudo,1; announce "O Evento 'Sortudo' irá começar, vocês só tem 5 minutos !",bc_yellow; end; OnClock0305: set $portao_sortudo,0; announce "Os portões para o evento foram fechados !",bc_yellow; end; OnClock0500: set $portao_sortudo,1; announce "O Evento 'Sortudo' irá começar, vocês só tem 5 minutos !",bc_yellow; end; OnClock0505: set $portao_sortudo,0; announce "Os portões para o evento foram fechados !",bc_yellow; end; OnClock0700: set $portao_sortudo,1; announce "O Evento 'Sortudo' irá começar, vocês só tem 5 minutos !",bc_yellow; end; OnClock0705: set $portao_sortudo,0; announce "Os portões para o evento foram fechados !",bc_yellow; end; OnClock0900: set $portao_sortudo,1; announce "O Evento 'Sortudo' irá começar, vocês só tem 5 minutos !",bc_yellow; end; OnClock0905: set $portao_sortudo,0; announce "Os portões para o evento foram fechados !",bc_yellow; end; OnClock1100: set $portao_sortudo,1; announce "O Evento 'Sortudo' irá começar, vocês só tem 5 minutos !",bc_yellow; end; OnClock1105: set $portao_sortudo,0; announce "Os portões para o evento foram fechados !",bc_yellow; end; OnClock1300: set $portao_sortudo,1; announce "O Evento 'Sortudo' irá começar, vocês só tem 5 minutos !",bc_yellow; end; OnClock1305: set $portao_sortudo,0; announce "Os portões para o evento foram fechados !",bc_yellow; end; OnClock1500: set $portao_sortudo,1; announce "O Evento 'Sortudo' irá começar, vocês só tem 5 minutos !",bc_yellow; end; OnClock1505: set $portao_sortudo,0; announce "Os portões para o evento foram fechados !",bc_yellow; end; OnClock1700: set $portao_sortudo,1; announce "O Evento 'Sortudo' irá começar, vocês só tem 5 minutos !",bc_yellow; end; OnClock1705: set $portao_sortudo,0; announce "Os portões para o evento foram fechados !",bc_yellow; end; OnClock1900: set $portao_sortudo,1; announce "O Evento 'Sortudo' irá começar, vocês só tem 5 minutos !",bc_yellow; end; OnClock1905: set $portao_sortudo,0; announce "Os portões para o evento foram fechados !",bc_yellow; end; OnClock2100: set $portao_sortudo,1; announce "O Evento 'Sortudo' irá começar, vocês só tem 5 minutos !",bc_yellow; end; OnClock2105: set $portao_sortudo,0; announce "Os portões para o evento foram fechados !",bc_yellow; end; OnClock2300: set $portao_sortudo,1; announce "O Evento 'Sortudo' irá começar, vocês só tem 5 minutos !",bc_yellow; end; OnClock2305: set $portao_sortudo,0; announce "Os portões para o evento foram fechados !",bc_yellow; end; } quiz_02.gat,0,0,0 script Core_Sortudo -1,{ OnClock0100: atcommand "@killmonster2"; end; OnClock0300: atcommand "@killmonster2"; end; OnClock0500: atcommand "@killmonster2"; end; OnClock0700: atcommand "@killmonster2"; end; OnClock0900: atcommand "@killmonster2"; end; OnClock1100: atcommand "@killmonster2"; end; OnClock1300: atcommand "@killmonster2"; end; OnClock1500: atcommand "@killmonster2"; end; OnClock1700: atcommand "@killmonster2"; end; OnClock1900: atcommand "@killmonster2"; end; OnClock2100: atcommand "@killmonster2"; end; OnClock2300: atcommand "@killmonster2"; end; OnClock0105: atcommand "@pvpon"; end; OnClock0305: atcommand "@pvpon"; end; OnClock0505: atcommand "@pvpon"; end; OnClock0705: atcommand "@pvpon"; end; OnClock0905: atcommand "@pvpon"; end; OnClock1105: atcommand "@pvpon"; end; OnClock1305: atcommand "@pvpon"; end; OnClock1505: atcommand "@pvpon"; end; OnClock1705: atcommand "@pvpon"; end; OnClock1905: atcommand "@pvpon"; end; OnClock2105: atcommand "@pvpon"; end; OnClock2305: atcommand "@pvpon"; end; OnClock0110: callsub Tesouro_Sortudo; OnClock0310: callsub Tesouro_Sortudo; OnClock0510: callsub Tesouro_Sortudo; OnClock0710: callsub Tesouro_Sortudo; OnClock0910: callsub Tesouro_Sortudo; OnClock1110: callsub Tesouro_Sortudo; OnClock1310: callsub Tesouro_Sortudo; OnClock1510: callsub Tesouro_Sortudo; OnClock1710: callsub Tesouro_Sortudo; OnClock1910: callsub Tesouro_Sortudo; OnClock2110: callsub Tesouro_Sortudo; OnClock2310: callsub Tesouro_Sortudo; Tesouro_Sortudo: atcommand "@pvpoff"; monster "quiz_02.gat",77,52, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",77,53, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",77,64, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",314,34, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",314,45, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",314,57, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",33,52, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",33,62, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",33,73, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",331,34, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",331,45, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",331,57, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",49,52, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",49,62, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",49,73, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",342,34, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",342,48, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",342,57, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",354,34, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",354,45, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",354,57, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",61,52, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",61,62, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; monster "quiz_02.gat",61,73, "Tesouro",1732,1,"Tesouro::OnTreasureDie"; end; } - script Tesouro -1,{ OnTreasureDie: set @premio_sortudo, rand(1,4); if(@premio_sortudo == 1){ getitem $item_sortudo,1; warp "prontera.gat",155,185; announce StrCharInfo(0)+" abriu um Baú. Prêmio: "+getitemname($item_sortudo)+" !",bc_yellow; end; } if(@premio_sortudo == 2){ set Zeny, Zeny + $zeny_sortudo; warp "prontera.gat",155,185; announce StrCharInfo(0)+" abriu um Baú. Prêmio: "+$zeny_sortudo+" Zenys !",bc_yellow; end; } if(@premio_sortudo == 3){ atcommand "@die"; warp "prontera.gat",155,185; announce StrCharInfo(0)+" abriu um Baú. Não ganhou nada, e ainda morreu !",bc_yellow; end; } if(@premio_sortudo == 4){ getitem $item_sortudo_t,1; warp "prontera.gat",155,185; announce StrCharInfo(0)+" abriu um Baú. Prêmio: "+getitemname($item_sortudo_t)+" !",bc_yellow; end; } } quiz_02.gat mapflag nomemo quiz_02.gat mapflag nowarp quiz_02.gat mapflag nowarpto quiz_02.gat mapflag noicewall quiz_02.gat mapflag nosave quiz_02.gat mapflag noreturn quiz_02.gat mapflag noteleport 3º Sala vip o melhor npc de controle vip pegue abaixo: Código:
//**************************************************************************// //* Um Nome... Um Reinado... Uma Reputação... *// //**************************************************************************// //* *// //* *// //* \|||/ *// //* .-.________ (o o) ________.-. *// //* ----/ \_)_______) +--oooO--(_)------------+ (_______(_/ \---- *// //* ( ()___) | | (___() ) *// //* ()__) | * NOSYEL * | (__() *// //* ----\___()_) | | (_()___/----- *// //* +------------Ooo--------+ *// //* |__|__| *// //* || || *// //* ________ooO Ooo________ *// //* *// //**************************************************************************// //* Invejado Por Muitos, Copiado Por Alguns, e Admirado Por Todos!!!... *// //**************************************************************************// //===== Atual Versão: ======================================== // 3.1 //===== Compatível com: ====================================== // Cronus SVN //===== Descrição: =========================================== // Ativa contas VIPs, retira dias vips automaticamente, // e quando acaba os dias vips, a VIP é retirada. //===== Comentários Adicionais: ============================== // - 1.0 Criado Sistema [ Nosyel ] // - 2.0 Script Otimizado e adicionado opção que mostra o // total de contas VIP que há no servidor. [ Nosyel ] // - 2.5 Adicionado possibilidade de setar o level da conta // VIP do seu servidor. [ Nosyel ] // - 2.6 Script Otimizado e reestruturado. [ Nosyel ] // - 2.6b Readicionado o waitingroom e corrigido um // pequeno erro. [ Nosyel ] // - 2.7 Script Otimizado. [ Nosyel ] // - 2.8 Adicionado novo modo de adicionar VIP (pelo nome do char). [ Nosyel ] // - 2.9 Adicionado nova opção de ter ou não ter o comando @reloadgmdb. [ Nosyel ] // - 3.0 Script Otimizado , e modificado pequenas coisas. [ Nosyel ] // - 3.0b Feita uma mini modificação. [ Nosyel ] // - 3.1 Varias modificações no sistema. [ Nosyel ] //============================================================ - script Vip#LoadConfig -1,{ OnInit: query_sql("SELECT `minlvgm` FROM `Vip` WHERE `id`='1'",$minlvgm); query_sql("SELECT `vipsen` FROM `Vip` WHERE `id`='1'",$vipsen$); query_sql("SELECT `diaspvip` FROM `Vip` WHERE `id`='1'",$diaspvip); query_sql("SELECT `vipmsg` FROM `Vip` WHERE `id`='1'",$vipmsg); query_sql("SELECT `levelvip` FROM `Vip` WHERE `id`='1'",$levelvip); query_sql("SELECT `mapavip` FROM `Vip` WHERE `id`='1'",$mapavip$); query_sql("SELECT `cordx` FROM `Vip` WHERE `id`='1'",$cordx); query_sql("SELECT `cordy` FROM `Vip` WHERE `id`='1'",$cordy); query_sql("SELECT `supervip` FROM `Vip` WHERE `id`='1'",$supervip); query_sql("SELECT `levelsupervip` FROM `Vip` WHERE `id`='1'",$levelsupervip); query_sql("SELECT `salavip2` FROM `Vip` WHERE `id`='1'",$salavip2); query_sql("SELECT `mapavip2` FROM `Vip` WHERE `id`='1'",$mapavip2$); query_sql("SELECT `cordx2` FROM `Vip` WHERE `id`='1'",$cordx2); query_sql("SELECT `cordy2` FROM `Vip` WHERE `id`='1'",$cordy2); query_sql("SELECT `reload` FROM `Vip` WHERE `id`='1'",$reload); query_sql("SELECT `ShowVIPs` FROM `Vip` WHERE `id`='1'",$ShowVIPs); query_sql("SELECT `site` FROM `Vip` WHERE `id`='1'",$site$); query_sql("SELECT `namenpc` FROM `Vip` WHERE `id`='1'",$namenpc$); end; } - script Vip#config -1,{ //===== Configuraçõe: ======================================== // OnInit: // // Level Mínimo de GM para ele poder mecher no Sistema VIP in-game: // Lembre-se: alem do Level Minimo o GM terá também que saber a // senha. ( deffault: 80 ) set $minlvgm,"80"; // // Level da conta VIP (deffault: 1) set $levelvip, 1; // // Seu emulador possui o comando: @reloadgmdb ? // (0 para não, 1 para sim) (deffault: 0) set $reload, 0; // // Senha para mexer no Sistema VIP in-game : set $vipsen$,"ragnax"; // // Quantidade de contas a mostrar por página // na opção de listar contas vips. // Maximo: 100 por página. ( deffault: 30 ) set $ShowVIPs, 30; // // Coordenadas da Sala VIP : set $mapavip$,"sec_in01"; set $cordx,169; set $cordy,173; // // Site do seu servidor : // OBSERVAÇÂO, se não houver deixe em branco (como está). set $site$,"http://www.ragnalpha.com"; // //Nome do npc: set $namenpc$, "^CD0000[Sala VIP RagnAlpha]^000000"; // end; // //============================================================ } prontera.gat,164,173,2 script Porteiro VIP 803,{ cutin "salavip.bmp",2; if (getgmlevel() == 0){ show $namenpc$; show "Você não é VIP"; if($site$ == "0"){show "Informe-se como ser VIP!"; } else {show "Entre no site ^FF0000"+$site$+"^000000 e saiba como ser VIP !";} cutin "salavip.bmp",255; close; } set .@loop,1; while(.@loop){ cutin "salavip.bmp",2; show $namenpc$; show "Olá "+strcharinfo(0)+"!"; show "O que deseja?"; next; if (getgmlevel() >= $minlvgm && $supervip == 1 && $salavip2 == 1) set .@menu$,select("- Entrar na sala VIP/ Super VIP","- Administrar VIPs","","- Nada"); else if (getgmlevel() >= $minlvgm) set .@menu$,select("- Entrar na sala VIP","- Administrar VIPs","","- Nada"); else if (getgmlevel() == $levelsupervip && $supervip == 1 && $salavip2 == 1) set .@menu$,select("- Entrar na sala Super VIP","","- Dias restantes de VIP","- Nada"); else set .@menu$,select("- Entrar na sala VIP","","- Dias restantes de VIP","- Nada"); switch(.@menu$){ Case 1: next; if (getgmlevel() >= $minlvgm && $supervip == 1 && $salavip2 == 1){ show $namenpc$; show "Qual sala gostaria de entrar?"; set @menu,select("- Entrar na sala VIP","- Entrar na sala Super VIP","- Nada"); if(@menu == 3){ next; cutin "salavip.bmp",255; break; } if(@menu == 1) warp $mapavip$,$cordx,$cordy; else warp $mapavip2$,$cordx2,$cordy2; end; } else { show $namenpc$; if (getgmlevel() == $levelsupervip && $supervip == 1 && $salavip2 == 1) show "Você gostaria de ir para sala Super Vip?"; else show "Você gostaria de ir para sala vip?"; if(select("- Sim:- Não") == 1){ if (getgmlevel() == $levelsupervip && $supervip == 1 && $salavip2 == 1) warp $mapavip2$,$cordx2,$cordy2; else warp $mapavip$,$cordx,$cordy; end; } next; cutin "salavip.bmp",255; break; } Case 2: next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Digite a senha para acessar essa Area:"; digit @admvipssenha$; next; if (@admvipssenha$ != $vipsen$){ show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Senha Incorreta!"; cutin "salavip.bmp",255; close; } show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Senha Correta..."; show "Levando à Administração de Contas VIP..."; set .@loop2,1; while(.@loop2) { next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Oque você gostaria de fazer?"; if ($supervip == 1) set .@menu2$,select("- Adicionar VIP/Super Vip:- Editar conta VIP:- Listar contas VIP:- Total de Contas VIP:- Opções Extras:- Sair"); else set .@menu2$,select("- Adicionar VIP:- Editar conta VIP:- Listar contas VIP:- Total de Contas VIP:- Opções Extras:- Sair"); switch(.@menu2$){ Case 1: set .@loop6,1; while(.@loop6) { next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Como deseja adicionar a VIP?"; switch(select("- Pelo Login:- Nome de um Char:- Voltar")){ Case 1: next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Digite o Login da Conta que deseja Adicionar:"; show "Observação: Não é possível adicionar conta que ja é VIP."; digit @login$; next; set @accid,0; set @acclogin$,""; query_sql "SELECT `account_id` FROM `login` WHERE `level`='0' AND `diasvip`='0' AND `userid`='"+@login$+"'",@accid; show ""+$namenpc$+" - ^FF0000Administração^000000"; if (@accid[0] == 0){ show "Está conta não existe ou ja é VIP!"; cutin "salavip.bmp",255; break; } query_sql "SELECT `userid` FROM `login` WHERE `account_id`='"+@accid+"'",@acclogin$; show "==========================="; show "^FF0000ID da conta : ^000000"+@accid+""; show "^FF0000Login : ^000000"+@acclogin$+""; show "==========================="; set @type, $levelvip; set @type2$, "VIP"; if ($supervip == 1){ show "Qual tipo de VIP deseja adicionar a essa Conta?"; if(select("VIP:Super VIP") == 1){ set @type, $levelvip; set @type2$, "VIP"; } else { set @type, $levelsupervip; set @type2$, "Super VIP"; } next; show ""+$namenpc$+" - ^FF0000Administração^000000"; } show "Quantos dias VIP deseja adicionar a essa conta?"; show " "; show "Observação: Não existe dias VIP 0"; if(select("Digitar um Número:Usar padrão - "+$diaspvip+" dias") == 2) set @numdias, $diaspvip; else digit @numdias; next; show ""+$namenpc$+" - ^FF0000Administração^000000"; if (@numdias == 0){ show "Não é possível adicionar 0 dia(s) VIP!"; cutin "salavip.bmp",255; break; } show "Adicionar ^FF0000"+@numdias+"^000000 dia(s) de ^FF0000"+@type2$+"^000000 à conta de ^FF0000"+@acclogin$+"^000000."; show "Proseguir?"; if(select("- Sim:- Não") == 2) break; query_sql "UPDATE `login` SET `level`='"+@type+"',`diasvip`='"+@numdias+"' WHERE `account_id`='"+@accid+"'"; next; if($reload) atcommand "@reloadgmdb"; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Conta VIP adicionada!"; if($vipmsg) callfunc("SVRO_msg",@accid,""+@type2$+"",getcharid(3)); cutin "salavip.bmp",255; break; Case 2: next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Digite o nome do Char que deseja Adicionar VIP:"; show "Observação: Não é possível adicionar VIP a chars VIP."; digit @name$; next; set @accid2,0; set @acclogin2$,""; query_sql "SELECT `account_id` FROM `char` WHERE `name`='"+@name$+"'",@accid2; show ""+$namenpc$+" - ^FF0000Administração^000000"; if (@accid2[0] == 0){ show "Este char não existe!"; cutin "salavip.bmp",255; break; } query_sql "SELECT `userid` FROM `login` WHERE `level`='0' AND `diasvip`='0' AND `account_id`='"+@accid2+"'",@acclogin2$; if (@acclogin2$[0] == ""){ show "A conta referente a este char ja é VIP!"; cutin "salavip.bmp",255; break; } query_sql "SELECT `name` FROM `char` WHERE `account_id`='"+@accid2+"'",@charname$; show "==========================="; show "O char: ^FF0000"+@charname$+"^000000 pertence a:"; show "^FF0000ID da conta : ^000000"+@accid2+""; show "^FF0000Login : ^000000"+@acclogin2$+""; show "==========================="; set @type3, $levelvip; set @type4$, "VIP"; if ($supervip == 1){ show "Qual tipo de VIP deseja adicionar a essa Conta?"; if(select("VIP:Super VIP") == 1){ set @type3, $levelvip; set @type4$, "VIP"; } else { set @type3, $levelsupervip; set @type4$, "Super VIP"; } next; show ""+$namenpc$+" - ^FF0000Administração^000000"; } show "Quantos dias VIP deseja adicionar a essa conta?"; show "Observação: Não existe dias VIP 0"; if(select("Digitar um Número:Usar padrão - "+$diaspvip+" dias") == 2) set @numdias2, $diaspvip; else digit @numdias2; next; show ""+$namenpc$+" - ^FF0000Administração^000000"; if (@numdias2 == 0){ show "Não é possível adicionar 0 dia(s) VIP!"; cutin "salavip.bmp",255; break; } show "Adicionar ^FF0000"+@numdias2+"^000000 dia(s) de ^FF0000"+@type4$+"^000000 à conta de ^FF0000"+@acclogin2$+"^000000 cujo char pertencente é: ^FF0000"+@charname$+"^000000."; show "Proseguir?"; if(select("- Sim:- Não") == 2) break; query_sql "UPDATE `login` SET `level`='"+@type3+"',`diasvip`='"+@numdias2+"' WHERE `account_id`='"+@accid2+"'"; next; if($reload) atcommand "@reloadgmdb"; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Conta VIP adicionada!"; if($vipmsg) callfunc("SVRO_msg",@accid2,""+@type4$+"",getcharid(3)); cutin "salavip.bmp",255; break; Case 3: set .@loop6,0; cutin "salavip.bmp",255; break; } } break; Case 2: next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Digite o Login da Conta que você deseja editar:"; show " "; show " "; show "Observação: Não é possível editar contas que não são VIPs."; digit @login$; set @accid,0; set @diasr,0; set @acclogin$,""; set @EColor$, "^000000"; query_sql "SELECT `account_id` FROM `login` WHERE `level`='"+$levelvip+"' OR `level`='"+$levelsupervip+"' AND `userid`='"+@login$+"'",@accid; if (@accid[0] == 0) { next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Está conta não é VIP ou não existe!"; cutin "salavip.bmp",255; break; } set .@loop3,1; while(.@loop3) { next; query_sql "SELECT `userid`, `diasvip`, `level` FROM `login` WHERE `account_id`='"+@accid+"'", @acclogin$, @diasr, @tipo; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "A conta selecionada foi:"; if (@diasr[0] <= 1) Set @Color$, "^FF0000"; if (@diasr[0] >= 2 && @diasr[0] < 7) Set @Color$, "^FFA200"; if (@diasr[0] >= 7 && @diasr[0] < 15) Set @Color$, "^C4CB00"; if (@diasr[0] >= 15) Set @Color$, "^008000"; show "ID da conta: "+ @Color$ + @accid + @EColor$; show "Login da conta: "+ @Color$ + @acclogin$ + @EColor$; show "Dias VIPs restantes: "+ @Color$ + @diasr + @EColor$; if (@tipo[0] == $levelvip) show "Tipo: "+ @Color$ +"VIP"+ @EColor$; else show "Tipo: "+ @Color$ +"Super VIP"+ @EColor$; show "O que deseja fazer?"; if ($supervip == 1 && @tipo == $levelvip) set .@menu3$,select("- Editar dias VIP","- Cancelar conta VIP","- Mudar tipo para - Super VIP","- Voltar"); else if ($supervip == 1 && @tipo == $levelsupervip) set .@menu3$,select("- Editar dias Super VIP","- Cancelar conta Super VIP","- Mudar tipo para - VIP","- Voltar"); else set .@menu3$,select("- Editar dias VIP","- Cancelar conta VIP","","- Voltar"); switch(.@menu3$){ Case 1: next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Modificar Dias VIPs restantes da"; show "Conta: ^FF0000"+@acclogin$+"^000000 de ^FF0000"+@diasr+"^000000 dia(s) VIP"; show "Para?"; show "Observação: Não da para modificar para 0 dias VIP!"; digit @numdiase; next; if (@numdiase == 0){ show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Não é possível modificar para 0 dia(s) VIP!"; cutin "salavip.bmp",255; break; } show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Modificar de ^FF0000"+@diasr+"^000000 dia(s) VIP para ^FF0000"+@numdiase+"^000000 dia(s) VIP ?"; if(select("- Sim:- Não") == 2) break; query_sql "UPDATE `login` SET `diasvip`='"+@numdiase+"' WHERE `account_id`='"+@accid+"'"; next; if($reload) atcommand "@reloadgmdb"; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Dias Restantes VIP modificado!"; cutin "salavip.bmp",255; break; Case 2: next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Deseja cancelar a VIP da"; show "Conta: ^FF0000"+@acclogin$+"^000000 ?"; if(select("- Sim:- Não") == 2) break; query_sql "UPDATE `login` SET `level`='0',`diasvip`='0',`msgvip`='0' WHERE `account_id`='"+@accid+"'"; next; if($reload) atcommand "@reloadgmdb"; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Vip Cancelada!"; set .@loop3,0; cutin "salavip.bmp",255; break; Case 3: next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Deseja mudar o tipo de VIP da"; show "Conta: ^FF0000"+@acclogin$+"^000000 de"; if(@tipo == $levelsupervip)show "Super VIP para VIP?"; else show "VIP para Super VIP?"; if(select("- Sim:- Não") == 2) break; if(@tipo == $levelsupervip) query_sql "UPDATE `login` SET `level`='"+$levelvip+"' WHERE `account_id`='"+@accid+"'"; else query_sql "UPDATE `login` SET `level`='"+$levelsupervip+"' WHERE `account_id`='"+@accid+"'"; next; if($reload) atcommand "@reloadgmdb"; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Tipo Modificado!"; cutin "salavip.bmp",255; break; Case 4: set .@loop3,0; break; } } break; Case 3: next; set @lvar, $levelvip; set @lvar$, "VIP"; if ($supervip == 1){ show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Deseja verificar a lista de qual tipo de VIP?"; if(select("VIP:Super VIP") == 1){ set @lvar, $levelvip; set @lvar$, "VIP"; } else { set @lvar, $levelsupervip; set @lvar$, "Super VIP"; } } set .@Page, 0; set .@Found, 0; set .@loop5,1; while(.@loop5){ deleteArray .@UserID$[0], 128; deleteArray .@AccID[0], 128; deleteArray .@VipDia[0], 128; if ($ShowVIPs > 100) Set $ShowVIPs, 100; set @EColor$, "^000000"; set .@Page, .@Page + 1; next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Lista de Contas "+@lvar$+":"; query_Sql "SELECT `userid`, `account_id`, `diasvip` FROM `login` WHERE `level`='"+@lvar+"' LIMIT " + (.@Page - 1) * $ShowVIPs + ", " + ($ShowVIPs + 1), .@UserID$, .@AccID, .@VipDia; for (Set .@i, 0; .@i < $ShowVIPs; Set .@i, .@i + 1) { if (.@VipDia[.@i] <= 1) Set @Color$, "^FF0000"; if (.@VipDia[.@i] >= 2 && .@VipDia[.@i] < 7) Set @Color$, "^FFA200"; if (.@VipDia[.@i] >= 7 && .@VipDia[.@i] < 15) Set @Color$, "^C4CB00"; if (.@VipDia[.@i] >= 15) Set @Color$, "^008000"; if (.@AccID[.@i]) { show "ID da conta: "+ @Color$ + .@AccID[.@i] + @EColor$; show "Login da conta: "+ @Color$ + .@UserID$[.@i] + @EColor$; show "Dias VIPs restantes: "+ @Color$ + .@VipDia[.@i] + @EColor$; show "==========================="; set .@Found, 1; } } setArray .@Mnu$[0], "", ""; if (.@Page > 1) Set .@Mnu$[0], "- Página anterior"; if (.@AccID[$ShowVIPs]) Set .@Mnu$[1], "- Próxima página"; if (!.@Found) Show "Não existe nenhum(a) "+@lvar$+" ainda."; switch(select(""+.@Mnu$[0]+"",""+.@Mnu$[1]+"","- Voltar")){ Case 1: set .@Page, .@Page - 2; break; Case 2: break; Case 3: set .@loop5,0; break; } } break; Case 4: next; query_sql "SELECT COUNT(1) FROM `login` WHERE `level`='"+$levelvip+"'",@totalvip; if ($supervip == 1) query_sql "SELECT COUNT(1) FROM `login` WHERE `level`='"+$levelsupervip+"'",@totalsupervip; show ""+$namenpc$+" - ^FF0000Administração^000000"; if ($supervip == 1) show "Seu servidor tem um total de ^008000"+@totalvip+"^000000 conta(s) VIP e ^008000"+@totalsupervip+"^000000 conta(s) Super VIP."; else show "Seu servidor tem um total de ^008000"+@totalvip+"^000000 conta(s) VIP."; select("- Voltar"); break; Case 5: set .@loop4,1; while(.@loop4) { next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "O que deseja fazer?"; switch(select("- Processar Contas VIP:- Cancelar TODAS contas VIPs:- Voltar")){ Case 1: next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Processando as Contas VIP você "; show "retirará 1 dia de todas contas VIP "; show "e se alguma conta chegar a 0 dias VIP "; show "ela será cancelada."; show "Deseja fazer isto?"; if ($supervip == 1) show "Obs: Isso inclui VIPs e Super VIPs"; if(select("Sim:Não") == 2) break; if ($supervip == 1){ query_sql "UPDATE `login` SET `diasvip`=`diasvip`-1 WHERE `level`='"+$levelvip+"' OR `level`='"+$levelsupervip+"'"; query_sql "UPDATE `login` SET `level`='0' WHERE `diasvip`<='0' AND `level`='"+$levelvip+"' OR `level`='"+$levelsupervip+"'"; } else { query_sql "UPDATE `login` SET `diasvip`=`diasvip`-1 WHERE `level`='"+$levelvip+"'"; query_sql "UPDATE `login` SET `level`='0' WHERE `diasvip`<='0' AND `level`='"+$levelvip+"'"; } next; if($reload) atcommand "@reloadgmdb"; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Contas Processadas com sucesso!"; cutin "salavip.bmp",255; break; Case 2: next; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Fazendo isto você irá cancelar"; show "TODAS contas VIP do servidor."; show "Deseja fazer isto?"; if ($supervip == 1) show "Obs: Isso inclui VIPs e Super VIPs"; if(select("Sim:Não") == 2) break; if ($supervip == 1) query_sql "UPDATE `login` SET `level`='0',`diasvip`='0',`msgvip`='0' WHERE `level`='"+$levelvip+"' OR `level`='"+$levelsupervip+"'"; else query_sql "UPDATE `login` SET `level`='0',`diasvip`='0',`msgvip`='0' WHERE `level`='"+$levelvip+"'"; next; if($reload) atcommand "@reloadgmdb"; show ""+$namenpc$+" - ^FF0000Administração^000000"; show "Todas as contas VIP foram Canceladas!"; cutin "salavip.bmp",255; break; Case 3: set .@loop4,0; break; } } break; Case 6: set .@loop2,0; break; } } close; Case 3: next; query_sql "SELECT `diasvip` FROM `login` WHERE `account_id` = '"+ getcharid(3) +"'", @dias; show $namenpc$; if (getgmlevel() == $levelsupervip && $supervip == 1) show "Você ainda tem "+@dias+" dia(s) de Super VIP."; else show "Você ainda tem "+@dias+" dia(s) de VIP."; select("- Voltar"); next; break; Case 4: next; show $namenpc$; show "Ok! Volte quando quiser!"; set .@loop,0; break; } } close; OnInit: waitingroom "VIP RagnAlpha",0; end; } function script Vip_msg { if(isloggedin(getarg(0))){ attachrid(getarg(0)); if($reload) announce "Sua "+getarg(1)+" foi confirmada com sucesso!, Obrigado.",bc_yellow|bc_self; else announce "Sua "+getarg(1)+" foi confirmada com sucesso! Relogue para terminarmos a operação.",bc_yellow|bc_self; detachrid; attachrid(getarg(2)); if(!$reload) query_sql "UPDATE `login` SET `msgvip`='1' WHERE `account_id` = '"+getarg(0)+"'"; } else { query_sql "UPDATE `login` SET `msgvip`='1' WHERE `account_id` = '"+getarg(0)+"'"; } return; } - script Vip#T-1 -1,{ end; OnClock0001: if ($supervip == 1) query_sql "UPDATE `login` SET `diasvip`=`diasvip`-1 WHERE `level`='"+$levelvip+"' OR `level`='"+$levelsupervip+"'"; else query_sql "UPDATE `login` SET `diasvip`=`diasvip`-1 WHERE `level`='"+$levelvip+"'"; end; OnClock0002: if ($supervip == 1) query_sql "UPDATE `login` SET `level`='0' WHERE `diasvip`<='0' AND `level`='"+$levelvip+"' OR `level`='"+$levelsupervip+"'"; else query_sql "UPDATE `login` SET `level`='0' WHERE `diasvip`<='0' AND `level`='"+$levelvip+"'"; if($reload) atcommand "@reloadgmdb"; end; } sec_in01 mapflag nosave sec_in01 mapflag nowarp sec_in01 mapflag nowarpto sec_in01 mapflag nomemo Código:
-- Sistema VIP para Ragnarok Online (Vip) -- Por Nosyel® -- Colunas no Login: ALTER TABLE `login` ADD `diasvip` SMALLINT NOT NULL DEFAULT 0; ALTER TABLE `login` ADD `msgvip` SMALLINT NOT NULL DEFAULT 0; -- Tabela Vip CREATE TABLE `Vip` ( `id` SMALLINT NOT NULL AUTO_INCREMENT , `minlvgm` SMALLINT NOT NULL , `vipsen` VARCHAR( 32 ) NOT NULL , `diaspvip` SMALLINT NOT NULL , `vipmsg` SMALLINT NOT NULL , `levelvip` SMALLINT NOT NULL , `mapavip` VARCHAR( 32 ) NOT NULL , `cordx` SMALLINT NOT NULL , `cordy` SMALLINT NOT NULL , `supervip` SMALLINT NOT NULL , `levelsupervip` SMALLINT NOT NULL , `salavip2` SMALLINT NOT NULL , `mapavip2` VARCHAR( 32 ) NOT NULL , `cordx2` SMALLINT NOT NULL , `cordy2` SMALLINT NOT NULL , `reload` SMALLINT NOT NULL , `showvips` SMALLINT NOT NULL , `site` VARCHAR( 32 ) NOT NULL , `namenpc` VARCHAR( 32 ) NOT NULL , PRIMARY KEY (`id`) ) ENGINE = MYISAM; -- Configurações Default REPLACE INTO `Vip` VALUES (1,99,'SUA SENHA AQUI',31,1,1,'sec_in01',169,177,0,10,0,'sec_in01',85,168,0,30,0,'^CD0000[Porteiro VIP]^000000'); -- Não remover Créditos!! Espero ter ajudado, abraços OBS: Sistema Vip somente para servidores SQL Última edição por Nosyel; 03-08-2009 às 06:54 PM. |
#18
|
||||
|
||||
Cara, Nosyel, sou teu fan de carteirinha, hueheuhee.
Incrível como tudo que você faz funciona, só que tipo no npc vip tinha um errinho, na hora que digitava a senha, dava incorreta,(mesmo eu tendo mudado lá antes de testar), dai olhei olhei olhei e achei o erro, e concertei. Só pra avisar o erro era esse aqui olha: // Senha para mexer no Sistema VIP in-game : set $vipsen$,"ragnax"; agora lá em baixo no script tava assim: show "Digite a senha para acessar essa Area:"; digit @admvipssenha$; Ou seja não estava batendo com o comando #vipsen$, apenas troque para show "Digite a senha para acessar essa Area:"; digit $vipsen$; Ai funcionou certo na parte da senha. Mas olha cara obrigado por tudo mesmo, se tiver como eu ajudar, seilá fazendo alguma doação para o fórum, por que olha,sinceramente, o seu trabalho é senssacional. E merece ser bastante reconhecido. Muito obrigado por tudo. Te amo nosyel. xD |
|
|
Tópicos Similares | ||||
Tópico | Tópico Iniciado Por | Fórum | Respostas | Última Mensagem |
Emulador de PS2 para PC (PSX2) | guinho w.a | PC Games | 17 | 13-12-2010 10:43 AM |
Tradução do mapa da seem | Bourne | Tutoriais Motorola | 8 | 02-06-2010 10:30 AM |
Dicionário do celular - Entenda todos os termos que envolvem telefonia celular! | felipe MP | News Motomodd | 5 | 24-10-2009 01:50 PM |
[Guia] Completo de Homunculos | Nosyel | Tutoriais Ragnarok | 0 | 25-05-2009 09:14 PM |
A história do Shadowrun (Genesis) | guinho w.a | PC Games | 3 | 02-12-2008 06:49 PM |