Jump to content

VhayneRO

Members
  • Posts

    41
  • Joined

  • Last visited

Profile Information

  • Gender
    Male
  • Location
    Philippines

Recent Profile Visitors

2973 profile views

VhayneRO's Achievements

Poring

Poring (1/15)

0

Reputation

  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
×
×
  • Create New...