Shogun

Does the script will reset claim check every next woe?

I like this script. actually they cannot be recall/warp if they in castle map. How can i add countdown to recall maybe?

@rikimaru, about your Stat seller. how can i make it for item requirement?

im using r16852

Quest shop bug when preview. Kick out from game.

Problem solved. Thanks @GmOcean for the tips.

so i guess i need in game pvpladder that will store information to my sql rite. im using this in game pvpladder but im not sure how to make it store in sql pvpladder table. - script PVPLADDEROPTIONS -1,{ end; OnInit: // 0 = Disabled (NO) // 1 = Enable (YES) set $@languageselect, 0; //Enable/Disable language selection [English/German] (Default: 1) set $@LadderAnnounce, 0; //Enable/Disable the announcement when a char reaches a new position in the ladder (Default: 1) set $@LadderLength, 30; //Set the length of the Ladder [!Not higher than 128!] (Default: 30) set $@LadderSteps, 10; //Set the views per page (Default: 10)set $@LadderExpGain, 1; //Enable/Disable experience gain when reaching a new position in the ladder (*Note1) set $@LadderExp, 0; //Set Experience gain value (*Note1) set $@LadderZenyGain, 0; //Enable/Disable zeny gain when reaching a new position in the ladder set $@LadderZeny, 0; //Set Zeny gain value set $@LadderChatRoom, 1; //Enable/Disable an Chat Room over the NPC with the message "PvP Ladder" (Users can not enter the Chat room) set $@LadderAskLogin, 1; //Enable/Disable that the NPC asks about the Broadcast when a Player logins / or with the Npc Chat (0 = Login Ask , 1 = Npc Chat) Related: 0 set $@LadderGM, 60; //All GM LVL UNDER this value will show on the PvP Ladder (Over GM LVL: Not shown on Ladder | under GM LVL: Shown on Ladder) set $@LadderGMMenu, 99; //GM LVL that need for entering GM Menu } - script PVPLADDER -1,{ OnPCKillEvent: if ( getgmlevel() >= $@LadderGM ) end; if (terces_PVP_resets != $terces_PVP_resets) { dispbottom "Please relog your character, in order to get the correct kills for you in the PVP ladder."; dispbottom "Because a GM just reset the ladder."; end; } if ( killedrid == getcharid(3) ) { set PVPDeaths, PVPDeaths +1; set #PVPDeathsAccount, #PVPDeathsAccount +1; set @PVPDeathstoday, @PVPDeathstoday +1; end; } set $@PVPcounter,$@PVPcounter+1; set getd("$@PVPKill"+$@PVPcounter),getcharid(3); //getd to avoid errors when more than 1 people kill someone attachrid(killedrid); set PVPDeaths,PVPDeaths+1; set @PVPDeathstoday,@PVPDeathstoday+1; set #PVPDeathsAccount,#PVPDeathsAccount+1; set getd("$@PVPkilledplayer"+$@PVPcounter+"$"), strcharinfo(0); //again, getd to avoid possible glitches detachrid; attachrid(getd("$@PVPKill"+$@PVPcounter)); CountKills: set PVPKills,PVPKills+1; set @PVPKillstoday,@PVPKillstoday+1; set #PVPKillsAccount,#PVPKillsAccount+1; setarray @playerstats[0],@PVPKillstoday,@PVPDeathstoday,PVPKills,PVPDeaths,#PVPKillsAccount,#PVPDeathsAccount; l_ladder: set @considerdeath,0; for (set @PosinLadder, 0; @PosinLadder < $@LadderLength; set @PosinLadder, @PosinLadder + 1){ if (PVPKills >= $terces_PVP_kills[@PosinLadder]){ //Player deserves to be in the ladder //Check if Death plays a role on the position if ((PVPKills == $terces_PVP_kills[@PosinLadder]) && (PVPDeaths > $terces_PVP_deaths[@PosinLadder])) set @considerdeath,1; //Consider Deaths //Check if the player only topped his own scores if ($terces_PVP_names$[@PosinLadder] == strcharinfo(0)){ set $terces_PVP_kills[@PosinLadder],PVPKills; set $terces_PVP_deaths[@PosinLadder],PVPDeaths; end; } //Moves all characters in the Ladder for (set @beginmoving, $@LadderLength; @beginmoving >= (@PosinLadder+@considerdeath); set @beginmoving, @beginmoving - 1){ if ($terces_PVP_names$[@beginmoving] == strcharinfo(0)){ //If the player already is in the Ladder it only has to move players between characters new position and characters old position callsub L_LadderMove,0; end; } else if (@beginmoving == (@PosinLadder+@considerdeath)){ //Player is not in the Ladder and therefor it has to move all players from characters new position downwards callsub L_LadderMove,1; end; } } end; } } end; L_LadderMove: if (getarg(0) == 0) set @length,@beginmoving; if (getarg(0) == 1) set @length,$@LadderLength; for (set @movecycle, @length; @movecycle > (@PosinLadder+@considerdeath); set @movecycle, @movecycle - 1){ set $terces_PVP_names$[@movecycle],$terces_PVP_names$[(@movecycle-1)]; set $terces_PVP_kills[@movecycle],$terces_PVP_kills[(@movecycle-1)]; set $terces_PVP_deaths[@movecycle],$terces_PVP_deaths[(@movecycle-1)]; set $terces_PVP_times[@movecycle],$terces_PVP_times[(@movecycle-1)]; } //sets the character's stats in the new position set $terces_PVP_names$[(@PosinLadder+@considerdeath)],strcharinfo(0); set $terces_PVP_kills[(@PosinLadder+@considerdeath)],PVPKills; set $terces_PVP_deaths[(@PosinLadder+@considerdeath)],PVPDeaths; set $terces_PVP_times[(@PosinLadder+@considerdeath)],gettimetick(2); //Experience Gain if ($@LadderExpGain == 1){ set BaseExp,BaseExp+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderExp); dispbottom "You have just been rewarded with "+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderExp)+" base experience points"; } //Zeny Gain if ($@LadderZenyGain == 1){ set Zeny,Zeny+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderZeny); dispbottom "You have just been rewarded with "+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderZeny)+" Zeny"; } //Announcement (Setting for Char) if (pvpbroadcast == 2){ announce strcharinfo(0)+" just claimed the "+((@PosinLadder+@considerdeath)+1)+". Position in the Top "+$@LadderLength+" after killing "+getd("$@PVPkilledplayer"+$@PVPcounter+"$")+".",16; } //Announcement (Setting for Account) if (#pvpbroadcast == 2){ announce strcharinfo(0)+" just claimed the "+((@PosinLadder+@considerdeath)+1)+". Position in the Top "+$@LadderLength+" after killing "+getd("$@PVPkilledplayer"+$@PVPcounter+"$")+".",16; } end; OnPCLoginEvent: if (terces_PVP_resets != $terces_PVP_resets){ set PVPDeaths,0; set @PVPDeathstoday,0; set #PVPDeathsAccount,0; set PVPKills,0; set @PVPKillstoday,0; set #PVPKillsAccount,0; set terces_PVP_resets,$terces_PVP_resets; } if ($@LadderAskLogin == 0){ if (#pvpbroadcast == 2) goto L_ignore; if (pvpbroadcast == 2) goto L_ignore; if (#pvpbroadcast == 1) goto L_ignore; if (pvpbroadcast == 1) goto L_ignore; if (pvpbroadcast == 0) mes "Hi, "+strcharinfo(0)+""; mes "Me is the PvP Top Management!"; mes "Let me ask you one Question and i will let you play!"; menu "Later please",L_close,"Okay, fine",L_fine; L_fine: next; mes "Well, do you want read Broadcast Messages when a Player reach a new position on the PvP Ranglist?"; menu "Yeah, why not",L_accept,"No, thanks",L_accept_2,"Wtf is Broadcast?",L_broadcast; L_accept: next; mes "Yay, thank you! "; mes "Will this Setting work on all your Chars on this account or only this char?"; menu "Account",L_account,"Only this char",L_char; L_account: set #pvpbroadcast,2; next; mes "Okay, "+strcharinfo(0)+""; mes "Thank you for your time and have fun!"; close; L_char: set pvpbroadcast,2; next; mes "Okay, "+strcharinfo(0)+""; mes "Thank you for your time and have fun!"; goto access_eng; close; L_accept_2: next; mes "Yay, thank you! "; mes "Will this Setting work on all your Chars on this account or only this char?"; menu "Account",L_account_2,"Only this char",L_char_2; L_close: close; L_account_2: set #pvpbroadcast,1; next; mes "Okay, "+strcharinfo(0)+""; mes "Thank you for your time and have fun!"; close; L_char_2: set pvpbroadcast,1; next; mes "Okay, "+strcharinfo(0)+""; mes "Thank you for your time and have fun!"; goto access_eng; close; L_broadcast: mes "Broadcasts are this yellow messages from the GMs"; goto L_fine; } } prontera.gat,146,190,5 script PvP Ladder 467,{ if ($@LadderChatRoom == 1) { delwaitingroom; waitingroom "PvP Top "+$@LadderLength+"",0; // Look on the configuration! } set @name$,"[PvP-Ladder]"; //Colour of: Position Name Kills Deaths Time setarray @colour$[0], "^996600", "^006699", "^00AA00", "^FF0000", "^EE8800"; if ($@LadderAskLogin == 1){ if (#pvpbroadcast == 2) goto access_eng; if (pvpbroadcast == 2) goto access_eng; if (#pvpbroadcast == 1) goto access_eng; if (pvpbroadcast == 1) goto access_eng; if (pvpbroadcast == 0) mes "Hi, "+strcharinfo(0)+""; mes "Me is the PvP Top Management!"; mes "Let me ask you one Question and i will let you play!"; menu "Later please",L_close,"Okay, fine",L_fine; L_fine: next; mes "Well, do you want read Broadcast Messages when a Player reach a new position on the PvP Ranglist?"; menu "Yeah, why not",L_accept,"No, thanks",L_accept_2,"Wtf is Broadcast?",L_broadcast; L_accept: next; mes "Yay, thank you! "; mes "Will this Setting work on all your Chars on this account or only this char?"; menu "Account",L_account,"Only this char",L_char; L_account: set #pvpbroadcast,2; next; mes "Okay, "+strcharinfo(0)+""; mes "Thank you for your time and have fun!"; close; L_char: set pvpbroadcast,2; next; mes "Okay, "+strcharinfo(0)+""; mes "Thank you for your time and have fun!"; goto access_eng; close; L_accept_2: next; mes "Yay, thank you! "; mes "Will this Setting work on all your Chars on this account or only this char?"; menu "Account",L_account_2,"Only this char",L_char_2; L_close: close; L_account_2: set #pvpbroadcast,1; next; mes "Okay, "+strcharinfo(0)+""; mes "Thank you for your time and have fun!"; close; L_char_2: set pvpbroadcast,1; next; mes "Okay, "+strcharinfo(0)+""; mes "Thank you for your time and have fun!"; goto access_eng; close; L_broadcast: mes "Broadcasts are this yellow messages from the GMs"; goto L_fine; } access_eng: mes @name$; mes "Hello "+strcharinfo(0)+"..."; mes "If you want to I can show you your PVP stats."; next; M_selection_eng: if ( getgmlevel () < $@LadderGMMenu ) menu "Show me the PVP Ladder",M_Ladder_eng,"PvP stats since my login",M_seitLogin_eng,"PvP stats of this Char",M_dieserChar_eng,"Stats of the whole account",M_vomAccount_eng,"Cancel",M_abbrechen_eng; else menu "[GM MENU]",GMMenu,"[uSER MENU]",UserMenu; UserMenu: menu "Show me the PVP Ladder",M_Ladder_eng,"PvP stats since my login",M_seitLogin_eng,"PvP stats of this Char",M_dieserChar_eng,"Stats of the whole account",M_vomAccount_eng,"Cancel",M_abbrechen_eng; GMMenu: mes "PVP Ladder Script"; mes "Version: 1.7.3"; mes "Status of functions: "; mes "Reset Ladder: No Bugs"; mes "Delete Char on the ladder: BETA [Not working perfect]"; menu "Reset Ladder",L_reset,"Delete a Char on the Ladder",L_del_char,"Cancel",M_abbrechen_eng; M_Ladder_eng: mes "Alright...I'll show you the Top "+ $@LadderLength +" with "+$@LadderSteps+" entries per page."; mes "It'll be viewed like this:"; mes @colour$[0]+"Place^000000: "+@colour$[1]+"<name>^000000 :"+@colour$[2]+"<kills>^000000:"+@colour$[3]+"<deaths>^000000 "+@colour$[4]+"<time>"; next; callsub L_Ladder; goto M_selection_eng; M_seitLogin_eng: mes @name$; mes "Your stats since your login:"; mes @PVPKillstoday+"/"+@PVPDeathstoday+"(Kills/Deaths)"; next; goto M_selection_eng; M_dieserChar_eng: mes @name$; mes "Your stats of this Char:"; mes PVPKills+"/"+PVPDeaths+"(Kills/Deaths)"; next; goto M_selection_eng; M_vomAccount_eng: mes @name$; mes "Your stats of the whole account:"; mes #PVPKillsAccount+"/"+#PVPDeathsAccount+"(Kills/Deaths)"; next; goto M_selection_eng; M_abbrechen_eng: mes @name$; mes "OK. You can come back to me and see your stats whenever you want."; close; L_del_char: if (getgmlevel() < 99) end; mes "Do you want to delete a char on the Ladder?"; if (select ("Yes","No") == 2) goto L_end; next; mes "Please give me the Ladder Position of the Char"; input $@CharLadderInput; set $@CharLadder, $@CharLadderInput; deletearray @PosinLadder, $@CharLadderInput; next; mes "THIS IS ONLY BETA"; mes "When this step has not worked PLEASE wait until the next Update for this script"; mes "Please don't request support when this step has not worked"; close; L_reset: if (getgmlevel() < 99) end; mes "Do you want to reset the ladder?"; if (select ("Yes","No") == 2) goto L_end; mes "Are you really really sure you want to reset it?"; menu "Yes, ffs!!",-,"No",L_end; deletearray $terces_PVP_kills,128; deletearray $terces_PVP_deaths,128; deletearray $terces_PVP_names$,128; deletearray $terces_PVP_times,128; set $terces_PVP_resets,$terces_PVP_resets +1; L_end: mes "Okay...cya"; close; L_Ladder: for (set @y,0; @y < $@LadderLength; set @y,@y+$@LadderSteps){ for (set @x,@y; (@x < (@y+$@LadderSteps)) && (@x < ($@LadderLength)); set @x,@x+1){ if ($terces_PVP_names$[@x] != ""){ mes @colour$[0]+(@x+1)+"^000000: "+@colour$[1]+$terces_PVP_names$[@x]+"^000000 "+@colour$[2]+$terces_PVP_kills[@x]+"^000000:"+@colour$[3]+$terces_PVP_deaths[@x]+"^000000 ~ "+@colour$[4]+callfunc ("Gettime",$terces_PVP_times[@x])+"^000000"; } else { mes "^DD0000"+(@x+1)+": ^006699None^000000 "; } } next; } return; } function script Gettime { if (getarg(0)==0) return; set @difftimedays,(gettimetick(2) - getarg(0)); set @difftimehours,@difftimedays%86400; set @difftimeminutes,@difftimehours%3600; set @difftimeseconds,@difftimeminutes%60; set @days,@difftimedays/86400; set @hours,@difftimehours/3600; set @minutes,@difftimeminutes/60; set @seconds,@difftimeseconds; set @result$,""; if(@days != 0) set @result$,@result$+@days+"d "; if(@hours != 0) set @result$,@result$+@hours+"h "; if(@minutes != 0) set @result$,@result$+@minutes+"m "; if(@seconds != 0) set @result$,@result$+@seconds+"s"; return (@result$); }

Okay, so that the sql query that i used. But it didnt store the record in game. Whats the problem? Actually the main point is i want the pvpladder show in my fluxcp theme.

Hey guys, Below are the sql pvpladder script that i use. My problem is when ppl kill ppl (pvp) in my server it didnt record in my sql. What should i do to solve this? create table pvpladder ( char_id int(11) not null default '0' primary key, name varchar(30) not null default '', streaks smallint(6) unsigned not null default '0', kills smallint(6) unsigned not null default '0', deaths smallint(6) unsigned not null default '0', streaktime datetime ) engine = myisam; create table ownladder ( guild_id int(11) not null default '0' primary key, name varchar(24) not null default '', currentown smallint(6) unsigned not null default '0', highestown smallint(6) unsigned not null default '0', owntime datetime ) engine = myisam;

I just confuse between controller and main txt. Thanks for the info Euphy But i got info overwrite when i enable main. Is that okay?

i got error when i disable agit_main.txt

Yes for custom. Cause i need more value.

I receive overwrite info, i already disable agit_controller.txt. Do i need to disable agit_main.txt too?

As topic above how can i change max item id?

The vote too long for my template. Anyway to customize it?

@Peopleperson49 KoE doesn't start automatically. guild_vs1,27,68,5 script Emperium Assistant 55,{ if(getgmlevel()>98) { goto GMEmpMenu; end; } if($KOEGUILD==0) { mes "[Emperium Assistant]"; mes "Only the King Of Emperium Hill can reap the rewards!"; close; } if(strcharinfo(2)!=GetGuildName($KOEGUILD)) { mes "[Emperium Assistant]"; mes "Your guild is not the King Of Emperium Hill!"; close; } if(strcharinfo(0)!=GetGuildMaster($KOEGUILD)) { mes "[Emperium Assistant]"; mes "Only the guild master may collect the rewards for the guild as King Of Emperium Hill!"; close; } goto EmpAssStart; end; EmpAssStart: mes "[Emperium Assistant]"; mes " "; mes " "; mes " "; mes " "; mes "Your guild is the King Of Emperium Hill!"; next; if($KoEStatus==1) { mes "[Emperium Assistant]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot access my services at this time."; close; } if($KoEPrizeTracker==1) { mes "[Emperium Assistant]"; mes "You can only reap the rewards of being the King Of Emperium Hill once after each battle for the Hill!"; close; } mes "[Emperium Assistant]"; mes "Your rewards await you!"; next; if($KoEZenyPrize>0) { set zeny,zeny+$KoEZenyPrize; } if($KoEItemPrize1!=0&&$KoEItemAmount1!=0) { getitem $KoEItemPrize1,$KoEItemAmount1; } if($KoEItemPrize2!=0&&$KoEItemAmount2!=0) { getitem $KoEItemPrize2,$KoEItemAmount2; } if($KoEItemPrize3!=0&&$KoEItemAmount3!=0) { getitem $KoEItemPrize3,$KoEItemAmount3; } if($KoEItemPrize4!=0&&$KoEItemAmount4!=0) { getitem $KoEItemPrize4,$KoEItemAmount4; } if($KoEItemPrize5!=0&&$KoEItemAmount5!=0) { getitem $KoEItemPrize5,$KoEItemAmount5; } set $KoEPrizeTracker,1; mes "[Emperium Assistant]"; mes "You have been rewarded for your victory!"; close; GMEmpMenu: mes "[GM Menu]"; mes "From this menu you can set event times, zeny prize, and item prizes."; switch(prompt("Add New KoE Event:Clear All KoE Events:View KoE Events:Stop Current KoE Event:Change Zeny Prize:Change Item Prize 1:Change Item Prize 2:Change Item Prize 3:Change Item Prize 4:Change Item Prize 5:Return To Non-GM Menu")) { case 1: next; mes "[GM Menu]"; mes "From here you can add new KoE events."; set .KoE,0; set @KoEAddMenu$,0; AddCountCheck: if($KoEStartDay[.KoE]==0&&$KoEEndDay[.KoE]==0&&$KoEStartTime[.KoE]==0&&$KoEEndTime[.KoE]==0) { goto AddCountCheck2; } set .KoE,.KoE+1; goto AddCountCheck; AddCountCheck2: for( set .@i,1; .@i<=7; set .@i,.@i+1 ) { set @KoEAddMenu$,@KoEAddMenu$+((getd("KoEEvent_"+.@i+"$")=="")?"No Event Set":getd("KoEEvent_"+.@i+"$"))+":"; } set .KoE,select(@KoEAddMenu$); next; mes "[GM Menu]"; mes "Which day do you want KoE to ^00FF00start^000000?"; switch(select("Sunday:Monday:Tuesday:Wednesday:Thursday:Friday:Saturday")) { case 1: set $KoEStartDay[.KoE],0; break; case 2: set $KoEStartDay[.KoE],1; break; case 3: set $KoEStartDay[.KoE],2; break; case 4: set $KoEStartDay[.KoE],3; break; case 5: set $KoEStartDay[.KoE],4; break; case 6: set $KoEStartDay[.KoE],5; break; case 7: set $KoEStartDay[.KoE],6; break; } next; mes "[GM Menu]"; mes "When do you want KoE to ^00FF00start^000000?"; switch(select("1AM:2AM:3AM:4AM:5AM:6AM:7AM:8AM:9AM:10AM:11AM:Noon:1PM:2PM:3PM:4PM:5PM:6PM:7PM:8PM:9PM:10PM:11PM:Midnight")) { case 1: set $KoEStartTime[.KoE],"01"; break; case 2: set $KoEStartTime[.KoE],"02"; break; case 3: set $KoEStartTime[.KoE],"03"; break; case 4: set $KoEStartTime[.KoE],"04"; break; case 5: set $KoEStartTime[.KoE],"05"; break; case 6: set $KoEStartTime[.KoE],"06"; break; case 7: set $KoEStartTime[.KoE],"07"; break; case 8: set $KoEStartTime[.KoE],"08"; break; case 9: set $KoEStartTime[.KoE],"09"; break; case 10: set $KoEStartTime[.KoE],"10"; break; case 11: set $KoEStartTime[.KoE],"11"; break; case 12: set $KoEStartTime[.KoE],"12"; break; case 13: set $KoEStartTime[.KoE],"13"; break; case 14: set $KoEStartTime[.KoE],"14"; break; case 15: set $KoEStartTime[.KoE],"15"; break; case 16: set $KoEStartTime[.KoE],"16"; break; case 17: set $KoEStartTime[.KoE],"17"; break; case 18: set $KoEStartTime[.KoE],"18"; break; case 19: set $KoEStartTime[.KoE],"19"; break; case 20: set $KoEStartTime[.KoE],"20"; break; case 21: set $KoEStartTime[.KoE],"21"; break; case 22: set $KoEStartTime[.KoE],"22"; break; case 23: set $KoEStartTime[.KoE],"23"; break; case 24: set $KoEStartTime[.KoE],"00"; break; } next; mes "[GM Menu]"; mes "Which day do you want KoE to ^00FF00finish^000000?"; next; switch(select("Same Day:Sunday:Monday:Tuesday:Wednesday:Thursday:Friday:Saturday")) { case 1: set $KoEEndDay[.KoE],$KoEStartDay[.KoE]; break; case 2: set $KoEEndDay[.KoE],0; break; case 3: set $KoEEndDay[.KoE],1; break; case 4: set $KoEEndDay[.KoE],2; break; case 5: set $KoEEndDay[.KoE],3; break; case 6: set $KoEEndDay[.KoE],4; break; case 7: set $KoEEndDay[.KoE],5; break; case 8: set $KoEEndDay[.KoE],6; break; } next; mes "[GM Menu]"; mes "When do you want KoE to ^00FF00finish^000000?"; switch(select("1AM:2AM:3AM:4AM:5AM:6AM:7AM:8AM:9AM:10AM:11AM:Noon:1PM:2PM:3PM:4PM:5PM:6PM:7PM:8PM:9PM:10PM:11PM:Midnight")) { case 1: set $KoEEndTime[.KoE],"01"; break; case 2: set $KoEEndTime[.KoE],"02"; break; case 3: set $KoEEndTime[.KoE],"03"; break; case 4: set $KoEEndTime[.KoE],"04"; break; case 5: set $KoEEndTime[.KoE],"05"; break; case 6: set $KoEEndTime[.KoE],"06"; break; case 7: set $KoEEndTime[.KoE],"07"; break; case 8: set $KoEEndTime[.KoE],"08"; break; case 9: set $KoEEndTime[.KoE],"09"; break; case 10: set $KoEEndTime[.KoE],"10"; break; case 11: set $KoEEndTime[.KoE],"11"; break; case 12: set $KoEEndTime[.KoE],"12"; break; case 13: set $KoEEndTime[.KoE],"13"; break; case 14: set $KoEEndTime[.KoE],"14"; break; case 15: set $KoEEndTime[.KoE],"15"; break; case 16: set $KoEEndTime[.KoE],"16"; break; case 17: set $KoEEndTime[.KoE],"17"; break; case 18: set $KoEEndTime[.KoE],"18"; break; case 19: set $KoEEndTime[.KoE],"19"; break; case 20: set $KoEEndTime[.KoE],"20"; break; case 21: set $KoEEndTime[.KoE],"21"; break; case 22: set $KoEEndTime[.KoE],"22"; break; case 23: set $KoEEndTime[.KoE],"23"; break; case 24: set $KoEEndTime[.KoE],"00"; break; } next; mes "[GM Menu]"; set .@RandomFinalize,rand(100,999); mes "Are you sure you want to set a new KoE event? To finalize the new KoE event? If your 100% sure type the number ^0000FF"+.@RandomFinalize+"^000000."; input .@Finalize; if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust KoE event times!"; close2; goto GMEmpMenu; end; } if($KoEStartDay[.KoE]==0&&$KoEEndDay[.KoE]==0&&$KoETime[.KoE]==0&&$KoEEndTime[.KoE]==0) { close2; goto GMEmpMenu; end; } if($KoEStartDay[.KoE]==0) { set $@KoEStartDayName$,"Sunday"; } if($KoEStartDay[.KoE]==1) { set $@KoEStartDayName$,"Monday"; } if($KoEStartDay[.KoE]==2) { set $@KoEStartDayName$,"Tuesday"; } if($KoEStartDay[.KoE]==3) { set $@KoEStartDayName$,"Wednesday"; } if($KoEStartDay[.KoE]==4) { set $@KoEStartDayName$,"Thursday"; } if($KoEStartDay[.KoE]==5) { set $@KoEStartDayName$,"Friday"; } if($KoEStartDay[.KoE]==6) { set $@KoEStartDayName$,"Saturday"; } if($KoEEndDay[.KoE]==0) { set $@KoEEndDayName$,"Sunday"; } if($KoEEndDay[.KoE]==1) { set $@KoEEndDayName$,"Monday"; } if($KoEEndDay[.KoE]==2) { set $@KoEEndDayName$,"Tuesday"; } if($KoEEndDay[.KoE]==3) { set $@KoEEndDayName$,"Wednesday"; } if($KoEEndDay[.KoE]==4) { set $@KoEEndDayName$,"Thursday"; } if($KoEEndDay[.KoE]==5) { set $@KoEEndDayName$,"Friday"; } if($KoEEndDay[.KoE]==6) { set $@KoEEndDayName$,"Saturday"; } next; mes "[GM Menu]"; mes ""+$@KoEStartDayName$+" from "+$KoEStartTime[.KoE]+":00 till "+$@KoEStartDayName$+" at "+$KoEEndTime[.KoE]+":00"; setd("KoEEvent_"+.KoE+"$"),"Event "+.KoE+" Set"; close2; goto GMEmpMenu; end; case 2: next; if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes "KoE events cannot be cleared at this time. You must stop the current KoE event first."; close2; goto GMEmpMenu; end; } mes "[GM Menu]"; set .@RandomFinalize,rand(100,999); mes "You are about to clear all the set KoE events and prizes set for them. If your 100% sure type the number ^0000FF"+.@RandomFinalize+"^000000."; input .@Finalize; if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't clear KoE events!"; close2; goto GMEmpMenu; end; } set $KoEZenyPrize,0; set $KoEItemPrize1,0; set $KoEItemAmount1,0; set $KoEItemPrize2,0; set $KoEItemAmount2,0; set $KoEItemPrize3,0; set $KoEItemAmount3,0; set $KoEItemPrize4,0; set $KoEItemAmount4,0; set $KoEItemPrize5,0; set $KoEItemAmount5,0; set .KoE,0; ResetLoop: set $KoEStartDay[.KoE],0; set $KoEEndDay[.KoE],0; set $KoEStartTime[.KoE],0; set $KoEEndTime[.KoE],0; setd("KoEEvent_"+.KoE+"$"),"No Event Set"; set .KoE,.KoE+1; if(.KoE>7) { next; mes "[GM Menu]"; mes "All KoE events have been cleared."; close2; goto GMEmpMenu; end; } goto ResetLoop; end; case 3: next; mes "Current KoE Event Times:"; mes " "; set .KoE,1; KoEDayCheck: if($KoEStartDay[.KoE]==0) { set $@KoEStartDayName$,"Sunday"; } if($KoEStartDay[.KoE]==1) { set $@KoEStartDayName$,"Monday"; } if($KoEStartDay[.KoE]==2) { set $@KoEStartDayName$,"Tuesday"; } if($KoEStartDay[.KoE]==3) { set $@KoEStartDayName$,"Wednesday"; } if($KoEStartDay[.KoE]==4) { set $@KoEStartDayName$,"Thursday"; } if($KoEStartDay[.KoE]==5) { set $@KoEStartDayName$,"Friday"; } if($KoEStartDay[.KoE]==6) { set $@KoEStartDayName$,"Saturday"; } if($KoEEndDay[.KoE]==0) { set $@KoEEndDayName$,"Sunday"; } if($KoEEndDay[.KoE]==1) { set $@KoEEndDayName$,"Monday"; } if($KoEEndDay[.KoE]==2) { set $@KoEEndDayName$,"Tuesday"; } if($KoEEndDay[.KoE]==3) { set $@KoEEndDayName$,"Wednesday"; } if($KoEEndDay[.KoE]==4) { set $@KoEEndDayName$,"Thursday"; } if($KoEEndDay[.KoE]==5) { set $@KoEEndDayName$,"Friday"; } if($KoEEndDay[.KoE]==6) { set $@KoEEndDayName$,"Saturday"; } mes "^FF0000Event "+.KoE+"^000000"; if($KoEStartDay[.KoE]==0&&$KoEEndDay[.KoE]==0&&$KoEStartTime[.KoE]==0&&$KoEEndTime[.KoE]==0) { mes "No Event Set"; } else { mes ""+$@KoEStartDayName$+" at "+$KoEStartTime[.KoE]+":00 till "+$@KoEEndDayName$+" at "+$KoEEndTime[.KoE]+":00"; } set .KoE,.KoE+1; if(.KoE>7) { close2; goto GMEmpMenu; end; } goto KoEDayCheck; end; case 4: next; if($KoEStatus==0) { mes "[GM Menu]"; mes "There is currently no KoE event running."; close2; goto GMEmpMenu; end; } mes "[GM Menu]"; set .@RandomFinalize,rand(100,999); mes "You are about to stop the current KoE event. If your 100% sure type the number ^0000FF"+.@RandomFinalize+"^000000."; input .@Finalize; if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't stop KoE events while there going!"; close2; goto GMEmpMenu; end; } set $KoEStatus,0; gvgoff "gefg_cas01"; if(getmapusers("gefg_cas01")>0) { MapRespawnGuildID "gefg_cas01",$KOEGUILD,7; } killmonsterall "gefg_cas01",0; set .@name$,GetGuildMaster($KOEGUILD); if($KOEGUILD!=0) { Announce "The King of Emperium Hill has ended! The King Of Emperium Hill is the ["+GetGuildName($KOEGUILD)+"] guild.",bc_all|bc_WoE; } else { Announce "The King of Emperium Hill has ended! No guild has proven themselves King Of Emperium Hill!",bc_all|bc_WoE; } close2; goto GMEmpMenu; end; case 5: next; if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot adjust the Zeny Prize at this time."; close2; goto GMEmpMenu; end; } mes "[GM Menu]"; mes "The current Zeny Prize amount is ^ff0000"+$KoEZenyPrize+"^000000."; mes "NOTE: If it says 'NULL' or '0' then that value has not been set."; mes " "; mes "Enter what you want the new Zeny Prize to be."; input .@GMAdjust; if(.@GMAdjust<0) { next; mes "[GM Menu]"; mes "The Zeny Prize cannot be less than 0."; next; goto GMEmpMenu; end; } next; mes "[GM Menu]"; set .@RandomFinalize,rand(100,999); mes "Are you sure you want to modify the Zeny Prize to ^ff0000"+.@GMAdjust+"^000000? To finalize the change in Zeny Prize type the number ^0000FF"+.@RandomFinalize+"^000000."; input .@Finalize; if(.@Finalize==.@RandomFinalize) { next; set $KoEZenyPrize,.@GMAdjust; mes "[GM Menu]"; mes "The Zeny Prize amount has been changed to ^ff0000"+$KoEZenyPrize+"^000000."; next; goto GMEmpMenu; end; } next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust the Zeny Prize!"; close2; goto GMEmpMenu; end; case 6: next; if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot adjust the Item Prize at this time."; close2; goto GMEmpMenu; end; } mes "[GM Menu]"; mes "From this menu you can adjust the item prize. The current Reward is: ^ff0000"+$KoEItemAmount1+"^000000 ^ff0000"+getitemname($KoEItemPrize1)+"^000000."; mes "NOTE: If it says 'NULL' or '0' then that value has not been set."; mes " "; mes "Enter what you want the new Item Prize to be. WARNING: If you input an invalid itemID it will error everytime a player tries to recieve it!"; input .@GMAdjust; next; set $KoEItemPrize1,.@GMAdjust; mes "The Item Prize amount has been changed to ^ff0000"+getitemname($KoEItemPrize1)+"^000000[^ff0000"+$KoEItemPrize1+"^000000]."; next; mes "[GM Menu]"; mes "The current Item Prize Amount is ^ff0000"+$KoEItemAmount1+"^000000."; mes "NOTE: If it says 'NULL' or '0' then that value has not been set."; mes "Enter what you want the new Item Prize Amount to be."; input .@GMAdjust; if(.@GMAdjust<1) { next; mes "[GM Menu]"; mes "The Item Prize Amount cannot be less than 1."; next; goto GMEmpMenu; end; } next; mes "[GM Menu]"; set .@RandomFinalize,rand(100,999); mes "Are you sure you want to modify the Item Prize Amount to ^ff0000"+.@GMAdjust+"^000000 "+getitemname($KoEItemPrize1)+"? To finalize the change in Item Prize type the number ^0000FF"+.@RandomFinalize+"^000000."; input .@Finalize; if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust the Item Prize!"; next; goto GMEmpMenu; end; } next; mes "[GM Menu]"; set $KoEItemAmount1,.@GMAdjust; mes "The Item Prize amount has been changed to ^ff0000"+$KoEItemAmount1+"^000000 ^ff0000"+getitemname($KoEItemPrize1)+"^000000."; close2; goto GMEmpMenu; end; case 7: if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot adjust the Item Prize at this time."; close2; goto GMEmpMenu; end; } mes "[GM Menu]"; mes "From this menu you can adjust the item prize. The current Reward is: ^ff0000"+$KoEItemAmount2+"^000000 ^ff0000"+getitemname($KoEItemPrize2)+"^000000."; mes "NOTE: If it says 'NULL' or '0' then that value has not been set."; mes " "; mes "Enter what you want the new Item Prize to be. WARNING: If you input an invalid itemID it will error everytime a player tries to recieve it!"; input .@GMAdjust; next; set $KoEItemPrize2,.@GMAdjust; mes "The Item Prize amount has been changed to ^ff0000"+getitemname($KoEItemPrize2)+"^000000[^ff0000"+$KoEItemPrize2+"^000000]."; next; mes "[GM Menu]"; mes "The current Item Prize Amount is ^ff0000"+$KoEItemAmount2+"^000000."; mes "NOTE: If it says 'NULL' or '0' then that value has not been set."; mes "Enter what you want the new Item Prize Amount to be."; input .@GMAdjust; if(.@GMAdjust<1) { next; mes "[GM Menu]"; mes "The Item Prize Amount cannot be less than 1."; next; goto GMEmpMenu; end; } next; mes "[GM Menu]"; set .@RandomFinalize,rand(100,999); mes "Are you sure you want to modify the Item Prize Amount to ^ff0000"+.@GMAdjust+"^000000 "+getitemname($KoEItemPrize2)+"? To finalize the change in Item Prize type the number ^0000FF"+.@RandomFinalize+"^000000."; input .@Finalize; if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust the Item Prize!"; next; goto GMEmpMenu; end; } next; mes "[GM Menu]"; set $KoEItemAmount2,.@GMAdjust; mes "The Item Prize amount has been changed to ^ff0000"+$KoEItemAmount2+"^000000 ^ff0000"+getitemname($KoEItemPrize2)+"^000000."; close2; goto GMEmpMenu; end; case 8: next; if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot adjust the Item Prize at this time."; close2; goto GMEmpMenu; end; } mes "[GM Menu]"; mes "From this menu you can adjust the item prize. The current Reward is: ^ff0000"+$KoEItemAmount3+"^000000 ^ff0000"+getitemname($KoEItemPrize3)+"^000000."; mes "NOTE: If it says 'NULL' or '0' then that value has not been set."; mes " "; mes "Enter what you want the new Item Prize to be. WARNING: If you input an invalid itemID it will error everytime a player tries to recieve it!"; input .@GMAdjust; next; set $KoEItemPrize3,.@GMAdjust; mes "The Item Prize amount has been changed to ^ff0000"+getitemname($KoEItemPrize3)+"^000000[^ff0000"+$KoEItemPrize3+"^000000]."; next; mes "[GM Menu]"; mes "The current Item Prize Amount is ^ff0000"+$KoEItemAmount3+"^000000."; mes "NOTE: If it says 'NULL' or '0' then that value has not been set."; mes "Enter what you want the new Item Prize Amount to be."; input .@GMAdjust; if(.@GMAdjust<1) { next; mes "[GM Menu]"; mes "The Item Prize Amount cannot be less than 1."; next; goto GMEmpMenu; end; } next; mes "[GM Menu]"; set .@RandomFinalize,rand(100,999); mes "Are you sure you want to modify the Item Prize Amount to ^ff0000"+.@GMAdjust+"^000000 "+getitemname($KoEItemPrize3)+"? To finalize the change in Item Prize type the number ^0000FF"+.@RandomFinalize+"^000000."; input .@Finalize; if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust the Item Prize!"; next; goto GMEmpMenu; end; } next; mes "[GM Menu]"; set $KoEItemAmount3,.@GMAdjust; mes "The Item Prize amount has been changed to ^ff0000"+$KoEItemAmount3+"^000000 ^ff0000"+getitemname($KoEItemPrize3)+"^000000."; close2; goto GMEmpMenu; end; case 9: next; if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot adjust the Item Prize at this time."; close2; goto GMEmpMenu; end; } mes "[GM Menu]"; mes "From this menu you can adjust the item prize. The current Reward is: ^ff0000"+$KoEItemAmount4+"^000000 ^ff0000"+getitemname($KoEItemPrize4)+"^000000."; mes "NOTE: If it says 'NULL' or '0' then that value has not been set."; mes " "; mes "Enter what you want the new Item Prize to be. WARNING: If you input an invalid itemID it will error everytime a player tries to recieve it!"; input .@GMAdjust; next; set $KoEItemPrize4,.@GMAdjust; mes "The Item Prize amount has been changed to ^ff0000"+getitemname($KoEItemPrize4)+"^000000[^ff0000"+$KoEItemPrize4+"^000000]."; next; mes "[GM Menu]"; mes "The current Item Prize Amount is ^ff0000"+$KoEItemAmount4+"^000000."; mes "NOTE: If it says 'NULL' or '0' then that value has not been set."; mes "Enter what you want the new Item Prize Amount to be."; input .@GMAdjust; if(.@GMAdjust<1) { next; mes "[GM Menu]"; mes "The Item Prize Amount cannot be less than 1."; next; goto GMEmpMenu; end; } next; mes "[GM Menu]"; set .@RandomFinalize,rand(100,999); mes "Are you sure you want to modify the Item Prize Amount to ^ff0000"+.@GMAdjust+"^000000 "+getitemname($KoEItemPrize4)+"? To finalize the change in Item Prize type the number ^0000FF"+.@RandomFinalize+"^000000."; input .@Finalize; if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust the Item Prize!"; next; goto GMEmpMenu; end; } next; mes "[GM Menu]"; set $KoEItemAmount4,.@GMAdjust; mes "The Item Prize amount has been changed to ^ff0000"+$KoEItemAmount4+"^000000 ^ff0000"+getitemname($KoEItemPrize4)+"^000000."; close2; goto GMEmpMenu; end; case 10: next; if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot adjust the Item Prize at this time."; close2; goto GMEmpMenu; end; } mes "[GM Menu]"; mes "From this menu you can adjust the item prize. The current Reward is: ^ff0000"+$KoEItemAmount5+"^000000 ^ff0000"+getitemname($KoEItemPrize5)+"^000000."; mes "NOTE: If it says 'NULL' or '0' then that value has not been set."; mes " "; mes "Enter what you want the new Item Prize to be. WARNING: If you input an invalid itemID it will error everytime a player tries to recieve it!"; input .@GMAdjust; next; set $KoEItemPrize5,.@GMAdjust; mes "The Item Prize amount has been changed to ^ff0000"+getitemname($KoEItemPrize5)+"^000000[^ff0000"+$KoEItemPrize5+"^000000]."; next; mes "[GM Menu]"; mes "The current Item Prize Amount is ^ff0000"+$KoEItemAmount5+"^000000."; mes "NOTE: If it says 'NULL' or '0' then that value has not been set."; mes "Enter what you want the new Item Prize Amount to be."; input .@GMAdjust; if(.@GMAdjust<1) { next; mes "[GM Menu]"; mes "The Item Prize Amount cannot be less than 1."; next; goto GMEmpMenu; end; } next; mes "[GM Menu]"; set .@RandomFinalize,rand(100,999); mes "Are you sure you want to modify the Item Prize Amount to ^ff0000"+.@GMAdjust+"^000000 "+getitemname($KoEItemPrize5)+"? To finalize the change in Item Prize type the number ^0000FF"+.@RandomFinalize+"^000000."; input .@Finalize; if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust the Item Prize!"; next; goto GMEmpMenu; end; } next; mes "[GM Menu]"; set $KoEItemAmount5,.@GMAdjust; mes "The Item Prize amount has been changed to ^ff0000"+$KoEItemAmount5+"^000000 ^ff0000"+getitemname($KoEItemPrize5)+"^000000."; close2; goto GMEmpMenu; end; case 11: next; goto EmpAssStart; end; case 255: goto EmpAssStart; end; } } - script KingOfEmperium -1,{ end; OnInit: set $GvGPvP,0; //Set to 0 for GvG and 1 for PvP set $KoEStatus,0; OnMinute00: set .KoE,0; StartLoop: if(gettime(7)==$KoEEndDay[.KoE]&&gettime(6)==$KoEEndTime[.KoE]) { goto KoEActualEnd; end; } if(gettime(7)==$KoEStartDay[.KoE]&&gettime(6)>=$KoEStartTime[.KoE]&&(gettime(3)<$KoEEndTime[.KoE] || $KoEStartDay[.KoE]!=$KoEEndDay[.KoE])) { goto KoEActualStart; end; } set .KoE,.KoE+1; if(.KoE>7) { goto StartLoopEnd; } goto StartLoop; end; KoEActualStart: if($KoEStatus==1) { end; } set $KoEStatus,1; set $KoEPrizeTracker,0; if($KOEGUILD!=0) { Announce "The King of Emperium Hill has begun! The King Of Emperium Hill is the ["+GetGuildName($KOEGUILD)+"] guild.",bc_all|bc_WoE; } else { Announce "King Of Emperium Hill has began! Which guild will prove their worth?",bc_all|bc_WoE; } if(getmapusers("gefg_cas01")>0) { MapRespawnGuildID "gefg_cas01",$KOEGUILD,6; } if($GvGPvP==0) { gvgon "gefg_cas01"; } else { pvpon "gefg_cas01"; } monster "gefg_cas01",198,182,"EMPERIUM",1288,1,"KingOfEmperium::OnEmperiumBreak"; end; StartLoopEnd: set .KoE,0; EndLoop: if((gettime(7)==$KoEEndDay[.KoE])&&(gettime(6)==$KoEEndTime[.KoE])) { goto KoEActualEnd; end; } if($KoEEndDay[.KoE]==0&&$KoEStartTime[.KoE]==0&&$KoEEndTime[.KoE]==0) { end; } set .KoE,.KoE+1; if(.KoE>7) { end; } goto EndLoop; end; KoEActualEnd: if($KoEStatus==0) { end; } set $KoEStatus,0; if($GvGPvP==0) { gvgoff "gefg_cas01"; } else { pvpoff "gefg_cas01"; } if(getmapusers("gefg_cas01")>0) { MapRespawnGuildID "gefg_cas01",$KOEGUILD,7; } killmonsterall "gefg_cas01",0; set .@name$,GetGuildMaster($KOEGUILD); if($KOEGUILD!=0) { Announce "The King of Emperium Hill has ended! The King Of Emperium Hill is the ["+GetGuildName($KOEGUILD)+"] guild.",bc_all|bc_WoE; } else { Announce "The King of Emperium Hill has ended! No guild has proven themselves King Of Emperium Hill!",bc_all|bc_WoE; } end; OnEmperiumBreak: if(getskilllv(10000)!=1) { announce "Only a guild with the Guild Approval skill can kill the Emperium!",bc_self; monster "gefg_cas01",198,182,"EMPERIUM",1288,1,"KingOfEmperium::OnEmperiumBreak"; end; } killmonsterall "gefg_cas01",0; set $KOEGUILD,getcharid(2); mapannounce "gefg_cas01",""+strcharinfo(0)+" has broken the emperium for the ["+GetGuildName($KOEGUILD)+"] guild.",bc_map|bc_WoE,"0x00CCFF",FW_NORMAL,12; sleep 2000; if(getmapusers("gefg_cas01")>0) { MapRespawnGuildID "gefg_cas01",$KOEGUILD,6; } announce "The ["+getguildName($KOEGUILD)+"] guild has became the King Of Emperium Hill!",bc_all|bc_WoE; sleep 5000; if($KoEStatus==1) { monster "gefg_cas01",198,182,"EMPERIUM",1288,1,"KingOfEmperium::OnEmperiumBreak"; } end; OnWhisperGlobal: if(getgmlevel()<99) { end; } if(@whispervar0$=="StartKoE") { if($KoEStatus==1) { dispbottom "KoE is already running."; end; } goto KoEActualStart; end; } if(@whispervar0$=="EndKoE") { if($KoEStatus==0) { dispbottom "KoE is currently not running."; end; }goto KoEActualEnd; end; } end; } //================================================================================== //--------|King Of Emperium Hill Guild Protection|---------------------------------- //================================================================================== - script KoEGuildProtection -1,{ OnInit: end; OnPCLoadMapEvent: if(getgmlevel()<20&&strcharinfo(3)=="gefg_cas01"&&getcharid(2)==0) { announce "You must be in a guild to enter Emperium Hill!",bc_self; warp "SavePoint",0,0; end; } end; } //================================================================================== //--------|KoE Flag Script|--------------------------------------------------------- //================================================================================== - script KoEFlag 723,-1,-1,{ set .@gid, $KOEGUILD; if ( .@gid == 0 ) end; mes "[Emperium Hill]"; mes " "; mes " "; mes " "; mes " "; if($KOEGUILD!=0) { mes "The King Of Emperium Hill is the ["+GetGuildName($KOEGUILD)+"] guild."; } else { mes "Only the strongest warriors should may over take Emperium Hill!"; } close; OnRevKoE: flagemblem $KOEGUILD; end; OnInit: flagemblem $KOEGUILD; end; } prontera,156,192,4 duplicate(KoEFlag) King of Emperium#EH1 722

GM will be ban too?

For download?

Good one. Thank you

Working! Thank you

Hai, can someone help me in this script. I would like to add up 50 coins for each enchantment. prontera,165,60,2 script Apprentice Craftsman 73,{ mes "[Apprentice Craftsman]"; if (Zeny > 399999) { mes "I've been studying ways to enhance an armor to maximize its capability."; next; mes "[Apprentice Craftsman]"; mes "Enchanting is an awesome skill that infuses a mysterious status powers into the armor's hidden socket."; next; mes "[Apprentice Craftsman]"; mes "However, you have to keep in mind that if there are two armors of the same kind in your possession, the Enchantment will be applied in the order they are placed in your inventory."; next; mes "[Apprentice Craftsman]"; mes "In that case, the Enchantment may be applied to an item which you didn't mean to Enchant. So just bring ^5555ffONE Armor^000000 you want enchanted to be safe..."; next; mes "[Apprentice Craftsman]"; mes "I'm not responsible for what would happen if you have more than one of the same kind in your inventory."; next; switch(select("Armor with no Slots:Armor with Slots:High Grade Armor:Maybe next time")) { case 1: setarray .@Items[0],2307,2309,2314,2316,2321,2325,2327,2328,2330,2332,2334,2335,2341,2344,2346,2348,2350,2337,2386,2394,2395,2396; set .@j,50; break; case 2: setarray .@Items[0],2311,2318,2319,2320,2308,2310,2315,2317,2322,2324,2326,2331,2333,2336,2342,2345,2347,2349,2351; set .@j,55; set .@k,1; break; case 3: setarray .@Items[0],2364,2365,2391,2374,2375,2376,2377,2378,2379,2380,2381,2382,2387,2388,2389,2390; set .@j,60; break; case 4: mes "[Apprentice Craftsman]"; mes "Please come back when you have any interest in enchanting your armor."; close; } set .@menu$,""; for(set .@i,0; .@i<getarraysize(.@Items); set .@i,.@i+1) set .@menu$, .@menu$+getitemname(.@Items[.@i])+((.@k)?" [1]":"")+":"; callsub S_EnchantArmor, .@Items[select(.@menu$)-1], .@j; end; } else { mes "I am in charge of Enchanting Armors. Simply put, I've been studying ways to power-up armor."; next; mes "[Apprentice Craftsman]"; mes "If by any chance, you would want to enchant your armor, bring me 400,000 zeny and the armor you want to enchant and you are all set to go."; close; } S_EnchantArmor: set .@itemid,getarg(0); set .@failrate,getarg(1); mes "[Apprentice Craftsman]"; if ((countitem(.@itemid) > 0) && (countitem(.@itemid) < 2)) { mes "Socket enchant will cost you 400,000 zeny. And there will be a random option enchanted. Of course, there is a chance of breaking your armor."; next; mes "[Apprentice Craftsman]"; mes "First and most importantly."; mes "^ff5555Existing Refine Level of the Armor"; mes "and Cards will be GONE.^000000"; mes "Do you still want to try an Enchant?"; next; if(select("Hmm... Let me think it over.:I've made up my mind already. Give it a shot.")==1) { mes "[Apprentice Craftsman]"; mes "Well, I can't blame you. Safety first, eh?"; mes "Now you have a nice day."; close; } mes "[Apprentice Craftsman]"; mes "Quite of an adventurer huh? Well, shall we?"; close2; specialeffect2 EF_MAPPILLAR; if (Zeny < 400000) { mes "[Apprentice Craftsman]"; mes "Sorry, but you don't have enough zeny."; close; } progressbar "ffff00",7; set zeny,zeny-400000; delitem .@itemid,1; switch (rand(1,.@failrate)) { case 1: set .@addpart,4702;break; case 2: set .@addpart,4712;break; case 3: set .@addpart,4722;break; case 4: set .@addpart,4732;break; case 5: set .@addpart,4742;break; case 6: set .@addpart,4752;break; case 7: case 8: set .@addpart,4701;break; case 9: case 10: set .@addpart,4711;break; case 11: case 12: set .@addpart,4721;break; case 13: case 14: set .@addpart,4731;break; case 15: case 16: set .@addpart,4741;break; case 17: case 18: set .@addpart,4751;break; case 19: case 20: case 21: set .@addpart,4700;break; case 22: case 23: case 24: set .@addpart,4710;break; case 25: case 26: case 27: set .@addpart,4720;break; case 28: case 29: case 30: set .@addpart,4730;break; case 31: case 32: case 33: set .@addpart,4740;break; case 34: case 35: case 36: set .@addpart,4750;break; default: specialeffect2 EF_PHARMACY_FAIL; mes "[Apprentice Craftsman]"; mes "Well that's too bad."; mes "The requested equipment has failed to enchant."; close; } getitem2 .@itemid, 1, 1, 0, 0, 0, 0, 0, .@addpart; } else { mes "Hmm? There's nothing to be enchanted!"; mes "Please come back with just ONE equipment to be enchanted."; close; } }

Euphy, about your quest shop I try to duplicate the npc and each npc sell different items. The problem is All the item will be at all npcs that i duplicated. How can i seperate the item for each npc. I dont wanna use multi function.

Thank you admin

As topic above, I changed my KoE map to Castle and start everyday from 7PM to 8PM. I would like to request a Warper NPC to the castle that will only available from 7PM to 8PM everyday. Thanks in advance.

When we do body relocation skill then it takes 2 seconds delay to use asura skill, but my problem is the delay takes 4~5seconds. How can I fix this? I changed skill cast db but nothing effect the delay still remain 4~5 seconds.