Jump to content

sprdosat

Members
  • Posts

    75
  • Joined

  • Last visited

Posts posted by sprdosat

  1. Hi guys, These errors appeared when I updated rAthena. I am using the current rAthena.

    /////////////////////////////////////////////////////////////////////////
    //---------------------------------------------------------------------//
    //                       MINING (EXPLOSION TYPE)                       //
    //                     AUTHOR: LIL TROLL//COLDFIRE                     //
    //---------------------------------------------------------------------//
    //                          RATHENA SCRIPT                             //
    //---------------------------------------------------------------------//
    //                            Version 1                                //
    //---------------------------------------------------------------------//
    //    Credits to:                                                         //
    //     - Sir Emistry(For teaching me OnTouch)                                //
    //    - Lesbie for requesting the script.                                //
    //     FEATURES:                                                               //
    //    - Set the configuration, run the script.                            //
    //    - Player set the explosion and run for it!                       //
    //    - Wait till the explosion off then grab the items.               //
    //    - NPC AutoHides after set of explosions.                            //
    //    - Then add duplicates.                                             //
    //---------------------------------------------------------------------//
    /////////////////////////////////////////////////////////////////////////
        
    mina,192,64,0    script    Usar Explosivos    4_crack,3,3,{
    
    function    Scatter_Debris;
        if(@ExplodedInFace == 2 ) end;
        for (.@i = 0; .@i < getarraysize(.Equips); .@i++){
            if (!isequipped(.Equips[.@i])){
                message strcharinfo(0), "Eu preciso equipar '"+ getitemname(.Equips[.@i]) +"' para minerar!";
                .@Unequipped++;
            }
        }
        if (.@Unequipped){
            message strcharinfo(0), .@Unequipped +" de "+ getarraysize(.Equips) +" o equipamento não foi usado.";
            end;
        }
        for (.@i = 0; .@i < getarraysize(.Explosives); .@i++){
            if (countitem(.Explosives[.@i]) < .Amount[.@i]){
                message strcharinfo(0), "I need to bring "+ .Amount[.@i] +" "+ getitemname(.Explosives[.@i]) +" explosives to mine!";
                .@Gearless++;
            }
        }
        if (.@gearless){
            if (getarraysize(.Explosives) > 1)
                .@Dialogue$ = "ferramentas foram";
            else
                .@Dialogue$ = "ferramenta foi";
                message strcharinfo(0), .@Gearless +" of "+ getarraysize(.Explosives) +" "+ .@Dialogue$ +" não trouxe.";    
                end;
        }
        for (.@i = 0; .@i < getarraysize(.SFXS); .@i++) specialeffect .SFXS[.@i];
        for (.@i = 0; .@i < getarraysize(.SFXS); .@i++) specialeffect2 .SFXS[.@i];
        specialeffect2 950;
        progressbar "green",.Progress;
        specialeffect2 950;
        set @ExplodedInFace,2;
        for (.@i = 0; .@i < getarraysize(.Explosives); .@i++) {
            delitem .Explosives[.@i],.Amount[.@i]; 
        }
        announce "Explosivos foram colocados, corra para bem longe da mina!! ...",bc_self; 
        sleep2 1000;
        announce "5..",bc_self;
        sleep2 1000;
        announce "4..",bc_self;
        sleep2 1000;
        announce "3..",bc_self;
        sleep2 1000;
        announce "2..",bc_self;
        sleep2 1000;
        announce "1..",bc_self;
        set @ExplodedInFace,1;
        sleep2 1000;
        announce "Explosões Acontecendo!",bc_self;
        if(checkidle(strcharinfo(0))>=.Delay) {
            unitskilluseid getcharid(3),"NPC_SELFDESTRUCTION",1;
            announce "Você morreu na explosão!",bc_self;
        }
        Scatter_Debris;
        sleep2 1000;
        Scatter_Debris;
        sleep2 1000;
        Scatter_Debris;
        sleep2 1000;
        Scatter_Debris;
        sleep2 1000;
        Scatter_Debris;
        set @ExplodedInFace,0;
        announce "As explosões acabaram!",bc_self;
        hideonnpc strnpcinfo(0);
            set .@Random,rand(1,100);
        if(.@Random < .Chance) {
            for(set .@i,0; .@i<getarraysize(.Rewards); set .@i,.@i+1){
                getmapxy(.@m$,.@x,.@y,1);
                set .@Rewards,.Rewards[rand(getarraysize(.Rewards))];
                set .@Amount,.Amount[rand(getarraysize(.Amount))];
                makeitem .@Rewards,.@Amount,.@m$,.@x+rand(-.ScatArea,.ScatArea),.@y+rand(-.ScatArea,.ScatArea);
                sleep2 .Hidetime*60000;
                hideoffnpc strnpcinfo(0);
            end;
            }
        }
        else {
            set @ExplodedInFace,0;
            sleep2 .Hidetime*60000;
            hideoffnpc strnpcinfo(0);
            end;
        }
    
    set @ExplodedInFace,0;
    
    function    Scatter_Debris    {
        getmapxy(.@m$,.@x,.@y,1);                // DONT CHANGE THIS ONE.
        for (.@i = 0; .@i < getarraysize(.SFX); .@i++) specialeffect .SFX[.@i];
        set .@Debris,$Debris[rand(getarraysize($Debris))];
        set .@Scatter,$Scatter[rand(getarraysize($Scatter))];
        makeitem .@Debris,.@Scatter,.@m$,.@x+rand(-.ScatArea,.ScatArea),.@y+rand(-.ScatArea,.ScatArea);
        return;
    }
    
    OnTouch:
        if(@ExplodedInFace==1){
            specialeffect2 EF_SUI_EXPLOSION;
            unitskilluseid getcharid(3),"NPC_SELFDESTRUCTION",1;
            announce "Você morreu na explosão!",bc_self;
            set @ExplodedInFace,0;
        }
    end;
    
    OnInit:    
    set .Chance,25;                    // MINING REWARD CHANCE IN %.
    setarray .Equips[0],5009,30472,30474;     // CHANGE THIS TO MINING EQUIPMENTS.
    setarray .Explosives[0],30616,30617,30618;    // CHANGE THIS TO MINING EXPLOSIVES(CREATE YOUR OWN ITEM ID FOR EXPLOSIVE).   
    setarray .Amount[0],1,1,1;            // EXPLOSIVES AMOUNT.
    setarray .Rewards[0],30098,7049,30634;        // MINING REWARDS.
    setarray .RewAmou[0],1,2,3;            // REWARDS AMOUNT.
    set .Progress,5;                    // TIME TO SET THE EXPLOSIVE ON MINE.
    set .HideTime,1;                    // MINE HIDES AFTER IT EXPLODE, APPEAR AGAIN TIME. IN MINUTES.
    setarray .Debris[0],7049,757,756,6077,1010,1011,984,985;    // DEBRIS, STONES,ELUNIUM,ORIDECON,REFINE MATERIALS && ETC..
    setarray .Scatter[0],1,2,3;                            // DEBRIS AMOUNT.
    setarray .ScatArea[0],1,2,3;                            // SCATTER AREA.
    setarray .SFXS[0],225,805,60;                            // MINING CAST
    setarray .SFX[0],44,100,4,18,53,65,960,965,967,901,730,722,585,32,907,810,941,563;    // Mining Explosion.
    set .Delay,5;                                    
    end;
    }
    
    mina,302,356,0    duplicate(Usar Explosivos)    Usar Explosivos#2    4_crack
    mina,368,333,0    duplicate(Usar Explosivos)    Usar Explosivos#3    4_crack
    mina,112,378,0    duplicate(Usar Explosivos)    Usar Explosivos#4    4_crack
    mina,126,299,0    duplicate(Usar Explosivos)    Usar Explosivos#5    4_crack
    mina,61,360,0    duplicate(Usar Explosivos)    Usar Explosivos#6    4_crack
    mina,171,241,0    duplicate(Usar Explosivos)    Usar Explosivos#7    4_crack
    mina,131,142,0    duplicate(Usar Explosivos)    Usar Explosivos#8    4_crack
    mina,28,121,0    duplicate(Usar Explosivos)    Usar Explosivos#9    4_crack
    mina,51,238,0    duplicate(Usar Explosivos)    Usar Explosivos#10    4_crack
    mina,163,371,0    duplicate(Usar Explosivos)    Usar Explosivos#11    4_crack
    mina,206,389,0    duplicate(Usar Explosivos)    Usar Explosivos#12    4_crack
    mina,143,81,0    duplicate(Usar Explosivos)    Usar Explosivos#17    4_crack
    mina,257,319,0    duplicate(Usar Explosivos)    Usar Explosivos#18    4_crack
    
    mina2,92,92,0    duplicate(Usar Explosivos)    Usar Explosivos#13    4_crack
    mina2,84,55,0    duplicate(Usar Explosivos)    Usar Explosivos#14    4_crack
    mina2,30,79,0    duplicate(Usar Explosivos)    Usar Explosivos#15    4_crack
    mina2,62,40,0    duplicate(Usar Explosivos)    Usar Explosivos#16    4_crack

     

    Erro 1 explosive_mining.png

    Erro 2 explosive_mining.png

  2. Hi, after I updated rAthena, these messages started appearing. Can someone help me? Thx

    Note: script: iRO Bounty Board

    Spoiler

    //===== EinherjarRO Scripts ================================== 
    //= Bounty Board
    //===== By: ================================================== 
    //= Stolao
    //===== Current Version: ===================================== 
    //= 1.0
    //===== Compatible With: ===================================== 
    //= rAthena SVN
    //===== Description: ========================================= 
    //= iRO Bounty Board
    //===== Comments: ============================================
    //= [Stolao]
    //= http://irowiki.org/wiki/Bounty_Board_Quests
    //= Uses custom text, provide official if you want
    //===== Additional Comments: =================================
    //= 1.0 First Released
    //===== Contact Ifo: =========================================
    //= [Stolao] 
    //= Email: [email protected]
    //============================================================

    function    script    F_BBQ    {
        explode(.@M$,getarg(2),",");    explode(.@B$,getarg(3),",");    explode(.@J$,getarg(4),",");
        for(.@i = 0; .@i < getarraysize(.@M$); .@i++){
            .@MobIds[.@i] = atoi(.@M$[.@i]);
            .@BaseExp[.@i] = atoi(.@B$[.@i]);
            .@JobExp[.@i] = atoi(.@J$[.@i]);
        }
        mes "[ Missões de Caça ]";
        mes "O que você gostaria de caçar?";
        .@Menu$ = "";
        for(.@i = 0; .@i < getarraysize(.@MobIds); .@i++){
            .@Menu$ = .@Menu$ + ((!Target[.@MobIds[.@i] - 1000])?""+strmobinfo(1,.@MobIds[.@i])+":":":");
            if(Target[.@MobIds[.@i] - 1000] > 100) .@c++;
        }
        if(.@c)    .@Menu$ = .@Menu$ + "^00AA00Quest Completa^000000";
        .@s = select(.@Menu$) - 1;
        if(.@s >= getarraysize(.@MobIds)){
            for(.@i = 0; .@i < getarraysize(.@MobIds); .@i++){
                if(Target[.@MobIds[.@i] - 1000] > 100){
                    .@Jexp += .@JobExp[.@i];
                    .@Bexp += .@BaseExp[.@i];
                    .@c++;
                    Target[.@MobIds[.@i] - 1000] = 0;
                }
            }
            if(vip_status(1))
                switch(prompt("Both "+.@Bexp+"/"+.@Jexp+":Only Base "+(.@Bexp+.@Jexp)+":Only Job"+(.@Bexp+.@Jexp)+"")){
                    case 3:
                        .@Jexp += .@Bexp;
                        .@Bexp = 0;
                        break;
                    case 2:
                        .@Bexp += .@Jexp;
                        .@Jexp = 0;
                    default:
                        break;
                }
            getexp .@Bexp,.@Jexp;
            if(.@c >= getarraysize(.@MobIds)) getitem (checkre(0)?6495:501),1;
        } else {
            if(BaseLevel < getarg(0))
                mes "Seu nível é muito baixo, voltar quando for mais forte o suficiente.";
            else    if(BaseLevel > getarg(1))
                    mes "Seu nível está muito acima para essa missão .";
            else {
                mes "Mate 100 "+strmobinfo(1,.@MobIds[.@s]);
                Target[.@MobIds[.@s] - 1000] = 1;
            }
        }
        close;
    }

    prontera,146,156,5    script    Missões de Caça 1-20#prt1    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 1,20;
        .MobIds$ =  "1010,1014,1025";
        .BaseExp$ = "50678,67678,67678";
        .JobExp$ =  "5175,9675,9675";
    end;
    OnNPCKillEvent:
        .@kid = killedrid;
        if(Target[.@kid - 1000])
        if(!getcharid(1) && Target[.@kid - 1000]){
            Target[.@kid - 1000] += 1;
            dispbottom "[ Quest Boards ]: "+(Target[.@kid - 1000] - 1)+"/100 "+strmobinfo(1,.@kid)+" slain.",0xCC00CC;
        } else {
            getmapxy(.@map1$,.@x1,.@y1,0);
            getpartymember getcharid(1),1;
            getpartymember getcharid(1),2;
            for(set .@j, 0; .@j < $@partymembercount; .@j++){
                if(isloggedin($@partymemberaid[.@j], $@partymembercid[.@j])){
                    if(attachrid($@partymemberaid[.@j])){
                        if(Target[.@kid - 1000] && HP > 0){
                            getmapxy(.@map2$,.@x2,.@y2,0);
                            if(.@map1$ == .@map2$ && distance(.@x1,.@y1,.@x2,.@y2) < 20){
                                Target[.@kid - 1000] += 1;
                                dispbottom "[ Quest Boards ]: "+(Target[.@kid - 1000] - 1)+"/100 "+strmobinfo(1,.@kid)+" slain.",0xCC00CC;    
                            }
                        }
                    }
                }
            }
        }
        end;
    }

    prontera,146,153,5    script    Missões de Caça 1-20#prt    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 1,20;
        .MobIds$ =  "1063,1002,1012,1052,1167,1048,1094,1004";
        .BaseExp$ = "50678,55678,55678,65678,65678,68678,61678,67678";
        .JobExp$ =  "3900,6750,7650,8325,7650,15975,9675,9675";
    }

    prontera,165,172,5    script    Missões de Caça 21-50#prt    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 21,50;
        .MobIds$ =  "1051,1175,1174,1019,1104,1105,1053,1054,1031,1033,1055";
        .BaseExp$ = "80678,90678,90678,120678,150678,320678,220678,220678,250678,280678,110678";
        .JobExp$ =  "15975,17100,15975,20475,34200,34200,22725,25200,25200,29475,27337";
    }

    prontera,165,169,5    script    Missões de Caça 41-70#prt    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 41,70;
        .MobIds$ =  "1138,1100,1494,1166";
        .BaseExp$ = "449500,440500,550625,664350";
        .JobExp$ =  "55575,45450,56925,72450";
    }

    prontera,165,166,5    script    Missões de Caça 61-100#prt    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 61,100;
        .MobIds$ =  "1380,1035,1139,1037,1099";
        .BaseExp$ = "866825,2066825,3066825,5162000,9291125";
        .JobExp$ =  "75150,76500,75263,182250,102600";
    }

    aretnorp,229,132,3    script    Missões de Caça 81-100#nib    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 81,100;
        .MobIds$ =  "1613,1162,1215,1692,1627,"; //In Official is set to '??' so i just add '1' as dummy just create your own custom BaseEXP and JobEXP.
        .BaseExp$ = "43291125,36291125,36291125,42291125,30291125";
        .JobExp$ =  "148050,148050,136575,136575,213975";
    }

    aretnorp,229,129,3    script    Missões de Caça 90-120#nib    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 90,120;
        .MobIds$ =  "1109,1143,1192,1198,1253,1156,1155,1117,1263";
        .BaseExp$ = "69291125,48291125,48291125,75291125,49291125,48291125,60291125,62291125,40291125";
        .JobExp$ =  "243675,225900,133875,187425,160275,133850,148050,144000,150075";
    }

    aretnorp,229,126,3    script    Missões de Caça 110-150#nib    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels,110,150;
        .MobIds$ =  "1267,1310,1208,1207,1194,1163,1132,1206,1371,1390,1292";
        .BaseExp$ = "90000000,90000000,92211280,90000000,90000000,93100320,95000000,90000000,90000000,94110000,90000000";
        .JobExp$ =  "250000,250000,277425,250000,250000,233550,241425,250000,250000,241425,250000";
    }

    aretnorp,229,123,3    script    Missões de Caça 121-160#nib    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 121,160;
        .MobIds$ =  "1714,1717,1752,1753,1716,1713";
        .BaseExp$ = "394424350,397424350,398424350,390424350,390824350,390824350";
        .JobExp$ =  "336262,336262,386775,402412,381262,381262";
    }

    aretnorp,210,129,3    script    Missões de Caça 131-175#nib    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 131,175;
        .MobIds$ =  "2083,2084,2085,2086";
        .BaseExp$ = "494424350,555506250,665546750,668546750";
        .JobExp$ =  "3451237,511762,591187,674437";
    }

    aretnorp,210,132,3    script    Missões de Caça 121-175#nib    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 121,175;
        .MobIds$ =  "1682,1657,1655,1654,1653,1656,1652";
        .BaseExp$ = "444424350,442506250,551546750,551550575,552573075,552573975,553588510";
        .JobExp$ =  "318150,503550,511200,552150,531000,481050,501750";
    }

    aretnorp,210,126,3    script    Missões de Caça 140-175#nib    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 140,175;
        .MobIds$ =  "2479,2478,2917,2616,2919";
        .BaseExp$ = "666622800,441181250,441690425,441675575,331321650";
        .JobExp$ =  "529650,1782000,1902825,1576125,1489050";
    }

    aretnorp,210,123,3    script    Missões de Caça 141-175#nib    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 141,175;
        .MobIds$ =  "2137,2136,2365,2363,2364,2133,2366,2368,2367,2369,2370";
        .BaseExp$ = "441516950,448437500,448006620,224668750,224565250,448763750,448128120,337954870,448085370,448101120,448115750";
        .JobExp$ =  "708750,731250,848137,461812,378,112,789750,871650,862762,846562,892800,811575";

    }

    aretnorp,187,222,3    script    Missões de Caça 180-210#nib    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 180,220;
        .MobIds$ =  "1639,1637,1638,1635,1634,1636,2227,2223,2226,2225,2224,2222,2221";
        .BaseExp$ = "3111516950,3111736100,3111863225,3111880325,3111996987,3111918687,6011799325,6012486925,6012496600,6012729925,6012889450,6012969550,6013641175";
        .JobExp$ =  "1997550,1738912,1861312,1993162,2010825,2022525,1490400,2139300,2286225,2276100,2228625,2596500,2706075";
    }

    aretnorp,190,218,3    script    Missões de Caça 220-240#nib    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 220,240;
        .MobIds$ =  "1870,1777,1833,1918",
        .BaseExp$ = "82011799325,82011799325,82011799325,82011799325",
        .JobExp$ =  "2738912,2861312,2993162,3010825",
    }

    aretnorp,194,215,3    script    Missões de Caça 230-255#nib    837,{
        callfunc "F_BBQ",.Levels[0], .Levels[1], .MobIds$, .BaseExp$, .JobExp$;
    OnInit:
        setarray .Levels, 230,255;
        .MobIds$ =  "3727,3728,3729,3730,3731,3732,3733,3734,3735,3736,3737,3738,3739";
        .BaseExp$ = "842011799325,842011799325,842011799325,842011799325,842011799325,842011799325,12442011799325,12442011799325,12442011799325,12442011799325,12442011799325,12442011799325,12442011799325";
        .JobExp$ =  "4997550,4738912,4861312,4993162,6010825,6022525,4490400,6139300,6286225,6276100,6228625,6596500,6706075";
    }


     

     

×
×
  • Create New...