prontera.gat,150,150,5 script Distribuidor VIP 109,{
//==================================================================//
// ____ //
// /\ _`\ __ /'\_/`\ __ //
// \ \ \L\_\ __ __/\_\ /\ \ __ /\_\ _ __ __ //
// \ \ \L_L /\ \/\ \/\ \ \ \ \__\ \ /'__`\/\ \/\`'__\/'__`\ //
// \ \ \/, \ \ \_\ \ \ \ \ \ \_/\ \/\ __/\ \ \ \ \//\ \L\.\_ //
// \ \____/\ \____/\ \_\ \ \_\\ \_\ \____\\ \_\ \_\\ \__/.\_\ //
// \/___/ \/___/ \/_/ \/_/ \/_/\/____/ \/_/\/_/ \/__/\/_/ //
// //
// //
// +-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+ //
// |e|A|t|h|e|n|a| |A|d|v|a|n|c|e|d| |S|c|r|i|p|t|s| //
// +-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+ //
// --==[2007]==-- //
//==================================================================//
// //
//---------------------->>eAthena-Script<<--------------------------//
//=Distribuidor VIP //
//-------------------------->>Idioma<<------------------------------//
//=Portugues (Brasil) //
//--------------------------->>Autor<<------------------------------//
//=Gui Meira (gui.meira@hotmail.com) //
//-------------------------->>Versão<<------------------------------//
//=Versão 1.0 (29/01/2007) - Criação do NPC [Gui Meira] //
//=Versão 1.1 (04/02/2007) - Correções no NPC [Ayame21] //
// - Adicionado @reloadgmdb [renatovisk] //
//------------------>>Informações-Adicionais<<----------------------//
//=Compativel apenas com eAthena SQL //
//-------------------->>Créditos-Adicionais<<-----------------------//
//=Idéia original: SpeeD //
//=====================================================[Enjoy!]=====//
if (getgmlevel() == 0) goto NaoGM;
if (getgmlevel() > 5) goto GM;
Opcoes:
query_sql "SELECT `creditos` FROM `login` WHERE `account_id`='"+getcharid(3)+"'",@creditos;
mes "[Distribuidor VIP]";
mes "Olá "+strcharinfo(0)+"!";
mes "Confira abaixo as informações da sua conta:";
mes "GM level: ^0000FF"+getgmlevel()+"^000000";
mes "Créditos: ^0000FF"+@creditos+" reais^000000";
mes "O que deseja fazer?";
next;
menu "Comprar GOD ITEMS ($20)",God,"Comprar SUPREME ITEMS ($30)",Supreme,"Nada não...",Cancel;
God:
if (@creditos < 20) goto SemCredito;
mes "[Distribuidor VIP]";
mes "Confira aqui a lista de atributos de cada item:";
mes "Artic Wings: DEX+15 INT+25";
mes "Asas Podadas: STR+10";
mes "Big Angel Wings: ALL+10";
mes "Big Buterfly Wings: LUK+5";
mes "Cutie Wings: AGI+10";
mes "Dark Angel: STR+20 AGI+20 LUK+20";
mes "Dark Angel Wings: AGI+20 DEX+20";
mes "Little A. Wings: ALL+10";
mes "Moltress Wings: DEX+15 INT+15";
mes "Nova A. Wings: LUK+15 DEX+15";
mes "Arch Angel: DEX+15 AGI+10";
mes "Blood Helm: ALL+15 VIT+15";
mes "Preço: $20 cada";
mes "Qual item deseja comprar?";
next;
menu "Artic Wings",-,"Asas Podadas",-,"Big Angel Wings",-,"Big Buterfly Wings",-,"Cutie Wings",-,"Dark Angel",-,"Dark Angel Wings",-,"Little A. Wings",-,"Moltress Wings",-,"Nova A. Wings",-,"Arch Angel",-,"Blood Helm",-,"= 30) query_sql "UPDATE `login` SET `level`='5' WHERE `account_id`='"+getcharid(3)+"'";
if ((@creditos < 30) && (@creditos >= 25)) query_sql "UPDATE `login` SET `level`='4' WHERE `account_id`='"+getcharid(3)+"'";
if ((@creditos < 25) && (@creditos >= 20)) query_sql "UPDATE `login` SET `level`='3' WHERE `account_id`='"+getcharid(3)+"'";
if ((@creditos < 20) && (@creditos >= 10)) query_sql "UPDATE `login` SET `level`='2' WHERE `account_id`='"+getcharid(3)+"'";
if ((@creditos < 10) && (@creditos >= 1)) query_sql "UPDATE `login` SET `level`='1' WHERE `account_id`='"+getcharid(3)+"'";
atcommand "@reloadgmdb";
mes "[Distribuidor VIP]";
mes "Obrigado! Aqui está o seu item!";
next;
goto Opcoes;
Supreme:
if (@creditos < 30) goto SemCredito;
mes "[Distribuidor VIP]";
mes "Confira aqui a lista de atributos de cada item:";
mes "Demon Wings: ALL+40";
mes "Dark Valk Helm: ALL+40";
mes "Evil Poring Helm: ALL+20";
mes "Preço: $30 cada";
mes "Qual item deseja comprar?";
next;
menu "Demon Wings",-,"Dark Valk Helm",-,"Evil Poring Helm",-,"= 30) query_sql "UPDATE `login` SET `level`='5' WHERE `account_id`='"+getcharid(3)+"'";
if ((@creditos < 30) && (@creditos >= 25)) query_sql "UPDATE `login` SET `level`='4' WHERE `account_id`='"+getcharid(3)+"'";
if ((@creditos < 25) && (@creditos >= 20)) query_sql "UPDATE `login` SET `level`='3' WHERE `account_id`='"+getcharid(3)+"'";
if ((@creditos < 20) && (@creditos >= 10)) query_sql "UPDATE `login` SET `level`='2' WHERE `account_id`='"+getcharid(3)+"'";
if ((@creditos < 10) && (@creditos >= 1)) query_sql "UPDATE `login` SET `level`='1' WHERE `account_id`='"+getcharid(3)+"'";
atcommand "@reloadgmdb";
mes "[Distribuidor VIP]";
mes "Obrigado! Aqui está o seu item!";
next;
goto Opcoes;
SemCredito:
mes "[Distribuidor VIP]";
mes "Desculpe, mas você não tem créditos suficientes para comprar este tipo de item.";
next;
goto Opcoes;
Cancel:
mes "[Distribuidor VIP]";
mes "Ok, volte aqui quando precisar.";
close;
NaoGM:
mes "[Distribuidor VIP]";
mes "Adquira já os seus créditos para poder comprar itens incríveis e exclusivos!";
close;
GM:
mes "[Distribuidor VIP]";
mes "Esta área é restrita a jogadores com GM Level entre 1 e 5.";
close;
}
               (
geocities.com/br)