Jump to content

Scofield

Members
  • Posts

    265
  • Joined

  • Last visited

  • Days Won

    2

Posts posted by Scofield

  1. Would like to edit this script to check it instead of the quantity of an item on the server, he added an item in storage for everyone at once?

     

     

     

     

    prontera,168,179,5    script    Registros ragnarok    757,{
    mes "Enter the ID of the item which you want to know the amount on the server at the time.";
    input .@item_id;
    if( getitemname( .@item_id ) != "null" ){
    
        if( .@item_id ){
            for( set .@i,0; .@i < .sql_size; set .@i,.@i + 1 ){
                query_sql( "SELECT SUM(`amount`) FROM `"+.sql_table$[.@i]+"` WHERE `nameid`='"+.@item_id+"'",.@amount );
                query_sql( "SELECT COUNT(`card0`) FROM `"+.sql_table$[.@i]+"` WHERE `card0`='"+.@item_id+"'",.@card0 );
                query_sql( "SELECT COUNT(`card1`) FROM `"+.sql_table$[.@i]+"` WHERE `card1`='"+.@item_id+"'",.@card1 );
                query_sql( "SELECT COUNT(`card2`) FROM `"+.sql_table$[.@i]+"` WHERE `card2`='"+.@item_id+"'",.@card2 );
                query_sql( "SELECT COUNT(`card3`) FROM `"+.sql_table$[.@i]+"` WHERE `card3`='"+.@item_id+"'",.@card3 );
                set .@total,.@total + ( .@amount + .@card0 + .@card1 + .@card2 + .@card3 );
            }
                
            mes "Encontrado "+.@total+" x "+getitemname( .@item_id );
        }
    }else{
        mes "Item ID invalid";
    }
    close;
    
    OnInit:
    setarray .sql_table$[0],"inventory","cart_inventory","guild_storage","storage","mail";
    set .sql_size,getarraysize( .sql_table$ );
    end;
    }
  2. I want to send an item with zero weight for the storage of all registered accounts at once that the id is 32002

    paopao, that example you posted is an npc or command to execute in phpAdmin?

     

     

     

    if it helps I have this script that checks the amount of existing equipment throughout the seridor, on all accounts, if you want a add an item in the storage of all accounts.

     

    prontera,168,179,5    script    Registros ragnarok    757,{
    mes "Enter the ID of the item which you want to know the amount on the server at the time.";
    input .@item_id;
    if( getitemname( .@item_id ) != "null" ){
    
        if( .@item_id ){
            for( set .@i,0; .@i < .sql_size; set .@i,.@i + 1 ){
                query_sql( "SELECT SUM(`amount`) FROM `"+.sql_table$[.@i]+"` WHERE `nameid`='"+.@item_id+"'",.@amount );
                query_sql( "SELECT COUNT(`card0`) FROM `"+.sql_table$[.@i]+"` WHERE `card0`='"+.@item_id+"'",.@card0 );
                query_sql( "SELECT COUNT(`card1`) FROM `"+.sql_table$[.@i]+"` WHERE `card1`='"+.@item_id+"'",.@card1 );
                query_sql( "SELECT COUNT(`card2`) FROM `"+.sql_table$[.@i]+"` WHERE `card2`='"+.@item_id+"'",.@card2 );
                query_sql( "SELECT COUNT(`card3`) FROM `"+.sql_table$[.@i]+"` WHERE `card3`='"+.@item_id+"'",.@card3 );
                set .@total,.@total + ( .@amount + .@card0 + .@card1 + .@card2 + .@card3 );
            }
                
            mes "Encontrado "+.@total+" x "+getitemname( .@item_id );
        }
    }else{
        mes "Item ID invalid";
    }
    close;
    
    OnInit:
    setarray .sql_table$[0],"inventory","cart_inventory","guild_storage","storage","mail";
    set .sql_size,getarraysize( .sql_table$ );
    end;
    }
  3. how do I dicionar 1 month VIPs to all registered accounts on my server by phpAdmin?



    my system is this vip

     

     

    prontera,158,201,4    script    Porteiro VIP#h2-2::vip    402,{
    
    //Configurações suas:
    //
    // Level da conta VIP:
    //set $levelvip, 1;
    //
    // Sala VIP:
    set @mapa$,"sec_in01";
    set @cordx,85;
    set @cordy,167;
    //
    //Nome do npc:
    set .namenpc$, "^CD0000[Porteiro VIP]^000000";
    //
    //Seu site aqui:
    set @site$,"www.imperialro.com.br";
    //
    //Dias VIP:
    set $numdia, 86400;
    set $numdias, 432000;
    set $numdias2, 2592000;    
    //
    //Preços do VIP:
    set $iten, 1;
    set $item, 1;
    set $item2, 1;        
    //============================================================
    
    if( isPremium() == 1 ) {
    
    mes .namenpc$;
    mes "Olá "+strcharinfo(0)+"!";
    mes "O que deseja?";
    
            switch(select(    "- Sala VIP",
                            "- Dias restantes de VIP.",
                            "- Nada não...")){
                    
    next;
                
        case 1:
                mes .namenpc$;
                mes "Quer entrar na sala vip?";
                menu "Sim",yes10,"Não",not10;
                
                yes10:
                    next;
                    mes .namenpc$;
                    warp "sec_in01",85,167;
                close;
    
                not10:
                    next;
                    mes .namenpc$;
                    mes "OK, até logo.";
                close;
        case 2:
                mes .namenpc$;
                mes "Você ainda tem " + callfunc("Time2Str_VIP",#Premium_Tick) + " como VIP.";
                mes "Após o termino de seu VIP, recarregue! E ajude o servidor a se manter!";
                close;
    
        case 3:
                mes .namenpc$;
                mes "OK, até logo.";
                close;
    
    }
    }
        mes .namenpc$;
        mes "Para obter VIP você tem que ter Ticket VIP.";
        mes "Visite ^CD0000"+@site$+"^000000 para obter Ticket VIP!";
        mes "Você não é VIP, deseja obter VIP?";
    
                if(select("Sim!:Não.") == 1){
                    next;
                    mes .namenpc$;
                    mes "Temos três formas de pagamentos,";
                    mes "^FF0000"+$iten+" Ticket = 1 dia.^000000";
                    mes "^FF0000"+$item+" Ticket = 5 dias.^000000";
                    mes "^FF0000"+$item2+" Ticket = 30 dias.^000000";
                    next;
    
    switch(select(    ""+$iten+" Ticket = 1 dia.",""+$item+" Ticket = 5 dias.",""+$item2+" Ticket = 30 dias." )){
    
    
        case 1:
                if(countitem(32011) < 1) goto SemItem;
                mes .namenpc$;
                if( isPremium() == 1 )
                    mes "Você realmente deseja expandir durabilidade de sua conta VIP?";
                else
                    mes "Você realmente deseja converter sua conta em VIP?";
                next;
                menu "Sim",-,"Não",not3;
                delitem 32011,1;
                if( isPremium() == 1 )
                    set #Premium_Tick, #Premium_Tick +$numdia;
                else
                    set #Premium_Tick, gettimetick(2)+$numdia;
                next;
                mes .namenpc$;
                mes "Dias VIP adicionados!";
                close;
                    not3:
                    next;
                    mes .namenpc$;
                    mes "OK, até logo.";
                    close;
    
        case 2:
                if(countitem(32038) < 1) goto SemItem;
                mes .namenpc$;
                if( isPremium() == 1 )
                    mes "Você realmente deseja expandir durabilidade de sua conta VIP?";
                else
                    mes "Você realmente deseja converter sua conta em VIP?";
                next;
                menu "Sim",-,"Não",not4;
                delitem 32038,1;
                next;
                mes .namenpc$;
                mes "Dias VIP adicionados!";
                if( isPremium() == 1 )
                    set #Premium_Tick, #Premium_Tick +$numdias;
                else
                    set #Premium_Tick, gettimetick(2)+$numdias;
                close;
                not4:
                    next;
                    mes .namenpc$;
                    mes "OK, até logo.";
                    close;
    
        case 3:
                    if(countitem(32002) < 1) goto SemItem;
                    mes .namenpc$;
                    if( isPremium() == 1 )
                        mes "Você realmente deseja expandir durabilidade de sua conta VIP?";
                    else
                        mes "Você realmente deseja converter sua conta em VIP?";
                    next;
                    menu "Sim",-,"Não",not5;
                    delitem 32002,1;                
                    if( isPremium() == 1 )
                        set #Premium_Tick, #Premium_Tick +$numdias2;
                    else
                        set #Premium_Tick, gettimetick(2)+$numdias2;
                    next;
                    mes .namenpc$;
                    mes "Dias VIP adicionados!";
                    close;
                not5:
                    next;
                    mes .namenpc$;
                    mes "OK, até logo.";
                    close;
    
    
            }
        }else{
    
    next;
        mes .namenpc$;
        mes "OK, até logo.";
        close;
    
    SemItem:
    next;
    mes "^CD0000[Porteiro VIP]^000000";
    mes "Desculpe, mas você não tem Ticket VIP.";
    mes "Visite ^CD0000"+@site$+"^000000 para obter Ticket VIP!";
    close;
    
                        }
                        
    }
    
    
    -    script    CASH#L-1    -1,{
    OnPCLoginEvent:
        if(#CASHPOINTS > 0)
        dispbottom "Você tem "+#CASHPOINTS+" Cash.";
    
    }
    
    // *********************************************************************
    function    script    Time2Str_VIP    {
    
        set .@Time_Left, getarg(0) - gettimetick(2);
        
        set .@Days, .@Time_Left / 86400;
        set .@Time_Left, .@Time_Left - (.@Days * 86400);
        set .@Hours, .@Time_Left / 3600;
        set .@Time_Left, .@Time_Left - (.@Hours * 3600);
        set .@Minutes, .@Time_Left / 60;
        set .@Time_Left, .@Time_Left - (.@Minutes * 60);
        
        set .@Time$, "";
        if( .@Days >= 0 )
            set .@Time$, .@Time$ + .@Days + " dias, ";
        //else if( .@Days > 0 || .@Days == 0 )
        //    set .@Time$, .@Time$ + .@Days + " dia, ";
    
    
        if( .@Hours > 1 )
            set .@Time$, .@Time$ + .@Hours + ":";
        else if( .@Hours > 0 )
            set .@Time$, .@Time$ + .@Hours + ":";
    
        if( .@Minutes > 1 )
            set .@Time$, .@Time$ + .@Minutes + ":";
        else if( .@Minutes > 0 )
            set .@Time$, .@Time$ + .@Minutes + ":";
    
        if( .@Time_Left > 1 || .@Time_Left == 0 )
            set .@Time$, .@Time$ + .@Time_Left + "";
        else if( .@Time_Left == 1 )
            set .@Time$, .@Time$ + .@Time_Left + "";
        
        return .@Time$;
    }
    -    script    VIP#L-1    -1,{
    OnPCLoginEvent:
        if (isPremium() == 0) end;
        dispbottom "Você ainda tem " + callfunc("Time2Str_VIP",#Premium_Tick) + " como VIP.";
        dispbottom "Após o termino de seu VIP, recarregue! E ajude o servidor a se manter!";
        end;
    }
  4. Hello, I use this script to give five days vip only 1 time for beginning players, today I want to give 30 days vip for all registered accounts most do not know how to do this, a friend said I would have to run a command on the bench data do not know how to do more.

     

    this script to 5 days for vip players beginners.

     

    new_1-1,53,111,4    script    Bem Vindo    -1,10,10,{
    
    OnTouch:
        if(#ganho == 1) end;
        set .@timer, 432000;
        mes "Bem-Vindo(a) ao ^339966seuRO^000000 Sr(a).  ^0000FF"+strcharinfo(0)+"^000000";
        mes "Você acaba de ganhar ^7777775 dias vip gratis^000000,^0^000000 e ^0000FF^Poring saltitante^000000.";
        getitem 5335,1;
        if( isPremium() == 1 )
            set #Premium_Tick, #Premium_Tick +.@timer;
        else
            set #Premium_Tick, gettimetick(2)+.@timer;    
        set #ganho,1;
        close;
    }
  5. Tenhos this script that blocks shops and chats on the street most of prontera he not be working.

     

    prontera,1,1,1    script    NoChatVendPront    -1,{
    OnInit:
        setcell "prontera",1,1,312,392,cell_nochat,0;
        setcell "prontera",1,1,312,392,cell_novending,0;
    
        setcell "prontera",134,190,177,217,cell_nochat,1;
        setcell "prontera",82,200,124,207,cell_nochat,1;
        setcell "prontera",125,199,125,208,cell_nochat,1;
        setcell "prontera",126,198,126,209,cell_nochat,1;
        setcell "prontera",127,197,127,210,cell_nochat,1;
        setcell "prontera",128,196,128,211,cell_nochat,1;
        setcell "prontera",129,195,129,212,cell_nochat,1;
        setcell "prontera",130,194,130,213,cell_nochat,1;
        setcell "prontera",131,193,131,214,cell_nochat,1;
        setcell "prontera",132,192,132,215,cell_nochat,1;
        setcell "prontera",133,191,133,216,cell_nochat,1;
        setcell "prontera",148,231,163,268,cell_nochat,1;
        setcell "prontera",147,230,164,230,cell_nochat,1;
        setcell "prontera",146,229,165,229,cell_nochat,1;
        setcell "prontera",145,228,166,228,cell_nochat,1;
        setcell "prontera",144,227,167,227,cell_nochat,1;
        setcell "prontera",143,226,168,226,cell_nochat,1;
        setcell "prontera",142,225,169,225,cell_nochat,1;
        setcell "prontera",141,224,170,224,cell_nochat,1;
        setcell "prontera",140,223,171,223,cell_nochat,1;
        setcell "prontera",139,222,172,222,cell_nochat,1;
        setcell "prontera",138,221,173,221,cell_nochat,1;
        setcell "prontera",137,220,174,220,cell_nochat,1;
        setcell "prontera",136,219,175,219,cell_nochat,1;
        setcell "prontera",135,218,176,218,cell_nochat,1;
        setcell "prontera",187,200,229,207,cell_nochat,1;
        setcell "prontera",186,199,186,208,cell_nochat,1;
        setcell "prontera",185,198,185,209,cell_nochat,1;
        setcell "prontera",184,197,184,210,cell_nochat,1;
        setcell "prontera",183,196,183,211,cell_nochat,1;
        setcell "prontera",182,195,182,212,cell_nochat,1;
        setcell "prontera",181,194,181,213,cell_nochat,1;
        setcell "prontera",180,193,180,214,cell_nochat,1;
        setcell "prontera",179,192,179,215,cell_nochat,1;
        setcell "prontera",178,191,178,216,cell_nochat,1;
        setcell "prontera",148,130,163,176,cell_nochat,1;
        setcell "prontera",147,177,164,177,cell_nochat,1;
        setcell "prontera",146,178,165,178,cell_nochat,1;
        setcell "prontera",145,179,166,179,cell_nochat,1;
        setcell "prontera",144,180,167,180,cell_nochat,1;
        setcell "prontera",143,181,168,181,cell_nochat,1;
        setcell "prontera",142,182,169,182,cell_nochat,1;
        setcell "prontera",141,183,170,183,cell_nochat,1;
        setcell "prontera",140,184,171,184,cell_nochat,1;
        setcell "prontera",139,185,172,185,cell_nochat,1;
        setcell "prontera",138,186,173,186,cell_nochat,1;
        setcell "prontera",137,187,174,187,cell_nochat,1;
        setcell "prontera",136,188,175,188,cell_nochat,1;
        setcell "prontera",135,189,176,189,cell_nochat,1;
        setcell "prontera",134,190,177,217,cell_novending,1;
        setcell "prontera",82,200,124,207,cell_novending,1;
        setcell "prontera",125,199,125,208,cell_novending,1;
        setcell "prontera",126,198,126,209,cell_novending,1;
        setcell "prontera",127,197,127,210,cell_novending,1;
        setcell "prontera",128,196,128,211,cell_novending,1;
        setcell "prontera",129,195,129,212,cell_novending,1;
        setcell "prontera",130,194,130,213,cell_novending,1;
        setcell "prontera",131,193,131,214,cell_novending,1;
        setcell "prontera",132,192,132,215,cell_novending,1;
        setcell "prontera",133,191,133,216,cell_novending,1;
        setcell "prontera",148,231,163,268,cell_novending,1;
        setcell "prontera",147,230,164,230,cell_novending,1;
        setcell "prontera",146,229,165,229,cell_novending,1;
        setcell "prontera",145,228,166,228,cell_novending,1;
        setcell "prontera",144,227,167,227,cell_novending,1;
        setcell "prontera",143,226,168,226,cell_novending,1;
        setcell "prontera",142,225,169,225,cell_novending,1;
        setcell "prontera",141,224,170,224,cell_novending,1;
        setcell "prontera",140,223,171,223,cell_novending,1;
        setcell "prontera",139,222,172,222,cell_novending,1;
        setcell "prontera",138,221,173,221,cell_novending,1;
        setcell "prontera",137,220,174,220,cell_novending,1;
        setcell "prontera",136,219,175,219,cell_novending,1;
        setcell "prontera",135,218,176,218,cell_novending,1;
        setcell "prontera",187,200,229,207,cell_novending,1;
        setcell "prontera",186,199,186,208,cell_novending,1;
        setcell "prontera",185,198,185,209,cell_novending,1;
        setcell "prontera",184,197,184,210,cell_novending,1;
        setcell "prontera",183,196,183,211,cell_novending,1;
        setcell "prontera",182,195,182,212,cell_novending,1;
        setcell "prontera",181,194,181,213,cell_novending,1;
        setcell "prontera",180,193,180,214,cell_novending,1;
        setcell "prontera",179,192,179,215,cell_novending,1;
        setcell "prontera",178,191,178,216,cell_novending,1;
        setcell "prontera",148,130,163,176,cell_novending,1;
        setcell "prontera",147,177,164,177,cell_novending,1;
        setcell "prontera",146,178,165,178,cell_novending,1;
        setcell "prontera",145,179,166,179,cell_novending,1;
        setcell "prontera",144,180,167,180,cell_novending,1;
        setcell "prontera",143,181,168,181,cell_novending,1;
        setcell "prontera",142,182,169,182,cell_novending,1;
        setcell "prontera",141,183,170,183,cell_novending,1;
        setcell "prontera",140,184,171,184,cell_novending,1;
        setcell "prontera",139,185,172,185,cell_novending,1;
        setcell "prontera",138,186,173,186,cell_novending,1;
        setcell "prontera",137,187,174,187,cell_novending,1;
        setcell "prontera",136,188,175,188,cell_novending,1;
        setcell "prontera",135,189,176,189,cell_novending,1;
    end;
    }
  6. Thank you, I incontrei otherwise.

     

    -    script    VIP#L-1    -1,{
    
    OnPCLoginEvent:
    
        if (isPremium() == 0) end;
    
        dispbottom "Você ainda tem " + callfunc("Time2Str_VIP",#Premium_Tick) + " como VIP.";
    
        dispbottom "Após o termino de seu VIP, recarregue! E ajude o servidor a se manter!";
    
        end;
    
    }

     

     

    Replacing this

     

     

    if(sd->gmlevel < 1){

     

    by this

     

    if(!pc_isPremium(sd)) {
  7. I ultilizo a system that does not let the vip lv nv one account in the database, it works differently.

    if I wanted to use the command @ govip put in src it does lv checking the database, wanted to know how I change the src to be compatible with my system vip.

     

     

     

    I use System vip

    
     
    prontera,158,201,4    script    Porteiro VIP#h2-2::vip    402,{
    
    //Configurações suas:
    //
    // Level da conta VIP:
    //set $levelvip, 1;
    //
    // Sala VIP:
    set @mapa$,"sec_in01";
    set @cordx,85;
    set @cordy,167;
    //
    //Nome do npc:
    set .namenpc$, "^CD0000[Porteiro VIP]^000000";
    //
    //Seu site aqui:
    set @site$,"www.imperialro.com.br";
    //
    //Dias VIP:
    set $numdia, 86400;
    set $numdias, 432000;
    set $numdias2, 2592000;    
    //
    //Preços do VIP:
    set $iten, 1;
    set $item, 1;
    set $item2, 1;        
    //============================================================
    
    if( isPremium() == 1 ) {
    
    mes .namenpc$;
    mes "Olá "+strcharinfo(0)+"!";
    mes "O que deseja?";
    
            switch(select(    "- Sala VIP",
                            "- Dias restantes de VIP.",
                            "- Nada não...")){
                    
    next;
                
        case 1:
                mes .namenpc$;
                mes "Quer entrar na sala vip?";
                menu "Sim",yes10,"Não",not10;
                
                yes10:
                    next;
                    mes .namenpc$;
                    warp "sec_in01",85,167;
                close;
    
                not10:
                    next;
                    mes .namenpc$;
                    mes "OK, até logo.";
                close;
        case 2:
                mes .namenpc$;
                mes "Você ainda tem " + callfunc("Time2Str_VIP",#Premium_Tick) + " como VIP.";
                mes "Após o termino de seu VIP, recarregue! E ajude o servidor a se manter!";
                close;
    
        case 3:
                mes .namenpc$;
                mes "OK, até logo.";
                close;
    
    }
    }
        mes .namenpc$;
        mes "Para obter VIP você tem que ter Ticket VIP.";
        mes "Visite ^CD0000"+@site$+"^000000 para obter Ticket VIP!";
        mes "Você não é VIP, deseja obter VIP?";
    
                if(select("Sim!:Não.") == 1){
                    next;
                    mes .namenpc$;
                    mes "Temos três formas de pagamentos,";
                    mes "^FF0000"+$iten+" Ticket = 1 dia.^000000";
                    mes "^FF0000"+$item+" Ticket = 5 dias.^000000";
                    mes "^FF0000"+$item2+" Ticket = 30 dias.^000000";
                    next;
    
    switch(select(    ""+$iten+" Ticket = 1 dia.",""+$item+" Ticket = 5 dias.",""+$item2+" Ticket = 30 dias." )){
    
    
        case 1:
                if(countitem(32011) < 1) goto SemItem;
                mes .namenpc$;
                if( isPremium() == 1 )
                    mes "Você realmente deseja expandir durabilidade de sua conta VIP?";
                else
                    mes "Você realmente deseja converter sua conta em VIP?";
                next;
                menu "Sim",-,"Não",not3;
                delitem 32011,1;
                if( isPremium() == 1 )
                    set #Premium_Tick, #Premium_Tick +$numdia;
                else
                    set #Premium_Tick, gettimetick(2)+$numdia;
                next;
                mes .namenpc$;
                mes "Dias VIP adicionados!";
                close;
                    not3:
                    next;
                    mes .namenpc$;
                    mes "OK, até logo.";
                    close;
    
        case 2:
                if(countitem(32038) < 1) goto SemItem;
                mes .namenpc$;
                if( isPremium() == 1 )
                    mes "Você realmente deseja expandir durabilidade de sua conta VIP?";
                else
                    mes "Você realmente deseja converter sua conta em VIP?";
                next;
                menu "Sim",-,"Não",not4;
                delitem 32038,1;
                next;
                mes .namenpc$;
                mes "Dias VIP adicionados!";
                if( isPremium() == 1 )
                    set #Premium_Tick, #Premium_Tick +$numdias;
                else
                    set #Premium_Tick, gettimetick(2)+$numdias;
                close;
                not4:
                    next;
                    mes .namenpc$;
                    mes "OK, até logo.";
                    close;
    
        case 3:
                    if(countitem(32002) < 1) goto SemItem;
                    mes .namenpc$;
                    if( isPremium() == 1 )
                        mes "Você realmente deseja expandir durabilidade de sua conta VIP?";
                    else
                        mes "Você realmente deseja converter sua conta em VIP?";
                    next;
                    menu "Sim",-,"Não",not5;
                    delitem 32002,1;                
                    if( isPremium() == 1 )
                        set #Premium_Tick, #Premium_Tick +$numdias2;
                    else
                        set #Premium_Tick, gettimetick(2)+$numdias2;
                    next;
                    mes .namenpc$;
                    mes "Dias VIP adicionados!";
                    close;
                not5:
                    next;
                    mes .namenpc$;
                    mes "OK, até logo.";
                    close;
    
    
            }
        }else{
    
    next;
        mes .namenpc$;
        mes "OK, até logo.";
        close;
    
    SemItem:
    next;
    mes "^CD0000[Porteiro VIP]^000000";
    mes "Desculpe, mas você não tem Ticket VIP.";
    mes "Visite ^CD0000"+@site$+"^000000 para obter Ticket VIP!";
    close;
    
                        }
                        
    }
    
    
    -    script    CASH#L-1    -1,{
    OnPCLoginEvent:
        if(#CASHPOINTS > 0)
        dispbottom "Você tem "+#CASHPOINTS+" Cash.";
    
    }
    
    // *********************************************************************
    function    script    Time2Str_VIP    {
    
        set .@Time_Left, getarg(0) - gettimetick(2);
        
        set .@Days, .@Time_Left / 86400;
        set .@Time_Left, .@Time_Left - (.@Days * 86400);
        set .@Hours, .@Time_Left / 3600;
        set .@Time_Left, .@Time_Left - (.@Hours * 3600);
        set .@Minutes, .@Time_Left / 60;
        set .@Time_Left, .@Time_Left - (.@Minutes * 60);
        
        set .@Time$, "";
        if( .@Days >= 0 )
            set .@Time$, .@Time$ + .@Days + " dias, ";
        //else if( .@Days > 0 || .@Days == 0 )
        //    set .@Time$, .@Time$ + .@Days + " dia, ";
    
    
        if( .@Hours > 1 )
            set .@Time$, .@Time$ + .@Hours + ":";
        else if( .@Hours > 0 )
            set .@Time$, .@Time$ + .@Hours + ":";
    
        if( .@Minutes > 1 )
            set .@Time$, .@Time$ + .@Minutes + ":";
        else if( .@Minutes > 0 )
            set .@Time$, .@Time$ + .@Minutes + ":";
    
        if( .@Time_Left > 1 || .@Time_Left == 0 )
            set .@Time$, .@Time$ + .@Time_Left + "";
        else if( .@Time_Left == 1 )
            set .@Time$, .@Time$ + .@Time_Left + "";
        
        return .@Time$;
    }
    -    script    VIP#L-1    -1,{
    OnPCLoginEvent:
        if (isPremium() == 0) end;
        dispbottom "Você ainda tem " + callfunc("Time2Str_VIP",#Premium_Tick) + " como VIP.";
        dispbottom "Após o termino de seu VIP, recarregue! E ajude o servidor a se manter!";
        end;
    }

     

     

     

    Modification of my src @ govip   src/map/atcommand.c

     

    I do like the change here to make the check according to my system vip?

    /*==========================================
     * @govip
     * => Teleporta o personagem para a Sala VIP [Heaven]
     *------------------------------------------*/
    int atcommand_govip(const int fd, struct map_session_data* sd, const char* command, const char* message)
    {
        nullpo_retr(-1,sd);
        if(sd->gmlevel < 1){
            clif_displaymessage(fd,"Somente VIPs podem acessar esta sala.");
            return -1;
        }
        pc_setpos(sd, mapindex_name2id("sec_in01"), 85, 167, 3);
        return 0;
    
    }
  8. Capuche I've been testing and found that this script is working perfectly, he just has a problem in that part of raking, he is not showing the player's name right

    raking in the class and shows the player's name, but the name of the row player to be popping up on the bottom line


    EX; 1 [] Class [Sniper] <---- his name goes down Pepico

    2 [Pepico] Class [Lord Kingnith] <--- His name Striker

    3 [Striker] Class [Champ]

     

     

     

    prontera,164,166,5    script    FirstLevel    410,{
        mes .n$;
        mes "Lista dos primeiros jogadores a conquistarem o level "+.nvm+".";
        mes " ";
        for(set .i, 0; .i < getarraysize($class_fix);set .i,.i+1) mes (.i+1)+" - [^b00808"+$nmc$[.i]+"^000000]  Classe: [^f80b0b"+jobname($class_fix[.i])+"^000000]";
        close;
    end;
    OnPCBaseLvUpEvent:
    OnPCJobLvUpEvent:
        if(BaseLevel == .nvm && JobLevel == .jbm){
            for(set .i, 0; .i < getarraysize($class_fix);set .i,.i+1){
                if(Class == $class_fix[.i])end;
            }
            announce "Parabéns ao jogador ["+strcharinfo(0)+"] por se o primeiro ["+jobname(Class)+"] a antingir o level "+.nvm+".",bc_all;
            set $class_fix[getarraysize($class_fix)],Class;
            set $nmc$[getarraysize($class_fix)],strcharinfo(0);
            for(set .i, 0; .i < getarraysize(.ipm);set .i,.i+1) getitem .ipm[.i],.qpm[.i];
            end;
        }
    end;
    OnInit:
        set .n$, "[^0b85f8First Level^000000]";
        set .nvm, 99;                    // Level maximo do servidor.
        set .jbm, 70;                    // Level Job maximo do servidor.
        setarray .ipm[0], 32002,7828,7773,7829;   // ID dos premios.
        setarray .qpm[0], 1,  150,  150,  150;     // Quantidade de premios.
    end;
    }
  9. Thank you based on your able to create this, still not tested testo soon and post here.

     

    - script RemoveAccs -1,{
    OnWhisperGlobal:
    if(getgmlevel() < 99) end;
    query_sql "SELECT account_id,DATE(lastlogin) FROM login WHERE account_id >= '2000000' AND level < '99'",.@acc_id,.@data$;
    for(set .@i,0; .@i < getarraysize(.@acc_id); set .@i,.@i+1){
    deletearray .@dias;
    query_sql "SELECT DATEDIFF(DATE(NOW()),'"+.@data$[.@i]+"')",.@dias;
    if(.@dias > 60){
    deletearray .@char_id;
    query_sql "SELECT char_id FROM `char` WHERE account_id = '"+.@acc_id[.@i]+"'",.@char_id;
    for(set .@w,0; .@w < getarraysize(.@char_id); set .@w,.@w+1){
    query_sql "DELETE FROM inventory,friends,hotkey,pet,sc_data,skill,cart_inventory,global_reg_value,guild_member WHERE char_id = '"+.@char_id[.@w]+"'";
    }
    query_sql "DELETE FROM storage WHERE account_id = '"+.@acc_id[.@i]+"'";
    }
    }
    end;
    }
  10. I have not explained right, I want the first players from each class to reach the maximum level "99/70" to win a prize, studies using this npc above him not doing more to reward and neither shows the ranking of players

     

     

    prontera, 164,166,5 script FirstLevel 410, {
         months. $ n;
         mes "List of the first players to win the level" +. nvm + ".";
         months "";
         for (set ï., 0,. i <getarraysize ($ class_fix); September i,. i +1) months (. i +1) + "- [^ b00808" nmc + $ $ [. i] + "^ 000000] Class: [^ f80b0b "+ jobname ($ class_fix [. i]) +" ^ 000000] ";
         close;
    end;
    OnPCBaseLvUpEvent:
    OnPCJobLvUpEvent:
         if (BaseLevel ==. == nvm && JobLevel. jbm) {
             for (set ï., 0,. i <getarraysize ($ class_fix); September i,. i +1) {
                 if (Class == $ class_fix [. i]) end;
             }
             announce "Congratulations to the player [" + strcharinfo (0) + "] for the first [" + jobname (Class) + "] to the level antingir" +. nvm + "." bc_all;
             set $ class_fix [getarraysize ($ class_fix)] Class;
             set $ $ nmc [getarraysize ($ class_fix)], strcharinfo (0);
             for (set ï., 0,. i <getarraysize (. ipm); September i,. i +1) getitem. ipm [. i]. QPM [. i];
             end;
         }
    end;
    OnInit:
         September n $, "[^ 0b85f8First Level ^ 000000]";
         September nvm, 99 / / Level maximo server.
         September jbm, 70 / / Level Job maximo server.
         setarray. ipm [0], 32002,7828,7773,7829 / / ID of prizes.
         setarray. QPM [0], 1, 150, 150, 150, / / Number of prizes.
    end;
    }
  11. Hello I want a npc that makes the awards for the first players of each class, I am using this no longer be working.

     

    prontera,164,166,5    script    FirstLevel    410,{
        mes .n$;
        mes "Lista dos primeiros jogadores a conquistarem o level "+.nvm+".";
        mes " ";
        for(set .i, 0; .i < getarraysize($class_fix);set .i,.i+1) mes (.i+1)+" - [^b00808"+$nmc$[.i]+"^000000]  Classe: [^f80b0b"+jobname($class_fix[.i])+"^000000]";
        close;
    end;
    OnPCBaseLvUpEvent:
    OnPCJobLvUpEvent:
        if(BaseLevel == .nvm && JobLevel == .jbm){
            for(set .i, 0; .i < getarraysize($class_fix);set .i,.i+1){
                if(Class == $class_fix[.i])end;
            }
            announce "Parabéns ao jogador ["+strcharinfo(0)+"] por se o primeiro ["+jobname(Class)+"] a antingir o level "+.nvm+".",bc_all;
            set $class_fix[getarraysize($class_fix)],Class;
            set $nmc$[getarraysize($class_fix)],strcharinfo(0);
            for(set .i, 0; .i < getarraysize(.ipm);set .i,.i+1) getitem .ipm[.i],.qpm[.i];
            end;
        }
    end;
    OnInit:
        set .n$, "[^0b85f8First Level^000000]";
        set .nvm, 99;                    // Level maximo do servidor.
        set .jbm, 70;                    // Level Job maximo do servidor.
        setarray .ipm[0], 32002,7828,7773,7829;   // ID dos premios.
        setarray .qpm[0], 1,  150,  150,  150;     // Quantidade de premios.
    end;
    }
    
×
×
  • Create New...