Source: geocities.com/br/forum_imagens

               ( geocities.com/br)    
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;
}