Jump to content

hendra814

Members
 View Profile  See their activity

  • Posts

    1191

  • Joined

  • Last visited

  • Days Won

    17

 Content Type 

Posts posted by hendra814

    [Tutorial] Video Edition - How to Setup rAthena and run Ragnarok Updated 2018-7-28

    in Installation Support

    Posted

    11 hours ago, ManokStreZ said:

    hallo, i was download lateset rathena today
    also download kro RAG_SETUP_220706.exe

    for rathena connect usingMySql Workbrench tutorial Here
    everything fine nothing happen until i got like this pic..

    sclientinfo.xml
     

      Reveal hidden contents

    <?xml version="1.0" encoding="euc-kr" ?>
    <clientinfo>
        <desc>Ragnarok Client Information</desc>
        <servicetype>korea</servicetype>
        <servertype>primary</servertype>
        <connection>
            <display>Local</display>
                  <address>127.0.0.1</address>
                  <port>6900</port>
                  <version>55</version>
                  <langtype>1</langtype>
            <registrationweb>www.ragnarok.com</registrationweb>
            <loading>
                <image>loading00.jpg</image>
                <image>loading01.jpg</image>
                <image>loading02.jpg</image>
                <image>loading03.jpg</image>
                <image>loading04.jpg</image>
                <image>loading05.jpg</image>
                <image>loading06.jpg</image>
            </loading>
           </connection>
    </clientinfo>


    if you guys know something please tell me,,,thanks a lot

    123.jpg

    are you already create new account using account ID 2000000 at login table?

    Or try create it via client using user_M or user _F for the first time.

    after that only use user for ID.

    Implementing Conditional HP Boost Based on Item Possession

    in Database Support

    Posted

    12 hours ago, HenryCroslan said:

    Hello rAthena Community! suika game

    I've been inspired by a recent discussion on granting players extra HP if they possess a certain item. I'm looking to implement a similar feature but with a twist. Here's what I aim to achieve:

    •  Players should receive a temporary HP boost when they have a specific item in their inventory.

    •  This boost should only be active during certain server events or specific times.

    •  I want to ensure that the boost is removed once the item is no longer in the player's inventory or when the event ends.

    Could anyone guide me on how to modify the script to check for the item and apply these conditions effectively? Any examples or snippets would be greatly appreciated!
     

    maybe you can try this 

    put the iteam as rental or delete it when the event already end.

    • Upvote 1

    Daily Hunting Quest

    in Scripting Support

    Posted · Edited by hendra814
    wrong file

    3 hours ago, Ohmyuniverse said:

    I cant find any script that i really wanted for daily quest

     

    -simple

    -random 100-120x mobs everyday

    -resets 24 hours

    -rewards item/cashpoint

    -1 try per account/per day

     

    Thank you very much

    try use this script

     

    missionboard.txt

    • MVP 1

    Color Name like Stylist NPC

    in Database Requests

    Posted

    On 11/30/2023 at 3:42 AM, Nyaniverse said:

    I'll throw you treat, it's up to you how to figure out how to get the colors and set the colors. 

    prontera,155,186,5	script	Fashionista#name	845,{
	.@current = get_color_nick();
	setarray .@colors$,"C8B928","177ABD","F35BE6","D7ECB2","AE8B29"
					  ,"FBF79A","73558C","EB57B8","25B7EF","442BFB"
					  ,"D6E2F9","D7FE28","6A98B1","A764E0","14D5D4";
	for(.@i = 0; .@i < getarraysize(.@colors$); .@i++)
		.@menu$ += "^"+.@colors$[.@i]+""+strcharinfo(0)+"^000000:";
	.@select = select(.@menu$) - 1;
	.@color = .@select + 1;
	if(countitem(58503) < 1){
		message strcharinfo(0),"You do not have "+getitemname(58503)+"!";
		end;
	}
	menu "Buy this ^"+.@colors$[.@select]+"color?",-;
	if(.@current == .@color){
		message strcharinfo(0),"This is your current name color";
		end;
	}
	delitem 58503,1;
	set_color_nick(.@color);
	message strcharinfo(0),"Enjoy your new color!";
	end;
}

     

    hi, i've got this error.

    image.thumb.png.d6c25c3ee66613d282259a7b82a45cb5.png

    Q>How to Disable Same ip in certain maps

    in Scripting Support

    Posted

    38 minutes ago, GM Winter said:

    yes sir i already add the maps in the list

     

     

    try use this 

    -	script	dualclientkicker	-1,{
OnPCLoadMapEvent:
set .@charmap$, strcharinfo(3);
if(!compare(.tmp$,.@charmap$)) end;
set .@len, query_sql("SELECT DISTINCT `account_id` FROM `char` WHERE`account_id` IN (SELECT `account_id` FROM `login` WHERE `last_ip` =(SELECT `last_ip` FROM `login` WHERE `account_id`="+getcharid(3)+")) AND`online` <> 0;",.@a);
for(set(.@d,0);.@d<.@len;set(.@d,.@d+1)) {
	if(!getmapxy(.@map$,.@x,.@y,0,rid2name(.@a[.@d])) && .@charmap$==.@map$)
	set .@c,.@c+ 1;     
	}
if(.@c > .limitacc ) {
dispbottom "Dual accounts not allowed in PVP.";
	warp "geffen",0,0;
	}    
	end;
OnInit:
set .limitacc,1;
setarray .maps$, "valkyrie_vs", "pvp_y_1-2", "prt_pvp", "bat_cc2";
set .lens ,    getarraysize(.maps$) ;
for(set(.a,0);.a<.lens;set(.a,.a+1)) {
	setmapflag .maps$[.a],    mf_loadevent ;
	set .tmp$ ,.tmp$+.maps$[.a]+",";
}
}

     

    Quest not work in 2022-04-06_Ragexe_1648707856.exe

    in Client-side Support

    Posted

    On 12/20/2023 at 2:52 PM, Ichigo HikariRO said:

    Hello everyone.

    We are trying to update the exe, and there is no way, we don't know why, but everything works fine, except that it reads the quets file.

    Imagen

    We are using the latest version of Nemo, and everything runs without problems, we even indicated which file to use for the quests, but they do not work correctly.
    Can anyone help us, we've been dealing with this problem for weeks and we can't make any progress.

    Thank you.

    i think this issue because lua files.

    H>disguise

    in Database Support

    Posted · Edited by hendra814

    12 hours ago, Cyborg said:

    if I erase him, he won't hide because I have to hide, but his round will end in 10 rounds

    are you want more than 10 round, if yes, change this at oninit part 

    set .Rounds,10;

    H>disguise

    in Database Support

    Posted

    On 11/24/2023 at 5:23 PM, Cyborg said:

    I'm going to sleep here, I don't want to hide after 10 rounds, I hope you can help me here, how can he stop after 10 rounds and hide again

     

      

    //===== rAthena Script =======================================
//= Disguise Event
//===== By: ==================================================
//= GmOcean
//===== Current Version: =====================================
//= 5.1
//===== Compatible With: =====================================
//= rAthena Project
//===== Description: =========================================
//= Guess a monster name correctly for prizes.
//= 
//= NOTE: Requires PCRE library installed.
//===== Additional Comments: =================================
//= 5.0 Last update by GmOcean.
//= 5.1 Cleaned and standardized, mostly. [Euphy]
//============================================================

prontera,160,155,4	script	Disguise Event	795,{

	// Currently set to run every two hours.
	// To change times, edit the OnClock labels below.

	set .@GMLevel,60;	// GM level required to access NPC.
	set .@n$,"[^0000FFDisguise NPC^000000]";

	if (getgmlevel()>=.@GMLevel) {
		mes .@n$;
		mes "Select an option.";
		next;
		switch(select("Turn ON/OFF Event:Event Settings")) {
		case 1:
			mes .@n$;
			if (.EventON) {
				mes "The Event is currently: [^0000FFON^000000]";
				mes "Would you like to turn it OFF?";
			} else {
				mes "The Event is currently: [^FF0000OFF^000000]";
				mes "Would you like to turn it ON?";
			}
			if(select("Yes:No")==2) close;
			if (.EventON) {
				set .EventON,0; set .Timer,0;
				setnpctimer 0; stopnpctimer;
				announce "A GM has decided to turn the Disguise Event off. As a result no further prizes will be given.",bc_map | bc_blue;
				deletepset 1;
				setnpcdisplay "Disguise Event",795;
				close;
			}
			set .EventON,1; set .Timer,1; setnpctimer 0; initnpctimer;
			set .ResetCounter,.ResetCounter+1;
			announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue;
			announce "The Event is being held in Prontera.",bc_all | bc_blue;
			close;
		case 2:
			mes .@n$;
			mes "Pick a setting to modify.";
			next;
			switch(select("Monster Display:Number of Rounds:Prize Settings")) {
			case 1:
				setarray .@r$[0],"Disguise as all monsters.","Disguise as MVPs only.";
				mes .@n$;
				mes "Choose a disguise rule.";
				next;
				set .Rule, select(implode(.@r$,":"));
				mes .@n$;
				mes "The Disguise Rule has been set:";
				mes "  > ^0055FF"+.@r$[.Rule-1]+"^000000";
				close;
			case 2:
				mes .@n$;
				mes "Input the number of rounds you want the event to last.";
				mes "Current number: [^0000FF"+.Rounds+"^000000]";
				next;
				input .@Rounds;
				set .Rounds,.@Rounds;
				mes .@n$;
				mes "The number of rounds has been changed to "+.Rounds+".";
				close;
			case 3:
				mes .@n$;
				mes "Input the Item ID of the prize given each round.";
				mes "Current item: [^0000FF"+getitemname(.Prize)+"^000000] (ID #"+.Prize+")";
				next;
				input .@Prize;
				mes .@n$;
				if (getitemname(.@Prize)=="" || getitemname(.@Prize)=="null") {
					mes "That item does not exist. Please try again.";
					close;
				}
				set .Prize,.@Prize;
				mes "Input the amount to be given.";
				next;
				input .@amount;
				mes .@n$;
				if (.@amount<=0 || .@amount>=10000) {
					mes "That amount is invalid. Using default amount of 1.";
					set .@amount,1;
					next;
					mes .@n$;
				}
				set .PrizeAmt,.@amount;
				mes "The Prize has been changed successfully.";
				mes "Prize: "+.PrizeAmt+"x [^0000FF"+getitemname(.Prize)+"^000000]";
				close;
			}
		}
	}
	if (.EventON) end;
	mes .@n$;
	mes "Welcome.";
	mes "How may I be of assistance?";
	if(select("Information:Nothing, just passing through.")==2) close;
	next;
	mes .@n$;
	mes "This event is quite simple.";
	mes "At the start of the event, I will";
	mes "disguise myself as a random";
	mes "monster. You have to shout";
	mes "that monster's name out loud.";
	next;
	mes "If you are correct, you will receive";
	mes "a prize. If not, keep trying!";
	mes "That's all that there is to this event.";
	close;

OnInit:
	hideonnpc strnpcinfo(3);
	set .EventON,0;
	set .Wait,0;
	set .Winner,0;
	set .ResetCounter,0;
	set .Rounds,10;
	set .Prize,512;
	set .PrizeAmt,1;
	set .Rule,1;
	setarray .MVP[0],1038,1039,1046,1059,1086,1087,1112,1115,1147,1150,1157,1159,1190,1251,1252,1272,1312,1373,
	                  1389,1399,1418,1492,1502,1511,1583,1623,1630,1646,1647,1648,1649,1650,1651,1658,1685,1688,
				   1708,1719,1734,1751,1768,1779,1785,1802,1832,1871,1874,1885,1917,1980,2022,2068,2087,2131,
				   2156,2165;
	set .BlackList$, "1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168," + 
	    "1171,1172,1173,1181,1187,1210,1217,1218,1222,1223,1224,1225,1226,1227,1228," + 
	    "1233,1284,1407,1411,1414,1495,1501,1900,1996,2000,2001,2002,2003,2004," + 
	    "2005,2006,2007,2011,2012,2025,2028,2029,2030,2031,2032,2033,2034,2035," + 
	    "2036,2037,2038,2039,2040,2041,2042,2043,2044,2045,2046,2047,2048,2049," + 
	    "2050,2051,2052,2053,2054,2055,2056,2057,2058,2059,2060,2061,2062,2063," + 
	    "2064,2065,2066,2067,2075,2076,2077,2078,2079,2080,2081,2083,2084,2085," + 
	    "2086,2087,2088,2089,2090,2091,2092,2093,2094,2095,2096,2097,2098,2099," + 
	    "2100,2101,2012,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112,2113," + 
	    "2114,2115,2116,2117,2118,2119,2120,2121,2123,2124,2125,1496,";
	end;
OnClock0000:
OnClock0200:
OnClock0400:
OnClock0600:
OnClock0800:
OnClock1000:
OnClock1200:
OnClock1400:
OnClock1600:
OnClock1800:
OnClock2000:
OnClock2200:
	set .ResetCounter,.ResetCounter+1;
	set .EventON,1;
	set .Timer,1;
	set .Wait,1;
	announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue;
	announce "The Event is being held in Prontera.",bc_all | bc_blue;
	setnpctimer 0;
	initnpctimer;
	end;
OnTimer10000:
	if (.Timer || .Change) end;
	set .Wait,0;
	goto iDisguise;
	end;
OnTimer30000:
	if (.Timer) end;
	set .Change,0;
	setnpcdisplay "Disguise Event",795;
	npctalk "Disguise Event : You took too long to guess what I was. Please wait 10 seconds while I disguise again.";
	specialeffect EF_DETECT2;
	set $MonsterName$,"";
	deletepset 1;
	stopnpctimer;
	setnpctimer 0;
	initnpctimer;
	end;
OnTimer60000:
	if (.Timer!=1) end;
	announce "The Disguise Event will begin in 2 minutes.",bc_all | bc_blue;
	announce "The Event is being held in Prontera.",bc_all | bc_blue;
	end;
OnTimer120000:
	if (.Timer!=1) end;
	announce "The Disguise Event will begin 1 minute.",bc_all | bc_blue;
	announce "The Event is being held in Prontera.",bc_all | bc_blue;
	end;
OnTimer180000:
	if (.Timer!=1) end;
	announce "The Disguise Event has begun!",bc_all | bc_blue;
	announce "The Event is being held in Prontera.",bc_all | bc_blue;
	hideoffnpc strnpcinfo(3);
	set .Timer,0; stopnpctimer;
	setnpctimer 0; initnpctimer;
iDisguise:
	if (.Rule==1) {
		set .Winner,0;
		set .Monster,1000+rand(1,995);
		if (compare(","+.BlackList$+"," , ","+.Monster+",")) goto iDisguise;
		if (.Monster==.LastMonster) goto iDisguise;
		set .LastMonster,.Monster;
		set $MonsterName$,getmonsterinfo(.Monster,0);
	}
	if (.Rule==2) {
		set .Winner,0;
		set .Monster,rand(49);
		set $MonsterName$,getmonsterinfo(.MVP[.Monster],0);
	}
	deletepset 1;
	defpattern 1,"([^:]+):.\\s*"+$MonsterName$+".*", "iCorrect";
	activatepset 1;
	if (.Rule==1) setnpcdisplay "Disguise Event",.Monster;
	if (.Rule==2) setnpcdisplay "Disguise Event",.MVP[.Monster];
	set .Change,1;
	setnpctimer 0;
	end;
iCorrect:
	if (.Winner) {
		dispbottom "Someone has already won this round.";
		end;
	}
	set .Winner,1;
	set .RoundCount,.RoundCount+1;
	deletepset 1;
	activatepset 1;
	getitem .Prize,.PrizeAmt;
	announce strcharinfo(0)+" is correct! I was disguised as: "+$MonsterName$+"",bc_map | bc_blue;
	if (.RoundCount>=.Rounds) {
		setnpcdisplay "Disguise Event",795;
		set .RoundCount,0; set .Change,0; set .EventON,0;
		setnpctimer 0; stopnpctimer;
		hideonnpc strnpcinfo(3);
		npctalk "Disguise Event : Thank you all for playing. That was the last round of the Disguise Event. Come play again later.";
		end;
	}
	setnpcdisplay "Disguise Event",795;
	set .Change,0;
	setnpctimer 0;
	end;
}

     

    you want the npc hide after 10 round

    the script already run like that at this part 

    if (.RoundCount>=.Rounds) {
		setnpcdisplay "Disguise Event",795;
		set .RoundCount,0; set .Change,0; set .EventON,0;
		setnpctimer 0; stopnpctimer;
		hideonnpc strnpcinfo(3); // this is will hide the npc after all round finished
		npctalk "Disguise Event : Thank you all for playing. That was the last round of the Disguise Event. Come play again later.";
		end;
	}

    if you want the npc not hide remove that part.

    H>Healer NPC

    in Scripting Support

    Posted · Edited by hendra814 

     prontera,162,197,4    script    Healer    569,{
	if(Zeny < 1000){
			mes "I'm sorry, but you don't";
			mes "have enough Zeny";
			end;
			}

	set Zeny, Zeny - 1000;
                
    //buffs for everyone
    specialeffect2 EF_INCAGILITY;
    sc_start SC_INCREASEAGI,240000,10;
    specialeffect2 EF_BLESSING;
    sc_start SC_BLESSING,240000,10;
    specialeffect2 EF_HEAL2;
    percentheal 100,100;
    
    //vip buffs
    if(vip_status(VIP_STATUS_ACTIVE)){
    sc_start SC_SUFFRAGIUM,60000,3;
    sc_start SC_GLORIA,60000,5;
    sc_start SC_IMPOSITIO,60000,5;
    sc_start SC_ANGELUS,60000,10;

    
//        sc_start SC_STRFOOD,60000,10;
//        sc_start SC_INTFOOD,60000,10;
//        sc_start SC_DEXFOOD,60000,10;
//        sc_start SC_AGIFOOD,60000,10;
//        sc_start SC_VITFOOD,60000,10;
//        sc_start SC_LUKFOOD,60000,10;
    }
end;
}

    Try This

    • Upvote 1

    issue at charserv

    in Installation Support

    Posted · Edited by hendra814

    On 4/28/2023 at 2:11 PM, hendra814 said:

    i'm need help, i helping my friend setup his local rathena server.

    when run the server showing error like this

    image.png.0d516345b999ce49f5a96156f902ba1f.png

    Already tried reimport main.sql but still show the error, even already tried with remove char and login table.

    What should i do to fix this issue?

     

    Found bonus-script table in the database, but when i tried remove it

    it's show error like this

    image.png.fe3991b1669bb87f87776b69c92e7f10.png

    solve using this sql script 

    IF DROP TABLE EXISTS `bonus_script`;
CREATE TABLE IF NOT EXISTS `bonus_script` (
  `char_id` INT(11) UNSIGNED NOT NULL,
  `script` TEXT NOT NULL,
  `tick` BIGINT(20) NOT NULL DEFAULT '0',
  `flag` SMALLINT(5) UNSIGNED NOT NULL DEFAULT '0',
  `type` TINYINT(1) UNSIGNED NOT NULL DEFAULT '0',
  `icon` SMALLINT(3) NOT NULL DEFAULT '-1',
  KEY `char_id` (`char_id`)
) ENGINE=InnoDB;

     

    • Love 1

    @autotrade for VIP

    in General Support

    Posted · Edited by hendra814

    On 11/19/2023 at 1:18 AM, friomixx said:

    Hi, how to make @autotrade command useable for VIP only?

    go to conf\import folder, edit group.yml file and make sure at anothers ID don't have autotrade permission too. 

    # This file is a part of rAthena.
#   Copyright(C) 2022 rAthena Development Team
#   https://rathena.org - https://github.com/rathena
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
#
###########################################################################
# Player Group Database
###########################################################################
#
# Player Group Settings
#
###########################################################################
# - Id                    Group ID.
#   Name                  Group name.
#   Level                 GM Level used for ranking groups. (Default: 0)
#   LogCommands           Whether atcommands should be logged or not. (Default: false)
#   Commands:             List of atcommands that can be used by this group. (Default: none)
#     <atcommand name>    Whether the specified atcommand can be used by this group or not.
#   CharCommands:         List of charcommands that can be used by this group. (Default: none)
#     <charcommand name>  Whether the specified charcommand can be used by this group or not.
#   Permissions:          List of permissions the group has. (Default: none)
#     <permission name>   Whether the group has this permission or not.
#   Inherit:              List of groups that will be inherited. (Default: none)
#     <group name>        Whether this group will be inherited or not.
###########################################################################

Header:
  Type: PLAYER_GROUP_DB
  Version: 1
  
Body:
  - Id: 5
    # group 0 is the default group for every new account
    Name: Player
    Level: 0
    Commands:
      autotrade: true
    Permissions:
      # without this basic permissions regular players could not trade or party
      can_trade: true
      can_party: true
      attendance: true

     

    • Like 1
×
×
  • Create New...