Someone fixes this script please!

[kyoshi]

//===== Cronus Script ================================================= 
//= Rei Asgard
//===== Por: ==========================================================
//= Darius
//===== Versão Atual: ================================================= 
//= 1.1
//===== Descrição: ==================================================== 
//= Entrega as DM's dentre outras funções
//===== Changelog: ====================================================
//= 1.1 Otimizado [Mooka]
//=====================================================================
prontera,153,184,5    script    Asgard    965,{
 
function MUresetStatus;
function CheckZeny;
function CheckVIP;
function exit;
 
mes "[Asgard]";
mes "Olá! Em que posso ajudá-lo hoje?";
next;
menu "Entrega de Darkmoons",entredarkmoon;
 
entredarkmoon:
set @nome$,"[Asgard]";
 
if(getgmlevel() > 95){
mes @nome$;
mes "Bem vindo Mestre,";
mes "o que deseja fazer?";
next;
if(select( "Enviar item a jogador","Sair")==2){
        mes @nome$;
        mes "Volte sempre Mestre!";
        close;
        }
 
        mes @nome$;
        mes "Digite o login do jogador";
        Input .@jogador$;
                Query_SQL "SELECT account_id FROM login WHERE userid = '"+.@jogador$+"'",.@id;
        mes "Agora digita o id do item";
        input .@item;
        mes "por fim, a quantidade.";
        input .@quant;
        next;
        mes "Login: "+.@jogador$+"";
        mes "Item: "+getitemname(.@item);
        mes "Quantidade: "+.@quant+"";
        next;
        if(select( "Confirmar","Sair")==2){
                mes @nome$;
                mes "Volte sempre mestre!";
                close;
                }
 
                if (.@id <= 0){
                        mes @nome$;
                        mes "Conta nao existe.";
                        close;
                        }
                mes @nome$;
                Query_SQL "INSERT INTO presente VALUES ('"+.@id+"' , '"+.@item+"' , '"+.@quant+"')";
                mes "Item enviado com sucesso";
                close;
        }else{
Query_SQL "SELECT item FROM presente WHERE `account_id` = '"+ getcharid(3) +"'",.@presente;
Query_SQL "SELECT quantidade FROM presente WHERE `account_id` = '"+ getcharid(3) +"'",.@quantidade;
mes @nome$;
mes "Olá "+strcharinfo(0)+",";
mes "deseja verificar se suas Dark Moons";
mes "chegaram?";
next;
menu "Sim",yep,"Agora não",nop;
yep:
next;
                                mes @nome$;
                if(getitemname(.@presente) == "null"){
                    mes "Você possui ^FF00000^000000 Dark Moon's.";
                    next;
                    mes "Saiba como adquirir Dark Moon's no site:";
                    mes "^FF0000www.ragnareborn.com.br^000000";
                    mes "E ajude nosso servidor a se manter online.";
                    mes " ";
                    mes "[Staff Asgard]";
                    close;
                }
                                    mes "Você possui ^68228B"+.@quantidade+" "+getitemname(.@presente)+"^000000(s) gostaria de retirá-las agora?";
next;
if(select("Sim","Não")==2){
        mes @nome$;
        mes "Volte outra hora então para pegar suas Dark Moon's.";
        mes "^FF0000ATENÇÃO:^000000";
        mes "^FF0000Retire suas Dark Moon's antes de efetuar outra doação, pois a mesma será descartada caso fique aqui mais que 2(dois) dias.^000000";
        mes "^00CED1Staff Asgard^000000    .";
        close;
        }
        Query_SQL "SELECT account_id FROM presente WHERE `account_id` = '"+ getcharid(3) +"'",.@controle;
        if (.@controle <= 0){
                mes @nome$;
                mes "Suas Dark Moon's ainda não chegaram.";
                close;
                }
        mes @nome$;
        mes "Obrigado por ajudar a manter nosso servidor Online.";
        mes "Gratos ^00CED1Staff Asgard^000000    .";
        getitem .@presente,.@quantidade;
        Query_SQL "DELETE FROM presente WHERE `account_id` = '"+ getcharid(3) +"'";
        close;
        }
nop:
next;
mes @nome$;
mes "Volte quando necessitar de algum dos meus serviços!";
close;
}

Edited September 28, 2013 by Patskie
Change topic title to english and BBCode

[Patskie]

Languages

• English usage must be observed in any English section. If you have a problem with English, please find your international forum located at the bottom of the main page

Reference : http://rathena.org/board/index.php?app=forums&module=extras&section=boardrules

 

 

Emistry's Edit :

Explain your problems too ....

Edited September 28, 2013 by Emistry
update..