Jump to content

Rage Guy

Members
  • Posts

    354
  • Joined

  • Last visited

5 Followers

Profile Information

  • Gender
    Male

Contact Methods

  • Skype
    amrkhaledsaad

Recent Profile Visitors

4232 profile views

Rage Guy's Achievements

Poring

Poring (1/15)

3

Reputation

  1. hello .. i want a disguise event that only disguise to MVP monsters plz anyone help me on that
  2. now when i start the event with the gm first the portal is opened.... and the portal will close after 1 minite then the portal closed then the disguise NPC Hide like the event is over Any help ?
  3. Now after the portal has been closed the npc HIDE vip_lounge,151,128,5 script Disguise CP 968,{ if (getgmlevel()<20) { mes "^3399FF[Disguise CP]^000000"; mes "Sorry, you are not a GM!"; close; } mes "^3399FF[Disguise CP]^000000"; mes "Hello GameMaster!"; mes "What do you want to do?"; switch(select("Start Event:Stop Event:Set number of rounds[^E50000"+$guessrounds+"^000000]:Set prize^E50000 ["+getitemname($guessprize)+"]^000000 ^E50000 ["+ $guessprizecount + "]^000000:Nothing")) { case 1: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please confirm by typing START."; input .@confirm$; if (.@confirm$ == "START") { donpcevent "guessAnnouncer::OnGMStart"; close; } mes "Confirmation failed"; close; break; } case 2: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please confirm by typing STOP."; input .@confirm$; if (.@confirm$ == "STOP") { donpcevent "guessAnnouncer::OnGMStop"; close; } mes "Confirmation failed"; close; break; } case 3: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the new number."; input $guessrounds; if ($guessrounds > 30) set $guessrounds, 30; else if ($guessrounds < 1) set $guessrounds, 1; close; } case 4: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the new prize id."; input .@guessprizeid; if (getitemname(.@guessprizeid) == "null" || getitemname(.@guessprizeid) == "") {next; mes "^3399FF[Disguise CP]^000000"; mes "Error"; mes "This item does not exist in the database..."; close;} set $guessprize, .@guessprizeid; next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the amount."; input .@guessprizeamount; if (!.@guessprizeamount) set .@guessprizeamount,1 ; set $guessprizecount,.@guessprizeamount; next; mes "^3399FF[Disguise CP]^000000"; mes "Prize has been set to ^E50000 "+ getitemname($guessprize)+ "^000000 and the amount to ^E50000 " +$guessprizecount+"^000000"; close; } case 5: { next; mes "^3399FF[Disguise CP]^000000"; mes "Good bye"; close; } } } vip_lounge,153,128,4 script Disguise NPC 933,{ if (!$guessbegin) { mes "^3399FF[Disguise NPC]^000000"; mes "The event is going to start soon!"; close; } end; OnStart: set $guessbegin, 1; set .DisguiseWon, 0; if (!$DisguiseRound) { npctalk "Alright. Let's start this game!"; sleep 2000; npctalk "But first I will explain the rules."; sleep 2000; npctalk "I am going to disguise into a random monster."; sleep 2000; npctalk "You have to guess the monster's name and shout it out."; sleep 2000; npctalk "Don't bother about the use of capital and small initial letters."; sleep 2000; npctalk "Now get ready!"; sleep 5000; } else if ($DisguiseRound < $guessrounds-1) { npctalk "Get ready for the next round."; setnpctimer 0; sleep 8000; } else { npctalk "Last round now!"; sleep 2000; npctalk "Get ready!"; sleep 6000; } do { set .@guessrepeat, 0; setarray .mvplist[0],1583,1312; // replace with MVP Mob IDs set .mvprand,rand(2); //change to length of .mvplist array set $monster,.mvplist[.mvprand]; for (set .@k, 0; .@k <getarraysize($Forbidden); set .@k, .@k+1) { if ($monster == $Forbidden[.@k]) { set .@guessrepeat, 1; break; } } } while (.@guessrepeat); setnpctimer 0; initnpctimer; setnpcdisplay "Disguise NPC",$monster; set $MonsterName$, strmobinfo(1,$monster); defpattern 1, "([^:]+):.*\\s"+$MonsterName$+"(.*)", "winround"; activatepset 1; npctalk "What's my name?"; sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; end; OnTimer5000: if (!.DisguiseWon) { sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} } end; OnTimer15000: if (!.DisguiseWon) { sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer25000: if (!.DisguiseWon) { npctalk "You get 10 more seconds to guess my name."; sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer35000: if (!.DisguiseWon) { npctalk "Round is over."; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} set $DisguiseRound, $DisguiseRound + 1; deletepset 1; sleep 3000; npctalk $MonsterName$ + " would have been the correct answer."; sleep 5000; if ($DisguiseRound >= $guessrounds) { set $DisguiseRound, 0; sleep 3000; npctalk "Event is over now!"; sleep 3500; npctalk "See ya!"; sleep 2000; emotion 12; sleep 1000; set $guessactive, 0; mapwarp "poring_c01.gat","prontera.gat",143,171; setnpcdisplay "Disguise NPC",933; disablenpc "Disguise NPC"; end; } goto OnStart; } end; winround: setnpctimer 0; deletepset 1; set .DisguiseWon, 1; set $DisguiseRound, $DisguiseRound + 1; npctalk strcharinfo(0) + " got my right name!"; getitem 674,$guessprizecount,getcharid(3); sleep2 3000; npctalk $MonsterName$ + " is the correct answer."; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} if ($DisguiseRound >= $guessrounds) { set $DisguiseRound, 0; set $guessactive, 0; sleep 3000; npctalk "Event is over now!"; sleep 3500; npctalk "See ya!"; sleep 2000; emotion 12; sleep 1000; mapwarp "poring_c01.gat","prontera.gat",143,171; setnpcdisplay "Disguise NPC",933; disablenpc "Disguise NPC"; end; } sleep 5000; goto OnStart; end; } //----------------------------------------------------------------------------------- //----------------------------------------------------------------------------------- - script guessAnnouncer -1,{ OnGMStart: if ($guessactive) end; set $guessactive, 1; announce "The server is starting a Disguise Event now!",0; set $guessbegin, 0; sleep 3000; if (!$guessactive) end; announce "If you want to join, come to prontera, head downwards and enter the warp portal.",0; enablenpc "guesswarp"; enablenpc "Disguise NPC"; sleep 3000; announce "Number of Rounds: "+$guessrounds,0; sleep 2000; announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0; sleep 2000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal is going to close in one minute.",0; sleep 60000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal has been closed.",0; disablenpc "guesswarp"; set $DisguiseRound, 0; sleep 5000; if (!$guessactive) {disablenpc "Disguise NPC"; end;} if(getmapusers("poring_c01") == 0) { disablenpc "Disguise NPC"; set $guessactive, 0; end; } donpcevent "Disguise NPC::OnStart"; end; OnGMStop: if ($guessactive) { set $guessactive, 0; announce "The disguise event has been stopped.",0; set $DisguiseRound, 0; mapwarp "poring_c01.gat","prontera.gat",143,171; setnpcdisplay "Disguise NPC",933; disablenpc "Disguise NPC"; disablenpc "guesswarp"; } end; OnMinute20: // SET THE 30 TO THE MINUTE YOU WANT THE EVENT TO START EACH HOUR. if ($guessactive) end; set $guessactive, 1; announce "The server is starting a Disguise Event now!",0; set $guessbegin, 0; sleep 3000; if (!$guessactive) end; announce "If you want to join, come to prontera, head downwards and enter the warp portal.",0; enablenpc "guesswarp"; enablenpc "Disguise NPC"; sleep 2000; announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0; sleep 2000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal is going to close in one minute.",0; sleep 60000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal has been closed.",0; disablenpc "guesswarp"; sleep 5000; if (!$guessactive) {disablenpc "Disguise NPC"; end;} announce "Next Event will start in 2 hours.",0; set $DisguiseRound, 0; if(getmapusers("poring_c01") == 0) { disablenpc "Disguise NPC"; set $guessactive, 0; end; } donpcevent "Disguise NPC::OnStart"; end; OnInit: disablenpc "Disguise NPC"; disablenpc "guesswarp"; set $guessactive, 0; setarray $Forbidden[0],1003,1006,1017,1021,1022,1027,1043,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218,1223,1284,1325,1326,1327,1328,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,1360,1361,1362,1363,1407,1411,1414,1496,1501,1900,1948,1892,1949,1950,1983,1984,2010,1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168,1171,1172,1173,1181,1210,1222,1223,1224,1225,1226,1227,1228,1233,1284,1407,1411,1414,1496,1501,1900,1996,2002,2003,2004,2005,2006,2007,2011,2012,2025,2028,2029,2030,2031,2032,2033,2034,2035,2036,2037,2038,2039,2040,2041,2042,2043,2044,2045,2046,2047,2048,2049,2050,2051,2052,2053,2054,2055,2056,2057,2058,2059,2060,2061,2062,2063,2064,2065,2066,2067,2075,2076,2077,2078,2079,2080,2081,2084,2093,2094,2095,2096,2097,2098,2099,2100,2101,2102,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112,2113,2114,2115,2116,2117,2118,2119,2120,2121,2122,2123,2124,2125,1900,1901,1902,1903,1237,1239,1145,1175,1209,1841,1842,1843,1844,3014,3001,3002,2114,2115,2117,2118,2119,2120,6049,6050,6051,6052,2200,2205,2207; } //----------------------------------------------------------------------------------- //------------------Warp Portal------------------------------------------------------ prontera,156,180,0 warp guesswarp 2,2,poring_c01,103,95 //----------------------------------------------------------------------------------- //------------------Map Flags-------------------------------------------------------- poring_c01 mapflag nowarpto poring_c01 mapflag noskill poring_c01 mapflag nosave poring_c01 mapflag nomemo poring_c01 mapflag noteleport poring_c01 mapflag nowarp //-----------------------------------------------------------------------------------
  4. thank you but i got anthor problem when i win i dont get a prize and i added to him a 674,1 how can i make it give me prize when someone win
  5. Now he is always Diguising to yoyo monster and when it ends he say , 0 would have been the correct answer vip_lounge,151,128,5 script Disguise CP 968,{ if (getgmlevel()<20) { mes "^3399FF[Disguise CP]^000000"; mes "Sorry, you are not a GM!"; close; } mes "^3399FF[Disguise CP]^000000"; mes "Hello GameMaster!"; mes "What do you want to do?"; switch(select("Start Event:Stop Event:Set number of rounds[^E50000"+$guessrounds+"^000000]:Set prize^E50000 ["+getitemname($guessprize)+"]^000000 ^E50000 ["+ $guessprizecount + "]^000000:Nothing")) { case 1: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please confirm by typing START."; input .@confirm$; if (.@confirm$ == "START") { donpcevent "guessAnnouncer::OnGMStart"; close; } mes "Confirmation failed"; close; break; } case 2: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please confirm by typing STOP."; input .@confirm$; if (.@confirm$ == "STOP") { donpcevent "guessAnnouncer::OnGMStop"; close; } mes "Confirmation failed"; close; break; } case 3: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the new number."; input $guessrounds; if ($guessrounds > 30) set $guessrounds, 30; else if ($guessrounds < 1) set $guessrounds, 1; close; } case 4: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the new prize id."; input .@guessprizeid; if (getitemname(.@guessprizeid) == "null" || getitemname(.@guessprizeid) == "") {next; mes "^3399FF[Disguise CP]^000000"; mes "Error"; mes "This item does not exist in the database..."; close;} set $guessprize, .@guessprizeid; next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the amount."; input .@guessprizeamount; if (!.@guessprizeamount) set .@guessprizeamount,1 ; set $guessprizecount,.@guessprizeamount; next; mes "^3399FF[Disguise CP]^000000"; mes "Prize has been set to ^E50000 "+ getitemname($guessprize)+ "^000000 and the amount to ^E50000 " +$guessprizecount+"^000000"; close; } case 5: { next; mes "^3399FF[Disguise CP]^000000"; mes "Good bye"; close; } } } vip_lounge,153,128,4 script Disguise NPC 933,{ if (!$guessbegin) { mes "^3399FF[Disguise NPC]^000000"; mes "The event is going to start soon!"; close; } end; OnStart: set $guessbegin, 1; set .DisguiseWon, 0; if (!$DisguiseRound) { npctalk "Alright. Let's start this game!"; sleep 2000; npctalk "But first I will explain the rules."; sleep 2000; npctalk "I am going to disguise into a random monster."; sleep 2000; npctalk "You have to guess the monster's name and shout it out."; sleep 2000; npctalk "Don't bother about the use of capital and small initial letters."; sleep 2000; npctalk "Now get ready!"; sleep 5000; } else if ($DisguiseRound < $guessrounds-1) { npctalk "Get ready for the next round."; setnpctimer 0; sleep 8000; } else { npctalk "Last round now!"; sleep 2000; npctalk "Get ready!"; sleep 6000; } do { set .@guessrepeat, 0; setarray .mvplist[0],1234,4567,9812; // replace with MVP Mob IDs set .mvprand,rand(2); //change to length of .mvplist array set $monster,.mvplist[.mvprand]; for (set .@k, 0; .@k <getarraysize($Forbidden); set .@k, .@k+1) { if ($monster == $Forbidden[.@k]) { set .@guessrepeat, 1; break; } } } while (.@guessrepeat); setnpctimer 0; initnpctimer; setnpcdisplay "Disguise NPC",$monster; set $MonsterName$, strmobinfo(1,$monster); defpattern 1, "([^:]+):.*\\s"+$MonsterName$+"(.*)", "winround"; activatepset 1; npctalk "What's my name?"; sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; end; OnTimer5000: if (!.DisguiseWon) { sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} } end; OnTimer15000: if (!.DisguiseWon) { sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer25000: if (!.DisguiseWon) { npctalk "You get 10 more seconds to guess my name."; sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer35000: if (!.DisguiseWon) { npctalk "Round is over."; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} set $DisguiseRound, $DisguiseRound + 1; deletepset 1; sleep 3000; npctalk $MonsterName$ + " would have been the correct answer."; sleep 5000; if ($DisguiseRound >= $guessrounds) { set $DisguiseRound, 0; sleep 3000; npctalk "Event is over now!"; sleep 3500; npctalk "See ya!"; sleep 2000; emotion 12; sleep 1000; set $guessactive, 0; mapwarp "poring_c01.gat","prontera.gat",143,171; setnpcdisplay "Disguise NPC",933; disablenpc "Disguise NPC"; end; } goto OnStart; } end; winround: setnpctimer 0; deletepset 1; set .DisguiseWon, 1; set $DisguiseRound, $DisguiseRound + 1; npctalk strcharinfo(0) + " got my right name!"; getitem 674,7, $guessprizecount; sleep2 3000; npctalk $MonsterName$ + " is the correct answer."; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} if ($DisguiseRound >= $guessrounds) { set $DisguiseRound, 0; set $guessactive, 0; sleep 3000; npctalk "Event is over now!"; sleep 3500; npctalk "See ya!"; sleep 2000; emotion 12; sleep 1000; mapwarp "poring_c01.gat","prontera.gat",143,171; setnpcdisplay "Disguise NPC",933; disablenpc "Disguise NPC"; end; } sleep 5000; goto OnStart; end; } //----------------------------------------------------------------------------------- //----------------------------------------------------------------------------------- - script guessAnnouncer -1,{ OnGMStart: if ($guessactive) end; set $guessactive, 1; announce "The server is starting a Disguise Event now!",0; set $guessbegin, 0; sleep 3000; if (!$guessactive) end; announce "If you want to join, come to prontera, head downwards and enter the warp portal.",0; enablenpc "guesswarp"; enablenpc "Disguise NPC"; sleep 3000; announce "Number of Rounds: "+$guessrounds,0; sleep 2000; announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0; sleep 2000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal is going to close in one minute.",0; sleep 60000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal has been closed.",0; disablenpc "guesswarp"; set $DisguiseRound, 0; sleep 5000; if (!$guessactive) {disablenpc "Disguise NPC"; end;} if(getmapusers("poring_c01") == 0) { disablenpc "Disguise NPC"; set $guessactive, 0; end; } donpcevent "Disguise NPC::OnStart"; end; OnGMStop: if ($guessactive) { set $guessactive, 0; announce "The disguise event has been stopped.",0; set $DisguiseRound, 0; mapwarp "poring_c01.gat","prontera.gat",143,171; setnpcdisplay "Disguise NPC",933; disablenpc "Disguise NPC"; disablenpc "guesswarp"; } end; OnMinute20: // SET THE 30 TO THE MINUTE YOU WANT THE EVENT TO START EACH HOUR. if ($guessactive) end; set $guessactive, 1; announce "The server is starting a Disguise Event now!",0; set $guessbegin, 0; sleep 3000; if (!$guessactive) end; announce "If you want to join, come to prontera, head downwards and enter the warp portal.",0; enablenpc "guesswarp"; enablenpc "Disguise NPC"; sleep 2000; announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0; sleep 2000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal is going to close in one minute.",0; sleep 60000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal has been closed.",0; disablenpc "guesswarp"; sleep 5000; if (!$guessactive) {disablenpc "Disguise NPC"; end;} announce "Next Event will start in 2 hours.",0; set $DisguiseRound, 0; if(getmapusers("poring_c01") == 0) { disablenpc "Disguise NPC"; set $guessactive, 0; end; } donpcevent "Disguise NPC::OnStart"; end; OnInit: disablenpc "Disguise NPC"; disablenpc "guesswarp"; set $guessactive, 0; setarray $Forbidden[0],1003,1006,1017,1021,1022,1027,1043,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218,1223,1284,1325,1326,1327,1328,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,1360,1361,1362,1363,1407,1411,1414,1496,1501,1900,1948,1892,1949,1950,1983,1984,2010,1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168,1171,1172,1173,1181,1210,1222,1223,1224,1225,1226,1227,1228,1233,1284,1407,1411,1414,1496,1501,1900,1996,2002,2003,2004,2005,2006,2007,2011,2012,2025,2028,2029,2030,2031,2032,2033,2034,2035,2036,2037,2038,2039,2040,2041,2042,2043,2044,2045,2046,2047,2048,2049,2050,2051,2052,2053,2054,2055,2056,2057,2058,2059,2060,2061,2062,2063,2064,2065,2066,2067,2075,2076,2077,2078,2079,2080,2081,2084,2093,2094,2095,2096,2097,2098,2099,2100,2101,2102,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112,2113,2114,2115,2116,2117,2118,2119,2120,2121,2122,2123,2124,2125,1900,1901,1902,1903,1237,1239,1145,1175,1209,1841,1842,1843,1844,3014,3001,3002,2114,2115,2117,2118,2119,2120,6049,6050,6051,6052,2200,2205,2207; } //----------------------------------------------------------------------------------- //------------------Warp Portal------------------------------------------------------ prontera,156,180,0 warp guesswarp 2,2,poring_c01,103,95 //----------------------------------------------------------------------------------- //------------------Map Flags-------------------------------------------------------- poring_c01 mapflag nowarpto poring_c01 mapflag noskill poring_c01 mapflag nosave poring_c01 mapflag nomemo poring_c01 mapflag noteleport poring_c01 mapflag nowarp //-----------------------------------------------------------------------------------
  6. Hello i got the disguise event working but my problem is it summon a random monster i want it to summon a random MVP vip_lounge,151,128,5 script Disguise CP 968,{ if (getgmlevel()<20) { mes "^3399FF[Disguise CP]^000000"; mes "Sorry, you are not a GM!"; close; } mes "^3399FF[Disguise CP]^000000"; mes "Hello GameMaster!"; mes "What do you want to do?"; switch(select("Start Event:Stop Event:Set number of rounds[^E50000"+$guessrounds+"^000000]:Set prize^E50000 ["+getitemname($guessprize)+"]^000000 ^E50000 ["+ $guessprizecount + "]^000000:Nothing")) { case 1: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please confirm by typing START."; input .@confirm$; if (.@confirm$ == "START") { donpcevent "guessAnnouncer::OnGMStart"; close; } mes "Confirmation failed"; close; break; } case 2: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please confirm by typing STOP."; input .@confirm$; if (.@confirm$ == "STOP") { donpcevent "guessAnnouncer::OnGMStop"; close; } mes "Confirmation failed"; close; break; } case 3: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the new number."; input $guessrounds; if ($guessrounds > 30) set $guessrounds, 30; else if ($guessrounds < 1) set $guessrounds, 1; close; } case 4: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the new prize id."; input .@guessprizeid; if (getitemname(.@guessprizeid) == "null" || getitemname(.@guessprizeid) == "") {next; mes "^3399FF[Disguise CP]^000000"; mes "Error"; mes "This item does not exist in the database..."; close;} set $guessprize, .@guessprizeid; next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the amount."; input .@guessprizeamount; if (!.@guessprizeamount) set .@guessprizeamount,1 ; set $guessprizecount,.@guessprizeamount; next; mes "^3399FF[Disguise CP]^000000"; mes "Prize has been set to ^E50000 "+ getitemname($guessprize)+ "^000000 and the amount to ^E50000 " +$guessprizecount+"^000000"; close; } case 5: { next; mes "^3399FF[Disguise CP]^000000"; mes "Good bye"; close; } } } vip_lounge,153,128,4 script Disguise NPC 933,{ if (!$guessbegin) { mes "^3399FF[Disguise NPC]^000000"; mes "The event is going to start soon!"; close; } end; OnStart: set $guessbegin, 1; set .DisguiseWon, 0; if (!$DisguiseRound) { npctalk "Alright. Let's start this game!"; sleep 2000; npctalk "But first I will explain the rules."; sleep 2000; npctalk "I am going to disguise into a random monster."; sleep 2000; npctalk "You have to guess the monster's name and shout it out."; sleep 2000; npctalk "Don't bother about the use of capital and small initial letters."; sleep 2000; npctalk "Now get ready!"; sleep 5000; } else if ($DisguiseRound < $guessrounds-1) { npctalk "Get ready for the next round."; setnpctimer 0; sleep 8000; } else { npctalk "Last round now!"; sleep 2000; npctalk "Get ready!"; sleep 6000; } do { set .@guessrepeat, 0; set $monster, 1000 + rand(1,950); for (set .@k, 0; .@k <getarraysize($Forbidden); set .@k, .@k+1) { if ($monster == $Forbidden[.@k]) { set .@guessrepeat, 1; break; } } } while (.@guessrepeat); setnpctimer 0; initnpctimer; setnpcdisplay "Disguise NPC",$monster; set $MonsterName$, strmobinfo(1,$monster); defpattern 1, "([^:]+):.*\\s"+$MonsterName$+"(.*)", "winround"; activatepset 1; npctalk "What's my name?"; sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; end; OnTimer5000: if (!.DisguiseWon) { sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} } end; OnTimer15000: if (!.DisguiseWon) { sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer25000: if (!.DisguiseWon) { npctalk "You get 10 more seconds to guess my name."; sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer35000: if (!.DisguiseWon) { npctalk "Round is over."; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} set $DisguiseRound, $DisguiseRound + 1; deletepset 1; sleep 3000; npctalk $MonsterName$ + " would have been the correct answer."; sleep 5000; if ($DisguiseRound >= $guessrounds) { set $DisguiseRound, 0; sleep 3000; npctalk "Event is over now!"; sleep 3500; npctalk "See ya!"; sleep 2000; emotion 12; sleep 1000; set $guessactive, 0; mapwarp "poring_c01.gat","prontera.gat",143,171; setnpcdisplay "Disguise NPC",933; disablenpc "Disguise NPC"; end; } goto OnStart; } end; winround: setnpctimer 0; deletepset 1; set .DisguiseWon, 1; set $DisguiseRound, $DisguiseRound + 1; npctalk strcharinfo(0) + " got my right name!"; getitem 674,7, $guessprizecount; sleep2 3000; npctalk $MonsterName$ + " is the correct answer."; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} if ($DisguiseRound >= $guessrounds) { set $DisguiseRound, 0; set $guessactive, 0; sleep 3000; npctalk "Event is over now!"; sleep 3500; npctalk "See ya!"; sleep 2000; emotion 12; sleep 1000; mapwarp "poring_c01.gat","prontera.gat",143,171; setnpcdisplay "Disguise NPC",933; disablenpc "Disguise NPC"; end; } sleep 5000; goto OnStart; end; } //----------------------------------------------------------------------------------- //----------------------------------------------------------------------------------- - script guessAnnouncer -1,{ OnGMStart: if ($guessactive) end; set $guessactive, 1; announce "The server is starting a Disguise Event now!",0; set $guessbegin, 0; sleep 3000; if (!$guessactive) end; announce "If you want to join, come to prontera, head downwards and enter the warp portal.",0; enablenpc "guesswarp"; enablenpc "Disguise NPC"; sleep 3000; announce "Number of Rounds: "+$guessrounds,0; sleep 2000; announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0; sleep 2000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal is going to close in one minute.",0; sleep 60000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal has been closed.",0; disablenpc "guesswarp"; set $DisguiseRound, 0; sleep 5000; if (!$guessactive) {disablenpc "Disguise NPC"; end;} if(getmapusers("poring_c01") == 0) { disablenpc "Disguise NPC"; set $guessactive, 0; end; } donpcevent "Disguise NPC::OnStart"; end; OnGMStop: if ($guessactive) { set $guessactive, 0; announce "The disguise event has been stopped.",0; set $DisguiseRound, 0; mapwarp "poring_c01.gat","prontera.gat",143,171; setnpcdisplay "Disguise NPC",933; disablenpc "Disguise NPC"; disablenpc "guesswarp"; } end; OnMinute20: // SET THE 30 TO THE MINUTE YOU WANT THE EVENT TO START EACH HOUR. if ($guessactive) end; set $guessactive, 1; announce "The server is starting a Disguise Event now!",0; set $guessbegin, 0; sleep 3000; if (!$guessactive) end; announce "If you want to join, come to prontera, head downwards and enter the warp portal.",0; enablenpc "guesswarp"; enablenpc "Disguise NPC"; sleep 2000; announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0; sleep 2000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal is going to close in one minute.",0; sleep 60000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal has been closed.",0; disablenpc "guesswarp"; sleep 5000; if (!$guessactive) {disablenpc "Disguise NPC"; end;} announce "Next Event will start in 2 hours.",0; set $DisguiseRound, 0; if(getmapusers("poring_c01") == 0) { disablenpc "Disguise NPC"; set $guessactive, 0; end; } donpcevent "Disguise NPC::OnStart"; end; OnInit: disablenpc "Disguise NPC"; disablenpc "guesswarp"; set $guessactive, 0; setarray $Forbidden[0],1003,1006,1017,1021,1022,1027,1043,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218,1223,1284,1325,1326,1327,1328,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,1360,1361,1362,1363,1407,1411,1414,1496,1501,1900,1948,1892,1949,1950,1983,1984,2010,1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168,1171,1172,1173,1181,1210,1222,1223,1224,1225,1226,1227,1228,1233,1284,1407,1411,1414,1496,1501,1900,1996,2002,2003,2004,2005,2006,2007,2011,2012,2025,2028,2029,2030,2031,2032,2033,2034,2035,2036,2037,2038,2039,2040,2041,2042,2043,2044,2045,2046,2047,2048,2049,2050,2051,2052,2053,2054,2055,2056,2057,2058,2059,2060,2061,2062,2063,2064,2065,2066,2067,2075,2076,2077,2078,2079,2080,2081,2084,2093,2094,2095,2096,2097,2098,2099,2100,2101,2102,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112,2113,2114,2115,2116,2117,2118,2119,2120,2121,2122,2123,2124,2125,1900,1901,1902,1903,1237,1239,1145,1175,1209,1841,1842,1843,1844,3014,3001,3002,2114,2115,2117,2118,2119,2120,6049,6050,6051,6052,2200,2205,2207; } //----------------------------------------------------------------------------------- //------------------Warp Portal------------------------------------------------------ prontera,156,180,0 warp guesswarp 2,2,poring_c01,103,95 //----------------------------------------------------------------------------------- //------------------Map Flags-------------------------------------------------------- poring_c01 mapflag nowarpto poring_c01 mapflag noskill poring_c01 mapflag nosave poring_c01 mapflag nomemo poring_c01 mapflag noteleport poring_c01 mapflag nowarp //-----------------------------------------------------------------------------------
  7. new error :/ or i did something wrong
  8. what should i do with set #PVPDeathsAccount,#PVPDeathsAccount+1; srry
  9. what should i do ? errors when more than 1 people kill someone thats written under the error plz help
  10. Now i got this error . What Should i do ?
  11. and can u tell me plz How to remove that example Player3131 have claimed the 16 after killing player123 i want to make it only Player3131 have claimed the 16 !
  12. Hello Everybody ^___^ i want help on editing this npc .. i want the Kills only apears on the ranking No Death / No time Example... normally : kills:death ~ time what i want / kills Only Kills Plz anyone help me on that and thank you //===== eAthena Script ======================================= //= eAthena PVP-Ladder //===== By: ================================================== //= Terces //===== Current Version: ===================================== //= 1.7.2 //===== Compatible With: ===================================== //= Any Athena Version that has "for" implemented //===== Credits: ============================================= //= The whole eAthena Board and the eAthena Chat //===== Notes: =============================================== //= Note 1: //= Experience gain works like this formula: //= ($@LadderLength-(<new position>-1))*$@LadderExp //= so if someone gets the first place he'll get //= $@LadderLength*$@LadderExp experience points. //============================================================ //= Fixxed by Dante //= V1.7.2 //= Hosted by Dant3 aka Dante //= HAFE FUN! READ THE TOPIC! IT DONT WORKS MAYBE ON OLDER REV //= LAST UPDATE: 12th,February.2008 // Main Script - Terces (Main Thanks to Terces ) // V1.7.0 - Dant3 // v1.7.1 - AnnieRuRu // v1.7.2 - Dant3 // v1.7.3 - Dant3 // THIS SCRIPT WORKS ONLY ON THE NEW EATHENA REVISIONS! ENJOY! - 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, 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, ; 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,174,230,3 script PvP Ladder 57,{ 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$); }
×
×
  • Create New...