Jump to content

VhayneRO

Members
  • Posts

    41
  • Joined

  • Last visited

Everything posted by VhayneRO

  1. Asking for assistance, Im using a php script by Gerome on my flux cp, and also this pvp script by annieruru im lacking a sql script i think, cause on my putty it has errors, showing debug things. not sure what it is tho,. any1 experienced this? and does an1 have that sql file? so i can import it to my db. Any help would be greatly appreciated.!
  2. VhayneRO

    CTF

    So im using MemoryKiller's CTF Script this one //===== eAthena Script ======================================= //= Capture the Flag //===== By: ================================================== //= Memorykiller //===== Current Version: ===================================== //= 1.4 //===== Description: ========================================= //= Halo CTF style. GM has to start it but does not have to supervise it //= The players are divided up into two teams, Red Team and Blue Team. //= There are two flags, each team must capture the other team's flag and return //= it to their own. They cannot score if their flag is taken. First team to //= score 3 captures wins! //===== Additional Comments: ================================= //= Technically, there are 4 Flags, 2 for the starting base. 2 for dropped flags //= Beware of issues via player logout, the bug should be fixed though //= Starter NPC is located at "bat_b01,389,8". Careful not to touch the flags //= Clothes color change when joining teams and when picking up the flag to add //= some coolness! =) //= Players should use the Starter NPC in jupe_ele. GMs should use the one in //= bat_b01 //= GM can configure CTF settings with the CTF NPC //============================================================ bat_b01 mapflag pvp bat_b01 mapflag nomemo bat_b01 mapflag noreturn bat_b01 mapflag nowarp bat_b01 mapflag nowarpto bat_b01 mapflag noicewall bat_b01,0,0,0 script ctf_sys -1,{ end; OnPCLogoutEvent: If(BlueTeam == 1){ //If PC has the red flag, drops on logout if( RedFlagTaken == 1 ){ mapannounce "bat_b01","The Red Flag has been dropped",bc_map,0xFF0000; getmapxy (mapname$,.@mapx,.@mapy,0,strcharinfo(0)); movenpc "Red_Flag_1",.@mapx,.@mapy; } setlook 7,"normallook"+strcharinfo(0);//Clearing all variables, restoring original look, and saving in prontera set BlueTeam, 0; set RedTeam, 0; set RedFlagTaken, 0; set BlueFlagTaken, 0; savepoint "prontera",156,191; set Blue_Flag_Carrier$,0; set Red_Flag_Carrier$,0; } if(RedTeam == 1){ //If PC has the blue flag, drops on logout if( BlueFlagTaken == 1 ){ mapannounce "bat_b01","The Blue Flag has been dropped",bc_map,0x0000FF; getmapxy (mapname$,.@mapx,.@mapy,0,strcharinfo(0)); movenpc "Blue_Flag_1",.@mapx,.@mapy; } setlook 7,"normallook"+strcharinfo(0);//Clearing all variables, restoring original look, and saving in prontera set BlueTeam, 0; set RedTeam, 0; set RedFlagTaken, 0; set BlueFlagTaken, 0; savepoint "prontera",156,191; set Blue_Flag_Carrier$,0; set Red_Flag_Carrier$,0; } end; OnPCDieEvent: if( BlueFlagTaken == 1 ){ mapannounce "bat_b01", "The Blue Flag has been dropped",bc_map,0x0000FF; setlook 7, 122; getmapxy (mapname$,.@mapx,.@mapy,0,strcharinfo(0)); movenpc "Blue_Flag_1",.@mapx,.@mapy; set BlueFlagTaken, 0; set Blue_Flag_Carrier$,0; end; } if( RedFlagTaken == 1 ){ mapannounce "bat_b01", "The Red Flag has been dropped",bc_map,0xFF0000; setlook 7, 103; getmapxy (mapname$,.@mapx,.@mapy,0,strcharinfo(0)); movenpc "Red_Flag_1",.@mapx,.@mapy; set RedFlagTaken, 0; set Red_Flag_Carrier$,0; end; } end; OnCTFEndGame: atcommand "@pvpoff"; //Pvp off, ressurects everyone, and disables the flags atcommand "@raisemap"; movenpc "Prontera Warper#1",72,148; movenpc "Prontera Warper#2",321,151; movenpc "Prontera Warper#3",311,229; movenpc "Prontera Warper#4",87,79; movenpc "Red_Flag",391,15; //Incase flags come back, move them to a remote location [safety Precaution] movenpc "Blue_Flag",391,14; movenpc "Red_Flag_1",392,15; movenpc "Blue_Flag_1",392,14; enablenpc "Wall#1"; enablenpc "Wall#2"; enablenpc "Wall#3"; enablenpc "Wall#4"; set $Blue_Password$,"blue"; set $Red_Password$,"red"; set Blue_Flag_Carrier$,0; set Red_Flag_Carrier$,0; end; } // This is the NPC players will use to join the game. GMS can start CTF, join, or kill a player. // Also duplicated on the map [bat_b01 389 8] dicastes01,248,127,2 script Capture The Flag 874,{ if(getgmlevel() == 99){ mes "[CTF]"; mes "Want do you want to do?"; menu "Start CTF",start_ctf,"Join the fight",jtf,"Kill Somebody",k1,"Configure CTF",CTFConfig; CTFConfig: mes "[CTF]"; mes "What setting do you wish to change?"; menu "Team Passwords",STpass,"Max Capture Limit",CTFcapL,"Set Base Levels",SBlvl,"Disable/Enable Carrier Viewing",DEview; STpass: mes "Which team do you want to set a password for?"; menu "Blue Team",SBpass,"Red Team",SRpass; SBpass: mes "What will Blue Teams password be?"; input $Blue_Password$; announce "Capture The Flag Event:",0; announce "The Blue Password has been changed by a GM",0; next; mes "Please notify the Blue Team party leader of the new password"; close; SRpass: mes "What will Red Teams password be?"; input $Red_Password$; announce "Capture The Flag Event:",0; announce "The Red Password has been changed by a GM",0; next; mes "Please notify the Red Team party leader of the new password"; close; CTFcapL: mes "How many flag captures until the match is over? (3 reccommended and default, cannot go over 10)"; input $Cap_Limit; if($Cap_Limit > 10){ mes "Sorry, you can only have a range or 1-10 captures"; close; } if($Cap_Limit <= 0){ mes "Sorry, you can only have a range or 1-10 captures"; close; } mes "The Cap Limit is now "+$Cap_Limit; close; SBlvl: if($FBlvl_Set == 0){ mes "You have not configured this setting before, what is the maximum baselevel for your server?"; input $Blvl_Max; mes "Your maximum base level is "+$Blvl_Max; next; } mes "Do you want to configure a new Max Base Level on your server, or set a Minimum Base Level that players have to be to join?"; menu "Set Minimum Base Level",SminBL,"Set Maximum Base Level",SmaxBL; SminBL: mes "What will be the minumum base level requirement to join Capture The Flag?"; input $Blvl_Min; if($Blvl_Min <= 0){ mes "The minimum baselevel must be between 1-"+$Blvl_Max; close; } if($Blvl_Min > $Blvl_Max){ mes "The Minimum baselevel can't be greater than the maximum baselevel("+$Blvl_Max+")!!! Then no one could join!"; close; } next; mes "The minimum baselevel requirement is "+$Blvl_Min; close; SmaxBL: mes "What is the maximum baselevel for your server?"; input $Blvl_Max; mes "Your maximum base level is "+$Blvl_Max; close; DEview: mes "Do you wish to disable/enable the indicators on the mini-map for the flag carriers? (Default is turned ON)"; menu "Enable",Eview,"Disable",Dview; Eview: enablenpc "Flag_Indicator"; mes "The Flag Carrier indicators are now turned ON"; close; Dview: disablenpc "Flag_Indicator"; mes "The Flag Carrier indicators are now turned OFF"; close; k1: mes "Input the players name [Case Sensitive]"; input player$; atcommand strcharinfo(0)+":nuke "+player$; close; start_ctf: if($Cap_Limit == 0){ set $Cap_Limit,3; } disablenpc "Wall#1"; disablenpc "Wall#2"; disablenpc "Wall#3"; disablenpc "Wall#4"; movenpc "Prontera Warper",396,9; movenpc "Prontera Warper#1",396,8; movenpc "Blue_Flag",329,149; //Moving flags to original startpoint just incase movenpc "Red_Flag",62,149; movenpc "Red_Flag_1",319,14; movenpc "Blue_Flag#2",319,15; mapannounce "bat_b01","Capture the other team's flag and return it to yours",0; sleep2 4000; mapannounce "bat_b01","You can't score if your Flag is taken!!",0; sleep2 4000; mapannounce "bat_b01","First team to "+$Cap_Limit+" captures wins! Now...GO!!",0; close; } jtf: mes "[CTF]"; if(BaseLevel < $Blvl_Min){ mes "Im afraid your Baselevel is not high enough to join the event!"; close; } mes "Which team do you want to join?"; menu "Blue Team",joinblueteam,"Red Team",joinredteam; joinblueteam: mes "What is the password for Blue Team?"; input .@Gpass$; if(.@Gpass$ != $Blue_Password$){ mes "Sorry, that is wrong!"; close; } set normallook,(getlook(7)); setlook 7, 103; set BlueTeam, 1; set RedTeam, 0; set RedFlagTaken, 0; set BlueFlagTaken, 0; savepoint "bat_b01",312,223; warp "bat_b01",312,223; close; joinredteam: input .@Gpass$; if(.@Gpass$ != $Red_Password$){ mes "Sorry, that is wrong!"; close; } set normallook,(getlook(7)); setlook 7, 122; set RedTeam, 1; set BlueTeam, 0; set RedFlagTaken, 0; set BlueFlagTaken, 0; savepoint "bat_b01",87,74; warp "bat_b01",87,74; close; } bat_b01,389,8,5 duplicate(Capture The Flag) Capture The Flag#1 874 // Base Flags bat_b01,62,149,5 script Red_Flag 722,2,2,{ end; OnTouch: if( BlueTeam == 1 ){ //Blue Team takes the Red Flag and disables and moves the flag set RedFlagTaken, 1; set Red_Flag_Carrier$,strcharinfo(0); mapannounce "bat_b01", strcharinfo(0) + " has taken the Red Flag",bc_map,0x0000FF; announce "Take the flag back to yours!",3,0x0000FF; setlook 7, 129; movenpc "Red_Flag",391,15; disablenpc "Red_Flag"; } if( BlueFlagTaken == 1 ){ //Red Team scores if PC has the variable "BlueFlagTaken" percentheal 100,100; mapannounce "bat_b01", "Red Team Scores!",bc_map,0xFF0000; set BlueFlagTaken, 0; set Blue_Flag_Carrier$,0; setlook 7, 122; enablenpc "Blue_Flag"; movenpc "Blue_Flag",329,149; setd "$@redscore"+strcharinfo(1), getd("$@redscore"+strcharinfo(1))+1; if(getd("$@redscore"+strcharinfo(1)) >= $Cap_Limit){ mapannounce "bat_b01","Red team has won the match!",bc_map,0xFF0000; setd "CTF_Winner"+strcharinfo(1),1; donpcevent "ctf_sys::OnCTFEndGame"; } mapannounce "bat_b01","Red Score:" + getd("$@redscore"+strcharinfo(1)),bc_map,0xFF0000; } end; } bat_b01,329,149,5 script Blue_Flag 722,2,2,{ end; OnTouch: if( RedTeam == 1 ){ //Red Team takes the Blue Flag and disables and moves the flag mapannounce "bat_b01", strcharinfo(0) + " has taken the Blue Flag",bc_map,0xFF0000; announce "Take the flag back to yours!",3,0xFF0000; set BlueFlagTaken, 1; set Blue_Flag_Carrier$,strcharinfo(0); setlook 7, 235; movenpc "Blue_Flag",391,14; disablenpc "Blue_Flag"; } if( RedFlagTaken == 1){ //Blue Team scores if PC has the variable "RedFlagTaken" percentheal 100,100; mapannounce "bat_b01", "Blue Team Scores!",bc_map,0x0000FF; set RedFlagTaken, 0; set Red_Flag_Carrier$,0; setlook 7, 103; enablenpc "Red_Flag"; movenpc "Red_Flag",62,149; setd "$@bluescore"+strcharinfo(1), getd("$@bluescore"+strcharinfo(1))+1; if(getd("$@bluescore"+strcharinfo(1)) >= $Cap_Limit){ mapannounce "bat_b01","Blue team has won the match!",bc_map,0x0000FF; setd "CTF_Winner"+strcharinfo(1),1; donpcevent "ctf_sys::OnCTFEndGame"; } mapannounce "bat_b01","Blue Score:" + getd("$@bluescore"+strcharinfo(1)),bc_map,0x0000FF; } end; } //Non-Base Flags. Flags that appear when the Flag is dropped bat_b01,390,13,5 script Blue_Flag_1 722,2,2,{ end; OnTouch: if( RedTeam == 1 ){ mapannounce "bat_b01",strcharinfo(0)+" has taken the Blue Flag",bc_map,0xFF0000; set BlueFlagTaken, 1; set Blue_Flag_Carrier$,strcharinfo(0); setlook 7, 235; movenpc "Blue_Flag_1",390,13; disablenpc "Blue_Flag"; end; } if( BlueTeam == 1 ){ mapannounce "bat_b01", strcharinfo(0)+" has returned the Blue Flag",bc_map,0x0000FF; enablenpc "Blue_Flag"; movenpc "Blue_Flag",329,149; movenpc "Blue_Flag_1",390,13; end; } end; } bat_b01,390,14,5 script Red_Flag_1 722,2,2,{ end; OnTouch: if( BlueTeam == 1 ){ mapannounce "bat_b01", strcharinfo(0) + " has picked up the Red Flag",bc_map,0x0000FF; set RedFlagTaken, 1; set Red_Flag_Carrier$,strcharinfo(0); setlook 7, 129; movenpc "Red_Flag_1",390,13; disablenpc "Red_Flag"; end; } if( RedTeam == 1 ){ mapannounce "bat_b01",strcharinfo(0)+" has returned the Red Flag",bc_map,0xFF0000; enablenpc "Red_Flag"; movenpc "Red_Flag",62,149; movenpc "Red_Flag_1",390,14; end; } end; } //Incase Players try to get out of the starting box before CTF actually starts bat_b01,292,225,5 script Wall#1 -111,7,7,{ end; OnTouch: warp "bat_b01",311,224; end; } bat_b01,331,224,5 script Wall#2 -111,7,7,{ end; OnTouch: warp "bat_b01",311,224; end; } bat_b01,107,74,5 script Wall#3 -111,7,7,{ end; OnTouch: warp "bat_b01",88,74; end; } bat_b01,70,74,5 script Wall#4 -111,5,5,{ end; OnTouch: warp "bat_b01",88,74; end; } //Precaution incase team variables reset upon respawn bat_b01,312,223,5 script Spawn#blue -111,7,7,{ end; OnTouch: if( RedTeam == 1){ end; } if( BlueFlagTaken == 1 ){ end; } if( RedFlagTaken == 1 ){ end; } if( BlueTeam <= 0 ){ set BlueTeam, 1; end; } } bat_b01,87,74,5 script Spawn#red -111,7,7,{ end; OnTouch: if( BlueTeam == 1 ){ end; } if( RedFlagTaken == 1 ){ end; } if( BlueFlagTaken == 1 ){ end; } if( RedTeam <= 1 ){ set RedTeam, 1; end; } } //= Prontera/Prize Warpers bat_b01,396,9,5 script Prontera Warper#1 405,{ mes "[Prontera Warper]"; mes "Seems that the match is over, would you like to return to Prontera? Or, if you are the winning team, you may claim your reward."; menu "Yes",Wpront,"No",Wno,"Claim Reward",Crew; Wpront: warp "prontera",156,178; savepoint "prontera",158,189; setlook 7,"normallook"+strcharinfo(0); set BlueTeam, 0; set RedTeam, 0; set RedFlagTaken, 0; set BlueFlagTaken, 0; set Blue_Flag_Carrier$,0; set Red_Flag_Carrier$,0; close; Wno: close; Crew: if(getd("CTF_Winner"+strcharinfo(1)) == 1){ warp "bat_b01",6,290; close; } mes "Sorry, you didn't win.."; close; } bat_b01,396,8,5 duplicate(Prontera Warper#1) Prontera Warper#2 405 bat_b01,397,9,5 duplicate(Prontera Warper#1) Prontera Warper#3 405 bat_b01,397,8,5 duplicate(Prontera Warper#1) Prontera Warper#4 405 //= Invisible Flag Carrier NPC //- If NPC is turned ON, flag carriers will be shown with dots on the mini-map //- Indicator still in testing! //bat_b01,150,150,5 script Flag_Indicator -1,500,500,{ //end; //OnTouch: // getmapxy (mapname$,.@mapx,.@mapy,0,(Red_Flag_Carrier$); // viewpoint 1,.@mapx,.@mapy,1,0xFF0000; // getmapxy (mapname$,.@mapx,.@mapy,0,(Blue_Flag_Carrier$); // viewpoint 1,.@mapx,.@mapy,1,0x0000FF; // end; //} And it working fine, but a few tweaks would be nice, I like it to auto create a party after ive chosen a team, or any alternative that do not attack team mates? how to add a char limit?
  3. i think the cms addon by calcium kid does that already
  4. Well do you have a link on gaia's webpage?
  5. Can anybody give a guide for me and also for those who are planning to use this, just incase .
  6. How to edit Guild that allows only 1 Class per Guild for example, in a guild i only want to have 10 members so ive already done that on mmo.h and now i want it to be 1 class per guild, for example, only 1 Champion is able to join the guild etc etc Is this possible at all?
  7. Hello good day rathena, ayt, so i posted here at the sprite graphic request i was just curious if any body has some links from MxR's Sprites i tried to mail him and no luck at all topic is here to be precise http://www.eathena.ws/board/index.php?showtopic=262226/ thanks
  8. - script Sample -1,{ function CustomRateCard; OnNPCKillEvent: // CustomRateCard( <MobID>,<CardID>,<Rate> ); // Rate : 1 = 0.01% / 1000 = 10% / 10000 = 100% CustomRateCard( 1708,4399,100 ); CustomRateCard( 1115,4123,1500 ); end; function CustomRateCard { if( killedrid == getarg(0) && rand( 10000 ) <= getarg(2) ){ getitem getarg(1),1; announce "[ "+strcharinfo(0)+" ] get 1 "+getitemname( getarg(1) ),0; } return; } } and i thought of the settings in battle conf, it has the multiplier, well i want all my mvp cards to drop at 5% and thana card will only be the 1 at 1% Owww Nevermind, It was a mis conflict, because i have 2 scripts installed so it reads the 1st one, it was duplicated >.> shame thanks anyways.. btw does the multipier 100 makes it 1%? for the record
  9. i want to make it 1% // Rate : 1 = 0.01% / 1000 = 10% / 10000 = 100% in that table there is no 1% so i tried using 100 as a multiplier still i get a 100% chance still wondering why
  10. For Example i want to use the default module Downloads Module to be precise what should i type on the Page Path? Downloads? Wow it worked silly me >.> thanks much!
  11. Well first of all thank you for this wonderful add on! Hurray! I Successfully installed CMS on my Flux CP But i have Some Problems regarding adding pages This is the image to be precise. Im using a theme btw, (if that matters)
  12. Updated it, sorry for the earlier post >.>
  13. Well i got this idea to put a Noob Ladder or a PVP ladder but on reversed mode, my very purpose of requesting this is to check on which player will abuse PVP points or skull exchange for example players might goto pvp and just go and die etc etc drnk bottles,, etc well this is a script that i use on my server - 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, 10; //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, 50; //Set Experience gain value (*Note1) set $@LadderZenyGain, 1; //Enable/Disable zeny gain when reaching a new position in the ladder set $@LadderZeny, 50; //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; } } caspen,148,237,5 script PvP Ladder 753,{ if ($@LadderChatRoom == 1) { waitingroom "DempseyRO 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$); } So i was thinking of reversing it to show deaths not kills the top deaths! any help would be deeply appreciated thank you
  14. Ok good day Rathena! so i came i with this idea to turn on pvp on a certain coordinate on a map. in my case i have a custom map called "revencia", On my recent post sir #Shikka posted this code //=================================== - script name -1,{ OnPCLoadMapEvent: getmapxy @loadmap$,@x,@y,0; "if (@loadmap$ == "prontera") {atcommand "battleignore";} //this will protect the player, who wont do pvp } //=================================== prontera,155,82,0 script pvp_on_try 139,5,5,{ OnTouch: getmapxy @loadmap$,@x,@y,0; if (@loadmap$ == "prontera" && @x > 149 && @x < 163 && @y > 74 && @y < 89){ warp "Welgaia",157,222; // <--- just an example, i dunno the right "warp" command at the moment. end; } atcommand "@battleignore"; warp "Welgaia",157,222; // <--- just an example, i dunno the right "warp" command at the moment. end; //=================================== - script logoutevent -1,{ OnPCLogoutEvent: getmapxy @logoutmap$,@x,@y,0; if (@logoutmap$ == "prontera" && @x > 149 && @x < 163 && @y > 74 && @y < 89){ warp "prontera",170,90; // have to be higher or under the pvp-area coordinates. } end; } //================================== prontera,148,74,4 script pvp_on_try2 139,10,10,{ if (@ig == 1) {atcommand "@battleignore";} // <--- that have to stay for the duplicates set @ig,0; end; } //4. duplicates: prontera,163,89,4 duplicate(pvp_on_try2) pvp_on_try#3 139,10,10 // will activate immunity to players who leave the area again prontera,148,89,4 duplicate(pvp_on_try2) pvp_on_try#4 139,10,10 // will activate immunity to players who leave the area again prontera,163,74,4 duplicate(pvp_on_try2) pvp_on_try#5 139,10,10 // will activate immunity to players who leave the area again So, honestly, i have no clue what to do next after having this script. i dont have a clue what to edit here >.> *ashamed* ok so, at a custom map that i use, there is this bridge. so i want to turn on pvp from "revencia 161,114" downwards upto "revencia 161,87" Help Please Any help would be deeply Appreciated!
  15. Good day rathena. i was curious on how to make a quest npc that the requirements needed are upgraded items? Like for example +10 Cotton Shirt instead of the +0 Cotton Shirt
  16. how should i configure it? my VPS is like this, the directory to my trunk is cd Desktop > cd trunk 1st pcre is already installed, then how should i configure it? procedures please T_T i want disguise event to work on my linux heres the script anyways //==============================================================================// //--- 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 -------------// //==============================================================================// brasilis,193,146,4 script Disguise Event 81,{ //--- Basic Script Configuration Options ---// set .@npcname$,"[^0000FFDisguise NPC^000000]"; //<- NPC Name. set $@GMLevel,99; //<- GM Level needed to be considered a GM. //--- The Script ---// if (getgmlevel()>=$@GMLevel){goto GM_Player;} if ($@EventON){end;} mes .@npcname$; mes "Welcome, how may i be of assistance."; menu "Information",iInfo,"Nothing, just passing through.",iNothing; iInfo: next; mes .@npcname$; mes "This event is actually quite simple"; mes "At the start of the event, I will disguise myself"; mes "into a monster randomly. You will then merely have to shout that monsters name outloud."; next; mes "If you get it correct, you get a prize. If not, then keep trying."; mes "Thatis all there is to know about this event."; close; iNothing: close; GM_Player: mes .@npcname$; mes "Please select an Option to modify."; menu "Turn ON/OFF Event",iEvent,"Event Settings",iSettings; iEvent: next; mes .@npcname$; if ($@EventON){mes "The Event is currently: [^0000FFON^000000]"; mes "Would you like to turn it OFF?";} if (!$@EventON){mes "The Event is currently: [^FF0000OFF^000000]"; mes "Would you like to turn it ON?";} 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 prizes will be given.",bc_map | bc_blue; deletepset 1; setnpcdisplay "Disguise Event",795; close;} set $@EventON,1; set $@Timer,1; setnpctimer 0; initnpctimer; set $@ResetCounter,$@ResetCounter+1; announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue; announce "The Event is being held in Brasilis.",bc_all | bc_blue; close; iSettings: next; mes .@npcname$; mes "Please select a setting to modify."; menu "Monster Display",iMonster,"Number of Rounds",iRounds,"Prize Settings",iPrize; iMonster: callfunc "Monster_Display"; iRounds: callfunc "Rounds"; iPrize: callfunc "Prize"; OnInit: defpattern 1,"([^:]+):.*\\sOMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "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],1511,1674,1785,1039,1874,1272,1719,1046,1389,1112,1115,1658,1957,1418,1871,1252,1786,1086,1885,1649,1651,1832,1492,1734,1251,1779,1688,1646,1373,1147,1059,1150,1956,1087,1190,1038,1157,1159,1052,1623,1916,1650,1583,1389,1312,1751,1685,1630,1648; setarray $@BlackList[0],1003,1006,1017,1021,1022,1027,1043,1136,1168,1171,1172,1173,1181,1210,1217,1218,1223,1284,1407,1411,1414,1495,1501,1900; end; OnClock0050: OnClock0350: OnClock0650: OnClock0950: OnClock1250: OnClock1550: OnClock1850: OnClock2150: set $@ResetCounter,$@ResetCounter+1; set $@EventON,1; set $@Timer,1; set $@Wait,1; announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue; announce "The Event is being held in Brasilis.",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; announce "You took too long to guess what i was. Please wait 10 seconds while i disguise again.",bc_all | bc_yellow; specialeffect 725; set $MonsterName$,"OMFGBBQLEETSAUCEGMOCEANRULESHAI!!"; deletepset 1; stopnpctimer; setnpctimer 0; initnpctimer; end; OnTimer60000: if ($@Timer!=1){end;} if ($@Timer==1) {announce "The Disguise Event will begin in 2 minutes.",bc_all | bc_blue; announce "The Event is being held in Brasilis.",bc_all | bc_blue; end;} OnTimer120000: if ($@Timer!=1){end;} if ($@Timer==1) {announce "The Disguise Event will begin 1 minute.",bc_all | bc_blue; announce "The Event is being held in Brasilis.",bc_all | bc_blue; end;} OnTimer180000: if ($@Timer!=1){end;} if ($@Timer==1) {announce "The Disguise Event has begun!",bc_all | bc_blue; announce "The Event is being held in Brasilis.",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]) {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; //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; setnpctimer 0; stopnpctimer; announce "Thank you all for playing. That was the last round of the Disguise Event. Come play again later.",bc_all | bc_yellow; end;} setnpcdisplay "Disguise Event",795; set $@Change,0; setnpctimer 0; end; } //--- The Functions ---// function script Rounds { next; mes "Please Input the number of rounds you want the event to last."; mes "Current Number of Roudns: [^0000FF"+$Rounds+"^000000]"; input .@Rounds; set $Rounds,.@Rounds; next; mes "The number of rounds has been changed successfully."; mes "Number of Rounds: [^0000FF"+$Rounds+"^000000]"; mes "Come again."; close; } function script Prize { next; mes "Please Input the ItemID of the prize that will be given each round."; mes "Current Items is: [^0000FF"+getitemname($Prize)+"^000000] ItemID - ^0000FF"+$Prize+"^000000"; input .@Prize; if (getitemname(.@Prize)=="" || getitemname(.@Prize)=="null") {next; mes "That item does not exist. Please try again."; close;} set $Prize,.@Prize; next; mes "Please Input the Ammount that is to be given."; input .@Ammount; if (.@Ammount<=0 || .@Ammount>=10000) {next; mes "That ammount is invalid. Using default ammount of 1.";} set $PrizeAmt,.@Ammount; next; mes "The Prize has been changed successfully."; mes "Prize: [^0000FF"+getitemname($Prize)+"^000000]x(^0000FF"+$PrizeAmt+"^000000)"; close; } function script Monster_Display { setarray .@Rule[0],0,1,2; setarray .@Desc$[0],"","Transform as all monsters.","Transform as MvP's only."; next; mes "Please select a Disguise Rule."; mes "Rule 1 - Transform as all monsters."; mes "Rule 2 - Transform as MvP's only."; menu "Rule 1:Rule 2",iRule; iRule: set $Rule,.@Rule[@menu]; next; mes "The Disguise Rule, has been changed successfully."; mes "Current Rule: ^0000FF"+$Rule+"^000000 - ^0000FF"+.@Desc$[@menu]+"^000000"; close; }
  17. Can any body teach me how to edit the card chances? Well all i know is that ive read somewhere that these tarot card have equal chances. Id like to edit some of the cards Any help would be deeply appreciated
  18. Well i just came to a point where in id like to rename the original skills Such as Asura, Sonic, Desperado and so many more in my mind. yet i do not have knowledge thru all of this Id be glad to be helped o i should say HELP ME PLEASE
  19. can you link me to that post. or can anybody teaach me how @emistry thanks again
  20. I recently used the search button, and i was not contented with the answers that i got, maybe because it doesnt actually fit the questions that ill ask well a WOE with ECO is the best woe ayt? because as of now, i have this woe reward NPC that gives items to the woe winner, well id like to ask how to change the treasure box drops im now looking at the mob_db and i see like 1-40 treasure boxes? my active woe is only for Krimhield-Prontera. Id like to put such items on these treasure boxes, and the treasure box spawn, id like it to spawn every 12h or is it on default as 12h?. and lastly, can anybody help me how to make the max guild member 6? i already edited the guild extension to level 1, and it still has 20+ members any help would be deeply appreciated thanks
  21. Yep can i please ask a Maze Event script and a disguise event for the disguise im running on Linux Already, installed PCRE and even configured my trunk the PCRE with-- PCRE smthng like that and it still doesnt recognize the correct answers
  22. Well as the title says, id like to make a request, if someone could teach me how to turn on pvp on a certain Place in a map i got the idea from this script Welgaia,149,188,3 script Golden Dog 81,{ if (getgmlevel() >= 60) { announce "Golden Dog: Pick up my GOLD!",bc_map; set @j,0; while (@j <= 140) { set @i,0; while (@i <= 14) { makeitem 670,1,"Welgaia.gat",150+@i,201-@j; set @i,@i+3; } set @j,@j+2; } } } its the Poo Dog NPC that drops GOLD/ETC on a certain Coordinate.. I know its posible to turn on PVP on a certain coor please help!
×
×
  • Create New...