Jump to content

makuexile

Members
  • Posts

    48
  • Joined

  • Last visited

Posts posted by makuexile

  1. Good Day.

    How to fix?

    When i sell cards or buy card it always shown debug.

     

    Quote

    //===== rAthena Script =======================================
    //= Card Trader
    //===== By: ==================================================
    //= Euphy
    //===== Current Version: =====================================
    //= 1.1 
    //===== Compatible With: =====================================
    //= rAthena SVN
    //===== Description: =========================================
    //= Exchange cards for points.
    //============================================================

    prontera,164,168,5    script    Card Trader    685,{
        mes "[Card Trader]";
        mes "Hi, "+strcharinfo(0)+"!";
        mes "What can I do for you?";
        next;
        switch(select(" > Information: > Trade in cards: > Point shop (^0055FF"+getd(.Points$)+"^000000): > Leave")) {
        case 1:
            mes "[Card Trader]";
            mes "Do you find that you've got";
            mes "useless cards lying around?";
            mes "I'll be glad to take them off";
            mes "your hands!";
            next;
            mes "[Card Trader]";
            mes "I'll give you ^0055FF"+.Points[0]+" Point"+((.Points[0] == 1)?"":"s")+"^000000 for each";
            mes "card you give me, and";
            mes "^0055FF"+.Points[1]+" Points^000000 for MVP cards.";
            mes "You can trade those points";
            mes "for items later on.";
            mes "How does that sound?";
            emotion et_huk;
            close;
        case 2:
            mes "[Card Trader]";
            mes "Select the cards you";
            mes "want to trade in.";
            if (.Level) {
                mes " ";
                mes "They must be dropped";
                mes "by monsters of level";
                mes .Level+" and above.";
            }
            deletearray @sold_nameid[0],getarraysize(@sold_nameid);
            callshop "card_shop",2;
            npcshopattach "card_shop";
            end;
        case 3:
            mes "[Card Trader]";
            mes "You have ^0055FF"+getd(.Points$)+"^000000 Point"+((getd(.Points$) == 1)?".":"s.");
            callshop "card_shop",1;
            npcshopattach "card_shop";
            end;
        case 4:
            mes "[Card Trader]";
            mes "*yawn*";
            mes "See you later!";
            emotion et_money;
            close;        
        }

    OnSellItem:
        mes "Cards to sell:";
        mes "-----------------------------------";
        for(set .@i,0; .@i<getarraysize(@sold_nameid); set .@i,.@i+1)
            if (@sold_nameid[.@i] > 4000 && @sold_nameid[.@i] < 28000) {
                if (.Level) {
                    query_sql("SELECT `LV` FROM `mob_db_re` WHERE `DropCardid` = "+@sold_nameid[.@i],.@lv);
                    if (.@lv < .Level) {
                        dispbottom getitemname(@sold_nameid[.@i])+" is under the minimum level.";
                        continue;
                    }
                }
                set .@card_id[getarraysize(.@card_id)], @sold_nameid[.@i];
                set .@card_amt[getarraysize(.@card_amt)], @sold_quantity[.@i];
                set .@mvp, compare(.MVP$,""+@sold_nameid[.@i]);
                mes ((.@mvp)?"  ^FF0000":"  ^777777")+@sold_quantity[.@i]+"x "+getitemname(@sold_nameid[.@i])+"^000000";
                set .@card_total, .@card_total+(@sold_quantity[.@i]*((.@mvp)?.Points[1]:.Points[0]));
            }
        deletearray @sold_nameid[0], getarraysize(@sold_nameid);
        deletearray @sold_quantity[0], getarraysize(@sold_quantity);
        if (!.@card_id) {
            mes "  ^777777(none)^000000";
            emotion et_sleepy;
            close;
        }
        mes " ";
        mes "---------- Total: ^0055FF"+.@card_total+" pt.^000000 -------";
        next;
        if(select(" > ^0055FFComplete trade...^000000: > ^777777Cancel^000000") == 2) {
            mes "[Card Trader]";
            mes "Oh, okay...";
            emotion et_sweat;
            close;
        }
        for(set .@i,0; .@i<getarraysize(.@card_id); set .@i,.@i+1)
            delitem .@card_id[.@i],.@card_amt[.@i];
        setd .Points$, getd(.Points$)+.@card_total;
        mes "[Card Trader]";
        mes "All done!";
        emotion et_scratch;
        close;

    OnBuyItem:
        for(set .@i,0; .@i<getarraysize(@bought_nameid); set .@i,.@i+1)
            for(set .@j,0; .@j<getarraysize(.Shop); set .@j,.@j+2)
                if (@bought_nameid[.@i] == .Shop[.@j]) {
                    set .@cost, .@cost+(.Shop[.@j+1]*@bought_quantity[.@i]);
                    break;
                }
        if (.@cost > getd(.Points$)) {
            mes "[Card Trader]";
            mes "You don't have enough Points.";
            emotion et_delight;
        }
        else {
            mes "Items purchased:";
            mes "-----------------------------------";
            for(set .@i,0; .@i<getarraysize(@bought_nameid); set .@i,.@i+1) {
                getitem @bought_nameid[.@i], @bought_quantity[.@i];
                mes "  ^777777"+@bought_quantity[.@i]+"x "+getitemname(@bought_nameid[.@i])+"^000000";
            }
            mes " ";
            mes "---------- Total: ^0055FF"+.@cost+" pt.^000000 -------";
            setd .Points$, getd(.Points$)-.@cost;
            emotion et_huk;
        }
        deletearray @bought_nameid[0], getarraysize(@bought_nameid);
        deletearray @bought_quantity[0], getarraysize(@bought_quantity);
        close;

    OnInit:
        set .Level,0;           // Minimum monster level to trade corresponding cards.
        set .Points$,"#Card_Points";    // Variable to store points.
        setarray .Shop[0],        // Card Shop items: <ID>,<point cost>
          4198,50,4054,50,4174,50,4047,50,4236,99,4425,99,4372,99,4147,99,4145,99,4168,99,4386,99;
        setarray .Points[0],0,10;    // Points per <normal card>,<MVP card>
        set .MVP$,            // List of MVP cards.
          "4121,4123,4128,4131,4132,4134,4135,4137,4142,4143,4144,4145,4146,4147,4148,4168,4236,"+
          "4241,4263,4276,4302,4305,4318,4324,4330,4342,4357,4359,4361,4363,4365,4399,4403,4407";
        
        npcshopdelitem "card_shop",909;
        for(set .@i,0; .@i<getarraysize(.Shop); set .@i,.@i+2)
            npcshopadditem "card_shop",.Shop[.@i],.Shop[.@i+1];
        end;
    }
    -    shop    card_shop    -1,909:-1

     

    card_trader_debug.png

  2. Please help to fix this script.

    Warning code 51055 

    and this debug script

    Quote

                if($@CurrentEvent >= 5 && $@CurrentEvent <= 9){
                    if(checkmadogear()){
                        if(checkweight(33017,1)){
                            getitem 33017,1;
                            setmadogear 0;
                        } else {
                            next;
                            mes "[ Event Management ]","Seems you're in a Mado Gear and cant seem to carry a voucher, either remove the Mado Gear or come back when you can hold the voucher.";
                            close;
                        }
                    }
                    if(checkdragon()){
                        if(checkweight(33018,1)){
                            getitem 33018,1;
                            setdragon 0;
                        } else {
                            next;
                            mes "[ Event Management ]","Seems you're on a Dragon and can't seem to carry a voucher, either remove you're Dragon or come back when you can hold the voucher.";
                            close;
                        }
                    }            
                    if(checkwug()){
                        if(checkweight(33019,1)){
                            getitem 33019,1;
                            setoption Option_Wugrider,0;
                        } else {
                            next;
                            mes "[ Event Management ]","Seems you're on a Wug and can't seem to carry a voucher, either remove you're Wug or come back when you can hold the voucher.";
                            close;
                        }
                    }
                    if(ismounting()){
                        if(checkweight(33020,1)){
                            getitem 33020,1;
                            setmounting;
                        } else {
                            next;
                            mes "[ Event Management ]","Seems you're mounted and can't seem to carry a voucher, either remove you're mount or come back when you can hold the voucher.";
                            close;
                        }
                    }
                    if(checkriding()){
                        if(checkweight(33021,1)){
                            getitem 33021,1;
                            setriding 0;
                        } else {
                            next;
                            mes "[ Event Management ]","Seems you're mounted and can't seem to carry a voucher, either remove you're mount or come back when you can hold the voucher.";
                            close;
                        }
                    }
                    if(checkfalcon()){
                        if(checkweight(33022,1)){
                            getitem 33022,1;
                            setfalcon 0;
                        } else {
                            next;
                            mes "[ Event Management ]","Seems you have  a falcon and can't seem to carry a voucher, either remove you're falcon or come back when you can hold the voucher.";
                            close;
                        }
                    }
                    if(geteleminfo(1) > 0)
                        unitkill geteleminfo(1);
                    callfunc("dispell");
                } else if($@CurrentEvent == 2)
                    callfunc("dispell");
                .register_aid[ .register_count ] = getcharid(3);
                .register_count++;
                if($@CurrentEvent == 13){
                    delitem .candy_id, countitem( .candy_id );
                    delitem .apple_id, countitem( .apple_id );
                }
                if($@CurrentEvent == 13 && checkcart()){
                    if(checkweight(33023,1)){
                        getitem 33023,1;
                        setcart 0;
                    } else {
                        next;
                        mes "[ Event Management ]","Seems you have cart and can't seem to carry a voucher, either remove you're cart or come back when you can hold the voucher.";
                        close;
                    }    
                }

     

    Untitled.png

    auto_event.txt

  3. Good Day!

    Can anyone help me about lapine ui. I already installed the lapine ui from @Cydh

    The Lapine UI from cydh is only using random status.

    My problem is how can i use lapine ui to enchant illusion armor a&b and accessories booster  that inserting items on illusion gears like at the video.

    Thanks who can help. i am very grateful who can help ?

    Sorry for my bad english....

     

    Lapine UI video enchant illusion

  4. Can you help me about this item script

    I really dont know why that item script always error i tried to fixed it but nothing  always error, Thanks in advance who can help..

    19491,Temporal_Circlet_(Super_Novice),Temporal Circlet (Super Novice),4,100,20,0,,10,,1,0x00000001,63,2,256,,170,1,1892,{ .@r = getrefine(); bonus bAtk, .@r/2*10; bonus bMatk, .@r/2*10; bonus bAspdRate, .@r/3*4; bonus bCastrate, .@r/3*-4; bonus bCritAtkRate, .@r/4*5; bonus bMagicAddEle,Ele_All, .@r/4*5; if (.@r >= 11) { bonus bDelayrate, -5; } },{},{}
    19492,Temporal_Circlet_(Summoner),Temporal Circlet (Summoner),4,100,20,0,,10,,1,0xFC102000,63,2,256,,170,1,1892,{ .@r = getrefine(); bonus bAtk, .@r/2*15; bonus bAspdRate, .@r/3*2; bonus2 bSkillAtk, "SU_CN_METEOR",.@r/3*20; bonus2 bSkillAtk, "SU_PICKYPECK",.@r/3*20; bonus bLongAtkRate, .@r/4*5; bonus bMagicAddEle,Ele_Neutral, .@r/4*5; if (.@r >= 11) { bonus bDelayrate, -5; } },{},{}

     

    error128.png

  5. 3 hours ago, Kakaroto said:

    This are not finished yet.

    ok thank you sir..

    do you have any alternative to use emblem sir? like use the emblem of Crossbow clan, Golden Mace clan etc.. for temporary only?

  6. After i update my rathena to the latest one with packever version 20200401

    Guild emblem is not showing and can't put 24x24.bmp image.

    My "server_name:" and "wisp_server_name:" has no space

    I dont know how to fix it. please someone help me this for my server thanks.

  7. Map error fixed.

    But SQL still error

    when finish last stage or die at any stage then auto warp at save points then this error will shown at emulator.

    i din't change the script nor edit

    i just test it if have error before i use it to my server.

    sorry for my bad english ?

    [Info]: Saved guild (1 - TestGuild): members
    [Info]: [Instance] Created map '0012@ods' ('997') from map '2@ods' ('996')
    [Info]: [Instance] Created: The Other Dimension (1).
    [SQL]: DB error - Duplicate entry '150000' for key 'char_id'
    [Debug]: at script.cpp:16830 - INSERT INTO `other_dimension_instance` (`name`,`char_id`,`class`,`max_round`) VALUES ('Admin','150000','4078','40')
    [Debug]: Source (NPC):  at 2@ods (0,0)
    [Info]: [Instance] Destroyed 1.
    [Info]: Saved guild (1 - TestGuild): members

     

×
×
  • Create New...