-
Posts
131 -
Joined
-
Last visited
Content Type
Profiles
Forums
Downloads
Jobs Available
Server Database
Third-Party Services
Top Guides
Store
Crowdfunding
Everything posted by Cisqua
-
@AnnieRuru atcommandlog still they same.. it always log all command used by gm with log_commands: true only admin have log_commands: true do i need to set this to false or?
-
thanks.. now its working...
-
@ AnnieRuru and goddameit thank you! .... i edit some code of my requested script.. my server rate is 700x exp and if you use this script the PremiumAccount will get the current exp which is 700 plus the exp of this script is 300 so overall exp will get of the PremiumAccount is 1k exp.. edited script. // ~~~~~ show time left in days, hours, minutes and seconds ~~~~~ function script timeleft__ { if ( ( .@left = getarg(0) ) <= 0 ) return getarg(0); .@day = .@left / 86400; .@hour = .@left % 86400 / 3600; .@min = .@left % 3600 / 60; .@sec = .@left % 60; if ( .@day ) return .@day +" day "+ .@hour +" hour"; else if ( .@hour ) return .@hour +" hour "+ .@min +" min"; else if ( .@min ) return .@min +" min "+ .@sec +" sec"; else return .@sec +" sec"; } prontera,167,178,1 script Player Promoter 436,{ set .@name$,"^228B22[ Player Promoter ]^000000"; mes .@name$; if ( getgmlevel() == 99 ) { mes "Hi Admin, do you want to distribute ^00CC00Player Promoter Cards^000000 with your name on it ?"; next; for ( .@i = 1; .@i <= .total_group; .@i++ ) .@menu$ = .@menu$ +"Distribute "+ getitemname( .group_idreq[.@i] ) +":"; .@s = select( .@menu$ ); getitem2 .group_idreq[.@s], 1,1,0,0, 254, 0, getcharid(0) % ( 1 << 16 ), getcharid(0) >> 16; close; } else if ( getgmlevel() > 1 ) { mes "Only Admin can use me"; close; } for ( .@i = 1; .@i <= .total_group; .@i++ ) .@menu$ = .@menu$ +( ( getgroupid() < .@i && countitem( .group_idreq[.@i] ) )? "upgrade to "+ .group_name$[.@i] : "" )+":"; if ( getstrlen( #pp_accupgrade$ ) ) { sscanf #pp_accupgrade$, "%d %d", .@id, .@time; mes "Your account is currently a ^00CC00"+ .group_name$[.@id] +"^000000. You still have ^0000FF"+ callfunc( "timeleft__", .@time - gettimetick(2) )+"^000000."; if ( getstrlen( .@menu$ ) == .total_group ) close; } else if ( getstrlen( .@menu$ ) == .total_group ) { mes "Make a donation and you can upgrade your account to become Super Players ^^"; close; } mes "Do you want to upgrade your account ?"; next; .@s = select( .@menu$ ); delitem .group_idreq[.@s], 1; #pp_accupgrade$ = .@s +" "+( gettimetick(2) + 604800 ); // 1 week atcommand "@adjgroup "+ .@s; mes .@name$; mes "Your account has successfully upgraded to "+ .group_name$[1]; sc_start sc_expboost, 2147483647, 300; // sc_start sc_itemboost, 2147483647, 100; close; OnPCLoginEvent: if ( getgmlevel() > 1 ) #pp_accupgrade$ = ""; if ( !getstrlen( #pp_accupgrade$ ) ) end; sscanf #pp_accupgrade$, "%d %d", .@id, .@time; .@left = .@time - gettimetick(2); if ( .@left > 0 ) { atcommand "@adjgroup "+ .@id; if ( .@left >= 2147483 ) { sc_start sc_expboost, 2147483647, 300; // sc_start sc_itemboost, 2147483647, 100; } else { addtimer .@left *1000, "player_demoter::Ondemote"; sc_start .@left *1000, 2147483647, 300; // sc_start .@left *1000, 2147483647, 100; } end; } Ondemote: atcommand "@adjgroup 0"; message strcharinfo(0), "Your account has demoted to normal player"; #pp_accupgrade$ = ""; end; OnInit: // setarray .group_<definition>, <group ID 1>, <group ID 2>, <group ID 3>; ... must follow the sequence in 1,2,3,4,5 ... setarray .group_idreq[1], 31002; setarray .group_name$[1], "Super Player"; .total_group = 1; end; } this code to this code and this code to this code and i have this error in my map_server
-
where do i put image and icons files to work the item database? what folder? @ Mootie this is the error. how do i fix this?
-
when i tried to register this msg will shown. Something bad happened. Report to an administrator ASAP.
-
when i tried to used the item it always said @storage failed. 31005,Storage_Ticket,Storage Ticket,0,50,,10,,,,,0xFFFFFFFF,7,2,,,,,,{ atcommand "@storage"; },{},{}
-
anyone can help me to set right log on my log_conf. i want to log only pick_log and only card's with 3% drop rate.. and about atcommand log i want to set only @item. //-------------------------------------------------------------- // rAthena Log Configuration File //-------------------------------------------------------------- // Note 1: Value is a config switch (on/off, yes/no or 1/0) // Note 2: Value is in percents (100 means 100%) // Note 3: Value is a bit field. If no description is given, // assume unit types (1: Pc, 2: Mob, 4: Pet, 8: Homun) //-------------------------------------------------------------- // Enable Logs? (Note 3) // 0x00000 - Don't log at all // 0x00001 - (T) Log trades // 0x00002 - (V) Log vending transactions // 0x00004 - (P) Log items drop/picked by players // 0x00008 - (L) Log items drop/looted by monsters // 0x00010 - (S) Log NPC transactions (buy/sell) // 0x00020 - (N) Log Script transactions (items deleted/acquired through quests) // 0x00040 - (D) Log items stolen from mobs (Steal/Gank) // 0x00080 - (C) Log player-used items (consumables/pet&hom&merc food/items used for skills&attacks) // 0x00100 - (O) Log produced/ingredient items // 0x00200 - (U) Log MVP prize items // 0x00400 - (A) Log player created/deleted items (through @/# commands) // 0x00800 - (R) Log items placed/retrieved from storage. // 0x01000 - (G) Log items placed/retrieved from guild storage. // 0x02000 - (E) Log mail system transactions. // 0x04000 - (I) Log auction system transactions. // 0x08000 - ( Log buying store transactions // 0x10000 - (X) Log all other transcations (rentals expiring/inserting cards/items removed by item_check/ // rings deleted by divorce/pet egg (un)hatching/pet armor (un)equipping/Weapon Refine skill/Remove Trap skill) // Example: Log trades+vending+script items+created items: 1+2+32+1024 = 1059 // Please note that moving items from inventory to cart and back is not logged by design. enable_logs: 0x00000 // Use MySQL Logs? [sql Version Only] (Note 1) sql_logs: yes // LOGGING FILTERS // ============================================================= // if any condition is true then the item will be logged // 0 = Don't log at all // 1 = Log any item // Advanced Filter Bits by item type: || // 0002 - Healing items (0) // 0004 - Etc Items(3) + Arrows (10) // 0008 - Usable Items(2) + Lures,Scrolls(11) + Usable Cash Items(18) // 0016 - Weapon(4) // 0032 - Shields,Armor,Headgears,Accessories,etc(5) // 0064 - Cards(6) // 0128 - Pet Accessories(8) + Eggs(7) (well, monsters don't drop 'em but we'll use the same system for ALL logs) // 0256 - Log expensive items ( >= price_items_log) // 0512 - Log big amount of items ( >= amount_items_log) // 1024 - Log refined items (if their refine >= refine_items_log ) // 2048 - Log rare items (if their drop chance <= rare_items_log ) // Examples: (log filters) // log_filter: 1 = logs ANY items // log_filter: 2 = logs only HEALING items // log_filter: 4 = logs only Etc Items and Arrows // log_filter: 64 = logs only Cards // log_filter: 322 = logs only Healing items, Cards and those items which price is >= price_items_log // log_filter: 4080 = logs all items (including all rare, big amount) exept healing, etc, arrows and useble ones log_filter: 2112 // Log Items which Refine >= refine_items_log refine_items_log: 5 // Log Items whith min drop rate <= rare_items_log // 1 = 0.01%, 100 = 1% drop chance, etc rare_items_log: 300 // don't log it if the current item buy price < price_items_log price_items_log: 1000 // don't log it if the current item amount < amount_items_log amount_items_log: 100 //============================================================= // Log Dead Branch Usage (Note 1) log_branch: no // Track Zeny Changes // Filter settings // 0 - don't log; 1 - log any zeny changes; 2.....1000000 - minimal absolut logging zeny value log_zeny: 0 // Log MVP Monster Drops (Note 1) // Outdated. Use Pick_Log instead. But this log could be useful to keep track slayed MVPs log_mvpdrop: yes // Log AtCommands & Charcommands (Note 1) // Only commands issued by player groups ('conf/groups.conf') with // 'log_commands' setting set to 'true' will be logged. log_commands: yes // Log NPC 'logmes' commands (Note 1) log_npc: no
-
anyone can help me to add this code to this script. SC_EXPBOOST SC_dropBOOST // ~~~~~ show time left in days, hours, minutes and seconds ~~~~~ function script timeleft__ { if ( ( .@left = getarg(0) ) <= 0 ) return getarg(0); .@day = .@left / 86400; .@hour = .@left % 86400 / 3600; .@min = .@left % 3600 / 60; .@sec = .@left % 60; if ( .@day ) return .@day +" day "+ .@hour +" hour"; else if ( .@hour ) return .@hour +" hour "+ .@min +" min"; else if ( .@min ) return .@min +" min "+ .@sec +" sec"; else return .@sec +" sec"; } prontera,156,179,5 script Player Promoter 947,{ mes "[Player Promoter]"; if ( getgmlevel() == 99 ) { mes "Hi Admin, do you want to distribute ^00CC00Player Promoter Cards^000000 with your name on it ?"; next; for ( .@i = 1; .@i <= .total_group; .@i++ ) .@menu$ = .@menu$ +"Distribute "+ getitemname( .group_idreq[.@i] ) +":"; .@s = select( .@menu$ ); getitem2 .group_idreq[.@s], 1,1,0,0, 254, 0, getcharid(0) % ( 1 << 16 ), getcharid(0) >> 16; close; } else if ( getgmlevel() > 1 ) { mes "Only Admin can use me"; close; } for ( .@i = 1; .@i <= .total_group; .@i++ ) .@menu$ = .@menu$ +( ( getgroupid() < .@i && countitem( .group_idreq[.@i] ) )? "upgrade to "+ .group_name$[.@i] : "" )+":"; if ( getstrlen( #pp_accupgrade$ ) ) { sscanf #pp_accupgrade$, "%d %d", .@id, .@time; mes "Your account is currently a ^00CC00"+ .group_name$[.@id] +"^000000. You still have ^0000FF"+ callfunc( "timeleft__", .@time - gettimetick(2) )+"^000000."; if ( getstrlen( .@menu$ ) == .total_group ) close; } else if ( getstrlen( .@menu$ ) == .total_group ) { mes "Make a donation and you can upgrade your account to become Super Players ^^"; close; } mes "Do you want to upgrade your account ?"; next; .@s = select( .@menu$ ); delitem .group_idreq[.@s], 1; #pp_accupgrade$ = .@s +" "+( gettimetick(2) + 2592000 ); // 1 month atcommand "@adjgroup "+ .@s; mes "[Player Promoter]"; mes "Your account has successfully upgraded to "+ .group_name$[1]; close; OnPCLoginEvent: if ( getgmlevel() > 1 ) #pp_accupgrade$ = ""; if ( !getstrlen( #pp_accupgrade$ ) ) end; sscanf #pp_accupgrade$, "%d %d", .@id, .@time; .@left = .@time - gettimetick(2); if ( .@left > 0 ) { atcommand "@adjgroup "+ .@id; if ( .@left >= 2147483 ) end; addtimer .@left *1000, "player_demoter::Ondemote"; end; } Ondemote: atcommand "@adjgroup 0"; message strcharinfo(0), "Your account has demoted to normal player"; #pp_accupgrade$ = ""; end; OnInit: // setarray .group_<definition>, <group ID 1>, <group ID 2>, <group ID 3>; ... must follow the sequence in 1,2,3,4,5 ... setarray .group_idreq[1], 31061, 31062, 31063; setarray .group_name$[1], "Super Player", "Hyper Player", "Ultra Player"; .total_group = 3; end; }
-
how to insert this code to this script? rontera,151,193,4 script Healer & Buffer#h1-1::Healer 935,{ set .@t, 2; // Delay Seconds. if ( ! @h ) { set @h, 1; set .@hp, MaxHP - HP; while ( .@t ) { dispbottom "Wait for "+ .@t +" second"+ ( ( .@t > 1 ) ? "s" : "" ) +"."; sleep2 1000 ; set .@t, .@t - 1; } skilleffect 28, .@hp ; specialeffect2 417; percentheal 100,100; skilleffect 34,0; sc_start SC_BLESSING,360000,10; sc_start SC_INCREASEAGI,360000,10; dispbottom "You're now fully healed "+ strcharinfo ( 0 ) +"."; set @h, 0; } end ; } figure it out hehehe i dont know if this is right but script is working.. but if their is clean way of adding this script share please ^^ thanks rontera,151,193,4 script Healer & Buffer#h1-1::Healer 935,{ if( getbrokenid(1) ) repairall; getinventorylist; while( .@i < @inventorylist_count ){ if ( !@inventorylist_identify[.@i] ){ delitem2 @inventorylist_id[.@i],1,0,0,0,0,0,0,0; getitem @inventorylist_id[.@i],1; } .@i++; } set .@t, 2; // Delay Seconds. if ( ! @h ) { set @h, 1; set .@hp, MaxHP - HP; while ( .@t ) { dispbottom "Wait for "+ .@t +" second"+ ( ( .@t > 1 ) ? "s" : "" ) +"."; sleep2 1000 ; set .@t, .@t - 1; } skilleffect 28, .@hp ; specialeffect2 417; percentheal 100,100; skilleffect 34,0; sc_start SC_BLESSING,360000,10; sc_start SC_INCREASEAGI,360000,10; dispbottom "You're now fully healed "+ strcharinfo ( 0 ) +"."; set @h, 0; } end ; }
-
hello, anyone can make me a script with.. if players click to npc all item has broken will be repair and all item not idintify will be idintify thanks it is ok to use this in script? and check if no item need to repair or identifie command will not trigger atcommand "@repairall "+@player$; atcommand "@identifyall "+@player$;
-
i already follow the guide and this is the installation said..
-
request to add some command of warper script by AnnieRuru
Cisqua replied to Cisqua's question in Script Requests
BUMP. is my request posible? -
how to install this in Linux? can you give me link for guide? EDIT: i ready WIKI guide for linux but i installed is successfully but nothings happen they same problems.. [root@*******-ro ~]# cd /root/Desktop/trunk [root@*******-ro trunk]# ./configure --with-pcre checking for gcc... gcc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether gcc accepts -g... yes checking for gcc option to accept ISO C89... none needed checking how to run the C preprocessor... gcc -E checking for grep that handles long lines and -e... /bin/grep checking for egrep... /bin/grep -E checking for ANSI C header files... yes checking for sys/types.h... yes checking for sys/stat.h... yes checking for stdlib.h... yes checking for string.h... yes checking for memory.h... yes checking for strings.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for unistd.h... yes checking minix/config.h usability... no checking minix/config.h presence... no checking for minix/config.h... no checking whether it is safe to define __EXTENSIONS__... yes checking whether make sets $(MAKE)... yes checking for gcc... (cached) gcc checking whether we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking how to run the C preprocessor... gcc -E checking for ar... /usr/bin/ar checking whether byte ordering is bigendian... no checking whether gcc produces 32bit code... yes checking whether gcc supports __thread specifier (TLS)... yes checking whether gcc supports -Wno-unused-parameter... no checking whether gcc supports -flto... no checking whether gcc supports -Wno-pointer-sign... yes checking whether gcc can actually use -Wno-pointer-sign... yes checking whether gcc supports -Wno-switch... yes checking whether gcc supports -fPIC... yes checking whether gcc supports -fno-strict-aliasing... yes checking for setrlimit... yes checking for strnlen... yes checking for uselocale... yes checking for newlocale... yes checking for freelocale... yes checking xlocale.h usability... yes checking xlocale.h presence... yes checking for xlocale.h... yes checking for inflateEnd in -lz... yes checking zlib.h usability... yes checking zlib.h presence... yes checking for zlib.h... yes checking for library containing sqrt... -lm checking for library containing clock_gettime... -lrt checking whether CLOCK_MONOTONIC is supported and works... yes checking for pthread_create in -lpthread... yes checking for pthread_sigmask in -lpthread... yes checking for pthread_attr_init in -lpthread... yes checking for pthread_attr_setstacksize in -lpthread... yes checking for pthread_attr_destroy in -lpthread... yes checking for pthread_cancel in -lpthread... yes checking for pthread_join in -lpthread... yes checking for mysql_config... /usr/bin/mysql_config checking for mysql_init in -lmysqlclient... yes checking mysql.h usability... yes checking mysql.h presence... yes checking for mysql.h... yes checking MySQL library (required)... yes (5.0.95) checking for pcre_study in -lpcre... yes checking PCRE library (optional)... yes checking host OS... Linux checking for MinGW... no configure: PROD_WARN= -Wno-pointer-sign -Wno-switch configure: Configure finish, CFLAG= -g -O2 -DMAXCONN=16384 -pipe -ffast-math -Wall -march=i686 -DHAS_TLS -fno-strict-aliasing -DHAVE_SETRLIMIT -DHAVE_STRNLEN -Wno-unused -Wno-parentheses -Wno-pointer-sign -Wno-switch -DHAVE_MONOTONIC_CLOCK configure: creating ./config.status config.status: creating Makefile config.status: creating src/common/Makefile config.status: creating 3rdparty/mt19937ar/Makefile config.status: creating 3rdparty/libconfig/Makefile config.status: creating src/char/Makefile config.status: creating src/login/Makefile config.status: creating src/map/Makefile config.status: creating src/tool/Makefile config.status: creating src/test/Makefile [root@*******-ro trunk]# make clean make[1]: Entering directory `/root/Desktop/trunk/src/common' CLEAN common make[1]: Leaving directory `/root/Desktop/trunk/src/common' make[1]: Entering directory `/root/Desktop/trunk/3rdparty/mt19937ar' CLEAN mt19937ar make[1]: Leaving directory `/root/Desktop/trunk/3rdparty/mt19937ar' make[1]: Entering directory `/root/Desktop/trunk/3rdparty/libconfig' CLEAN libconfig make[1]: Leaving directory `/root/Desktop/trunk/3rdparty/libconfig' make[1]: Entering directory `/root/Desktop/trunk/src/login' CLEAN login make[1]: Leaving directory `/root/Desktop/trunk/src/login' make[1]: Entering directory `/root/Desktop/trunk/src/char' CLEAN char make[1]: Leaving directory `/root/Desktop/trunk/src/char' make[1]: Entering directory `/root/Desktop/trunk/src/map' CLEAN map make[1]: Leaving directory `/root/Desktop/trunk/src/map' make[1]: Entering directory `/root/Desktop/trunk/src/tool' CLEAN tool make[1]: Leaving directory `/root/Desktop/trunk/src/tool' make[1]: Entering directory `/root/Desktop/trunk/src/test' CLEAN test make[1]: Leaving directory `/root/Desktop/trunk/src/test' [root@*******-ro trunk]# make sql make[1]: Entering directory `/root/Desktop/trunk/3rdparty/mt19937ar' CC mt19937ar.c make[1]: Leaving directory `/root/Desktop/trunk/3rdparty/mt19937ar' make[1]: Entering directory `/root/Desktop/trunk/3rdparty/libconfig' CC libconfig.c CC grammar.c CC scanctx.c CC scanner.c CC strbuf.c make[1]: Leaving directory `/root/Desktop/trunk/3rdparty/libconfig' make[1]: Entering directory `/root/Desktop/trunk/src/common' MKDIR obj_all CC core.c CC socket.c CC timer.c CC db.c CC nullpo.c CC malloc.c CC showmsg.c CC strlib.c CC utils.c CC grfio.c CC mapindex.c CC ers.c CC md5calc.c CC core.c CC socket.c CC malloc.c CC random.c CC des.c CC conf.c CC thread.c CC mutex.c CC raconf.c CC mempool.c AR obj_all/common.a MKDIR obj_sql CC sql.c AR obj_sql/common_sql.a make[1]: Leaving directory `/root/Desktop/trunk/src/common' make[1]: Entering directory `/root/Desktop/trunk/src/login' MKDIR obj_sql CC login.c CC account_sql.c CC ipban_sql.c CC loginlog_sql.c LD login-server_sql make[1]: Leaving directory `/root/Desktop/trunk/src/login' make[1]: Entering directory `/root/Desktop/trunk/src/char' MKDIR obj_sql CC char.c CC inter.c CC int_party.c CC int_guild.c CC int_storage.c CC int_pet.c CC int_homun.c CC int_mail.c CC int_auction.c CC int_quest.c CC int_mercenary.c CC int_elemental.c LD char-server_sql make[1]: Leaving directory `/root/Desktop/trunk/src/char' make[1]: Entering directory `/root/Desktop/trunk/src/map' MKDIR obj_sql CC map.c CC chrif.c CC clif.c CC pc.c CC status.c CC npc.c CC npc_chat.c CC chat.c CC path.c CC itemdb.c CC mob.c CC script.c CC storage.c CC skill.c CC atcommand.c CC battle.c CC battleground.c CC intif.c CC trade.c CC party.c CC vending.c CC guild.c CC pet.c CC log.c CC mail.c CC date.c CC unit.c CC homunculus.c CC mercenary.c CC quest.c CC instance.c CC buyingstore.c CC searchstore.c CC duel.c CC pc_groups.c CC elemental.c CC mapreg_sql.c LD map-server_sql make[1]: Leaving directory `/root/Desktop/trunk/src/map' building conf/import folder... [root@******* trunk]#
-
i have problem with this script.. players can answer correct spell of the monster with extra letters in the last of answer for eg: npc disguise as poring so the right answer must be poring, but te problem is you can answer as poringasdghqwebyr too with extra letters of the right answer npc considered it as correct.. anyone can help me to fix this? sorry for my poor english //==============================================================================// //--- Created by GmOcean -------------------------------------------------------// //--- You may modify this script at your own risk. However any modifications ---// //--- To this script are made at your own discretion and I will not provide ----// //--- any support to modified scripts. You Also are forbidden to release the ---// //--- modified script as your own. You can however post suggestions and I will -// //--- Take them into consideration. You may also post the modified script up ---// //--- In the Script Support section, as long as I am given Credit as the -------// //--- Original Script Creator. Thank You for following these few requests ------// //--- And Enjoy the Script ~! --------------------------------------------------// //-------------------------------- Script Version == v5.0 -------------// //==============================================================================// quiz_02,344,383,4 script waitingroom 802,{ end; OnInit: waitingroom "Do Not Pass.",0; end; } quiz_02,355,383,4 duplicate(waitingroom) waitingroom#2 802 quiz_02,350,389,4 script DE#OnTouch -1,5,5,{ OnTouch: if ( getgroupid() == 4 || getgmlevel() == 99 ) {end;} warp "quiz_02",350,371; end; } quiz_02,350,389,4 script Disguise Event 795,2,2,{ //--- Basic Script Configuration Options ---// set .@npcname$,"[^228B22 Disguise NPC ^000000]"; //<- NPC Name. set $@GMLevel,60; //<- GM Level needed to be considered a GM. //--- The Script ---// //if (getgmlevel()>=$@GMLevel || getgroupid() == 2 || getgroupid() == 5) goto GM_Player; if (getgmlevel()>=$@GMLevel || getgroupid() == 4 ) goto GM_Player; if ($@EventON){end;} mes .@npcname$; mes "Welcome, how may i serve you?"; menu "Information",iInfo,"Nothing",iNothing; iInfo: next; mes .@npcname$; mes "This event is actually quite simple"; mes "At the start of the event, I will disguise myself"; mes "into a monster randomly. You will then merely have to shout that monsters name outloud."; next; mes "If you get it correct, you get a prize. If not, then keep trying."; mes "That is all there is to know about this event."; close; iNothing: close; GM_Player: mes .@npcname$; mes "Please select an Option to modify."; mes "Rule 1: All Monster's"; mes "Rule 2: All MvP's"; mes "Current Rule: [ ^0000FF"+$Rule+"^000000 ]"; mes "Current Round: [ ^0000FF"+$Rounds+"^000000 ]"; mes "Current Prize: [ ^0000FF"+getitemname($Prize)+"^000000 ]"; //menu "Turn ^FF0000ON^000000 / ^0000FFOFF^000000 Event",iEvent, ( ( getgmlevel() == 99 || getgroupid() == 5 ) ? "Event Settings" : "" ),iSettings; menu "Turn ^FF0000ON^000000 / ^0000FFOFF^000000 Event",iEvent, ( ( getgmlevel() == 99 ) ? "Event Settings" : "" ),iSettings; iEvent: next; mes .@npcname$; if ($@EventON){mes "The event is currently: [^0000FF ON ^000000]"; mes "Would you like to turn it ^FF0000OFF^000000?";} if (!$@EventON){mes "The event is currently: [^FF0000 OFF ^000000]"; mes "Would you like to turn it ^0000FFON^000000?";} menu "Yes",iYes,"No",iNothing; iYes: 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 "Go to prontera if you want to join the event.",bc_all | bc_blue; close; iSettings: next; mes .@npcname$; mes "Please select a setting to modify."; menu "Monster display",iMonster,"Number of rounds",iRounds,"Prize settings",iPrize,"Current Settings",iCSet; iMonster: callfunc "Monster_Display"; iRounds: callfunc "Rounds"; iPrize: callfunc "Prize"; iCSet: callfunc "Setting"; OnInit: defpattern 1,"([^:]+):.\\s*OMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "iCorrect"; activatepset 1; set $@EventON,0; set $@Wait,0; set $@Winner,0; set $Points,$Points; set $@ResetCounter,0; set $Rounds,$Rounds; set $Prize,$Prize; set $PrizeAmt,$PrizeAmt; set $Rule,$Rule; 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; setarray $@BlackList[0], 1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168,1171,1172,1173,1181,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; setarray $@BlackList2[0],2119,2120,2121,2123,2124,2125,1496; end; OnClock0010: OnClock0050: OnClock0130: 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 "Go to prontera if you want to join the event.",bc_all | bc_blue; setnpctimer 0; initnpctimer; end; OnTimer10000: if ($@Timer){end;} if ($@Change){end;} set $@Wait,0; goto iDisguise; //donpcevent "DisguiseEvent::OnDisguise"; end; OnTimer30000: if ($@Timer){end;} set $@Change,0; setnpcdisplay "Disguise Event",795; npctalk "You took too long to guess what i was. Please wait 10 seconds while i disguise again."; specialeffect 725; set $MonsterName$,"OMFGBBQLEETSAUCEGMOCEANRULESHAI!!"; deletepset 1; stopnpctimer; setnpctimer 0; initnpctimer; end; OnTimer60000: if ($@Timer!=1){end;} if ($@Timer==1) {announce "The disguise event will begin in 2 minutes.",bc_all | bc_blue; announce "Go to prontera if you want to join the event.",bc_all | bc_blue; end;} OnTimer120000: if ($@Timer!=1){end;} if ($@Timer==1) {announce "The disguise event will begin 1 minute.",bc_all | bc_blue; announce "Go to prontera if you want to join the event.",bc_all | bc_blue; end;} OnTimer180000: if ($@Timer!=1){end;} if ($@Timer==1) {announce "The disguise event has begun!",bc_all | bc_blue; announce "Go to prontera if you want to join the event.",bc_all | bc_blue; set $@Timer,0; stopnpctimer; setnpctimer 0; initnpctimer; goto iDisguise; //donpcevent "DisguiseEvent::OnDisguise"; end;} announce "Something went wrong with the disguise event.",bc_all | bc_blue; announce "Please notify a GM ASAP. Thank you.",bc_all | bc_blue; end; iDisguise: if ($Rule==1) {set $@Winner,0; set $@Monster,1000+rand(1,995); for(set .@BL,0; .@BL<getarraysize($@BlackList); set .@BL,.@BL+1) {if ($@Monster==$@BlackList[.@BL] || $@Monster==$@BlackList2[.@BL]) {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; //Hint //npctalk ""+$@Monster+", "+$MonsterName$+""; end; iCorrect: if ($@Winner){dispbottom "Someone has already won this round."; end;} set $@Winner,1; set $@RoundCount,$@RoundCount+1; deletepset 1; defpattern 1,"([^:]+):.*\\sOMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "iFailCheater"; 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; npctalk "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; iFailCheater: end; } //--- The Functions ---// function script Rounds { next; mes "Please Input the number of rounds you want the event to last."; mes "Current number of rounds: [ ^0000FF"+$Rounds+"^000000 ]"; input .@Rounds; set $Rounds,.@Rounds; next; mes "The number of rounds has been changed successfully."; mes "Number of Rounds: [ ^0000FF"+$Rounds+"^000000 ]"; mes "Come again."; close; } function script Prize { next; mes "Please Input the Item ID of the prize that will be given each round."; mes "Current Items is: [ ^0000FF"+getitemname($Prize)+"^000000 ] Item ID - ^0000FF"+$Prize+"^000000"; input .@Prize; if (getitemname(.@Prize)=="" || getitemname(.@Prize)=="null") {next; mes "That item does not exist. Please try again."; close;} set $Prize,.@Prize; next; mes "Please Input the Ammount that is to be given."; input .@Ammount; if (.@Ammount<=0 || .@Ammount>=2) {next; mes "That ammount is invalid. Using default ammount of 1.";} set $PrizeAmt,.@Ammount; next; mes "The Prize has been changed successfully."; mes "Prize: [ ^0000FF"+getitemname($Prize)+"^000000 ] ( ^0000FFx"+$PrizeAmt+"^000000 )"; close; } function script Monster_Display { setarray .@Rule[0],0,1,2; setarray .@Desc$[0],"","Transform as all monsters.","Transform as MvP's only."; next; mes "Please select a disguise Rule."; mes "Rule 1 - Transform as all monsters."; mes "Rule 2 - Transform as MvP's only."; menu "Rule 1:Rule 2",iRule; iRule: set $Rule,.@Rule[@menu]; next; mes "The disguise Rule, has been changed successfully."; mes "Current Rule: ^0000FF"+$Rule+"^000000 - ^0000FF"+.@Desc$[@menu]+"^000000"; close; } function script Setting { mes "Rule 1: All Monster's"; mes "Rule 2: All MvP's"; mes "Current Rule: [ ^0000FF"+$Rule+"^000000 ]"; mes "Current Round: [ ^0000FF"+$Rounds+"^000000 ]"; mes "Current Prize: [ ^0000FF"+getitemname($Prize)+"^000000 ]"; close; }
-
request to add some command of warper script by AnnieRuru
Cisqua posted a question in Script Requests
the script is working but i want to request to add some menu of this script.. eg: if your gmlevel is 4 and so on you will access the set .@menu[8] . warper.txt -
thank you Capuche now its working.. DONE!
-
the script is working fine but i want to request to change the prize. GMlv60 or GroupID2 can start/end the event only cant change the setting of the event... GMlv99 or GroupID 5 can start/end and can change the settings of the event. thanks in advance! //==============================================================================// //--- Created by GmOcean -------------------------------------------------------// //--- You may modify this script at your own risk. However any modifications ---// //--- To this script are made at your own discretion and I will not provide ----// //--- any support to modified scripts. You Also are forbidden to release the ---// //--- modified script as your own. You can however post suggestions and I will -// //--- Take them into consideration. You may also post the modified script up ---// //--- In the Script Support section, as long as I am given Credit as the -------// //--- Original Script Creator. Thank You for following these few requests ------// //--- And Enjoy the Script ~! --------------------------------------------------// //-------------------------------- Script Version == v5.0 -------------// //==============================================================================// quiz_02,350,389,4 script DE#OnTouch -1,5,5,{ OnTouch: warp "quiz_02",350,371; end; } quiz_02,350,389,4 script Disguise Event 795,2,2,{ //--- Basic Script Configuration Options ---// set .@npcname$,"[^228B22 Disguise NPC ^000000]"; //<- NPC Name. set $@GMLevel,60; //<- GM Level needed to be considered a GM. //--- The Script ---// if (getgmlevel()>=$@GMLevel){goto GM_Player;} if ($@EventON){end;} mes .@npcname$; mes "Welcome, how may i be of assistance."; menu "Information",iInfo,"Nothing, just passing through.",iNothing; iInfo: next; mes .@npcname$; mes "This event is actually quite simple"; mes "At the start of the event, I will disguise myself"; mes "into a monster randomly. You will then merely have to shout that monsters name outloud."; next; mes "If you get it correct, you get a prize. If not, then keep trying."; mes "That is all there is to know about this event."; close; iNothing: close; GM_Player: mes .@npcname$; mes "Please select an Option to modify."; menu "Turn ^FF0000ON^000000 / [^0000FFOFF^000000 Event",iEvent,"Event Settings",iSettings; iEvent: next; mes .@npcname$; if ($@EventON){mes "The event is currently: [^0000FF ON ^000000]"; mes "Would you like to turn it OFF?";} if (!$@EventON){mes "The event is currently: [^FF0000 OFF ^000000]"; mes "Would you like to turn it ^0000FFON^000000?";} menu "Yes",iYes,"No",iNothing; iYes: 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; iSettings: next; mes .@npcname$; mes "Please select a setting to modify."; menu "Monster Display",iMonster,"Number of Rounds",iRounds,"Prize Settings",iPrize; iMonster: callfunc "Monster_Display"; iRounds: callfunc "Rounds"; iPrize: callfunc "Prize"; OnInit: defpattern 1,"([^:]+):.\\s*OMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "iCorrect"; activatepset 1; set $@EventON,0; set $@Wait,0; set $@Winner,0; set $Points,$Points; set $@ResetCounter,0; set $Rounds,$Rounds; set $Prize,$Prize; set $PrizeAmt,$PrizeAmt; set $Rule,$Rule; 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; setarray $@BlackList[0], 1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168,1171,1172,1173,1181,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; setarray $@BlackList2[0],2119,2120,2121,2123,2124,2125,1496; end; OnClock0010: OnClock0050: OnClock0130: 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){end;} if ($@Change){end;} set $@Wait,0; goto iDisguise; //donpcevent "DisguiseEvent::OnDisguise"; end; OnTimer30000: if ($@Timer){end;} set $@Change,0; setnpcdisplay "Disguise Event",795; npctalk "You took too long to guess what i was. Please wait 10 seconds while i disguise again."; specialeffect 725; set $MonsterName$,"OMFGBBQLEETSAUCEGMOCEANRULESHAI!!"; deletepset 1; stopnpctimer; setnpctimer 0; initnpctimer; end; OnTimer60000: if ($@Timer!=1){end;} if ($@Timer==1) {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;} if ($@Timer==1) {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;} if ($@Timer==1) {announce "The disguise event has begun!",bc_all | bc_blue; announce "The event is being held in Prontera.",bc_all | bc_blue; set $@Timer,0; stopnpctimer; setnpctimer 0; initnpctimer; goto iDisguise; //donpcevent "DisguiseEvent::OnDisguise"; end;} announce "Something went wrong with the disguise event.",bc_all | bc_blue; announce "Please notify a GM ASAP. Thank you.",bc_all | bc_blue; end; iDisguise: if ($Rule==1) {set $@Winner,0; set $@Monster,1000+rand(1,995); for(set .@BL,0; .@BL<getarraysize($@BlackList); set .@BL,.@BL+1) {if ($@Monster==$@BlackList[.@BL] || $@Monster==$@BlackList2[.@BL]) {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; //Hint //npctalk ""+$@Monster+", "+$MonsterName$+""; end; iCorrect: if ($@Winner){dispbottom "Someone has already won this round."; end;} set $@Winner,1; set $@RoundCount,$@RoundCount+1; deletepset 1; defpattern 1,"([^:]+):.*\\sOMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "iFailCheater"; 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; npctalk "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; iFailCheater: end; } //--- The Functions ---// function script Rounds { next; mes "Please Input the number of rounds you want the event to last."; mes "Current Number of Rounds: [^0000FF"+$Rounds+"^000000]"; input .@Rounds; set $Rounds,.@Rounds; next; mes "The number of rounds has been changed successfully."; mes "Number of Rounds: [^0000FF"+$Rounds+"^000000]"; mes "Come again."; close; } function script Prize { next; mes "Please Input the ItemID of the prize that will be given each round."; mes "Current Items is: [^0000FF"+getitemname($Prize)+"^000000] ItemID - ^0000FF"+$Prize+"^000000"; input .@Prize; if (getitemname(.@Prize)=="" || getitemname(.@Prize)=="null") {next; mes "That item does not exist. Please try again."; close;} set $Prize,.@Prize; next; mes "Please Input the Ammount that is to be given."; input .@Ammount; if (.@Ammount<=0 || .@Ammount>=1) {next; mes "That ammount is invalid. Using default ammount of 1.";} set $PrizeAmt,.@Ammount; next; mes "The Prize has been changed successfully."; mes "Prize: [^0000FF"+getitemname($Prize)+"^000000]x(^0000FF"+$PrizeAmt+"^000000)"; close; } function script Monster_Display { setarray .@Rule[0],0,1,2; setarray .@Desc$[0],"","Transform as all monsters.","Transform as MvP's only."; next; mes "Please select a disguise Rule."; mes "Rule 1 - Transform as all monsters."; mes "Rule 2 - Transform as MvP's only."; menu "Rule 1:Rule 2",iRule; iRule: set $Rule,.@Rule[@menu]; next; mes "The disguise Rule, has been changed successfully."; mes "Current Rule: ^0000FF"+$Rule+"^000000 - ^0000FF"+.@Desc$[@menu]+"^000000"; close; }
-
hello, nicoscene im confuse of this code.. L_odin: if(.@charid == $pvp5nAchar1 || .@charid == $pvp5nAchar2 || .@charid == $pvp5nAchar3 || .@charid == $pvp5nAchar4 || .@charid == $pvp5nAchar5 || .@charid == $pvp5nBchar1 || .@charid == $pvp5nBchar2 || .@charid == $pvp5nBchar3 || .@charid == $pvp5nBchar4 || .@charid == $pvp5nBchar5) { mes .@n$; mes "You may only register once per round."; close; end; } if($pvp5nA < 5) { set $pvp5nA,$pvp5nA+1; if($pvp5nA == 1) { set $pvp5nAchar1,getcharid(0); } if($pvp5nA == 2) { set $pvp5nAchar2,getcharid(0); } if($pvp5nA == 3) { set $pvp5nAchar3,getcharid(0); } if($pvp5nA == 4) { set $pvp5nAchar4,getcharid(0); } if($pvp5nA == 5) { set $pvp5nAchar5,getcharid(0); } if($pvp5nA == 1 || $pvp5nB == 1) { if($pvp5timer == 0 ) { initnpctimer; set $pvp5timer,1; } } mes .@n$; mes "You've joined the selected team. Once the other team have filled up, you'll automatically be transferred into the Colosseum. If the other team do not fill up within the next 30 seconds, this session will be cleared."; npctalk strcharinfo(0)+" has entered the round on Odin's Side."; if($pvp5nA == 5 && $pvp5nB == 5) { stopnpctimer; goto L_begin;} close; end; } L_freya: if(.@charid == $pvp5nAchar1 || .@charid == $pvp5nAchar2 || .@charid == $pvp5nAchar3 || .@charid == $pvp5nAchar4 || .@charid == $pvp5nAchar5 || .@charid == $pvp5nBchar1 || .@charid == $pvp5nBchar2 || .@charid == $pvp5nBchar3 || .@charid == $pvp5nBchar4 || .@charid == $pvp5nBchar5) { mes .@n$; mes "You may only register once per round."; close; end; } if($pvp5nB < 5) { set $pvp5nB,$pvp5nB+1; if($pvp5nB == 1) { set $pvp5nBchar1,getcharid(0); } if($pvp5nB == 2) { set $pvp5nBchar2,getcharid(0); } if($pvp5nB == 3) { set $pvp5nBchar3,getcharid(0); } if($pvp5nB == 4) { set $pvp5nBchar4,getcharid(0); } if($pvp5nB == 5) { set $pvp5nBchar5,getcharid(0); } if($pvp5nB == 1 || $pvp5nA == 1) { if($pvp5timer == 0 ) { initnpctimer; set $pvp5timer,1; } } mes .@n$; mes "You've joined the selected team. Once the other team have filled up, you'll automatically be transferred into the Colosseum. If the other team do not fill up within the next 30 seconds, this session will be cleared."; npctalk strcharinfo(0)+" has entered the round on Freya's Side."; if($pvp5nA == 5 && $pvp5nB == 5) { stopnpctimer; goto L_begin;} close; end; } odin start at $pvp5nAchar1 and also freya $pvp5nAchar1 do i need to change odin start at 5 $pvp5nAchar1 after it $pvp5nBchar1 then freya start 5 $pvp5nBchar1 next 5 $pvp5nAchar1.. im very confuse hehe
-
i just find this script here .. and i want to request to set this into 5v5.. thanks // ------------------------------------------------------------------------------------------ // ------ rAthena Script Release // Title: Simple 4 versus 4 PVP Gateway // Author: jTynne - [email protected] // Modified by: Scene - [email protected] // Version: 0.1 (Beta) // ------------------------------------------------------------------------------------------ prontera,165,160,2 script Party Battle Recruiter 416,{ set .@n$,"[ ^228B22Party Battle Recruiter^000000 ]"; set .@charid,getcharid(0); mes .@n$; mes "Would you like to register for a 4 versus 4 Party Battle?"; next; menu "Yes",-,"No",L_cancel; if(getmapusers("guild_vs3") > 0) { mes .@n$; mes "There appears to be a match currently in session. Check back momentarily."; close; end; } mes .@n$; mes "Which side of the arena would you like to join?"; next; menu "Odin ("+$pvp4nA+"/4)",L_odin,"Freya ("+$pvp4nB+"/4)",L_freya; L_odin: if(.@charid == $pvp4nAchar1 || .@charid == $pvp4nAchar2 || .@charid == $pvp4nAchar3 || .@charid == $pvp4nAchar4 || .@charid == $pvp4nBchar1 || .@charid == $pvp4nBchar2 || .@charid == $pvp4nBchar3 || .@charid == $pvp4nBchar4) { mes .@n$; mes "You may only register once per round."; close; end; } if($pvp4nA < 4) { set $pvp4nA,$pvp4nA+1; if($pvp4nA == 1) { set $pvp4nAchar1,getcharid(0); } if($pvp4nA == 2) { set $pvp4nAchar2,getcharid(0); } if($pvp4nA == 3) { set $pvp4nAchar3,getcharid(0); } if($pvp4nA == 4) { set $pvp4nAchar4,getcharid(0); } if($pvp4nA == 1 || $pvp4nB == 1) { if($pvp4timer == 0 ) { initnpctimer; set $pvp4timer,1; } } mes .@n$; mes "You've joined the selected team. Once the other team have filled up, you'll automatically be transferred into the Colosseum. If the other team do not fill up within the next 30 seconds, this session will be cleared."; npctalk strcharinfo(0)+" has entered the round on Odin's Side."; if($pvp4nA == 4 && $pvp4nB == 4) { stopnpctimer; goto L_begin;} close; end; } L_freya: if(.@charid == $pvp4nAchar1 || .@charid == $pvp4nAchar2 || .@charid == $pvp4nAchar3 || .@charid == $pvp4nAchar4 || .@charid == $pvp4nAchar5 || .@charid == $pvp4nAchar6 || .@charid == $pvp4nAchar7 || .@charid == $pvp4nBchar1 || .@charid == $pvp4nBchar2 || .@charid == $pvp4nBchar3 || .@charid == $pvp4nBchar4 || .@charid == $pvp4nBchar5 || .@charid == $pvp4nBchar6 || .@charid == $pvp4nBchar7) { mes .@n$; mes "You may only register once per round."; close; end; } if($pvp4nB < 4) { set $pvp4nB,$pvp4nB+1; if($pvp4nB == 1) { set $pvp4nBchar1,getcharid(0); } if($pvp4nB == 2) { set $pvp4nBchar2,getcharid(0); } if($pvp4nB == 3) { set $pvp4nBchar3,getcharid(0); } if($pvp4nB == 4) { set $pvp4nBchar4,getcharid(0); } if($pvp4nA == 1 || $pvp4nB == 1) { if($pvp4timer == 0 ) { initnpctimer; set $pvp4timer,1; } } mes .@n$; mes "You've joined the selected team. Once the other team have filled up, you'll automatically be transferred into the Colosseum. If the other team do not fill up within the next 30 seconds, this session will be cleared."; npctalk strcharinfo(0)+" has entered the round on Freya's Side."; if($pvp4nA == 4 && $pvp4nB == 4) { stopnpctimer; goto L_begin;} close; end; } goto L_full; L_full: mes .@n$; mes "Sorry, but this team is full. Try another team, please."; close; end; L_begin: npctalk "Both teams have been filled. All participants currently logged in will be transferred to the arena in ten seconds."; sleep2 10000; set .@x,0; L_warploop: while (.@x < 7) { if (.@x == 0) { warpchar "guild_vs3",18,50,$pvp4nAchar1; } else if (.@x == 1) { warpchar "guild_vs3",18,50,$pvp4nAchar2; } else if (.@x == 2) { warpchar "guild_vs3",18,50,$pvp4nAchar3; } else if (.@x == 3) { warpchar "guild_vs3",18,50,$pvp4nAchar4; } else if (.@x == 4) { warpchar "guild_vs3",83,50,$pvp4nBchar1; } else if (.@x == 5) { warpchar "guild_vs3",83,50,$pvp4nBchar2; } else if (.@x == 6) { warpchar "guild_vs3",83,50,$pvp4nBchar3; } else if (.@x == 7) { warpchar "guild_vs3",83,50,$pvp4nBchar4; } else { npctalk "A round is now in session."; goto L_clear;} set .@x, .@x + 1; } goto L_warploop; end; L_cancel: mes .@n$; mes "Do come back if you change your mind."; close; end; OnTimer10000: npctalk "Ten seconds have passed. Entry to the round ends in 20 seconds."; end; OnTimer20000: npctalk "Twenty seconds have passed. Entry to the round ends in 10 seconds."; end; OnTimer30000: npctalk "Thirty seconds have passed and thus I have canceled the round."; stopnpctimer; goto L_clear; L_clear: set $pvp4timer,0; set $pvp4nA,0; set $pvp4nB,0; set $pvp4nAchar1,0; set $pvp4nAchar2,0; set $pvp4nAchar3,0; set $pvp4nAchar4,0; set $pvp4nBchar1,0; set $pvp4nBchar2,0; set $pvp4nBchar3,0; set $pvp4nBchar4,0; end; } - script pvp4vs4#1 -1,{ OnPCDieEvent: getmapxy (.@map$, .@x, .@y, 0); if(.@map$ == "guild_vs3") { warp "SavePoint",0,0;} end; OnPCKillEvent: getmapxy (.@map$, .@x, .@y, 0); if( .@map$ == "guild_vs3") { set .@tempn1$,strcharinfo(0); set .@tempn2$,rid2name(killedrid); mapannounce "guild_vs3",""+.@tempn1$+" has killed "+.@tempn2$+".",1,0xD6A4E6;} end; } i change this into like this correct me if im right.. thanks // ------------------------------------------------------------------------------------------ // ------ rAthena Script Release // Title: Simple 4 versus 4 PVP Gateway // Author: jTynne - [email protected] // Modified by: Scene - [email protected] // Version: 0.1 (Beta) // ------------------------------------------------------------------------------------------ prontera,165,160,2 script Party Battle Recruiter 416,{ set .@n$,"[ ^228B22Party Battle Recruiter^000000 ]"; set .@charid,getcharid(0); mes .@n$; mes "Would you like to register for a 5 versus 5 Party Battle?"; next; menu "Yes",-,"No",L_cancel; if(getmapusers("guild_vs3") > 0) { mes .@n$; mes "There appears to be a match currently in session. Check back momentarily."; close; end; } mes .@n$; mes "Which side of the arena would you like to join?"; next; menu "Odin ("+$pvp5nA+"/5)",L_odin,"Freya ("+$pvp5nB+"/5)",L_freya; L_odin: if(.@charid == $pvp5nAchar1 || .@charid == $pvp5nAchar2 || .@charid == $pvp5nAchar3 || .@charid == $pvp5nAchar4 || .@charid == $pvp5nAchar5 || .@charid == $pvp5nBchar1 || .@charid == $pvp5nBchar2 || .@charid == $pvp5nBchar3 || .@charid == $pvp5nBchar4 || .@charid == $pvp5nBchar5) { mes .@n$; mes "You may only register once per round."; close; end; } if($pvp5nA < 5) { set $pvp5nA,$pvp5nA+1; if($pvp5nA == 1) { set $pvp5nAchar1,getcharid(0); } if($pvp5nA == 2) { set $pvp5nAchar2,getcharid(0); } if($pvp5nA == 3) { set $pvp5nAchar3,getcharid(0); } if($pvp5nA == 4) { set $pvp5nAchar4,getcharid(0); } if($pvp5nA == 5) { set $pvp5nAchar5,getcharid(0); } if($pvp5nA == 1 || $pvp5nB == 1) { if($pvp5timer == 0 ) { initnpctimer; set $pvp5timer,1; } } mes .@n$; mes "You've joined the selected team. Once the other team have filled up, you'll automatically be transferred into the Colosseum. If the other team do not fill up within the next 30 seconds, this session will be cleared."; npctalk strcharinfo(0)+" has entered the round on Odin's Side."; if($pvp5nA == 5 && $pvp5nB == 5) { stopnpctimer; goto L_begin;} close; end; } L_freya: if(.@charid == $pvp5nAchar1 || .@charid == $pvp5nAchar2 || .@charid == $pvp5nAchar3 || .@charid == $pvp5nAchar4 || .@charid == $pvp5nAchar5 || .@charid == $pvp5nBchar1 || .@charid == $pvp5nBchar2 || .@charid == $pvp5nBchar3 || .@charid == $pvp5nBchar4 || .@charid == $pvp5nBchar5) { mes .@n$; mes "You may only register once per round."; close; end; } if($pvp5nB < 5) { set $pvp5nB,$pvp5nB+1; if($pvp5nB == 1) { set $pvp5nBchar1,getcharid(0); } if($pvp5nB == 2) { set $pvp5nBchar2,getcharid(0); } if($pvp5nB == 3) { set $pvp5nBchar3,getcharid(0); } if($pvp5nB == 4) { set $pvp5nBchar4,getcharid(0); } if($pvp5nB == 5) { set $pvp5nBchar5,getcharid(0); } if($pvp5nB == 1 || $pvp5nA == 1) { if($pvp5timer == 0 ) { initnpctimer; set $pvp5timer,1; } } mes .@n$; mes "You've joined the selected team. Once the other team have filled up, you'll automatically be transferred into the Colosseum. If the other team do not fill up within the next 30 seconds, this session will be cleared."; npctalk strcharinfo(0)+" has entered the round on Freya's Side."; if($pvp5nA == 5 && $pvp5nB == 5) { stopnpctimer; goto L_begin;} close; end; } goto L_full; L_full: mes .@n$; mes "Sorry, but this team is full. Try another team, please."; close; end; L_begin: npctalk "Both teams have been filled. All participants currently logged in will be transferred to the arena in ten seconds."; sleep2 10000; set .@x,0; L_warploop: while (.@x < 9) { if (.@x == 0) { warpchar "guild_vs3",18,50,$pvp5nAchar1; } else if (.@x == 1) { warpchar "guild_vs3",18,50,$pvp5nAchar2; } else if (.@x == 2) { warpchar "guild_vs3",18,50,$pvp5nAchar3; } else if (.@x == 3) { warpchar "guild_vs3",18,50,$pvp5nAchar4; } else if (.@x == 4) { warpchar "guild_vs3",18,50,$pvp5nAchar5; } else if (.@x == 5) { warpchar "guild_vs3",83,50,$pvp5nBchar1; } else if (.@x == 6) { warpchar "guild_vs3",83,50,$pvp5nBchar2; } else if (.@x == 7) { warpchar "guild_vs3",83,50,$pvp5nBchar3; } else if (.@x == 8) { warpchar "guild_vs3",83,50,$pvp5nBchar4; } else if (.@x == 9) { warpchar "guild_vs3",83,50,$pvp5nBchar5; } else { npctalk "A round is now in session."; goto L_clear;} set .@x, .@x + 1; } goto L_warploop; end; L_cancel: mes .@n$; mes "Do come back if you change your mind."; close; end; OnTimer10000: npctalk "Ten seconds have passed. Entry to the round ends in 20 seconds."; end; OnTimer20000: npctalk "Twenty seconds have passed. Entry to the round ends in 10 seconds."; end; OnTimer30000: npctalk "Thirty seconds have passed and thus I have canceled the round."; stopnpctimer; goto L_clear; L_clear: set $pvp5timer,0; set $pvp5nA,0; set $pvp5nB,0; set $pvp5nAchar1,0; set $pvp5nAchar2,0; set $pvp5nAchar3,0; set $pvp5nAchar4,0; set $pvp5nAchar5,0; set $pvp5nBchar1,0; set $pvp5nBchar2,0; set $pvp5nBchar3,0; set $pvp5nBchar4,0; set $pvp5nBchar5,0; end; } - script pvp5vs5#1 -1,{ OnPCDieEvent: getmapxy (.@map$, .@x, .@y, 0); if(.@map$ == "guild_vs3") { warp "SavePoint",0,0;} end; OnPCKillEvent: getmapxy (.@map$, .@x, .@y, 0); if( .@map$ == "guild_vs3") { set .@tempn1$,strcharinfo(0); set .@tempn2$,rid2name(killedrid); mapannounce "guild_vs3",""+.@tempn1$+" has killed "+.@tempn2$+".",1,0xD6A4E6;} end; } but i have problem with this code. odin and freya check all the $pvp5nAchar1 of odin and freya if correct.. thanks L_odin: if(.@charid == $pvp5nAchar1 || .@charid == $pvp5nAchar2 || .@charid == $pvp5nAchar3 || .@charid == $pvp5nAchar4 || .@charid == $pvp5nAchar5 || .@charid == $pvp5nBchar1 || .@charid == $pvp5nBchar2 || .@charid == $pvp5nBchar3 || .@charid == $pvp5nBchar4 || .@charid == $pvp5nBchar5) { mes .@n$; mes "You may only register once per round."; close; end; } and this one L_freya: if(.@charid == $pvp5nAchar1 || .@charid == $pvp5nAchar2 || .@charid == $pvp5nAchar3 || .@charid == $pvp5nAchar4 || .@charid == $pvp5nAchar5 || .@charid == $pvp5nBchar1 || .@charid == $pvp5nBchar2 || .@charid == $pvp5nBchar3 || .@charid == $pvp5nBchar4 || .@charid == $pvp5nBchar5) { mes .@n$; mes "You may only register once per round."; close; end; }
-
alot of cards have no effect when put on item..
Cisqua replied to Cisqua's question in Database Support
what revision are you using? im using 17100+ -
alot of cards have no effect when put on item..
Cisqua replied to Cisqua's question in Database Support
are you using renewal? -
hello. this one not working no matk when put on shues... 4441,Fallen_Bishop_Card,Fallen Bishop Hibram Card,6,20,,10,,,,,,,,64,,,,,{ bonus bMatkRate,10; bonus bMaxSPrate,-50; bonus2 bMagicAddRace,RC_Angel,50; bonus2 bMagicAddRace,RC_DemiHuman,50; },{},{} also doppel card no aspd add if you used doppel card it reduce your attack speed.. im using latest rAthena..
-
hello, pwde po ba e recompile yong rAthena into Linux ? if pwede po pano po me guide po ba? thanks
-
Hello, Diff your client that read multi GRF.. so when you run your client. your client will read both DATA folder and GRF too..
-
Hello, use this client diff "Weediff2012Pack_v5.7" use select path engine to "WeeDiffGenerator v1.0.2"