Jump to content

Mythryx

Members
 View Profile  See their activity

  • Posts

    9

  • Joined

  • Last visited

 Content Type 

Posts posted by Mythryx

    Looking for help with Goldroom Script

    in Scripting Support

    Posted · Edited by Emistry

    Im trying to get this to work. When you get killed you will lose all the gold points you have. 

    prontera,164,146,3    script    Gold Room Assistant#goldroom    4_F_KAFRA1,{
    doevent "gold_room_main::OnTalk";

OnInit:
delwaitingroom;
waitingroom "  Gold Room",0;


end;


}

// warp portal back prontera
ordeal_3-2,123,123,0    warp    gold_room_back_prt    1,1,prontera,155,181

// peco peco summon
ordeal_3-2,0,0,0,0    monster    Peco Gold    1369,600,0,0,"gold_room_main::OnKill"


-    script    gold_room_main    -1,{
    
    OnInit:
        // gold room map
        .map$ = "ordeal_3-2";
        // entrance fee
        .zeny_cost = 250000;
        // rate to get gold
        .rate = 50;
        // gold random amount
        setarray .gold_amount,1,3;
        

        setmapflag .Map$,mf_nogo;
        setmapflag .map$,mf_nobranch;
        setmapflag .map$,mf_nosave;
        setmapflag .map$,mf_nomemo;
        setmapflag .map$,mf_noreturn;
        setmapflag .map$,mf_nowarp;
        setmapflag .map$,mf_nowarpto;
        setmapflag .map$,mf_noskill;
        setmapflag .Map$,mf_noloot;


        end;
    
    OnTalk:
        mes "Wasup, Low Class People! I know you want to become rich!";
        mes "Well i have a place where you can find a very rare Birds.";
    next;
        mes "And if you kill those birthds you will gain a random amount of GOLD";
        mes "Points or GP and you can ^FF0000TRADE^000000 it into real GOLD!";
    next;
        mes "But there is something you should know...";
        mes "There are guardians that lurking around the map and they are strong!!!";
    next;
        mes "^FF0000All of your points will lose when you die!^000000 ";
    next;
        mes "I need";
        if ( .zeny_cost ) 
            mes F_InsertComma( .zeny_cost ) + " Zeny";
        switch ( select( 
            "Enter Gold Room",
            "Exchange Gold Point",
            "Cancel"
        )) {
            case 1:
                if ( Zeny < .zeny_cost ) {
                    mes "Not enough Zeny.";
                }
                else {
                    Zeny -= .zeny_cost;
                    warp .map$,153,153;
                }
                break;
            case 2:    
                mes "You got "+F_InsertComma( #GOLDPOINTS )+" Points";
                input .@value,0,#GOLDPOINTS;
                if ( checkweight( 969, .@value ) ) {
                    #GOLDPOINTS -= .@value;
                    getitem 969,.@value;
                    mes "Gained "+.@value+" Gold.";
                }
                else {
                    mes "You overweight.";
                }
            default:
                break;
        }
        close;
        
    OnKill:
        if ( .rate < rand( 100 ) ) {
            .@point = rand( .gold_amount[0],.gold_amount[1] );
            #GOLDPOINTS += .@point;
            dispbottom "Gained "+.@point+" Point. You got "+F_InsertComma( #GOLDPOINTS )+" Points now.";
        }
        end;
 
    OnPCDieEvent:
        .@killerrid = killerrid;
        if ( strcharinfo(3) == .map$ && .@killerrid != getcharid(3) && getmonsterinfo( .@killerrid,MOB_NAME ) != "null" ) {
            #GOLDPOINTS = 0;
            dispbottom "You died, you lost all the point.";
        }
        end;
}

    Im not really sure on why its not working.

    Abit of help would be much appreciated. 

    Thanks!

    Requesting an NPC that let's GM's send items to players in a specific Map.

    in Script Requests

    Posted · Edited by Mythryx

    On 3/4/2020 at 10:35 PM, Mabuhay said:

    https://rathena.org/board/files/file/4049-giveitem-command/

    How would I actually use this? Sorry fairly new.

    Requesting help regarding this script. all#item#amount works but when i use map#item#amount it doesn't give out the items. 

    -    script    gmnpc        -1,{
OnWhisperGlobal:
if( getgroupid() >= 99 ){
    // check map
    if( @whispervar0$ == "all" ) set .@type$,"";
    else if( @whispervar0$ == "map" ) set .@type$,strcharinfo(3);
    else {
        dispbottom "Error, pick 'map' or 'all' ";
        end;
    }
    
    // check item
    set .@itemid,atoi( @whispervar1$ );
    set .@amount,atoi( @whispervar2$ );
    if( getitemname( .@itemid ) == "null" || .@amount < 1 ){
        dispbottom "Enter valid item id and amount.";
    }
    
    set .@self_id,getcharid(3);
    query_sql( "SELECT COUNT(`account_id`) FROM `char` WHERE `online` = 1 ", .@total );
    while( .@count < .@total ){
        query_sql( "SELECT `account_id`,`name` FROM `char` WHERE `online` = 1 ORDER BY `account_id` LIMIT 128 OFFSET "+.@offset, .@aid,.@name$ );
        set .@i,0;
        set .@size,getarraysize( .@aid );
        while( .@i < .@size ){
            if( .@aid[.@i] != .@self_id && !checkvending(.@name$[.@i]) ){
                if( .@type$ != "" ){
                    getmapxy( .@map$,.@x,.@y,0,.@name$[.@i] );
                    if( .@map$ == .@type$ ){
                        getitem .@itemid,.@amount,.@aid[.@i];
                        set .@gave,.@gave + 1;
                    }
                }else{
                    getitem .@itemid,.@amount,.@aid[.@i];
                    set .@gave,.@gave + 1;
                }
            }
            set .@count,.@count + 1;
            set .@i,.@i + 1;
        }
        set .@offset,.@offset + .@size;
        deletearray .@aid,.@size;
        deletearray .@name$,.@size;
    }
    dispbottom "Gave "+.@amount+" x "+getitemname( .@itemid )+" to "+.@gave+" Player(s).";
}
end;
}

     

    Skills showing up in MISC tab. Need help :(

    in General Support

    Posted · Edited by Mythryx

    11 hours ago, Emistry said:

    conf/groups.conf 

    
all_skill: true

    find and remove this from your player group or check the inherited groups

    Thank you for replying. I did check this but none of the player groups have all_skill: true on them

    Is there something else I should check for?

     

    -EDIT-

    I got it working! Thanks for the help Emistry. My bad was I didn't add the all_skill: false under permissions and added them to the commands. Thanks!

×
×
  • Create New...