Cisqua

yup i saw debug msg in my map server ... @ AnnieRuru testnpc1 working - i said test in front of testnpc1 and npc repeat what i said. and in my map server i saw this [Debug]: script debug " accountID 110060094 : test prontera,214,179,5 script testnpc1 909,{ end; L_0: npctalk $@p2$; debugmes $@p2$; end; OnInit: defpattern 1, "([^:]+): (.*)","L_0"; activatepset 1; end; } nothings happen in this script.. prontera,190,174,5 script testnpc2 909,{ end; L_0: npctalk $@p3$; debugmes $@p3$; end; OnInit: defpattern 1, "([^:]+): (\\|[0-9][0-9])(.*)","L_0"; activatepset 1; end; } is this ok? i have notice this why its different? defpattern 1,"([^:]+):.\\s*OMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "iCorrect"; defpattern 1,"([^:]+):.*\\sOMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "iFailCheater";

config/application search for md5 change true to false.

why this script ladder like most highiest kill will be on top 1. its rumble. anybody can fix this? thanks! prontera,164,170,2 script PvP Ladder 786,{ while(1) { set .@nb, query_sql("select name, kills, deaths, class from pvpladder order by kills"+( (@menu == 2)?"/deaths":" desc" )+" limit 10", .@name$, .@kills, .@deaths, .@class ); if ( .@nb == 0 ) mes "ladder is empty"; else { for ( set .@i, 0; .@i < .@nb; set .@i, .@i +1 ) mes "^0000FF"+ (.@i+1) +": ^228B22"+ .@name$[.@i] +" ^606060"+ jobname(.@class[.@i]) +" ^006699"+ .@kills[.@i] +" / ^C80000"+ .@deaths[.@i] +"^000000"; close; } } end; // I dont think can get here anyway OnInit: delwaitingroom strnpcinfo(1); set .@nb, query_sql("select name, kills, deaths, class from pvpladder order by kills desc limit 1", .@name$, .@kills, .@deaths, .@class ); waitingroom (.@nb)? ( .@name$ +" ("+ jobname(.@class[.@i]) +") : "+ .@kills[.@i] +" / "+ .@deaths[.@i] +"" ):"PVP Ladder !", 0; end; }

thanks!

try this. monster "job_cru",00,00,"+1 Point",2005,50,"Pirate Punch Event::OnPoringKill"; monster "job_cru",00,00,"+5 Points",2005,10,"Pirate Punch Event::ondropsKill"; monster "job_cru",00,00,"+2 Points",2005,20,"Pirate Punch Event::OnFabreKill"; monster "job_cru",00,00,"-10 Points",2005,50,"Pirate Punch Event::OnPoporingKill";

anyone can modify this script.. if baselvl 90 below and job class not 2nd job like champion lord knight the npc will not count if kill or die.. so all novice will not counted on this script.. - script job_pvp -1,{ OnInit: // only 1 config lol set .gmnokill, 10; // GMs are not suppose to kill players. A GM with <this number> level or higher will do nothing. IF set to 60, GM60 and above kill any player will not get anything : 0 - off if ( .gmnokill <= 0 ) set .gmnokill, 101; // prevent bug end; OnPCKillEvent: if ( strcharinfo(3) != "guild_vs3" ) end; else if ( getgmlevel() >= .gmnokill ) end; query_sql "insert delayed into pvp_record values ( now() , "+ getcharid(0) +", '"+ escape_sql(strcharinfo(0)) +"', "+ getcharid(0, rid2name(killedrid) ) +", '"+ escape_sql(rid2name(killedrid)) +"' )"; if ( $pvprank_lastsaved$ != gettimestr("%Y_%m",15) ) { query_sql "insert delayed into pvpladder_archive select now(), name, kills, deaths, class from pvpladder order by kills desc limit 10"; query_sql "delete from pvpladder"; set $pvprank_lastsaved$, gettimestr("%Y_%m",15); donpcevent "PvP Ladder::OnInit"; } attachrid killedrid; if ( pvprank_lastsaved$ != $pvprank_lastsaved$ ) { set pvprank_lastsaved$, $pvprank_lastsaved$; set @pvpl_deaths, 0; set @pvpl_kills, 0; } set @pvpl_deaths, @pvpl_deaths +1; query_sql "replace delayed into pvpladder values ( "+ getcharid(0) +", '"+ escape_sql(strcharinfo(0)) +"', "+ @pvpl_kills +", "+ @pvpl_deaths +", "+ class +" )"; if ( killerrid == getcharid(3) ) end; // kill himself(like grandcross) doesn't add kills count attachrid killerrid; if ( pvprank_lastsaved$ != $pvprank_lastsaved$ ) { set pvprank_lastsaved$, $pvprank_lastsaved$; set @pvpl_deaths, 0; set @pvpl_kills, 0; } set @pvpl_kills, @pvpl_kills +1; query_sql "replace delayed into pvpladder values ( "+ getcharid(0) +", '"+ escape_sql(strcharinfo(0)) +"', "+ @pvpl_kills +", "+ @pvpl_deaths +", "+ class +" )"; donpcevent "PvP Ladder::OnInit"; end; OnPCLoadMapEvent: if ( strcharinfo(3) != "guild_vs3" || @pvpl_kills || @pvpl_deaths ) end; query_sql "select kills, deaths from pvpladder where char_id = "+ getcharid(0), @pvpl_kills, @pvpl_deaths; end; }

@AnnieRuru this npc working fine to my server... npc repeat what i said.. prontera,152,181,5 script dasdasd 909,{ end; L_0: npctalk $@p2$; debugmes $@p2$; end; OnInit: defpattern 1, "([^:]+): (.*)","L_0"; activatepset 1; end; } prontera,152,181,5 script dasdasd 909,{ end; L_0: npctalk $@p3$; debugmes $@p3$; end; OnInit: defpattern 1, "([^:]+): (\\|[0-9][0-9])(.*)","L_0"; activatepset 1; end; } @Emistry where do i put this code?

fixed! thanks Emistry.

ok thanks

enable_logs: 0x00400 if i used this all rare card with chance 3% below that pick by players will still log?

found bug. all monster not on the list of mvp is counted on this ladder.. please how to fix this?

Emistry how about waiting room? that display the top 1 his name and kills

why P item log in my picklog? how to disable all P item will not log?

working but Emistry how about waitingroom that display the top 1?

please help me to put job_class to this ladder? for eg: 1: Player1 [ Champion ] - 1 kill and if 2 it should be kills. show only 10 ladder. /* CREATE TABLE IF NOT EXISTS `E-MVPRank` ( `char_id` int(11) unsigned NOT NULL default '0', `name` varchar(30) NOT NULL DEFAULT '', `Count` int(11) unsigned NOT NULL default '0', PRIMARY KEY (`char_id`) ) ENGINE=MyISAM; */ fayon,90,115,5 script Sample 757,{ query_sql( "SELECT `name`,`Count` FROM `E-MVPRank` ORDER BY `Count` DESC LIMIT 5",.@Name$,.@Count ); if( getarraysize( .@Name$ ) ){ for( set .@i,0; .@i < getarraysize( .@Name$ ); set .@i,.@i + 1 ) mes "[ "+( .@i + 1 )+". ] "+.@Name$[.@i]+" - "+.@Count[.@i]+" Points"; }else{ mes "No Record Found."; } close; OnInit: setarray .mvp_list[0],1002,1002,1002,1002; for( .@i = 0; .@i < getarraysize( .mvp_list ); .@i++ ) setd( ".mvp_"+.mvp_list ),1; end; OnNPCKillEvent: if( getd( ".mvp_"+.mvp_list ) ) query_sql( "INSERT INTO `E-MVPRank` SET `char_id`='"+getcharid(0)+"',`name`='"+strcharinfo(0)+"',`Count`='1' ON DUPLICATE KEY UPDATE `Count`=`Count`+1" ); end; } ------------------------------------ this is what ive done but i have question about insert to SQL because this is no inseret job class. and i want to put waitingroom with name of the top 1. /* CREATE TABLE IF NOT EXISTS `mvp_ladder` ( `char_id` int(11) unsigned NOT NULL default '0', `name` varchar(30) NOT NULL DEFAULT '', `class` smallint(6) unsigned NOT NULL default '0', `Count` int(11) unsigned NOT NULL default '0', PRIMARY KEY (`char_id`) ) ENGINE=MyISAM; */ prontera,164,174,2 script MvP Ladder 784,{ query_sql( "SELECT `name`,`class`,`Count` FROM `mvp_ladder` ORDER BY `Count` DESC LIMIT 10",.@Name$,.@Job$,.@Count ); if( getarraysize( .@Name$ ) ){ for( set .@i,0; .@i < getarraysize( .@Name$ ); set .@i,.@i + 1 ) mes "^0000FF"+( .@i + 1 )+".^228B22"+.@Name$[.@i]+"^606060"+.@Job$[.@i]+"^FF0000"+.@Count[.@i]+" MvP's^000000"; }else{ mes "No Record Found."; } close; OnInit: setarray .mvp_list[0], 1038, // Osiris 1039, // Baphomet 1046, // Doppelganger 1059, // Mistress 1086, // Golden Thief Bug 1087, // Orc Hero 1096, // Angeling 1112, // Drake 1115, // Eddga 1120, // Ghostring 1147, // Maya 1150, // Moonlight Flower 1157, // Pharaoh 1159, // Phreeoni 1190, // Orc Lord 1251, // Stormy Knight 1252, // Hatii 1272, // Dark Lord 1312, // Turtle General 1373, // Lord of the Dead 1388, // Arc Angeling 1389, // Dracula 1418, // Evil Snake Lord 1492, // Samurai Specter 1511, // Amon Ra 1582, // Deviling 1583, // Tao Gunka 1623, // RSX-0806 1630, // White Lady 1658, // Egnigem Cenia 1685, // Vesper 1688, // Lady Tanee 1708, // Thanatos Phantom 1719, // Detardeurus 1734, // Kiel D-01 1751, // Valkyrie Randgris 1768, // Gloom Under Night 1779, // Ktullanux 1785, // Atroce 1832, // Ifrit 1871, // Falling Bishop 1873, // Beelzebub 1885, // Gopinich 2022; // Nidhoggur's Shadow for( .@i = 0; .@i < getarraysize( .mvp_list ); .@i++ ) setd( ".mvp_"+.mvp_list ),1; end; OnNPCKillEvent: if( getd( ".mvp_"+.mvp_list ) ) query_sql( "INSERT INTO `mvp_ladder` SET `char_id`='"+getcharid(0)+"',`name`='"+strcharinfo(0)+"',`Count`='1' ON DUPLICATE KEY UPDATE `Count`=`Count`+1" ); end; }

can i request here? like this ladder will show only 10 players

yup stay when log_out when character used bubble gum when log out bubble gum effect is gone.

this is my status.c but its always remove bubble_gum and battle manual status..

hahaha! yes only gm can use this if segrated some tickets.. players can use this only if they want to upgrade their account to become super player.. if players have item number 31002 they use this npc just to upgrade..

@ Capuche still they same.. npc always accepting wrong/extraletters. when players answer.

i have problem with disguise event. when the NPC disguise as a mobs. EG: poring the answer must be poring right? but if someone answer poringq12 or poringblablabla npc considered it right.. someone told me i follow this guide http://rathena.org/wiki/PCRE but still they same problems this is the script im using.. //==============================================================================// //--- 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: 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; } this is the console said when i finish my recompiling. 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... please tell me is my recompiling for PCRE is right? if wrong tell me some guide to do it thanks..

how to add 1 menu to this script that only gm can access it? //===== eAthena Script ============================================ //= Favorite Warper //===== By: ======================================================= //= ~AnnieRuru~ //===== Current Version: ========================================== //= 4.2 //===== Compatible With: ========================================== //= eAthena Trunk 14214 //===== Description: ============================================== //= Super Warper + players can store their favorite maps //===== Topic ===================================================== //= http://www.eathena.ws/board/index.php?showtopic=240936 //===== Additional Comments: ====================================== //= I just dumped all the new maps to J group, //= only after these are official in eathena only I'll add into main part //================================================================= - script warpra -1,{ OnInit: // Config Start ------------------------- // set the numbers of favorite maps player can save set .fav_size, 10; // maximum is 40... but I think no need to put that high right ? // set the minimum GM level to use favorite options // this is made to let donors (GM01~GM20) on your server can use favorite options // while normal player will see this as normal super warper set .gmlevel, 1; // allow extra custom maps on your server // menu setting inside - Others set .@menu[0], 1; // Turn Group A On/Off -> others set .@menu[1], 0; // Turn Group B On/Off set .@menu[2], 0; // Turn Group C On/Off set .@menu[3], 0; // Turn Group D On/Off set .@menu[4], 0; // Turn Group E On/Off set .@menu[5], 0; // Turn Group F On/Off set .@menu[6], 0; // Turn Group G On/Off set .@menu[7], 0; // Turn Group H On/Off set .@menu[8], 1; // Turn Group I On/Off set .@menu[9], 0; // Turn Group J On/Off -> new maps, turn on if your server support it // Note : if you wanna add more location, only add at the end of the array // DO NOT add in between ! set .customnameA$, "NPC's"; setarray .custommapA$, // <display name>, <map name>,<x>,<y> "Universal Rental NPC", "prontera",186,208, "Platinum Skill NPC", "prontera",125,208, "Build Manager NPC", "prontera",168,202, "Card Remover NPC", "prontera",144,202, "Stylist NPC", "prontera",186,199, "Healer & Buffer NPC", "prontera",181,191, "Job Master NPC", "prontera",153,191, "Mall Warper NPC", "prontera",160,191, "Reset NPC", "prontera",125,199; set .customnameB$, "B"; setarray .custommapB$, // <display name>, <map name>,<x>,<y> "market", "turbo_room",99,100, "casino", "cmd_in02",179,129; set .customnameC$, "C"; setarray .custommapC$, // <display name>, <map name>,<x>,<y> "market", "turbo_room",99,100, "casino", "cmd_in02",179,129; set .customnameD$, "D"; setarray .custommapD$, // <display name>, <map name>,<x>,<y> "market", "turbo_room",99,100, "casino", "cmd_in02",179,129; set .customnameE$, "E"; setarray .custommapE$, // <display name>, <map name>,<x>,<y> "market", "turbo_room",99,100, "casino", "cmd_in02",179,129; set .customnameF$, "F"; setarray .custommapF$, // <display name>, <map name>,<x>,<y> "market", "turbo_room",99,100, "casino", "cmd_in02",179,129; set .customnameG$, "G"; setarray .custommapG$, // <display name>, <map name>,<x>,<y> "market", "turbo_room",99,100, "casino", "cmd_in02",179,129; set .customnameH$, "H"; setarray .custommapH$, // <display name>, <map name>,<x>,<y> "market", "turbo_room",99,100, "casino", "cmd_in02",179,129; set .customnameI$, "Event Map"; setarray .custommapI$, // <display name>, <map name>,<x>,<y> "Event Map 1", "prontera",156,156, "Event Map 2", "prontera",156,156; set .customnameJ$, "new maps"; setarray .custommapJ$, // <display name>, <map name>,<x>,<y> "Brasilis", "brasilis", 201,217, "Brasilis Field 1", "bra_fild01",74,32, "Brasilis Dungeon - At the Dusk - 01", "bra_dun01",87,47, "Brasilis Dungeon - At the Dusk - 02", "bra_dun02",262,262, "El Dicastes", "dicastes01", 198,190, "El Dicastes Field 1", "dic_fild01",150,277, "El Dicastes Field 2", "dic_fild02",71,371, "El Dicastes Dungeon Level 1", "dic_dun01",367,44, "El Dicastes Dungeon Level 2", "dic_dun02",102,144; // Config Ends -------------------------------- setarray .abc$, "a","b","c","d","e","f","g","h","i","j"; while ( .@i < 10 ) { set .menu$, .menu$ + ( (.@menu[.@i])? getd(".customname"+ .abc$[.@i] +"$"):"" )+":"; if ( .@menu[.@i] ) { set .@size, getarraysize( getd(".custommap"+ .abc$[.@i] +"$") ); set .@j, 0; while ( .@j < .@size ) { setd ".menu"+ .abc$[.@i] +"$", getd(".menu"+ .abc$[.@i] +"$") + getd(".custommap"+ .abc$[.@i] +"$["+ .@j +"]") +":"; set .@j, .@j +4 ; } set .filled$[ getarraysize(.filled$) ], .abc$[.@i]; } set .@i, .@i +1 ; } if ( .fav_size > 40 ) set .fav_size, 40; end; OnWhisperGlobal: // I think need to off this ... I smell players might spam this. Uncomment to on it back if ( hp == 0 ) end; getmapxy .@map$, .@x, .@y, 0; if ( getmapflag(.@map$, mf_nowarp) ) { dispbottom "Warper : You cannot call for warper in current map."; end; } else if ( compare(@whispervar0$, "list") ) { dispbottom "Last warp - "+ @fav_warp_name$[0]; for ( set .@i, 1; .@i <= .fav_size; set .@i, .@i +1 ) dispbottom .@i +". "+ @fav_warp_name$[.@i]; end; } else if ( compare(@whispervar0$, "warp") ) { set .@num, atoi(@whispervar1$); // just for debug purpose ... // callfunc "fav_maps", @whispervar1$; // warp @map$[1], atoi(@map$[2]), atoi(@map$[3]); // deletearray @map$; // end; if ( .@num < 0 || .@num > .fav_size ) { dispbottom "Warper : Invalid number"; end; } if ( @fav_warp_name$[.@num] == "" ) { if ( .@num == 0 ) dispbottom "Warper : Your Last warp is empty !"; else dispbottom "Warper : Your slot number "+ .@num +" is empty !"; end; } callfunc "fav_maps", @fav_warp_code$[.@num]; set @fav_warp_code$[0], @fav_warp_code$[.@num]; set @fav_warp_name$[0], @map$; set fav_warp$, @fav_warp_code$[0]; for ( set .@i, 1; .@i <= .fav_size; set .@i, .@i +1 ) set fav_warp$, fav_warp$ +"#"+ @fav_warp_code$[.@i]; warp @map$[1], atoi(@map$[2]), atoi(@map$[3]); deletearray @map$; end; } doevent "Warper::OnStart"; end; OnPCLoginEvent: if ( fav_warp$ == "" ) end; set .@tmp$, "|~key~|"; // explode set .@str$, .@tmp$ + fav_warp$; set .@len, getstrlen(fav_warp$); setarray .@char$, "#", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"; while( .@len > .@s ) { set .@i, 0; while ( .@i < 37 ) { if ( compare( .@str$ , .@tmp$ + .@char$[.@i] ) ) { set .@tmp$, .@tmp$ + .@char$[.@i]; if ( .@i == 0 ) { callfunc "fav_maps", @fav_warp_code$[.@p]; set @fav_warp_name$[.@p], @map$; deletearray @map$; set .@p, .@p +1 ; } else set @fav_warp_code$[.@p], @fav_warp_code$[.@p] + .@char$[.@i]; break; } set .@i, .@i +1 ; } set .@s, .@s +1 ; if ( .@p % 5 == 4 ) sleep2 1; } callfunc "fav_maps", @fav_warp_code$[.fav_size]; set @fav_warp_name$[.fav_size], @map$; deletearray @map$; end; } - script Warper#00::Warper -1,{ OnStart: while (1) { mes "^228B22[ GreenRO Warper ]^000000"; mes "Hello "+ strcharinfo(0) +" ,"; mes "I can teleport you to any Town or Dungeon!"; mes "Where do you want to go?"; next; if ( getgmlevel() < getvariableofnpc( .gmlevel, "warpra") ) { set .@num$, callsub(L_select, 0, 1); callfunc "fav_maps", .@num$; warp @map$[1], atoi(@map$[2]), atoi(@map$[3]); deletearray @map$; end; } switch ( select ( "Favorites", "Normal warp", "Manage Favorites" ) ) { case 1: set .@menu$, "Last - "+ ( ( @fav_warp_code$[0] )?"^FF9900"+ @fav_warp_name$[0] +"^000000":"^FF0000Empty^000000"); for ( set .@i, 1; .@i <= getvariableofnpc( .fav_size, "warpra") ; set .@i, .@i +1 ) set .@menu$, .@menu$ +":"+ .@i +". "+ ( ( @fav_warp_code$[.@i] )?"^FF9900"+ @fav_warp_name$[.@i] +"^000000":"^FF0000Empty^000000"); set .@menu, select(.@menu$) -1; callfunc "fav_maps", @fav_warp_code$[.@menu]; if ( @map$ == "" ) { mes "^228B22[ GreenRO Warper ]^000000"; if ( .@menu ) mes "You haven't set for that option."; else mes "You have no previous map visited."; next; break; } set @fav_warp_code$[0], @fav_warp_code$[.@menu]; set @fav_warp_name$[0], @map$; callsub L_save; warp @map$[1], atoi(@map$[2]), atoi(@map$[3]); deletearray @map$; end; case 2: set .@num$, callsub(L_select, 0, 1); callfunc "fav_maps", .@num$; set @fav_warp_code$[0], .@num$; set @fav_warp_name$[0], @map$; callsub L_save; warp @map$[1], atoi(@map$[2]), atoi(@map$[3]); deletearray @map$; end; case 3: mes "^228B22[ GreenRO Warper ]^000000"; mes "^6600FF*Manage Your Favorite Maps*^000000"; next; set .@menu$, "Last - "+ ( ( @fav_warp_code$[0] )?"^FF9900"+ @fav_warp_name$[0] +"^000000":"^FF0000Empty^000000"); for ( set .@i, 1; .@i <= getvariableofnpc( .fav_size, "warpra"); set .@i, .@i +1 ) set .@menu$, .@menu$ +":"+ .@i +". "+ ( ( @fav_warp_code$[.@i] )?"^FF9900"+ @fav_warp_name$[.@i] +"^000000":"^FF0000Empty^000000"); set .@menu, select(.@menu$) -1; set .@num$, callsub(L_select, (.@menu)?1:0, 0); if ( .@num$ == "delete" ) { set @fav_warp_code$[.@menu], ""; set @fav_warp_name$[.@menu], ""; mes "^228B22[ GreenRO Warper ]^000000"; mes "Your^996600 slot number "+ .@menu +" ^FF0000is removed^000000"; } else { callfunc "fav_maps", .@num$; set @fav_warp_code$[.@menu], .@num$; set @fav_warp_name$[.@menu], @map$; mes "^228B22[ GreenRO Warper ]^000000"; if ( .@menu ) mes "Your^996600 slot number "+ .@menu +"^000000 set to"; else mes "Your ^996600Last warp^000000 set to"; mes "^FF9900"+ @map$ +"^000000"; } callsub L_save; deletearray @map$; next; break; } } end; L_save: // implode set fav_warp$, @fav_warp_code$[0]; for ( set .@i, 1; .@i <= getvariableofnpc( .fav_size, "warpra"); set .@i, .@i +1 ) set fav_warp$, fav_warp$ +"#"+ @fav_warp_code$[.@i]; return; L_select: set .@warp1, select ( "Town", "Fields", "Dungeon", "Guild Castles", "Others", ( getarg(0) )?"^FF0000Remove^000000":"" ); switch ( .@warp1 ) { case 1: set .@warp1$, "t"; set .@warp2, select ( "Alberta", "Aldebaran", "Amatsu", "Ayothaya", "Comodo", "Einbech (Mining Village)", "Einbroch", "Geffen", "Gonryun", "Hugel", "Izlude", "Jawaii", "Lighthalzen", "Louyang", "Lutie", "Manuk", "Midgarts Expedition Camp", "Morroc", "Moscovia", "Nameless Island", "Niflheim", "Payon", "Prontera", "Rachel", "Splendide", "Thor Camp", "Umbala", "Veins", "Yuno" ); switch ( .@warp2 ) { case 1: set .@warp2$, "ab"; break; case 2: set .@warp2$, "ad"; break; case 3: set .@warp2$, "am"; break; case 4: set .@warp2$, "ay"; break; case 5: set .@warp2$, "co"; break; case 6: set .@warp2$, "ei"; break; case 7: set .@warp2$, "er"; break; case 8: set .@warp2$, "ge"; break; case 9: set .@warp2$, "go"; break; case 10: set .@warp2$, "hu"; break; case 11: set .@warp2$, "iz"; break; case 12: set .@warp2$, "ja"; break; case 13: set .@warp2$, "li"; break; case 14: set .@warp2$, "lo"; break; case 15: set .@warp2$, "lu"; break; case 16: set .@warp2$, "ma"; break; case 17: set .@warp2$, "mi"; break; case 18: set .@warp2$, "mo"; break; case 19: set .@warp2$, "ms"; break; case 20: set .@warp2$, "na"; break; case 21: set .@warp2$, "ni"; break; case 22: set .@warp2$, "pa"; break; case 23: set .@warp2$, "pr"; break; case 24: set .@warp2$, "ra"; break; case 25: set .@warp2$, "sp"; break; case 26: set .@warp2$, "th"; break; case 27: set .@warp2$, "um"; break; case 28: set .@warp2$, "ve"; break; case 29: set .@warp2$, "yu"; break; default: } break; case 2: set .@warp1$, "f"; set .@warp2, select ( "Amatsu Fields", "Ayothaya Fields", "Comodo Fields", "Einbroch Fields", "Geffen Fields", "Gonryun Fields", "Hugel Fields", "Lighthalzen Fields", "Louyang Field", "Lutie Field", "Manuk Fields", "Mjolnir Fields", "Niflheim Fields", "Odin Temple", "Payon Forests", "Prontera Fields", "Rachel Fields", "Sograt Deserts", "Splendide Fields", "Umbala Fields", "Veins Fields", "Yuno Fields" ); if ( getarg(1) ) { mes "^228B22[ GreenRO Warper ]^000000"; mes "Please select a Field. You will be warped to the center of that map."; next; } switch ( .@warp2 ) { case 1: set .@warp2$, "am"; set .@warp3, select( "Amatsu Field 1" ); break; case 2: set .@warp2$, "ay"; set .@warp3, select( "Ayothaya Field 1", "Ayothaya Field 2" ); break; case 3: set .@warp2$, "co"; set .@warp3, select( "Comodo Field 1", "Comodo Field 2", "Comodo Field 3", "Comodo Field 4", "Comodo Field 5", "Comodo Field 6", "Comodo Field 7", "Comodo Field 8", "Comodo Field 9" ); break; case 4: set .@warp2$, "ei"; set .@warp3, select( "Einbroch Field 1", "Einbroch Field 2", "Einbroch Field 3", "Einbroch Field 4", "Einbroch Field 5", "Einbroch Field 6", "Einbroch Field 7", "Einbroch Field 8", "Einbroch Field 9", "Einbroch Field 10" ); break; case 5: set .@warp2$, "ge"; set .@warp3, select( "Geffen Field 0", "Geffen Field 1", "Geffen Field 2", "Geffen Field 3", "Geffen Field 4", "Geffen Field 5", "Geffen Field 6", "Geffen Field 7", "Geffen Field 8", "Geffen Field 9", "Geffen Field 10", "Geffen Field 11", "Geffen Field 12", "Geffen Field 13", "Geffen Field 14" ); break; case 6: set .@warp2$, "go"; set .@warp3, select( "Gonryun Field 1" ); break; case 7: set .@warp2$, "hu"; set .@warp3, select( "Hugel Field 1", "Hugel Field 2", "Hugel Field 3", "Hugel Field 4", "Hugel Field 5", "Hugel Field 6", "Hugel Field 7" ); break; case 8: set .@warp2$, "li"; set .@warp3, select( "Lighthalzen Field 1", "Lighthalzen Field 2", "Lighthalzen Field 3" ); break; case 9: set .@warp2$, "lo"; set .@warp3, select( "Louyang Field 1" ); break; case 10: set .@warp2$, "lu"; set .@warp3, select( "Lutie Field 1" ); break; case 11: set .@warp2$, "ma"; set .@warp3, select( "Manuk Field 1", "Manuk Field 2", "Manuk Field 3" ); break; case 12: set .@warp2$, "mj"; set .@warp3, select( "Mjolnir Field 1", "Mjolnir Field 2", "Mjolnir Field 3", "Mjolnir Field 4", "Mjolnir Field 5", "Mjolnir Field 6", "Mjolnir Field 7", "Mjolnir Field 8", "Mjolnir Field 9", "Mjolnir Field 10", "Mjolnir Field 11", "Mjolnir Field 12" ); break; case 13: set .@warp2$, "ni"; set .@warp3, select( "Niflheim Field 1", "Niflheim Field 2" ); break; case 14: set .@warp2$, "od"; set .@warp3, select( "Odin Temple 1", "Odin Temple 2", "Odin Temple 3" ); break; case 15: set .@warp2$, "pa"; set .@warp3, select( "Payon Forest 1", "Payon Forest 2", "Payon Forest 3", "Payon Forest 4", "Payon Forest 5", "Payon Forest 6", "Payon Forest 7", "Payon Forest 8", "Payon Forest 9", "Payon Forest 10", "Payon Forest 11" ); break; case 16: set .@warp2$, "pr"; set .@warp3, select( "Prontera Field 0", "Prontera Field 1", "Prontera Field 2", "Prontera Field 3", "Prontera Field 4", "Prontera Field 5", "Prontera Field 6", "Prontera Field 7", "Prontera Field 8", "Prontera Field 9", "Prontera Field 10", "Prontera Field 11" ); break; case 17: set .@warp2$, "ra"; set .@warp3, select( "Rachel Field 1", "Rachel Field 2", "Rachel Field 3", "Rachel Field 4", "Rachel Field 5", "Rachel Field 6", "Rachel Field 7", "Rachel Field 8", "Rachel Field 9", "Rachel Field 10", "Rachel Field 11", "Rachel Field 12", "Rachel Field 13" ); break; case 18: set .@warp2$, "so"; set .@warp3, select( "Sograt Desert 1", "Sograt Desert 2", "Sograt Desert 3", "Sograt Desert 4", "Sograt Desert 5", "Sograt Desert 6", "Sograt Desert 7", "Sograt Desert 8", "Sograt Desert 9", "Sograt Desert 10", "Sograt Desert 11", "Sograt Desert 12", "Sograt Desert 13", "Sograt Desert 14", "Sograt Desert 15", "Sograt Desert 16", "Sograt Desert 17", "Sograt Desert 18", "Sograt Desert 19", "Sograt Desert 20", "Sograt Desert 21", "Sograt Desert 22" ); break; case 19: set .@warp2$, "sp"; set .@warp3, select( "Splendide Field 1", "Splendide Field 2", "Splendide Field 3" ); break; case 20: set .@warp2$, "um"; set .@warp3, select( "Umbala Field 1", "Umbala Field 2", "Umbala Field 3", "Umbala Field 4" ); break; case 21: set .@warp2$, "ve"; set .@warp3, select( "Veins Field 1", "Veins Field 2", "Veins Field 3", "Veins Field 4", "Veins Field 5", "Veins Field 6", "Veins Field 7" ); break; case 22: set .@warp2$, "yu"; set .@warp3, select( "Yuno Field 1", "Yuno Field 2", "Yuno Field 3", "Yuno Field 4", "Yuno Field 5", "Yuno Field 6", "Yuno Field 7", "Yuno Field 8", "Yuno Field 9", "Yuno Field 10", "Yuno Field 11", "Yuno Field 12" ); break; default: } set .@warp3$, ( .@warp3 < 10 )?"0"+ .@warp3:.@warp3; break; case 3: set .@warp1$, "d"; set .@warp2, select ( "Abbey, Cursed Monastery", "Abyss Lakes", "Amatsu Dungeon", "Anthell", "Ayothaya Dungeon", "Beach Dungeon", "Byalan Dungeon", "Clock Tower", "Coal Mines", "Culverts", "Einbroch Dungeon", "Gefenia", "Geffen Dungeon", "Glast Heim", "Gonryun Dungeon", "Hidden Dungeon", "Ice Cave", "Juperos Dungeon", "Kiel Dungeon", "Lighthalzen", "Louyang Dungeon", "Magma Dungeon", "Moscovia Dungeon", "Orc Dungeon", "Payon Dungeon", "Pyramids", "Rachel Sanctuary", "Sphinx", "Sunken Ship", "Thanatos Tower", "Thor Volcano", "Toy Factory", "Turtle Dungeon", "Umbala Dungeon" ); if ( getarg(1) ) { mes "^228B22[ GreenRO Warper ]^000000"; mes "Please select a Level. Beware that you will be warped directly into the dungeon."; next; } switch ( .@warp2 ) { case 1: set .@warp2$, "ab"; set .@warp3, select( "Cursed Abbey Dungeon - Level 1", "Cursed Abbey Dungeon - Level 2", "Cursed Abbey Dungeon - Level 3" ); break; case 2: set .@warp2$, "ai"; set .@warp3, select( "Abyss Lakes Underground Cave F1", "Abyss Lakes Underground Cave F2", "Abyss Lakes Underground Cave F3" ); break; case 3: set .@warp2$, "am"; set .@warp3, select( "Amatsu Dungeon - Level 1", "Amatsu Dungeon - Level 2", "Amatsu Dungeon - Level 3" ); break; case 4: set .@warp2$, "an"; set .@warp3, select( "Anthell F1", "Anthell F2" ); break; case 5: set .@warp2$, "ay"; set .@warp3, select( "Ayothaya - Ancient Shrine Maze", "Ayothaya - Inside Ancient Shrine" ); break; case 6: set .@warp2$, "be"; set .@warp3, select( "Beach Dungeon - Karu, west cave", "Beach Dungeon - Ruande, north cave", "Beach Dungeon - Mao, east cave" ); break; case 7: set .@warp2$, "by"; set .@warp3, select( "Byalan Dungeon - Undersea Tunnel F1", "Byalan Dungeon - Undersea Tunnel F2", "Byalan Dungeon - Undersea Tunnel F3", "Byalan Dungeon - Undersea Tunnel F4", "Byalan Dungeon - Undersea Tunnel F5" ); break; case 8: set .@warp2$, "cl"; set .@warp3, select( "Clock Tower F1", "Clock Tower F2", "Clock Tower F3", "Clock Tower F4", "Clock Tower B1", "Clock Tower B2", "Clock Tower B3", "Clock Tower B4" ); break; case 9: set .@warp2$, "co"; set .@warp3, select( "Coal Mines - Mjolnir Dead Pit F1", "Coal Mines - Mjolnir Dead Pit F2", "Coal Mines - Mjolnir Dead Pit F3" ); break; case 10: set .@warp2$, "cu"; set .@warp3, select( "Prontera Culvert F1", "Prontera Culvert F2", "Prontera Culvert F3", "Prontera Culvert F4" ); break; case 11: set .@warp2$, "ei"; set .@warp3, select( "Einbroch Dungeon - Mine Dungeon F1", "Einbroch Dungeon - Mine Dungeon F2" ); break; case 12: set .@warp2$, "ge"; set .@warp3, select( "Gefenia - Level 1", "Gefenia - Level 2", "Gefenia - Level 3", "Gefenia - Level 4" ); break; case 13: set .@warp2$, "gf"; set .@warp3, select( "Geffen Dungeon F1", "Geffen Dungeon F2", "Geffen Dungeon F3", "Geffen Dungeon F4" ); break; case 14: set .@warp2$, "gl"; set .@warp3, select( "Glast Heim - Entrance", "Glast Heim - Castle F1", "Glast Heim - Castle F2", "Glast Heim - Chivalry F1", "Glast Heim - Chivalry F2", "Glast Heim - St.Abbey", "Glast Heim - Churchyard", "Glast Heim - Culvert F1", "Glast Heim - Culvert F2", "Glast Heim - Culvert F3", "Glast Heim - Culvert F4", "Glast Heim - Staircase Dungeon", "Glast Heim - Underground Cave 1", "Glast Heim - Underground Cave 2", "Glast Heim - Underground Prison 1", "Glast Heim - Underground Prison 2" ); break; case 15: set .@warp2$, "go"; set .@warp3, select( "Gonryun Dungeon - Level 1", "Gonryun Dungeon - Level 2", "Gonryun Dungeon - Level 3" ); break; case 16: set .@warp2$, "hi"; set .@warp3, select( "Hidden Dungeon - Labyrinth Forest F1", "Hidden Dungeon - Labyrinth Forest F2", "Hidden Dungeon - Labyrinth Forest F3" ); break; case 17: set .@warp2$, "ic"; set .@warp3, select( "Ice Cave F1", "Ice Cave F2", "Ice Cave F3", "Ice Cave F4" ); break; case 18: set .@warp2$, "ju"; set .@warp3, select( "The Ruins of Juperos F1", "The Ruins of Juperos F2", "Center of Juperos" ); break; case 19: set .@warp2$, "ki"; set .@warp3, select( "Kiel Dungeon - Robot Factory Level 1", "Kiel Dungeon - Robot Factory Level 2" ); break; case 20: set .@warp2$, "li"; set .@warp3, select( "Lighthalzen - Somatology Labotory F1", "Lighthalzen - Somatology Labotory F2", "Lighthalzen - Somatology Labotory F3" ); break; case 21: set .@warp2$, "lo"; set .@warp3, select( "Louyang Dungeon - Level 1", "Louyang Dungeon - Level 2", "Louyang Dungeon - Level 3" ); break; case 22: set .@warp2$, "ma"; set .@warp3, select( "Magma Dungeon - Nogg Road F1", "Magma Dungeon - Nogg Road F2" ); break; case 23: set .@warp2$, "mo"; set .@warp3, select( "Moscovia Dungeon - Level 1", "Moscovia Dungeon - Level 2", "Moscovia Dungeon - Level 3" ); break; case 24: set .@warp2$, "or"; set .@warp3, select( "Orc Dungeon F1", "Orc Dungeon F2" ); break; case 25: set .@warp2$, "pa"; set .@warp3, select( "Payon Cave F1", "Payon Cave F2", "Payon Cave F3", "Payon Cave F4", "Payon Cave F5" ); break; case 26: set .@warp2$, "py"; set .@warp3, select( "Inside Pyramids F1", "Inside Pyramids F2", "Inside Pyramids F3", "Inside Pyramids F4", "Inside Pyramids B1", "Inside Pyramids B2" ); break; case 27: set .@warp2$, "ra"; set .@warp3, select( "Rachel Sanctuary - Level 1", "Rachel Sanctuary - Level 2", "Rachel Sanctuary - Level 3", "Rachel Sanctuary - Level 4", "Rachel Sanctuary - Level 5" ); break; case 28: set .@warp2$, "sp"; set .@warp3, select( "Sphinx F1", "Sphinx F2", "Sphinx F3", "Sphinx F4", "Sphinx F5" ); break; case 29: set .@warp2$, "su"; set .@warp3, select( "Sunken Ship F1", "Sunken Ship F2" ); break; case 30: set .@warp2$, "ta"; set .@warp3, select( "Thanatos Tower - Level 1", "Thanatos Tower - Level 2", "Thanatos Tower - Level 3", "Thanatos Tower - Level 4", "Thanatos Tower - Level 5", "Thanatos Tower - Level 6", "Thanatos Tower - Level 7", "Thanatos Tower - Level 8", "Thanatos Tower - Level 9", "Thanatos Tower - Level 10", "Thanatos Tower - Level 11", "Thanatos Tower - Level 12" ); break; case 31: set .@warp2$, "th"; set .@warp3, select( "Thor's Volcano Dungeon F1", "Thor's Volcano Dungeon F2", "Thor's Volcano Dungeon F3" ); break; case 32: set .@warp2$, "to"; set .@warp3, select( "Toy Factory - Level 1", "Toy Factory - Level 2" ); break; case 33: set .@warp2$, "tu"; set .@warp3, select( "Turtle Dungeon - Entrance", "Turtle Dungeon - Level 1", "Turtle Dungeon - Level 2", "Turtle Dungeon - Level 3" ); break; case 34: set .@warp2$, "um"; set .@warp3, select( "Umbala Dungeon - Level 1", "Umbala Dungeon - Level 2" ); break; default: } set .@warp3$, ( .@warp3 < 10 )?"0"+ .@warp3:.@warp3; break; case 4: set .@warp1$, "w"; set .@warp2, select ( "War of Emperium Castles", // "WOE.SE Castles" ); "" ); switch ( .@warp2 ) { case 1: set .@warp2$, "fi"; set .@warp3, select ( // "Neuschwanstein - Aldebaran Castle 1", // "Hohenschwangau - Aldebaran Castle 2", // "Nuenberg - Aldebaran Castle 3", // "Wuerzburg - Aldebaran Castle 4", // "Rothenburg - Aldebaran Castle 5", // "Repherion - Geffen Castle 1", // "Eeyolbriggar - Geffen Castle 2", // "Yesnelph - Geffen Castle 3", // "Bergel - Geffen Castle 4", // "Mersetzdeitz - Geffen Castle 5", // "Bright Arbor - Payon Castle 1", // "Scarlet Palace - Payon Castle 2", // "Holy Shadow - Payon Castle 3", // "Sacred Altar - Payon Castle 4", // "Bamboo Grove Hill - Payon Castle 5", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "Kriemhild - Prontera Castle 1", "Swanhild - Prontera Castle 2", "Fadhgridh - Prontera Castle 3", "Skoegul - Prontera Castle 4", "Gondul - Prontera Castle 5" ); break; case 2: set .@warp2$, "se"; set .@warp3, select ( "Himinn - Schwaltzvalt Castle 1", "Andlangr - Schwaltzvalt Castle 2", "Viblainn - Schwaltzvalt Castle 3", "Hljod - Schwaltzvalt Castle 4", "Skidbladnir - Schwaltzvalt Castle 5", "Mardol - Arunafeltz Castle 1", "Cyr - Arunafeltz Castle 2", "Horn - Arunafeltz Castle 3", "Gefn - Arunafeltz Castle 4", "Bandis - Arunafeltz Castle 5" ); break; default: } set .@warp3$, ( .@warp3 < 10 )?"0"+ .@warp3:.@warp3; break; case 5: set .@warp1$, "o"; set .@warp2, select ( getvariableofnpc( .menu$, "warpra") ) -1; set .@abc$, getvariableofnpc( .abc$[.@warp2], "warpra"); set .@warp2$, .@abc$; set .@warp3, select ( getvariableofnpc( getd(".menu"+ .@abc$ +"$"), "warpra") ); set .@warp3$, ( .@warp3 < 10 )?"0"+ .@warp3:.@warp3; break; case 6: set .@warp1$, "delete"; } return .@warp1$ + .@warp2$ + .@warp3$; } function script fav_maps { deletearray @map$; set .@tmp$, "|~key~|"; set .@str$, .@tmp$ + getarg(0); if ( compare( .@str$ , .@tmp$ + "t" ) ) { if ( compare( .@str$, .@tmp$ +"tab" ) ) setarray @map$, "Alberta", "alberta",28,234; else if ( compare( .@str$, .@tmp$ +"tad" ) ) setarray @map$, "Aldebaran", "aldebaran",140,131; else if ( compare( .@str$, .@tmp$ +"tam" ) ) setarray @map$, "Amatsu", "amatsu",198,84; else if ( compare( .@str$, .@tmp$ +"tay" ) ) setarray @map$, "Ayothaya", "ayothaya",151,117; else if ( compare( .@str$, .@tmp$ +"tco" ) ) setarray @map$, "Comodo", "comodo",209,143; else if ( compare( .@str$, .@tmp$ +"tei" ) ) setarray @map$, "Einbech (Mining Village)", "einbech",70,95; else if ( compare( .@str$, .@tmp$ +"ter" ) ) setarray @map$, "Einbroch", "einbroch",64,200; else if ( compare( .@str$, .@tmp$ +"tge" ) ) setarray @map$, "Geffen", "geffen",119,59; else if ( compare( .@str$, .@tmp$ +"tgo" ) ) setarray @map$, "Gonryun", "gonryun",160,121; else if ( compare( .@str$, .@tmp$ +"thu" ) ) setarray @map$, "Hugel", "hugel",96,145; else if ( compare( .@str$, .@tmp$ +"tiz" ) ) setarray @map$, "Izlude", "izlude",128,114; else if ( compare( .@str$, .@tmp$ +"tja" ) ) setarray @map$, "Jawaii", "jawaii",177,171; else if ( compare( .@str$, .@tmp$ +"tli" ) ) setarray @map$, "Lighthalzen", "lighthalzen",158,92; else if ( compare( .@str$, .@tmp$ +"tlo" ) ) setarray @map$, "Louyang", "louyang",217,107; else if ( compare( .@str$, .@tmp$ +"tlu" ) ) setarray @map$, "Lutie", "xmas",147,134; else if ( compare( .@str$, .@tmp$ +"tma" ) ) setarray @map$, "Manuk", "manuk",276,122; else if ( compare( .@str$, .@tmp$ +"tmi" ) ) setarray @map$, "Midgarts Expedition Camp", "mid_camp",210,288; else if ( compare( .@str$, .@tmp$ +"tmo" ) ) setarray @map$, "Morroc", "morocc",156,93; else if ( compare( .@str$, .@tmp$ +"tms" ) ) setarray @map$, "Moscovia", "moscovia",156,93; else if ( compare( .@str$, .@tmp$ +"tna" ) ) setarray @map$, "Nameless Island", "nameless_n",256,215; else if ( compare( .@str$, .@tmp$ +"tni" ) ) setarray @map$, "Niflheim", "niflheim",85,154; else if ( compare( .@str$, .@tmp$ +"tpa" ) ) setarray @map$, "Payon", "payon",170,98; else if ( compare( .@str$, .@tmp$ +"tpr" ) ) setarray @map$, "Prontera", "prontera",155,183; else if ( compare( .@str$, .@tmp$ +"tra" ) ) setarray @map$, "Rachel", "rachel",130,137; else if ( compare( .@str$, .@tmp$ +"tsp" ) ) setarray @map$, "Splendide", "splendide",208,158; else if ( compare( .@str$, .@tmp$ +"tth" ) ) setarray @map$, "Thor Camp", "thor_camp",254,90; else if ( compare( .@str$, .@tmp$ +"tve" ) ) setarray @map$, "Veins", "veins",216,123; else if ( compare( .@str$, .@tmp$ +"tyu" ) ) setarray @map$, "Yuno", "yuno",157,51; else if ( compare( .@str$, .@tmp$ +"tum" ) ) setarray @map$, "Umbala", "umbala",145,155; } else if ( compare( .@str$ , .@tmp$ + "f" ) ) { if ( compare( .@str$, .@tmp$ +"fam" ) ) { if ( compare( .@str$, .@tmp$ +"fam01" ) ) setarray @map$, "Amatsu Field 1", "ama_fild01",190,197; } else if ( compare( .@str$, .@tmp$ +"fay" ) ) { if ( compare( .@str$, .@tmp$ +"fay01" ) ) setarray @map$, "Ayothaya Field 1", "ayo_fild01",173,134; else if ( compare( .@str$, .@tmp$ +"fay02" ) ) setarray @map$, "Ayothaya Field 2", "ayo_fild02",212,150; } else if ( compare( .@str$, .@tmp$ +"fco" ) ) { if ( compare( .@str$, .@tmp$ +"fco01" ) ) setarray @map$, "Comodo Field 1", "cmd_fild01",180,178; else if ( compare( .@str$, .@tmp$ +"fco02" ) ) setarray @map$, "Comodo Field 2", "cmd_fild02",231,160; else if ( compare( .@str$, .@tmp$ +"fco03" ) ) setarray @map$, "Comodo Field 3", "cmd_fild03",191,172; else if ( compare( .@str$, .@tmp$ +"fco04" ) ) setarray @map$, "Comodo Field 4", "cmd_fild04",228,194; else if ( compare( .@str$, .@tmp$ +"fco05" ) ) setarray @map$, "Comodo Field 5", "cmd_fild05",224,203; else if ( compare( .@str$, .@tmp$ +"fco06" ) ) setarray @map$, "Comodo Field 6", "cmd_fild06",190,223; else if ( compare( .@str$, .@tmp$ +"fco07" ) ) setarray @map$, "Comodo Field 7", "cmd_fild07",234,177; else if ( compare( .@str$, .@tmp$ +"fco08" ) ) setarray @map$, "Comodo Field 8", "cmd_fild08",194,175; else if ( compare( .@str$, .@tmp$ +"fco09" ) ) setarray @map$, "Comodo Field 9", "cmd_fild09",172,172; } else if ( compare( .@str$, .@tmp$ +"fei" ) ) { if ( compare( .@str$, .@tmp$ +"fei01" ) ) setarray @map$, "Einbroch Field 1", "ein_fild01",142,225; else if ( compare( .@str$, .@tmp$ +"fei02" ) ) setarray @map$, "Einbroch Field 2", "ein_fild02",182,141; else if ( compare( .@str$, .@tmp$ +"fei03" ) ) setarray @map$, "Einbroch Field 3", "ein_fild03",187,228; else if ( compare( .@str$, .@tmp$ +"fei04" ) ) setarray @map$, "Einbroch Field 4", "ein_fild04",185,173; else if ( compare( .@str$, .@tmp$ +"fei05" ) ) setarray @map$, "Einbroch Field 5", "ein_fild05",216,173; else if ( compare( .@str$, .@tmp$ +"fei06" ) ) setarray @map$, "Einbroch Field 6", "ein_fild06",195,148; else if ( compare( .@str$, .@tmp$ +"fei07" ) ) setarray @map$, "Einbroch Field 7", "ein_fild07",272,220; else if ( compare( .@str$, .@tmp$ +"fei08" ) ) setarray @map$, "Einbroch Field 8", "ein_fild08",173,214; else if ( compare( .@str$, .@tmp$ +"fei09" ) ) setarray @map$, "Einbroch Field 9", "ein_fild09",207,174; else if ( compare( .@str$, .@tmp$ +"fei10" ) ) setarray @map$, "Einbroch Field 10", "ein_fild10",196,200; } else if ( compare( .@str$, .@tmp$ +"fge" ) ) { if ( compare( .@str$, .@tmp$ +"fge01" ) ) setarray @map$, "Geffen Field 0", "gef_fild00",46,199; else if ( compare( .@str$, .@tmp$ +"fge02" ) ) setarray @map$, "Geffen Field 1", "gef_fild01",213,204; else if ( compare( .@str$, .@tmp$ +"fge03" ) ) setarray @map$, "Geffen Field 2", "gef_fild02",195,212; else if ( compare( .@str$, .@tmp$ +"fge04" ) ) setarray @map$, "Geffen Field 3", "gef_fild03",257,192; else if ( compare( .@str$, .@tmp$ +"fge05" ) ) setarray @map$, "Geffen Field 4", "gef_fild04",188,171; else if ( compare( .@str$, .@tmp$ +"fge06" ) ) setarray @map$, "Geffen Field 5", "gef_fild05",166,263; else if ( compare( .@str$, .@tmp$ +"fge07" ) ) setarray @map$, "Geffen Field 6", "gef_fild06",248,158; else if ( compare( .@str$, .@tmp$ +"fge08" ) ) setarray @map$, "Geffen Field 7", "gef_fild07",195,191; else if ( compare( .@str$, .@tmp$ +"fge09" ) ) setarray @map$, "Geffen Field 8", "gef_fild08",186,183; else if ( compare( .@str$, .@tmp$ +"fge10" ) ) setarray @map$, "Geffen Field 9", "gef_fild09",221,117; else if ( compare( .@str$, .@tmp$ +"fge11" ) ) setarray @map$, "Geffen Field 10", "gef_fild10",178,218; else if ( compare( .@str$, .@tmp$ +"fge12" ) ) setarray @map$, "Geffen Field 11", "gef_fild11",136,328; else if ( compare( .@str$, .@tmp$ +"fge13" ) ) setarray @map$, "Geffen Field 12", "gef_fild12",240,181; else if ( compare( .@str$, .@tmp$ +"fge14" ) ) setarray @map$, "Geffen Field 13", "gef_fild13",235,235; else if ( compare( .@str$, .@tmp$ +"fge15" ) ) setarray @map$, "Geffen Field 14", "gef_fild14",211,185; } else if ( compare( .@str$, .@tmp$ +"fgo" ) ) { if ( compare( .@str$, .@tmp$ +"fgo01" ) ) setarray @map$, "Gonryun Field 1", "gon_fild01",220,227; } else if ( compare( .@str$, .@tmp$ +"fhu" ) ) { if ( compare( .@str$, .@tmp$ +"fhu01" ) ) setarray @map$, "Hugel Field 1", "hu_fild01",268,101; else if ( compare( .@str$, .@tmp$ +"fhu02" ) ) setarray @map$, "Hugel Field 2", "hu_fild02",222,193; else if ( compare( .@str$, .@tmp$ +"fhu03" ) ) setarray @map$, "Hugel Field 3", "hu_fild03",232,185; else if ( compare( .@str$, .@tmp$ +"fhu04" ) ) setarray @map$, "Hugel Field 4", "hu_fild04",252,189; else if ( compare( .@str$, .@tmp$ +"fhu05" ) ) setarray @map$, "Hugel Field 5", "hu_fild05",196,106; else if ( compare( .@str$, .@tmp$ +"fhu06" ) ) setarray @map$, "Hugel Field 6", "hu_fild06",216,220; else if ( compare( .@str$, .@tmp$ +"fhu07" ) ) setarray @map$, "Hugel Field 7", "hu_fild07",227,197; } else if ( compare( .@str$, .@tmp$ +"fli" ) ) { if ( compare( .@str$, .@tmp$ +"fli01" ) ) setarray @map$, "Lighthalzen Field 1", "lhz_fild01",240,179; else if ( compare( .@str$, .@tmp$ +"fli02" ) ) setarray @map$, "Lighthalzen Field 2", "lhz_fild02",185,235; else if ( compare( .@str$, .@tmp$ +"fli03" ) ) setarray @map$, "Lighthalzen Field 3", "lhz_fild03",240,226; } else if ( compare( .@str$, .@tmp$ +"flo" ) ) { if ( compare( .@str$, .@tmp$ +"flo01" ) ) setarray @map$, "Louyang Field 1", "lou_fild01",229,187; } else if ( compare( .@str$, .@tmp$ +"flu" ) ) { if ( compare( .@str$, .@tmp$ +"flu01" ) ) setarray @map$, "Lutie Field 1", "xmas_fild01",115,145; } else if ( compare( .@str$, .@tmp$ +"fma" ) ) { if ( compare( .@str$, .@tmp$ +"fma01" ) ) setarray @map$, "Manuk Field 1", "man_fild01",36,238; else if ( compare( .@str$, .@tmp$ +"fma02" ) ) setarray @map$, "Manuk Field 2", "man_fild02",133,55; else if ( compare( .@str$, .@tmp$ +"fma03" ) ) setarray @map$, "Manuk Field 3", "man_fild03",79,363; } else if ( compare( .@str$, .@tmp$ +"fmj" ) ) { if ( compare( .@str$, .@tmp$ +"fmj01" ) ) setarray @map$, "Mjolnir Field 1", "mjolnir_01",204,120; else if ( compare( .@str$, .@tmp$ +"fmj02" ) ) setarray @map$, "Mjolnir Field 2", "mjolnir_02",175,193; else if ( compare( .@str$, .@tmp$ +"fmj03" ) ) setarray @map$, "Mjolnir Field 3", "mjolnir_03",208,213; else if ( compare( .@str$, .@tmp$ +"fmj04" ) ) setarray @map$, "Mjolnir Field 4", "mjolnir_04",179,180; else if ( compare( .@str$, .@tmp$ +"fmj05" ) ) setarray @map$, "Mjolnir Field 5", "mjolnir_05",181,240; else if ( compare( .@str$, .@tmp$ +"fmj06" ) ) setarray @map$, "Mjolnir Field 6", "mjolnir_06",195,270; else if ( compare( .@str$, .@tmp$ +"fmj07" ) ) setarray @map$, "Mjolnir Field 7", "mjolnir_07",235,202; else if ( compare( .@str$, .@tmp$ +"fmj08" ) ) setarray @map$, "Mjolnir Field 8", "mjolnir_08",188,215; else if ( compare( .@str$, .@tmp$ +"fmj09" ) ) setarray @map$, "Mjolnir Field 9", "mjolnir_09",205,144; else if ( compare( .@str$, .@tmp$ +"fmj10" ) ) setarray @map$, "Mjolnir Field 10", "mjolnir_10",245,223; else if ( compare( .@str$, .@tmp$ +"fmj11" ) ) setarray @map$, "Mjolnir Field 11", "mjolnir_11",180,206; else if ( compare( .@str$, .@tmp$ +"fmj12" ) ) setarray @map$, "Mjolnir Field 12", "mjolnir_12",196,208; } else if ( compare( .@str$, .@tmp$ +"fni" ) ) { if ( compare( .@str$, .@tmp$ +"fni01" ) ) setarray @map$, "Niflheim Field 1", "nif_fild01",215,229; else if ( compare( .@str$, .@tmp$ +"fni02" ) ) setarray @map$, "Niflheim Field 2", "nif_fild02",167,234; } else if ( compare( .@str$, .@tmp$ +"fod" ) ) { if ( compare( .@str$, .@tmp$ +"fod01" ) ) setarray @map$, "Odin Temple 1", "odin_tem01",298,167; else if ( compare( .@str$, .@tmp$ +"fod02" ) ) setarray @map$, "Odin Temple 2", "odin_tem02",224,149; else if ( compare( .@str$, .@tmp$ +"fod03" ) ) setarray @map$, "Odin Temple 3", "odin_tem03",266,280; } else if ( compare( .@str$, .@tmp$ +"fpa" ) ) { if ( compare( .@str$, .@tmp$ +"fpa01" ) ) setarray @map$, "Payon Forest 1", "pay_fild01",158,206; else if ( compare( .@str$, .@tmp$ +"fpa02" ) ) setarray @map$, "Payon Forest 2", "pay_fild02",151,219; else if ( compare( .@str$, .@tmp$ +"fpa03" ) ) setarray @map$, "Payon Forest 3", "pay_fild03",205,148; else if ( compare( .@str$, .@tmp$ +"fpa04" ) ) setarray @map$, "Payon Forest 4", "pay_fild04",186,247; else if ( compare( .@str$, .@tmp$ +"fpa05" ) ) setarray @map$, "Payon Forest 5", "pay_fild05",134,204; else if ( compare( .@str$, .@tmp$ +"fpa06" ) ) setarray @map$, "Payon Forest 6", "pay_fild06",193,235; else if ( compare( .@str$, .@tmp$ +"fpa07" ) ) setarray @map$, "Payon Forest 7", "pay_fild07",200,177; else if ( compare( .@str$, .@tmp$ +"fpa08" ) ) setarray @map$, "Payon Forest 8", "pay_fild08",137,189; else if ( compare( .@str$, .@tmp$ +"fpa09" ) ) setarray @map$, "Payon Forest 9", "pay_fild09",201,224; else if ( compare( .@str$, .@tmp$ +"fpa10" ) ) setarray @map$, "Payon Forest 10", "pay_fild10",160,205; else if ( compare( .@str$, .@tmp$ +"fpa11" ) ) setarray @map$, "Payon Forest 11", "pay_fild11",194,150; } else if ( compare( .@str$, .@tmp$ +"fpr" ) ) { if ( compare( .@str$, .@tmp$ +"fpr01" ) ) setarray @map$, "Prontera Field 0", "prt_fild00",184,235; else if ( compare( .@str$, .@tmp$ +"fpr02" ) ) setarray @map$, "Prontera Field 1", "prt_fild01",190,206; else if ( compare( .@str$, .@tmp$ +"fpr03" ) ) setarray @map$, "Prontera Field 2", "prt_fild02",240,206; else if ( compare( .@str$, .@tmp$ +"fpr04" ) ) setarray @map$, "Prontera Field 3", "prt_fild03",190,143; else if ( compare( .@str$, .@tmp$ +"fpr05" ) ) setarray @map$, "Prontera Field 4", "prt_fild04",307,252; else if ( compare( .@str$, .@tmp$ +"fpr06" ) ) setarray @map$, "Prontera Field 5", "prt_fild05",239,213; else if ( compare( .@str$, .@tmp$ +"fpr07" ) ) setarray @map$, "Prontera Field 6", "prt_fild06",185,188; else if ( compare( .@str$, .@tmp$ +"fpr08" ) ) setarray @map$, "Prontera Field 7", "prt_fild07",193,194; else if ( compare( .@str$, .@tmp$ +"fpr09" ) ) setarray @map$, "Prontera Field 8", "prt_fild08",187,218; else if ( compare( .@str$, .@tmp$ +"fpr10" ) ) setarray @map$, "Prontera Field 9", "prt_fild09",210,183; else if ( compare( .@str$, .@tmp$ +"fpr11" ) ) setarray @map$, "Prontera Field 10", "prt_fild10",195,149; else if ( compare( .@str$, .@tmp$ +"fpr12" ) ) setarray @map$, "Prontera Field 11", "prt_fild11",198,164; } else if ( compare( .@str$, .@tmp$ +"fra" ) ) { if ( compare( .@str$, .@tmp$ +"fra01" ) ) setarray @map$, "Rachel Field 1", "ra_fild01",192,162; else if ( compare( .@str$, .@tmp$ +"fra02" ) ) setarray @map$, "Rachel Field 2", "ra_fild02",235,166; else if ( compare( .@str$, .@tmp$ +"fra03" ) ) setarray @map$, "Rachel Fi ld 3", "ra_fild03",202,206; else if ( compare( .@str$, .@tmp$ +"fra04" ) ) setarray @map$, "Rachel Field 4", "ra_fild04",202,208; else if ( compare( .@str$, .@tmp$ +"fra05" ) ) setarray @map$, "Rachel Field 5", "ra_fild05",225,202; else if ( compare( .@str$, .@tmp$ +"fra06" ) ) setarray @map$, "Rachel Field 6", "ra_fild06",202,214; else if ( compare( .@str$, .@tmp$ +"fra07" ) ) setarray @map$, "Rachel Field 7", "ra_fild07",263,196; else if ( compare( .@str$, .@tmp$ +"fra08" ) ) setarray @map$, "Rachel Field 8", "ra_fild08",217,201; else if ( compare( .@str$, .@tmp$ +"fra09" ) ) setarray @map$, "Rachel Field 9", "ra_fild09",87,121; else if ( compare( .@str$, .@tmp$ +"fra10" ) ) setarray @map$, "Rachel Field 10", "ra_fild10",277,181; else if ( compare( .@str$, .@tmp$ +"fra11" ) ) setarray @map$, "Rachel Field 11", "ra_fild11",221,185; else if ( compare( .@str$, .@tmp$ +"fra12" ) ) setarray @map$, "Rachel Field 12", "ra_fild12",175,200; else if ( compare( .@str$, .@tmp$ +"fra13" ) ) setarray @map$, "Rachel Field 13", "ra_fild13",174,197; } else if ( compare( .@str$, .@tmp$ +"fso" ) ) { if ( compare( .@str$, .@tmp$ +"fso01" ) ) setarray @map$, "Sograt Desert 1", "moc_fild01",219,205; else if ( compare( .@str$, .@tmp$ +"fso02" ) ) setarray @map$, "Sograt Desert 2", "moc_fild02",177,206; else if ( compare( .@str$, .@tmp$ +"fso03" ) ) setarray @map$, "Sograt Desert 3", "moc_fild03",194,182; else if ( compare( .@str$, .@tmp$ +"fso04" ) ) setarray @map$, "Sograt Desert 4", "moc_fild04",184,217; else if ( compare( .@str$, .@tmp$ +"fso05" ) ) setarray @map$, "Sograt Desert 5", "moc_fild05",203,213; else if ( compare( .@str$, .@tmp$ +"fso06" ) ) setarray @map$, "Sograt Desert 6", "moc_fild06",213,208; else if ( compare( .@str$, .@tmp$ +"fso07" ) ) setarray @map$, "Sograt Desert 7", "moc_fild07",224,170; else if ( compare( .@str$, .@tmp$ +"fso08" ) ) setarray @map$, "Sograt Desert 8", "moc_fild08",229,177; else if ( compare( .@str$, .@tmp$ +"fso09" ) ) setarray @map$, "Sograt Desert 9", "moc_fild09",195,198; else if ( compare( .@str$, .@tmp$ +"fso10" ) ) setarray @map$, "Sograt Desert 10", "moc_fild10",209,168; else if ( compare( .@str$, .@tmp$ +"fso11" ) ) setarray @map$, "Sograt Desert 11", "moc_fild11",198,216; else if ( compare( .@str$, .@tmp$ +"fso12" ) ) setarray @map$, "Sograt Desert 12", "moc_fild12",156,187; else if ( compare( .@str$, .@tmp$ +"fso13" ) ) setarray @map$, "Sograt Desert 13", "moc_fild13",185,263; else if ( compare( .@str$, .@tmp$ +"fso14" ) ) setarray @map$, "Sograt Desert 14", "moc_fild14",209,219; else if ( compare( .@str$, .@tmp$ +"fso15" ) ) setarray @map$, "Sograt Desert 15", "moc_fild15",223,188; else if ( compare( .@str$, .@tmp$ +"fso16" ) ) setarray @map$, "Sograt Desert 16", "moc_fild16",206,228; else if ( compare( .@str$, .@tmp$ +"fso17" ) ) setarray @map$, "Sograt Desert 17", "moc_fild17",208,238; else if ( compare( .@str$, .@tmp$ +"fso18" ) ) setarray @map$, "Sograt Desert 18", "moc_fild18",209,223; else if ( compare( .@str$, .@tmp$ +"fso19" ) ) setarray @map$, "Sograt Desert 19", "moc_fild19",85,97; else if ( compare( .@str$, .@tmp$ +"fso20" ) ) setarray @map$, "Sograt Desert 20", "moc_fild20",42,340; else if ( compare( .@str$, .@tmp$ +"fso21" ) ) setarray @map$, "Sograt Desert 21", "moc_fild21",44,194; else if ( compare( .@str$, .@tmp$ +"fso22" ) ) setarray @map$, "Sograt Desert 22", "moc_fild22",42,195; } else if ( compare( .@str$, .@tmp$ +"fsp" ) ) { if ( compare( .@str$, .@tmp$ +"fsp01" ) ) setarray @map$, "Splendide Field 1", "spl_fild01",29,335; else if ( compare( .@str$, .@tmp$ +"fsp02" ) ) setarray @map$, "Splendide Field 2", "spl_fild02",290,373; else if ( compare( .@str$, .@tmp$ +"fsp03" ) ) setarray @map$, "Splendide Field 3", "spl_fild03",105,369; } else if ( compare( .@str$, .@tmp$ +"fum" ) ) { if ( compare( .@str$, .@tmp$ +"fum01" ) ) setarray @map$, "Umbala Field 1", "um_fild01",217,206; else if ( compare( .@str$, .@tmp$ +"fum02" ) ) setarray @map$, "Umbala Field 2", "um_fild02",223,221; else if ( compare( .@str$, .@tmp$ +"fum03" ) ) setarray @map$, "Umbala Field 3", "um_fild03",237,215; } else if ( compare( .@str$, .@tmp$ +"fve" ) ) { if ( compare( .@str$, .@tmp$ +"fve01" ) ) setarray @map$, "Veins Field 1", "ve_fild01",186,175; else if ( compare( .@str$, .@tmp$ +"fve02" ) ) setarray @map$, "Veins Field 2", "ve_fild02",196,370; else if ( compare( .@str$, .@tmp$ +"fve03" ) ) setarray @map$, "Veins Field 3", "ve_fild03",222,45; else if ( compare( .@str$, .@tmp$ +"fve04" ) ) setarray @map$, "Veins Field 4", "ve_fild04",51,250; else if ( compare( .@str$, .@tmp$ +"fve05" ) ) setarray @map$, "Veins Field 5", "ve_fild05",202,324; else if ( compare( .@str$, .@tmp$ +"fve06" ) ) setarray @map$, "Veins Field 6", "ve_fild06",150,223; else if ( compare( .@str$, .@tmp$ +"fve07" ) ) setarray @map$, "Veins Field 7", "ve_fild07",149,307; } else if ( compare( .@str$, .@tmp$ +"fyu" ) ) { if ( compare( .@str$, .@tmp$ +"fyu01" ) ) setarray @map$, "Yuno Field 1", "yuno_fild01",189,224; else if ( compare( .@str$, .@tmp$ +"fyu02" ) ) setarray @map$, "Yuno Field 2", "yuno_fild02",192,207; else if ( compare( .@str$, .@tmp$ +"fyu03" ) ) setarray @map$, "Yuno Field 3", "yuno_fild03",221,157; else if ( compare( .@str$, .@tmp$ +"fyu04" ) ) setarray @map$, "Yuno Field 4", "yuno_fild04",226,199; else if ( compare( .@str$, .@tmp$ +"fyu05" ) ) setarray @map$, "Yuno Field 5", "yuno_fild05",223,177; else if ( compare( .@str$, .@tmp$ +"fyu06" ) ) setarray @map$, "Yuno Field 6", "yuno_fild06",187,232; else if ( compare( .@str$, .@tmp$ +"fyu07" ) ) setarray @map$, "Yuno Field 7", "yuno_fild07",231,174; else if ( compare( .@str$, .@tmp$ +"fyu08" ) ) setarray @map$, "Yuno Field 8", "yuno_fild08",196,203; else if ( compare( .@str$, .@tmp$ +"fyu09" ) ) setarray @map$, "Yuno Field 9", "yuno_fild09",183,214; else if ( compare( .@str$, .@tmp$ +"fyu10" ) ) setarray @map$, "Yuno Field 10", "yuno_fild10",200,124; else if ( compare( .@str$, .@tmp$ +"fyu11" ) ) setarray @map$, "Yuno Field 11", "yuno_fild11",195,226; else if ( compare( .@str$, .@tmp$ +"fyu12" ) ) setarray @map$, "Yuno Field 12", "yuno_fild12",210,304; } } else if ( compare( .@str$ , .@tmp$ + "d" ) ) { if ( compare( .@str$, .@tmp$ +"dab" ) ) { if ( compare( .@str$, .@tmp$ +"dab01" ) ) setarray @map$, "Cursed Abbey Dungeon - Level 1", "abbey01",51,14; else if ( compare( .@str$, .@tmp$ +"dab02" ) ) setarray @map$, "Cursed Abbey Dungeon - Level 2", "abbey02",150,11; else if ( compare( .@str$, .@tmp$ +"dab03" ) ) setarray @map$, "Cursed Abbey Dungeon - Level 3", "abbey03",120,10; } else if ( compare( .@str$, .@tmp$ +"dai" ) ) { if ( compare( .@str$, .@tmp$ +"dai01" ) ) setarray @map$, "Abyss Lakes Underground Cave F1", "abyss_01",260,270; else if ( compare( .@str$, .@tmp$ +"dai02" ) ) setarray @map$, "Abyss Lakes Underground Cave F2", "abyss_02",275,270; else if ( compare( .@str$, .@tmp$ +"dai03" ) ) setarray @map$, "Abyss Lakes Underground Cave F3", "abyss_03",116,27; } else if ( compare( .@str$, .@tmp$ +"dam" ) ) { if ( compare( .@str$, .@tmp$ +"dam01" ) ) setarray @map$, "Amatsu Dungeon - Level 1", "ama_dun01",228,11; else if ( compare( .@str$, .@tmp$ +"dam02" ) ) setarray @map$, "Amatsu Dungeon - Level 2", "ama_dun02",34,41; else if ( compare( .@str$, .@tmp$ +"dam03" ) ) setarray @map$, "Amatsu Dungeon - Level 3", "ama_dun03",119,14; } else if ( compare( .@str$, .@tmp$ +"dan" ) ) { if ( compare( .@str$, .@tmp$ +"dan01" ) ) setarray @map$, "Anthell F1", "anthell01",35,262; else if ( compare( .@str$, .@tmp$ +"dan02" ) ) setarray @map$, "Anthell F2", "anthell02",168,170; } else if ( compare( .@str$, .@tmp$ +"day" ) ) { if ( compare( .@str$, .@tmp$ +"day01" ) ) setarray @map$, "Ayothaya - Ancient Shrine Maze", "ayo_dun01",275,19; else if ( compare( .@str$, .@tmp$ +"day02" ) ) setarray @map$, "Ayothaya - Inside Ancient Shrine", "ayo_dun02",24,26; } else if ( compare( .@str$, .@tmp$ +"dbe" ) ) { if ( compare( .@str$, .@tmp$ +"dbe01" ) ) setarray @map$, "Beach Dungeon - Karu, west cave", "beach_dun",266,67; else if ( compare( .@str$, .@tmp$ +"dbe02" ) ) setarray @map$, "Beach Dungeon - Ruande, north cave", "beach_dun2",255,244; else if ( compare( .@str$, .@tmp$ +"dbe03" ) ) setarray @map$, "Beach Dungeon - Mao, east cave", "beach_dun3",23,260; } else if ( compare( .@str$, .@tmp$ +"dby" ) ) { if ( compare( .@str$, .@tmp$ +"dby01" ) ) setarray @map$, "Byalan Dungeon - Undersea Tunnel F1", "iz_dun00",168,168; else if ( compare( .@str$, .@tmp$ +"dby02" ) ) setarray @map$, "Byalan Dungeon - Undersea Tunnel F2", "iz_dun01",253,252; else if ( compare( .@str$, .@tmp$ +"dby03" ) ) setarray @map$, "Byalan Dungeon - Undersea Tunnel F3", "iz_dun02",236,204; else if ( compare( .@str$, .@tmp$ +"dby04" ) ) setarray @map$, "Byalan Dungeon - Undersea Tunnel F4", "iz_dun03",32,63; else if ( compare( .@str$, .@tmp$ +"dby05" ) ) setarray @map$, "Byalan Dungeon - Undersea Tunnel F5", "iz_dun04",26,27; } else if ( compare( .@str$, .@tmp$ +"dcl" ) ) { if ( compare( .@str$, .@tmp$ +"dcl01" ) ) setarray @map$, "Clock Tower F1", "c_tower1",199,159; else if ( compare( .@str$, .@tmp$ +"dcl02" ) ) setarray @map$, "Clock Tower F2", "c_tower2",148,283; else if ( compare( .@str$, .@tmp$ +"dcl03" ) ) setarray @map$, "Clock Tower F3", "c_tower3",65,147; else if ( compare( .@str$, .@tmp$ +"dcl04" ) ) setarray @map$, "Clock Tower F4", "c_tower4",56,155; else if ( compare( .@str$, .@tmp$ +"dcl05" ) ) setarray @map$, "Clock Tower B1", "alde_dun01",297,25; else if ( compare( .@str$, .@tmp$ +"dcl06" ) ) setarray @map$, "Clock Tower B2", "alde_dun02",127,169; else if ( compare( .@str$, .@tmp$ +"dcl07" ) ) setarray @map$, "Clock Tower B3", "alde_dun03",277,178; else if ( compare( .@str$, .@tmp$ +"dcl08" ) ) setarray @map$, "Clock Tower B4", "alde_dun04",268,74; } else if ( compare( .@str$, .@tmp$ +"dco" ) ) { if ( compare( .@str$, .@tmp$ +"dco01" ) ) setarray @map$, "Coal Mines - Mjolnir Dead Pit F1", "mjo_dun01",52,17; else if ( compare( .@str$, .@tmp$ +"dco02" ) ) setarray @map$, "Coal Mines - Mjolnir Dead Pit F2", "mjo_dun02",381,343; else if ( compare( .@str$, .@tmp$ +"dco03" ) ) setarray @map$, "Coal Mines - Mjolnir Dead Pit F3", "mjo_dun03",302,262; } else if ( compare( .@str$, .@tmp$ +"dcu" ) ) { if ( compare( .@str$, .@tmp$ +"dcu01" ) ) setarray @map$, "Prontera Culvert F1", "prt_sewb1",131,247; else if ( compare( .@str$, .@tmp$ +"dcu02" ) ) setarray @map$, "Prontera Culvert F2", "prt_sewb2",19,19; else if ( compare( .@str$, .@tmp$ +"dcu03" ) ) setarray @map$, "Prontera Culvert F3", "prt_sewb3",180,169; else if ( compare( .@str$, .@tmp$ +"dcu04" ) ) setarray @map$, "Prontera Culvert F4", "prt_sewb4",100,92; } else if ( compare( .@str$, .@tmp$ +"dei" ) ) { if ( compare( .@str$, .@tmp$ +"dei01" ) ) setarray @map$, "Einbroch Dungeon - Mine Dungeon F1", "ein_dun01",22,14; else if ( compare( .@str$, .@tmp$ +"dei02" ) ) setarray @map$, "Einbroch Dungeon - Mine Dungeon F2", "ein_dun02",292,290; } else if ( compare( .@str$, .@tmp$ +"dge" ) ) { if ( compare( .@str$, .@tmp$ +"dge01" ) ) setarray @map$, "Gefenia - Level 1", "gefenia01",40,103; else if ( compare( .@str$, .@tmp$ +"dge02" ) ) setarray @map$, "Gefenia - Level 2", "gefenia02",203,34; else if ( compare( .@str$, .@tmp$ +"dge03" ) ) setarray @map$, "Gefenia - Level 3", "gefenia03",266,168; else if ( compare( .@str$, .@tmp$ +"dge04" ) ) setarray @map$, "Gefenia - Level 4", "gefenia04",130,272; } else if ( compare( .@str$, .@tmp$ +"dgf" ) ) { if ( compare( .@str$, .@tmp$ +"dgf01" ) ) setarray @map$, "Geffen Dungeon F1", "gef_dun00",104,99; else if ( compare( .@str$, .@tmp$ +"dgf02" ) ) setarray @map$, "Geffen Dungeon F2", "gef_dun01",115,236; else if ( compare( .@str$, .@tmp$ +"dgf03" ) ) setarray @map$, "Geffen Dungeon F3", "gef_dun02",106,132; else if ( compare( .@str$, .@tmp$ +"dgf04" ) ) setarray @map$, "Geffen Dungeon F4", "gef_dun03",203,200; } else if ( compare( .@str$, .@tmp$ +"dgl" ) ) { if ( compare( .@str$, .@tmp$ +"dgl01" ) ) setarray @map$, "Glast Heim - Entrance", "glast_01",371,304; else if ( compare( .@str$, .@tmp$ +"dgl02" ) ) setarray @map$, "Glast Heim - Castle F1", "gl_cas01",199,29; else if ( compare( .@str$, .@tmp$ +"dgl03" ) ) setarray @map$, "Glast Heim - Castle F2", "gl_cas02",104,25; else if ( compare( .@str$, .@tmp$ +"dgl04" ) ) setarray @map$, "Glast Heim - Chivalry F1", "gl_knt01",150,15; else if ( compare( .@str$, .@tmp$ +"dgl05" ) ) setarray @map$, "Glast Heim - Chivalry F2", "gl_knt02",157,287; else if ( compare( .@str$, .@tmp$ +"dgl06" ) ) setarray @map$, "Glast Heim - St.Abbey", "gl_church",156,7; else if ( compare( .@str$, .@tmp$ +"dgl07" ) ) setarray @map$, "Glast Heim - Churchyard", "gl_chyard",147,15; else if ( compare( .@str$, .@tmp$ +"dgl08" ) ) setarray @map$, "Glast Heim - Culvert F1", "gl_sew01",258,255; else if ( compare( .@str$, .@tmp$ +"dgl09" ) ) setarray @map$, "Glast Heim - Culvert F2", "gl_sew02",108,291; else if ( compare( .@str$, .@tmp$ +"dgl10" ) ) setarray @map$, "Glast Heim - Culvert F3", "gl_sew03",171,283; else if ( compare( .@str$, .@tmp$ +"dgl11" ) ) setarray @map$, "Glast Heim - Culvert F4", "gl_sew04",68,277; else if ( compare( .@str$, .@tmp$ +"dgl12" ) ) setarray @map$, "Glast Heim - Staircase Dungeon", "gl_step",12,7; else if ( compare( .@str$, .@tmp$ +"dgl13" ) ) setarray @map$, "Glast Heim - Underground Cave 1", "gl_dun01",133,271; else if ( compare( .@str$, .@tmp$ +"dgl14" ) ) setarray @map$, "Glast Heim - Underground Cave 2", "gl_dun02",224,274; else if ( compare( .@str$, .@tmp$ +"dgl15" ) ) setarray @map$, "Glast Heim - Underground Prison 1", "gl_prison",14,70; else if ( compare( .@str$, .@tmp$ +"dgl16" ) ) setarray @map$, "Glast Heim - Underground Prison 2", "gl_prison1",150,14; } else if ( compare( .@str$, .@tmp$ +"dgo" ) ) { if ( compare( .@str$, .@tmp$ +"dgo01" ) ) setarray @map$, "Gonryun Dungeon - Level 1", "gon_dun01",153,53; else if ( compare( .@str$, .@tmp$ +"dgo02" ) ) setarray @map$, "Gonryun Dungeon - Level 2", "gon_dun02",28,113; else if ( compare( .@str$, .@tmp$ +"dgo03" ) ) setarray @map$, "Gonryun Dungeon - Level 3", "gon_dun03",68,16; } else if ( compare( .@str$, .@tmp$ +"dhi" ) ) { if ( compare( .@str$, .@tmp$ +"dhi01" ) ) setarray @map$, "Hidden Dungeon - Labyrinth Forest F1", "prt_maze01",176,7; else if ( compare( .@str$, .@tmp$ +"dhi02" ) ) setarray @map$, "Hidden Dungeon - Labyrinth Forest F2", "prt_maze02",106,45; else if ( compare( .@str$, .@tmp$ +"dhi03" ) ) setarray @map$, "Hidden Dungeon - Labyrinth Forest F3", "prt_maze03",23,8; } else if ( compare( .@str$, .@tmp$ +"dic" ) ) { if ( compare( .@str$, .@tmp$ +"dic01" ) ) setarray @map$, "Ice Cave F1", "ice_dun01",157,14; else if ( compare( .@str$, .@tmp$ +"dic02" ) ) setarray @map$, "Ice Cave F2", "ice_dun02",151,155; else if ( compare( .@str$, .@tmp$ +"dic03" ) ) setarray @map$, "Ice Cave F3", "ice_dun03",149,22; else if ( compare( .@str$, .@tmp$ +"dic04" ) ) setarray @map$, "Ice Cave F4", "ice_dun04",33,158; } else if ( compare( .@str$, .@tmp$ +"dju" ) ) { if ( compare( .@str$, .@tmp$ +"dju01" ) ) setarray @map$, "The Ruins of Juperos F1", "juperos_01",53,247; else if ( compare( .@str$, .@tmp$ +"dju02" ) ) setarray @map$, "The Ruins of Juperos F2", "juperos_02",37,63; else if ( compare( .@str$, .@tmp$ +"dju03" ) ) setarray @map$, "Center of Juperos", "jupe_core",150,285; } else if ( compare( .@str$, .@tmp$ +"dki" ) ) { if ( compare( .@str$, .@tmp$ +"dki01" ) ) setarray @map$, "Kiel Dungeon - Robot Factory Level 1", "kh_dun01",28,226; else if ( compare( .@str$, .@tmp$ +"dki02" ) ) setarray @map$, "Kiel Dungeon - Robot Factory Level 2", "kh_dun02",41,198; } else if ( compare( .@str$, .@tmp$ +"dli" ) ) { if ( compare( .@str$, .@tmp$ +"dli01" ) ) setarray @map$, "Lighthalzen - Somatology Labotory F1", "lhz_dun01",150,288; else if ( compare( .@str$, .@tmp$ +"dli02" ) ) setarray @map$, "Lighthalzen - Somatology Labotory F2", "lhz_dun02",150,18; else if ( compare( .@str$, .@tmp$ +"dli03" ) ) setarray @map$, "Lighthalzen - Somatology Labotory F3", "lhz_dun03",140,133; } else if ( compare( .@str$, .@tmp$ +"dlo" ) ) { if ( compare( .@str$, .@tmp$ +"dlo01" ) ) setarray @map$, "Louyang Dungeon - Level 1", "lou_dun01",218,196; else if ( compare( .@str$, .@tmp$ +"dlo02" ) ) setarray @map$, "Louyang Dungeon - Level 2", "lou_dun02",282,20; else if ( compare( .@str$, .@tmp$ +"dlo03" ) ) setarray @map$, "Louyang Dungeon - Level 3", "lou_dun03",165,38; } else if ( compare( .@str$, .@tmp$ +"dma" ) ) { if ( compare( .@str$, .@tmp$ +"dma01" ) ) setarray @map$, "Magma Dungeon - Nogg Road F1", "mag_dun01",126,68; else if ( compare( .@str$, .@tmp$ +"dma02" ) ) setarray @map$, "Magma Dungeon - Nogg Road F2", "mag_dun02",47,30; } else if ( compare( .@str$, .@tmp$ +"dmo" ) ) { if ( compare( .@str$, .@tmp$ +"dmo01" ) ) setarray @map$, "Moscovia Dungeon - Level 1", "mosk_dun01",200,267; else if ( compare( .@str$, .@tmp$ +"dmo02" ) ) setarray @map$, "Moscovia Dungeon - Level 2", "mosk_dun02",162,33; else if ( compare( .@str$, .@tmp$ +"dmo03" ) ) setarray @map$, "Moscovia Dungeon - Level 3", "mosk_dun03",34,134; } else if ( compare( .@str$, .@tmp$ +"dor" ) ) { if ( compare( .@str$, .@tmp$ +"dor01" ) ) setarray @map$, "Orc Dungeon F1", "orcsdun01",32,170; else if ( compare( .@str$, .@tmp$ +"dor02" ) ) setarray @map$, "Orc Dungeon F2", "orcsdun02",21,185; } else if ( compare( .@str$, .@tmp$ +"dpa" ) ) { if ( compare( .@str$, .@tmp$ +"dpa01" ) ) setarray @map$, "Payon Cave F1", "pay_dun00",21,183; else if ( compare( .@str$, .@tmp$ +"dpa02" ) ) setarray @map$, "Payon Cave F2", "pay_dun01",19,33; else if ( compare( .@str$, .@tmp$ +"dpa03" ) ) setarray @map$, "Payon Cave F3", "pay_dun02",19,63; else if ( compare( .@str$, .@tmp$ +"dpa04" ) ) setarray @map$, "Payon Cave F4", "pay_dun03",155,159; else if ( compare( .@str$, .@tmp$ +"dpa05" ) ) setarray @map$, "Payon Cave F5", "pay_dun04",201,204; } else if ( compare( .@str$, .@tmp$ +"dpy" ) ) { if ( compare( .@str$, .@tmp$ +"dpy01" ) ) setarray @map$, "Inside Pyramids F1", "moc_pryd01",192,9; else if ( compare( .@str$, .@tmp$ +"dpy02" ) ) setarray @map$, "Inside Pyramids F2", "moc_pryd02",10,192; else if ( compare( .@str$, .@tmp$ +"dpy03" ) ) setarray @map$, "Inside Pyramids F3", "moc_pryd03",100,92; else if ( compare( .@str$, .@tmp$ +"dpy04" ) ) setarray @map$, "Inside Pyramids F4", "moc_pryd04",181,11; else if ( compare( .@str$, .@tmp$ +"dpy05" ) ) setarray @map$, "Inside Pyramids B1", "moc_pryd05",94,96; else if ( compare( .@str$, .@tmp$ +"dpy06" ) ) setarray @map$, "Inside Pyramids B2", "moc_pryd06",192,8; } else if ( compare( .@str$, .@tmp$ +"dra" ) ) { if ( compare( .@str$, .@tmp$ +"dra01" ) ) setarray @map$, "Rachel Sanctuary - Level 1", "ra_san01",140,19; else if ( compare( .@str$, .@tmp$ +"dra02" ) ) setarray @map$, "Rachel Sanctuary - Level 2", "ra_san02",34,21; else if ( compare( .@str$, .@tmp$ +"dra03" ) ) setarray @map$, "Rachel Sanctuary - Level 3", "ra_san03",10,149; else if ( compare( .@str$, .@tmp$ +"dra04" ) ) setarray @map$, "Rachel Sanctuary - Level 4", "ra_san04",204,218; else if ( compare( .@str$, .@tmp$ +"dra05" ) ) setarray @map$, "Rachel Sanctuary - Level 5", "ra_san05",150,9; } else if ( compare( .@str$, .@tmp$ +"dsp" ) ) { if ( compare( .@str$, .@tmp$ +"dsp01" ) ) setarray @map$, "Sphinx F1", "in_sphinx1",288,9; else if ( compare( .@str$, .@tmp$ +"dsp02" ) ) setarray @map$, "Sphinx F2", "in_sphinx2",149,81; else if ( compare( .@str$, .@tmp$ +"dsp03" ) ) setarray @map$, "Sphinx F3", "in_sphinx3",210,54; else if ( compare( .@str$, .@tmp$ +"dsp04" ) ) setarray @map$, "Sphinx F4", "in_sphinx4",10,222; else if ( compare( .@str$, .@tmp$ +"dsp05" ) ) setarray @map$, "Sphinx F5", "in_sphinx5",100,99; } else if ( compare( .@str$, .@tmp$ +"dsu" ) ) { if ( compare( .@str$, .@tmp$ +"dsu01" ) ) setarray @map$, "Sunken Ship F1", "treasure01",69,24; else if ( compare( .@str$, .@tmp$ +"dsu02" ) ) setarray @map$, "Sunken Ship F2", "treasure02",102,27; } else if ( compare( .@str$, .@tmp$ +"dta" ) ) { if ( compare( .@str$, .@tmp$ +"dta01" ) ) setarray @map$, "Thanatos Tower - Level 1", "tha_t01",150,39; else if ( compare( .@str$, .@tmp$ +"dta02" ) ) setarray @map$, "Thanatos Tower - Level 2", "tha_t02",150,136; else if ( compare( .@str$, .@tmp$ +"dta03" ) ) setarray @map$, "Thanatos Tower - Level 3", "tha_t03",220,158; else if ( compare( .@str$, .@tmp$ +"dta04" ) ) setarray @map$, "Thanatos Tower - Level 4", "tha_t04",59,143; else if ( compare( .@str$, .@tmp$ +"dta05" ) ) setarray @map$, "Thanatos Tower - Level 5", "tha_t05",62,11; else if ( compare( .@str$, .@tmp$ +"dta06" ) ) setarray @map$, "Thanatos Tower - Level 6", "tha_t06",89,221; else if ( compare( .@str$, .@tmp$ +"dta07" ) ) setarray @map$, "Thanatos Tower - Level 7", "tha_t07",35,166; else if ( compare( .@str$, .@tmp$ +"dta08" ) ) setarray @map$, "Thanatos Tower - Level 8", "tha_t08",93,148; else if ( compare( .@str$, .@tmp$ +"dta09" ) ) setarray @map$, "Thanatos Tower - Level 9", "tha_t09",29,107; else if ( compare( .@str$, .@tmp$ +"dta10" ) ) setarray @map$, "Thanatos Tower - Level 10", "tha_t10",159,138; else if ( compare( .@str$, .@tmp$ +"dta11" ) ) setarray @map$, "Thanatos Tower - Level 11", "tha_t11",19,20; else if ( compare( .@str$, .@tmp$ +"dta12" ) ) setarray @map$, "Thanatos Tower - Level 12", "tha_t12",130,52; } else if ( compare( .@str$, .@tmp$ +"dth" ) ) { if ( compare( .@str$, .@tmp$ +"dth01" ) ) setarray @map$, "Thor's Volcano Dungeon F1", "thor_v01",21,228; else if ( compare( .@str$, .@tmp$ +"dth02" ) ) setarray @map$, "Thor's Volcano Dungeon F2", "thor_v02",75,205; else if ( compare( .@str$, .@tmp$ +"dth03" ) ) setarray @map$, "Thor's Volcano Dungeon F3", "thor_v03",34,272; } else if ( compare( .@str$, .@tmp$ +"dto" ) ) { if ( compare( .@str$, .@tmp$ +"dto01" ) ) setarray @map$, "Toy Factory - Level 1", "xmas_dun01",205,15; else if ( compare( .@str$, .@tmp$ +"dto02" ) ) setarray @map$, "Toy Factory - Level 2", "xmas_dun02",129,133; } else if ( compare( .@str$, .@tmp$ +"dtu" ) ) { if ( compare( .@str$, .@tmp$ +"dtu01" ) ) setarray @map$, "Turtle Dungeon - Entrance", "tur_dun01",154,49; else if ( compare( .@str$, .@tmp$ +"dtu02" ) ) setarray @map$, "Turtle Dungeon - Level 1", "tur_dun02",148,261;

hello use search ... but you can try this scripted by AnnieRuru i request this to modified something.. but this is for Premium Account .. // ~~~~~ 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$ ) ) { sc_end sc_expboost; sc_end sc_itemboost; 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, strnpcinfo(0) +"::Ondemote"; sc_start sc_expboost, .@left *1000, 300; // sc_start sc_itemboost, .@left *1000, 300; } end; } Ondemote: atcommand "@adjgroup 0"; sc_end sc_expboost; sc_end sc_itemboost; 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; }

Fixed thanks AnnieRuru

now i get it thanks AnnieRuru..