Jump to content

PsyOps

Members
  • Posts

    150
  • Joined

  • Last visited

Posts posted by PsyOps

  1. Working as of rAthena June 2019 version.

    What worked for me.

    1. Installed the patch diff.
    2. Installed the Script function.
    3. Replaced the UNITTYPE variables of the scrip to BL.
    4. Installed the item db with the exception of changing the wood match to item 12740.

    Previously was not working for me on using the matchsticks for some reason. If you encounter any problems, try to use a different USABLE item.

    Thumbs up to @Emistry. Never Fails to Deliver.

     

    Just a wild question.
    Is there a way to do the following?

    1. Increase the radius of the campfire.
    2. Detect if there are any other Campfires near.

  2. On 6/11/2019 at 11:33 AM, Bringer said:
    
    sprintf(message + strlen(message), "Total profit: %s x %d", "Zeny", (mailprofit -= mailprofit * (battle_config.vending_tax / 10000.)));

     rathena\src\map\vending.cpp(395): warning C4244: '-=': conversion from 'double' to 'int', possible loss of data
      

    The extended vending does work for me but i still get this error on my VS. Anyone know how to fix this?

    Tried:

     

    sprintf(message + strlen(message), "Total profit: %s x %d", "Zeny" ,(mailprofit -= mailprofit * (int)(battle_config.vending_tax / 10000.)));
  3. On 9/26/2014 at 3:36 AM, Oceanid said:

    It's been a while but if I did this right it should work.

     
    
    if(countitem(7227) >= 100) {
    
    				delitem 7227, 100;
                            	costume .@Part; // Convert the Headgear
                            	mes "[Clown]";
                            	mes "Done, enjoy your costume headgear.";
                          		close;
    			mes “[Clown]”;
    			mes Im sorry but you only have “+countitem(7227)+”TCG Cards.”;
    			mes You need at least 100 TCG cards to convert your headgear.";
    			close;
    			}
    
     

    This is the new script.

    
    // -------------------------------------------------------------------------------
    //      Script Name : Headgear to Costume converter >> Costume to Headgear converter
    // -------------------------------------------------------------------------------
    // Description :
    // - Allows a user to convert the equipped headgear (on Top, Mid or Low) into a
    //   costume item. It will remove any card and refine of the Item.
    // - Allows a user to restore the equipped costume headgear (on Top, Mid or Low)
         into its original form. It will not return any card or refine of the item.
    // -------------------------------------------------------------------------------
    -       script  Costume Clown   -1,{
            mes "[Clown]";
            mes "Here you can convert your headgears into a Costume Headgear or restore to its Original form.";
            switch(select("I want to convert.:I want to restore.:No thanks.")) {
            case 1:
                            next;
                            mes "Please, select what to convert.";
                            mes "Remember, cards and refine will be removed.";
                            next;
                                    setarray .@Position$[1],"Top","Mid","Low";
                                    setarray .@Position[1],     1,    9,   10;
                                    set .@Menu$,"";
                            for( set .@i, 1; .@i < 5; set .@i, .@i + 1 )
                            {
                                    if( getequipisequiped(.@Position[.@i]) )
                                    set .@Menu$, .@Menu$ + .@Position$[.@i] + "-" + "[" + getequipname(.@Position[.@i]) + "]";
                                    set .@Menu$, .@Menu$ + ":";
                            }
                            set .@Part, .@Position[ select(.@Menu$) ];
                            if( !getequipisequiped(.@Part) )
                            {
                                    mes "[Clown]";
                                    mes "Your not wearing anything there...";
                                    close;
                            }
                            mes "[Clown]";
                            mes "You want to Costume your " + getitemname(getequipid(.@Part)) + "?";
                            next;
                            if( select("Yes, proceed:No, I am sorry.") == 2 )
                            {
                                    mes "[Clown]";
                                    mes "Need some time to think about it, huh?";
                                    mes "Alright, I can understand.";
                                    close;
                            }
    			if(countitem(7227) >= 100) {
    
    				delitem 7227, 100;
                            	costume .@Part; // Convert the Headgear
                            	mes "[Clown]";
                            	mes "Done, enjoy your costume headgear.";
                          		close;
    			mes “[Clown]”;
    			mes Im sorry but you only have “+countitem(7227)+”TCG Cards.”;
    			mes You need at least 100 TCG cards to convert your headgear.";
    			close;
    			}
            case 2:	
                            next;
                            mes "Please, select what to restore.";
                            mes "Remember, I will only restore it back without refine and cards.";
                            next;
                                    setarray .@Position$[1],"Top","Mid","Low";
                                    setarray .@Position[1],     13,    12,   11;
                                    set .@Menu$,"";
                            for( set .@i, 1; .@i < 5; set .@i, .@i + 1 )
                            {
                                    if( getequipisequiped(.@Position[.@i]) )
                                    set .@Menu$, .@Menu$ + .@Position$[.@i] + "-" + "[" + getequipname(.@Position[.@i]) + "]";
                                    set .@Menu$, .@Menu$ + ":";
                            }
                            set .@Part, .@Position[ select(.@Menu$) ];
                            if( !getequipisequiped(.@Part) )
                            {
                                    mes "[Clown]";
                                    mes "Your not wearing anything there...";
                                    close;
                            }
                            mes "[Clown]";
                            mes "You want to restore your " + getitemname(getequipid(.@Part)) + "?";
                            next;
                            if( select("Yes, proceed:No, I am sorry.") == 2 )
                            {
                                    mes "[Clown]";
                                    mes "Need some time to think about it, huh?";
                                    mes "Alright, I can understand.";
                                    close;
                            }
                            a = getequipid(.@Part);                
                            delitem a,1;
                            getitem a,1;
                           
                            mes "[Clown]";
                            mes "Done, enjoy your restored headgear.";
                            close;
            case 3:
                    mes "[Clown]";
                    mes "Very well. Return at once if you seek my services.";
                    close;
            }
    }
    // --------------------------------------------------------------------------
    // Use duplicates to put your npc on different cities
    // --------------------------------------------------------------------------
    prontera,155,181,4      duplicate(Costume Clown)        Costume Clown#1 715

    I don't have a server to test it so let me know if it errors.

    Tried this.

    Not working

    "costume" is not a script command

  4. You need to check the coordinates of that map.

    set $valk_walkx,rand(100,299); //random x on map
    the x coordinate might not be the same as the other map. You need to define where it really goes.

  5. Very nice work! ❤️ mind if i ask how to change "Servidor Online" as it is the only thing i am not able to edit. Love your work man

    Added:

    I noticed this on your post

     

    $status = new ServerStatus( "LOCALHOST", "LOCALHOST", "USERNAME", "PASSWORD", "DATABASE" );

     

    I am using a webhost that is separate from my main ragnarok host, how can i configure this to show that my server is online?

    Thanks in advance!

  6. Newbie here!

    I have my offline server and i am currently uploading it to my online server.

    Upon using "make server" this error shows up.


    What i have done so far is to run a new rathena copy to the vps.
    It recompiles just fine. I also tested it on two machines.

    This error only shows up when i use my offline server version.

    Any thoughts to how this can be solved?
     

    error screen.PNG

×
×
  • Create New...