-
Posts
1281 -
Joined
-
Last visited
-
Days Won
17
Content Type
Profiles
Forums
Downloads
Jobs Available
Server Database
Third-Party Services
Top Guides
Store
Crowdfunding
Everything posted by hendra814
-
try this //===== 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; }
-
in your sclientinfo.xml try use langtype 0
-
how to add custom hairstyle on character creation 2018 clients
hendra814 replied to joelolopez's question in Client-side Support
-
Using 2018-05-30b client anyone have a working AI for homunc?
hendra814 replied to Azarth's question in Client-side Support
can't use custom AI since 2017-09-20 client https://rathena.org/board/topic/115401-client-2018-custom-ai-crash/ -
need aggressive AI for homunculus and mercenary
hendra814 replied to joelolopez's question in Client-side Support
can't use ustom ai since client 2017-09-20 https://rathena.org/board/topic/115401-client-2018-custom-ai-crash/ -
increase hairtsyle limit in game patch problem
hendra814 replied to joelolopez's question in Client-side Support
use this or this one -
from my experience, there's no bug with this client.
-
i think 2017-06-14, already test it for a while
-
for how many player in the map try this to prevent dual on pvp you can try this
-
that script doesn't need npc to check how many player on pvp map you must create pvp warper, you could try this prontera.gat,148,192,4 script Ultimate PvP Warper 417,{ if (.pvp_square$=="") donpcevent "Ultimate PVP warper::OnClock0000"; mes "[PvP Warper]"; mes "Which arena do you want to enter ?"; switch(select("All Job ["+getmapusers(.pvp_square$)+"/128]:Max lvl 99 ["+getmapusers("pvp_y_2-2")+"/128]:3rd Baby Class ["+getmapusers("pvp_y_1-2")+"/128]")) { case 1: // PVP Square if (getmapusers(.pvp_square$) > 127) callsub S_full; warp .pvp_square$,0,0; announce "Player "+strcharinfo(0)+" enter PVP All Job !!",bc_all; end; case 2: // PVP Low Level if (getmapusers("pvp_y_2-2") > 127) callsub S_full; if (BaseLevel > 99) { // Edit 150 to any maximum Lvl of a player can enter this room mes "only player with Level 1 - 99 can enter this arena"; close; } warp "pvp_y_2-2",0,0; announce "Player "+strcharinfo(0)+" enter PVP Max lvl 99 !!",bc_all; end; Case 3: // Baby Class if (getmapusers("pvp_y_1-2") > 127) callsub S_full; if (class < 4096 || class > 4112) goto L_NotBaby; warp "pvp_y_1-2",0,0; announce "Player "+strcharinfo(0)+" enter PVP 3rd Baby Class !!",bc_all; end; L_NotBaby: mes "This room only for 3rd baby class"; close; } S_full: mes "Sorry, this arena already full. please wait a while..."; close; OnInit: OnTimer5000: delwaitingroom; switch(rand(1,3)) { Case 1: waitingroom getmapusers(.pvp_square$)+" player"+( getmapusers(.pvp_square$) > 1 ? "s":"") +" in the arena All Job", 0; goto Timer; end; break; Case 2: waitingroom getmapusers("pvp_y_2-2")+" player"+( getmapusers("pvp_y_2-2") > 1 ? "s":"") +" in the arena Max lvl 99", 0; goto Timer; end; break; Case 3: waitingroom getmapusers("pvp_y_1-2")+" player"+( getmapusers("pvp_y_1-2") > 1 ? "s":"") +" in the arena 3rd Baby Class", 0; goto Timer; end; break; Timer: initnpctimer; } OnClock0000: // set the "PVP Square" map, based on day of the weeek switch(gettime(4)) { case 0: // Sunday case 1: // Monday set .pvp_square$, "pvp_y_7-2"; break; case 2: // Tuesday case 3: // Wednesday set .pvp_square$, "guild_vs3"; break; case 4: // Thursday case 5: // Friday set .pvp_square$, "pvp_y_7-2"; break; case 6: // Saturday set .pvp_square$, "guild_vs3"; break; } }
-
Mine already make withdrawal from April but until today still not get my credit into my paypal account
-
help korean text all over my server
hendra814 replied to joelolopez's question in Client-side Support
can you give ss what didn't change into english and what translation are you use, zack files or asheraf files? -
are you mention about Refine UI system?
-
are the item in attendance_DB.yml and attendance.lub already same?
-
on system folder open CheckAttendance.lub change start date and end date and then try it again
-
i think the configuration at conf\battle\item.conf at this part // Do produced items have the maker's name on them? (Note 3) // 0x01: Produced Weapons // 0x02: Produced Potions // 0x04: Produced Arrows // 0x08: Produced Holy Water/Ancilla // 0x10: Produced Deadly Potions // 0x80: Other produced items. produce_item_name_input: 0x03
-
help cant login 2018 clients, does we support 2018?
hendra814 replied to joelolopez's question in Client-side Support
2018 client read sclientinfo.xml change or rename your clientinfo.xml into sclientinfo.xml and change langtype into 0 -
-
Sure, i will reply it when i'm not bussy at office
-
you can check this thread https://github.com/rathena/rathena/wiki/Max-Level https://gist.github.com/cydh/d82a06472f12c4ec7f38ab3de22fe86b
-
I think your problem at conf\inter_athena.conf // MySQL Login server login_server_ip: 127.0.0.1 login_server_port: 3306 login_server_id: ragnarok login_server_pw: ragnarok login_server_db: ragnarok login_codepage: login_case_sensitive: no ipban_db_ip: 127.0.0.1 ipban_db_port: 3306 ipban_db_id: ragnarok ipban_db_pw: ragnarok ipban_db_db: ragnarok ipban_codepage: // MySQL Character server char_server_ip: 127.0.0.1 char_server_port: 3306 char_server_id: ragnarok char_server_pw: ragnarok char_server_db: ragnarok // MySQL Map Server map_server_ip: 127.0.0.1 map_server_port: 3306 map_server_id: ragnarok map_server_pw: ragnarok map_server_db: ragnarok // MySQL Log Database log_db_ip: 127.0.0.1 log_db_port: 3306 log_db_id: ragnarok log_db_pw: ragnarok log_db_db: ragnarok log_codepage: log_login_db: loginlog Are you already set Your sql ID and password in this part?
-
try use client before july because of this http://herc.ws/board/topic/15348-kro-unpacked-clients-releases/?do=findComment&comment=88544 i'm suggest use 20180307 , 20180530 or 20180621 RagexeRE client. could be download at here http://herc.ws/board/topic/15348-kro-unpacked-clients-releases/ after that use nemo patcher to pick option what you want. and then edit at src\custom\defines_pre.hpp like this // Copyright (c) rAthena Dev Teams - Licensed under GNU GPL // For more information, see LICENCE in the main folder #ifndef CONFIG_CUSTOM_DEFINES_PRE_HPP #define CONFIG_CUSTOM_DEFINES_PRE_HPP /** * rAthena configuration file (http://rathena.org) * For detailed guidance on these check http://rathena.org/wiki/SRC/config/ **/ #define PACKETVER 20180621 #endif /* CONFIG_CUSTOM_DEFINES_PRE_HPP */ after that recompile your server and last don't forget to put sclientinfo.xml in your custom grf or data folder (If you pick read data folder first on NEMO) copy from clientinfo.xml, but change the langtyoe into 0