API tools faq
paste
yuhsing

Untitled

yuhsing
Mar 26th, 2013
76
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 36.29 KB | None | 0 0
raw download clone embed print report
  1. //===== eAthena Script =======================================================
  2. //= PVP ladder script with dota announcement ( SQL only )
  3. //===== By: ==================================================================
  4. //= ~AnnieRuru~
  5. //===== Current Version: =====================================================
  6. //= 2.9
  7. //===== Compatible With: =====================================================
  8. //= eAthena SQL 14279, with MySQL 5.1
  9. //===== Description: =========================================================
  10. //= PVP ladder store in SQL table
  11. //= plus anti-sit-killer feature
  12. //===== Topic ================================================================
  13. //= http://www.eathena.ws/board/index.php?showtopic=177918
  14. //===== Additional Comments: =================================================
  15. //= still don't have modify value option, will be done ... in next year ...
  16. //============================================================================
  17.  
  18. // add all the maps that you want this script to trigger ... all pvp and event maps perhaps ?
  19. // but if you already enable "all" maps, then can comment all these
  20. pvp_y_8-1 mapflag loadevent
  21. pvp_y_8-2 mapflag loadevent
  22. guild_vs3 mapflag loadevent
  23. gefg_cas01 mapflag loadevent
  24. prtg_cas03 mapflag loadevent
  25. z_agit mapflag loadevent
  26. guild_vs1 mapflag loadevent
  27. pvp_2vs2 mapflag loadevent
  28. payg_cas04 mapflag loadevent
  29.  
  30. - script DOTAPVP -1,{
  31. OnInit:
  32. // Config
  33. set .sound, 1; // soundeffect : 0 - disable, 1 - play soundeffect to all players on map, 2 - play soundeffect to an area around the killer, 3 - play soundeffect to killer only
  34. set .announce, 1; // announce to : 0 - global, 1 - map
  35. set .announcemap, 1; // announce the map name in the announcement ? : 0 - off, 1 - on
  36.  
  37. set .announcekill, 1; // announce who pawn who's head : 0 - off, 1 - on
  38. set .msg_die, 1; // show message who kill you when die : 0 - off, 1 - on
  39. set .msg_kill, 1; // show message you kill who when killed someone : 0 - off, 1 - on
  40.  
  41. set .gmnokill, 80; // GMs are not suppose to kill players. A GM with <this number> level or higher will do nothing. IF set to 60, GM60 and above kill any player will not get anything : 0 - off
  42.  
  43. set .multikill, 3;
  44. set .ultrakill, 4;
  45. set .grandkill, 5;
  46. set .massivekill, 6;
  47. set .youcantstopme, 7;
  48. set .yeahbaby, 8;
  49. set .alert, 9;
  50. set .tonton, 10;
  51. set .continue, 1; // after beyond-Killing Spree, every <this number> kills will make announcement again
  52.  
  53. set .owned, 5; // how many times the party/guild has to kill to announce ownage
  54. set .owncontinue, 1; // after ownage, every <this number> party/guild cumulative kills will make ownage announce again
  55.  
  56. set .min_gm_menu, 100; // minimum level of GM can use the GM menu on ladder npc
  57.  
  58. set .showtotal, 20; // show the length of ladder. Note : Maximum value = 128
  59. set .showpage, 10; // set the views per page. Note : Maximum value = 128
  60. set .loweststreak, 3; // mininum streak count allow to show in highest streak ladder. Default 3 means must at least have Multi Kill streak to display in ladder
  61. set .lowestownage, 5; // mininum ownage count allow to show in longest ownage ladder. Default 5 means must at least have 5 ownage counts to display in ladder
  62.  
  63. setarray .maptrigger$, // only these maps will trigger this script
  64. // "all", // uncomment this to allow load all maps
  65. "pvp_y_8-1",
  66. "pvp_y_8-2",
  67. "guild_vs3",
  68. "gefg_cas01",
  69. "prtg_cas03",
  70. "z_agit",
  71. "guild_vs1",
  72. "payg_cas04",
  73. "pvp_2vs2";
  74.  
  75. // anti-sit-killer system
  76. // a player must kill another player with this minimum <this number> base level to get the announcement and in the ladder.
  77. // Otherwise only have streak ended announcement and killed player's streak reset.
  78. // Its possible for a level 1 novice to kill a level 99 player and he/she will still get in the ladder
  79. // but a level 99 kill a level 1 player will get nothing
  80. // 0 - off this system ( default is 55, pk setting )
  81. set .lvltokill, 99;
  82.  
  83. // when a player kill another same player <this number> times in a row, the player is warp back to save point.
  84. // and the player's streak, kills, and ownage count will deduct accordingly
  85. // 0 - off this system
  86. set .counttopunish, 6;
  87.  
  88. // minimum level range to kill another player
  89. // eg. when set to 20, player level 99 needs to kill another player with minimum level of 79 to get announcement and increase the kill rank.
  90. // but a player with base level 50 kills a level 99 will also get the announcement
  91. // higher base level cannot kill lower level, but lower level can kill higher level
  92. // 0 - off this system
  93. set .minlvlrange, 20;
  94.  
  95.  
  96. // Config ends ------------------------------------------------------------------------------------------
  97.  
  98. // to prevent bug happen
  99. if ( .announce < 0 || .announce > 1 ) set .announce, 0;
  100. if ( .continue < 1 ) set .continue, 1;
  101. if ( .owncontinue < 1 ) set .owncontinue, 1;
  102. if ( .gmnokill <= 0 ) set .gmnokill, 100;
  103. if ( .lvltokill <= 1 ) set .lvltokill, 0;
  104. if ( .counttopunish <= 1 ) set .counttopunish, 0;
  105. set .maptriggersize, getarraysize(.maptrigger$);
  106. end;
  107.  
  108. // script start.
  109. OnPCKillEvent:
  110. if ( getgmlevel() >= .gmnokill ) end;
  111. getmapxy .@map$, .@x, .@y, 0;
  112. if ( .maptrigger$ != "all" ) {
  113. for ( set .@i, 0; .@i < .maptriggersize; set .@i, .@i +1 ) {
  114. if ( .@map$ == .maptrigger$[.@i] ) break;
  115. }
  116. if ( .@i == .maptriggersize ) end;
  117. }
  118. attachrid killedrid;
  119. if ( killerrid != getcharid(3) && ( .msg_die || .msg_kill ) ) {
  120. if ( .msg_die ) message strcharinfo(0),"You have been killed by "+ rid2name(killerrid);
  121. if ( .msg_kill ) message rid2name(killerrid),"You just killed "+ strcharinfo(0);
  122. }
  123. if ( @PlayersKilledStreak >= .tonton )
  124. set .@streakname$,"Crazy Kill";
  125. else if ( @PlayersKilledStreak >= .alert )
  126. set .@streakname$,"Killing Spree";
  127. else if ( @PlayersKilledStreak >= .yeahbaby )
  128. set .@streakname$,"Monster Kill";
  129. else if ( @PlayersKilledStreak >= .youcantstopme )
  130. set .@streakname$,"Unstoppable";
  131. else if ( @PlayersKilledStreak >= .massivekill )
  132. set .@streakname$,"Massive Kill";
  133. else if ( @PlayersKilledStreak >= .grandkill )
  134. set .@streakname$,"Grand Kill";
  135. else if ( @PlayersKilledStreak >= .ultrakill )
  136. set .@streakname$,"Ultra Kill";
  137. else if ( @PlayersKilledStreak >= .multikill )
  138. set .@streakname$,"Multi Kill";
  139. if ( @PlayersKilledStreak >= .multikill && killerrid == getcharid(3) )
  140. announce strcharinfo(0) +" has ended "+( (sex)?"him":"her" )+" own "+ .@streakname$ +"["+ @PlayersKilledStreak +"] streak "+( (.announcemap)?("at "+ .@map$):""),16|.announce;
  141. else if ( @PlayersKilledStreak >= .multikill )
  142. announce rid2name(killerrid) +" has ended "+ strcharinfo(0) +"'s "+ .@streakname$ +"["+ @PlayersKilledStreak +"] streak "+( (.announcemap)?("at "+ .@map$):""),16|.announce;
  143. else if ( .announcekill && killerrid != getcharid(3) )
  144. announce rid2name(killerrid) +" has pawned "+ strcharinfo(0) +"'s head "+( (.announcemap)?("at "+ .@map$):""),16|.announce;
  145. set @PlayersKilledStreak,0;
  146. set @dota_sql_deaths, @dota_sql_deaths +1;
  147. set @dota_multikills,0;
  148. query_sql "replace into pvpladder values ( "+ getcharid(0) +", '"+ escape_sql(strcharinfo(0)) +"', "+ @dota_sql_streaks +", "+ @dota_sql_kills +", "+ @dota_sql_deaths +", from_unixtime("+ @dota_sql_streaktime +") )";
  149. set .@killed_gid, getcharid(2);
  150. if ( .@killed_gid ) {
  151. setd ".dota_sql_"+ .@killed_gid +"_c", 0;
  152. if ( getd(".dota_sql_"+ .@killed_gid +"_h") )
  153. query_sql "replace into ownladder values ( "+ .@killed_gid +", '"+ escape_sql(getguildname(.@killed_gid)) +"', "+ getd(".dota_sql_"+ .@killed_gid +"_c") +", "+ getd(".dota_sql_"+ .@killed_gid +"_h") +", from_unixtime("+ getd(".dota_sql_"+ .@killed_gid +"_t") +") )";
  154. }
  155. if ( killerrid == getcharid(3) || baselevel < .lvltokill ) end;
  156. if ( .minlvlrange ) set .@killedlvl, baselevel;
  157. attachrid killerrid;
  158. if ( .minlvlrange && .@killedlvl + .minlvlrange < baselevel ) end;
  159. if ( .counttopunish ) {
  160. if ( @sitkillminute != gettime(2) ) {
  161. deletearray @sitkillid, 128;
  162. deletearray @sitkilltimes, 128;
  163. set @sitkillminute, gettime(2);
  164. }
  165. set .@sitkillsize, getarraysize(@sitkillid);
  166. for ( set .@i,0; .@i < .@sitkillsize; set .@i, .@i +1 ) {
  167. if ( @sitkillid[.@i] != killedrid ) continue;
  168. else {
  169. set @sitkilltimes[.@i], @sitkilltimes[.@i] +1 ;
  170. if ( @sitkilltimes[.@i] >= .counttopunish ) {
  171. warp "SavePoint",0,0;
  172. announce strcharinfo(0) +" , Stop killing "+ rid2name(killedrid) + " !!!",0;
  173. debugmes strcharinfo(0) +" is sit-killing "+ rid2name(killedrid) +" for "+ @sitkilltimes[.@i] + " times";
  174. logmes "is sit-killing "+ rid2name(killedrid) +" for "+ @sitkilltimes[.@i] +" times";
  175. if ( @PlayersKilledStreak == @dota_sql_streaks ) {
  176. set @dota_sql_streaks, @dota_sql_streaks +1 - .counttopunish;
  177. set @dota_sql_streaktime, gettimetick(2);
  178. }
  179. set @PlayersKilledStreak, @PlayersKilledStreak +1 - .counttopunish;
  180. set @dota_sql_kills, @dota_sql_kills +1 - .counttopunish;
  181. query_sql "replace into pvpladder values ( "+ getcharid(0) +", '"+ escape_sql(strcharinfo(0)) +"', "+ @dota_sql_streaks +", "+ @dota_sql_kills +", "+ @dota_sql_deaths +", from_unixtime("+ @dota_sql_streaktime +") )";
  182. set .@killer_gid, getcharid(2);
  183. if ( .@killer_gid ) {
  184. if ( getd(".dota_sql_"+ .@killer_gid +"_c") == getd(".dota_sql_"+ .@killer_gid +"_h") ) {
  185. setd ".dota_sql_"+ .@killer_gid +"_h", getd(".dota_sql_"+ .@killer_gid +"_h") +1 - .counttopunish;
  186. setd ".dota_sql_"+ .@killer_gid +"_t", gettimetick(2);
  187. }
  188. setd (".dota_sql_"+ .@killer_gid +"_c"), getd(".dota_sql_"+ .@killer_gid +"_c") +1 - .counttopunish;
  189. query_sql "replace into ownladder values ( "+ .@killer_gid +", '"+ escape_sql(getguildname(.@killer_gid)) +"', "+ getd(".dota_sql_"+ .@killer_gid +"_c") +", "+ getd(".dota_sql_"+ .@killer_gid +"_h") +", from_unixtime("+ getd(".dota_sql_"+ .@killer_gid +"_t") +") )";
  190. }
  191. end;
  192. }
  193. break;
  194. }
  195. }
  196. if ( .@i == .@sitkillsize ) {
  197. set @sitkillid[.@i], killedrid;
  198. set @sitkilltimes[.@i], 1;
  199. }
  200. }
  201. set @PlayersKilledStreak, @PlayersKilledStreak +1 ;
  202. set @dota_sql_kills, @dota_sql_kills +1 ;
  203. if ( @PlayersKilledStreak > @dota_sql_streaks ) {
  204. set @dota_sql_streaks, @PlayersKilledStreak;
  205. set @dota_sql_streaktime, gettimetick(2);
  206. }
  207. query_sql "replace into pvpladder values ( "+ getcharid(0) +", '"+ escape_sql(strcharinfo(0)) +"', "+ @dota_sql_streaks +", "+ @dota_sql_kills +", "+ @dota_sql_deaths +", from_unixtime("+ @dota_sql_streaktime +") )";
  208. if ( @PlayersKilledStreak == .multikill )
  209. setarray .@streakname$,"multikill.wav","is on a Multi Kill","!";
  210. else if ( @PlayersKilledStreak == .ultrakill )
  211. setarray .@streakname$,"ultrakill.wav","is Ultra Kill","!";
  212. else if ( @PlayersKilledStreak == .grandkill )
  213. setarray .@streakname$,"grandkill.wav","has a GRAND KILL","!";
  214. else if ( @PlayersKilledStreak == .massivekill )
  215. setarray .@streakname$,"massivekill.wav","is Massive Kill","!!";
  216. else if ( @PlayersKilledStreak == .youcantstopme )
  217. setarray .@streakname$,"youcantstopme.wav","is Unstoppable","!!";
  218. else if ( @PlayersKilledStreak == .yeahbaby )
  219. setarray .@streakname$,"yeahbaby.wav","has a MONSTER KILL","!!";
  220. else if ( @PlayersKilledStreak == .alert )
  221. setarray .@streakname$,"alert.wav","is Killing Spree","!!!";
  222. else if ( @PlayersKilledStreak >= .tonton && ( (@PlayersKilledStreak - .tonton) % .continue == 0 ) )
  223. setarray .@streakname$,"tonton.wav","is CRAZY KILL",". Someone KILL "+( (sex)?"HIM":"HER" ) +"!!!!!!";
  224. if ( .@streakname$[1] != "" ) {
  225. announce strcharinfo(0) +" "+ .@streakname$[1] +"["+ @PlayersKilledStreak +"] "+( (.announcemap)?("at "+ .@map$):"") + .@streakname$[2],16|.announce;
  226. if ( .sound == 1 ) soundeffectall .@streakname$[0],0,.@map$;
  227. else if ( .sound == 2 ) soundeffectall .@streakname$[0],0;
  228. else if ( .sound == 3 ) soundeffect .@streakname$[0],0;
  229. }
  230. set @dota_multikills, @dota_multikills + 1;
  231. deltimer "DOTAPVP::OnStreakReset";
  232. addtimer 18000,"DOTAPVP::OnStreakReset";
  233. set .@killer_gid, getcharid(2);
  234. if ( .@killer_gid && .@killer_gid != .@killed_gid ) {
  235. setd ".dota_sql_"+ .@killer_gid +"_c", getd(".dota_sql_"+ .@killer_gid +"_c") +1 ;
  236. if ( getd(".dota_sql_"+ .@killer_gid +"_c") > getd(".dota_sql_"+ .@killer_gid +"_h") ) {
  237. setd ".dota_sql_"+ .@killer_gid +"_h", getd(".dota_sql_"+ .@killer_gid +"_c");
  238. setd ".dota_sql_"+ .@killer_gid +"_t", gettimetick(2);
  239. }
  240. query_sql "replace into ownladder values ( "+ .@killer_gid +", '"+ escape_sql(getguildname(.@killer_gid)) +"', "+ getd(".dota_sql_"+ .@killer_gid +"_c") +", "+ getd(".dota_sql_"+ .@killer_gid +"_h") +", from_unixtime("+ getd(".dota_sql_"+ .@killer_gid +"_t") +") )";
  241. }
  242. set .@dota_multikills, @dota_multikills;
  243. set .@origin, getcharid(3);
  244. sleep 1500;
  245. if ( .@killer_gid && .@killer_gid != .@killed_gid && getd(".dota_sql_"+ .@killer_gid +"_c") >= .owned && ( ( getd(".dota_sql_"+ .@killer_gid +"_c") - .owned ) % .owncontinue == 0 ) ) {
  246. if ( .announce ) mapannounce .@map$, "The guild ["+ getguildname(.@killer_gid) +"] is OWNING["+ getd(".dota_sql_"+ .@killer_gid +"_c") +"] !!!",16;
  247. else announce "The guild ["+ getguildname(.@killer_gid) +"] is OWNING["+ getd(".dota_sql_"+ .@killer_gid +"_c") +"] !!!",16;
  248. if ( .sound == 1 ) soundeffectall "ownage.wav",0,.@map$;
  249. else if ( .sound == 2 ) soundeffectall "ownage.wav",0;
  250. else if ( .sound == 3 && attachrid(.@origin) ) soundeffect "ownage.wav",0;
  251. }
  252. sleep 1250;
  253. if ( !attachrid(.@origin) ) end;
  254. if ( .@dota_multikills == 2 ) {
  255. if ( .announce ) mapannounce .@map$, strcharinfo(0) +" just got a Double Kill !",16;
  256. else announce strcharinfo(0) +" just got a Double Kill !",16;
  257. if ( .sound == 1 ) soundeffectall "doublekill.wav",0,.@map$;
  258. else if ( .sound == 2 ) soundeffectall "doublekill.wav",0;
  259. else if ( .sound == 3 ) soundeffect "doublekill.wav",0;
  260. }
  261. else if ( .@dota_multikills == 3 ) {
  262. if ( .announce ) mapannounce .@map$, strcharinfo(0) +" just got a Multi Kill !!!",16;
  263. else announce strcharinfo(0) +" just got a Multi Kill !!!",16;
  264. if ( .sound == 1 ) soundeffectall "multikill.wav",0,.@map$;
  265. else if ( .sound == 2 ) soundeffectall "multikill.wav",0;
  266. else if ( .sound == 3 ) soundeffect "multikill.wav",0;
  267. }
  268. else if ( .@dota_multikills == 4 ) {
  269. if ( .announce ) mapannounce .@map$, strcharinfo(0) +" just got a Ultra Kill !!!",16;
  270. else announce strcharinfo(0) +" just got a Ultra Kill !!!",16;
  271. if ( .sound == 1 ) soundeffectall "ultrakill.wav",0,.@map$;
  272. else if ( .sound == 2 ) soundeffectall "ultrakill.wav",0;
  273. else if ( .sound == 3 ) soundeffect "ultrakill.wav",0;
  274. }
  275. else if ( .@dota_multikills >= 5 ) {
  276. if ( .announce ) mapannounce .@map$, strcharinfo(0) +" is on a Rampage !!!",16;
  277. else announce strcharinfo(0) +" is on a Rampage !!!",16;
  278. if ( .sound == 1 ) soundeffectall "rampage.wav",0,.@map$;
  279. else if ( .sound == 2 ) soundeffectall "rampage.wav",0;
  280. else if ( .sound == 3 ) soundeffect "rampage.wav",0;
  281. }
  282. end;
  283. OnStreakReset:
  284. set @dota_multikills, 0;
  285. end;
  286. OnWhisperGlobal:
  287. if ( @spam_dotapvp + 3 >= gettimetick(2) ) // 3 seconds interval so player don spam this command
  288. end;
  289. set @spam_dotapvp, gettimetick(2);
  290. if ( @dota_sql_kills == 0 && @dota_sql_deaths == 0 )
  291. query_sql "select kills, deaths, streaks, unix_timestamp(streaktime) from pvpladder where char_id = "+ getcharid(0), @dota_sql_kills, @dota_sql_deaths, @dota_sql_streaks, @dota_sql_streaktime;
  292. if ( @dota_sql_kills || @dota_sql_deaths ) {
  293. dispbottom "Your current Streak : "+ @PlayersKilledStreak;
  294. dispbottom "Your total Kills : "+ @dota_sql_kills;
  295. dispbottom "Your total Deaths : "+ @dota_sql_deaths;
  296. dispbottom "Your highest Streak : "+ @dota_sql_streaks;
  297. query_sql "select date_format( from_unixtime("+ @dota_sql_streaktime +"),'%a %e/%c/%y %r')", .@time1$;
  298. dispbottom "Your highest Streak on : "+ .@time1$;
  299. }
  300. else
  301. dispbottom "You are not in the pvp ladder yet.";
  302. if ( getcharid(2) ) {
  303. if ( getd(".dota_sql_"+ getcharid(2) +"_h") == 0 ) {
  304. query_sql "select currentown, highestown, unix_timestamp(owntime) from ownladder where guild_id = "+ getcharid(2), .@c, .@h, .@t;
  305. setd ".dota_sql_"+ getcharid(2) +"_c", .@c;
  306. setd ".dota_sql_"+ getcharid(2) +"_h", .@h;
  307. setd ".dota_sql_"+ getcharid(2) +"_t", .@t;
  308. }
  309. if ( getd(".dota_sql_"+ getcharid(2) +"_h") ) {
  310. dispbottom "Your guild current Own : "+ getd(".dota_sql_"+ getcharid(2) +"_c");
  311. dispbottom "Your guild highest Own : "+ getd(".dota_sql_"+ getcharid(2) +"_h");
  312. query_sql "select date_format( from_unixtime("+ getvariableofnpc( getd(".dota_sql_"+ getcharid(2) +"_t"), "DOTAPVP" ) +"),'%a %e/%c/%y %r')", .@time2$;
  313. dispbottom "Your guild highest Own on : "+ .@time2$;
  314. }
  315. else
  316. dispbottom "Your guild is not in the ladder yet.";
  317. }
  318. end;
  319. OnPCLoginEvent:
  320. if ( .maptrigger$ != "all" ) end;
  321. OnPCLoadMapEvent:
  322. if ( @dota_sql_kills == 0 && @dota_sql_deaths == 0 ) {
  323. if ( .maptrigger$ != "all" ) {
  324. getmapxy .@map$, .@x, .@y, 0;
  325. for ( set .@i, 0; .@i < .maptriggersize; set .@i, .@i +1 ) {
  326. if ( .@map$ == .maptrigger$[.@i] ) break;
  327. }
  328. if ( .@i == .maptriggersize ) end;
  329. }
  330. query_sql "select kills, deaths, streaks, unix_timestamp(streaktime) from pvpladder where char_id = "+ getcharid(0), @dota_sql_kills, @dota_sql_deaths, @dota_sql_streaks, @dota_sql_streaktime;
  331. }
  332. if ( getcharid(2) && getd(".dota_sql_"+ getcharid(2) +"_h") == 0 ) {
  333. query_sql "select currentown, highestown, unix_timestamp(owntime) from ownladder where guild_id = "+ getcharid(2), .@c, .@h, .@t;
  334. setd ".dota_sql_"+ getcharid(2) +"_c", .@c;
  335. setd ".dota_sql_"+ getcharid(2) +"_h", .@h;
  336. setd ".dota_sql_"+ getcharid(2) +"_t", .@t;
  337. }
  338. end;
  339. }
  340.  
  341. prontera,163,192,3 script NeutralRO PvP System 467,{
  342. set .@npcname$, strnpcinfo(0);
  343. while (1) {
  344. mes "["+ .@npcname$ +"]";
  345. mes "Hello "+ strcharinfo(0) +"...";
  346. mes "If you want to I can show you your PVP stats.";
  347. if ( getgmlevel() >= getvariableofnpc(.min_gm_menu,"DOTAPVP") ) mes "And GM option for you.";
  348. next;
  349. if ( getgmlevel() >= getvariableofnpc(.min_gm_menu,"DOTAPVP") )
  350. select "Most Kills","Highest Streak","Longest Ownage","Own Information","Explanation","Reset Table","Modify a ladder value";
  351. else
  352. switch ( select ( "Most Kills","Highest Streak","Longest Ownage","Own Information","Explanation",( getgmlevel() < 90 )?"":"[GM] RESET LADDER" ) ) {
  353. case 1:
  354. set .@nb, query_sql("select name, kills, deaths from pvpladder order by kills desc limit "+ getvariableofnpc(.showtotal,"DOTAPVP"), .@name$, .@kills, .@deaths);
  355. if ( .@nb == 0 ) {
  356. mes "["+ .@npcname$ +"]";
  357. mes "The ladder currently is empty.";
  358. next;
  359. }
  360. for ( set .@j,0; .@j < .@nb; set .@j, .@j + getvariableofnpc(.showpage,"DOTAPVP") ) {
  361. mes "["+ .@npcname$ +"]";
  362. for ( set .@i, .@j; .@i < (getvariableofnpc(.showpage,"DOTAPVP") + .@j) && .@i < .@nb; set .@i, .@i + 1 ) {
  363. mes "^996600"+ (.@i+1) +": ^006699"+ .@name$[.@i] +" ^00AA00["+ .@kills[.@i] +"] ^FF0000<"+ .@deaths[.@i] +">^000000";
  364. }
  365. next;
  366. }
  367. break;
  368. case 2:
  369. set .@nb, query_sql("select name, streaks, date_format(streaktime,'%a %e/%c/%y %r') from pvpladder where streaks >= "+ getvariableofnpc(.loweststreak,"DOTAPVP") +" order by streaks desc limit "+ getvariableofnpc(.showtotal,"DOTAPVP"), .@name$, .@streak, .@time$);
  370. if ( .@nb == 0 ) {
  371. mes "["+ .@npcname$ +"]";
  372. mes "The ladder currently is empty.";
  373. next;
  374. }
  375. for ( set .@j,0; .@j < .@nb; set .@j, .@j + getvariableofnpc(.showpage,"DOTAPVP") ) {
  376. mes "["+ .@npcname$ +"]";
  377. for ( set .@i, .@j; .@i < (getvariableofnpc(.showpage,"DOTAPVP") + .@j) && .@i < .@nb; set .@i, .@i + 1 ) {
  378. mes "^996600"+ (.@i+1) +": ^006699"+ .@name$[.@i] +" ^70AC11{"+ .@streak[.@i] +"} ^000000on :";
  379. mes " ^EE8800"+ .@time$[.@i] +"^000000";
  380. }
  381. next;
  382. }
  383. break;
  384. case 3:
  385. set .@nb, query_sql("select name, highestown, date_format(owntime,'%a %e/%c/%y %r') from ownladder where highestown >= "+ getvariableofnpc(.lowestownage,"DOTAPVP") +" order by highestown desc limit "+ getvariableofnpc(.showtotal,"DOTAPVP"), .@name$, .@owned, .@time$);
  386. if ( .@nb == 0 ) {
  387. mes "["+ .@npcname$ +"]";
  388. mes "The ladder currently is empty.";
  389. next;
  390. }
  391. for ( set .@j,0; .@j < .@nb; set .@j, .@j + getvariableofnpc(.showpage,"DOTAPVP") ) {
  392. mes "["+ .@npcname$ +"]";
  393. for ( set .@i, .@j; .@i < (getvariableofnpc(.showpage,"DOTAPVP") + .@j) && .@i < .@nb; set .@i, .@i + 1 ) {
  394. mes "^996600"+ (.@i+1) +": ^006699"+ .@name$[.@i] +" ^00AAAA("+ .@owned[.@i] +") ^000000on :";
  395. mes " ^EE8800"+ .@time$[.@i] +"^000000";
  396. }
  397. next;
  398. }
  399. break;
  400. case 4:
  401. if ( @dota_sql_kills == 0 && @dota_sql_deaths == 0 )
  402. query_sql "select kills, deaths, streaks, unix_timestamp(streaktime), date_format(streaktime,'%a %e/%c/%y %r') from pvpladder where char_id = "+ getcharid(0), @dota_sql_kills, @dota_sql_deaths, @dota_sql_streaks, @dota_sql_streaktime, .@time1$;
  403. mes "["+ .@npcname$ +"]";
  404. if ( @dota_sql_kills == 0 && @dota_sql_deaths == 0 )
  405. mes "You not yet kill any player.";
  406. else {
  407. mes "Your Current Streak : ^70AC11{"+ @PlayersKilledStreak +"}^000000";
  408. mes "Your Total Kills : ^00AA00["+ @dota_sql_kills +"]^000000";
  409. mes "Your Death Counts : ^FF0000<"+ @dota_sql_deaths +">^000000";
  410. if ( @dota_sql_kills || @dota_sql_streaks ) {
  411. mes "Highest Streak was ^70AC11{"+ @dota_sql_streaks +"}^000000 on :";
  412. query_sql "select date_format( from_unixtime("+ @dota_sql_streaktime +"),'%a %e/%c/%y %r')", .@time1$;
  413. mes " ^EE8800"+ .@time1$ +"^000000";
  414. }
  415. }
  416. next;
  417. if ( getcharid(2) ) {
  418. if ( getvariableofnpc( getd(".dota_sql_"+ getcharid(2) +"_h"), "DOTAPVP" ) == 0 ) {
  419. query_sql "select currentown, highestown, unix_timestamp(owntime) from ownladder where guild_id = "+ getcharid(2), .@c, .@h, .@t;
  420. set getvariableofnpc( getd(".dota_sql_"+ getcharid(2) +"_c"), "DOTAPVP" ), .@c;
  421. set getvariableofnpc( getd(".dota_sql_"+ getcharid(2) +"_h"), "DOTAPVP" ), .@h;
  422. set getvariableofnpc( getd(".dota_sql_"+ getcharid(2) +"_t"), "DOTAPVP" ), .@t;
  423. }
  424. mes "["+ .@npcname$ +"]";
  425. if ( getvariableofnpc( getd(".dota_sql_"+ getcharid(2) +"_h"), "DOTAPVP" ) == 0 ) {
  426. mes "Your guild not yet kill any player.";
  427. } else {
  428. mes "Your guild name : ^006699"+ strcharinfo(2) +"^000000";
  429. mes "Current Owning : ^00AAAA("+ getvariableofnpc( getd(".dota_sql_"+ getcharid(2) +"_c"), "DOTAPVP" ) +")^000000";
  430. mes "Longest Ownage was ^00AAAA("+ getvariableofnpc( getd(".dota_sql_"+ getcharid(2) +"_h"), "DOTAPVP" ) + ")^000000 on :";
  431. query_sql "select date_format( from_unixtime("+ getvariableofnpc( getd(".dota_sql_"+ getcharid(2) +"_t"), "DOTAPVP" ) +"),'%a %e/%c/%y %r')", .@time2$;
  432. mes " ^EE8800"+ .@time2$ +"^000000";
  433. }
  434. next;
  435. }
  436. break;
  437. case 5:
  438. mes "["+ .@npcname$ +"]";
  439. mes "Explanation for Most Kills:";
  440. mes " ";
  441. mes "^996600Rank. ^006699NAME ^00AA00[Total Kills] ^FF0000<Deaths>^000000";
  442. mes " ";
  443. mes "--------------------------------";
  444. mes " ";
  445. mes "The ^00AA00Kills^000000 added when a player kills another player.";
  446. mes " ";
  447. mes "^FF0000Deaths^000000 count increase when a player killed by another player, or suicide (eg: Grand Cross).";
  448. mes " ";
  449. mes "A player killed by monsters, homunculus or pets will not add the kills or deaths count.";
  450. next;
  451. mes "["+ .@npcname$ +"]";
  452. mes "Explanation for Highest Streak:";
  453. mes " ";
  454. mes "^996600Rank. ^006699NAME ^70AC11{Highest Streak} ^000000on :";
  455. mes " ^EE8800TIME^000000";
  456. mes " ";
  457. mes "--------------------------------";
  458. mes " ";
  459. mes "The ^70AC11Streak^000000 are added every time a player kills another player. It will reset upon log out, killed by another player, or suicide (eg: Sacrifice).";
  460. mes " ";
  461. mes "Then it record in the server the ^EE8800TIME^000000 when that player got that highest streak.";
  462. mes " ";
  463. mes "A player killed by monsters, homunculus or pets will not reset the streak.";
  464. mes " ";
  465. mes "--------------------------------";
  466. mes " ";
  467. mes "The numbers of straight kills to get these announcements are :";
  468. mes "^70AC11"+ getvariableofnpc(.multikill,"DOTAPVP") +"^000000 : Multi Kill";
  469. mes "^70AC11"+ getvariableofnpc(.ultrakill,"DOTAPVP") +"^000000 : Ultra Kill";
  470. mes "^70AC11"+ getvariableofnpc(.grandkill,"DOTAPVP") +"^000000 : Grand Kill";
  471. mes "^70AC11"+ getvariableofnpc(.massivekill,"DOTAPVP") +"^000000 : Massive Kill";
  472. mes "^70AC11"+ getvariableofnpc(.youcantstopme,"DOTAPVP") +"^000000 : Unstoppable";
  473. mes "^70AC11"+ getvariableofnpc(.yeahbaby,"DOTAPVP") +"^000000 : Monster Kill";
  474. mes "^70AC11"+ getvariableofnpc(.alert,"DOTAPVP") +"^000000 : Killing Spree";
  475. mes "^70AC11"+ getvariableofnpc(.tonton,"DOTAPVP") +"^000000 : Crazy Kill";
  476. next;
  477. mes "["+ .@npcname$ +"]";
  478. mes "Explanation for Longest Ownage:";
  479. mes " ";
  480. mes "^996600Rank. ^006699NAME ^00AAAA(Longest Ownage) ^000000on :";
  481. mes " ^EE8800TIME^000000";
  482. mes " ";
  483. mes "--------------------------------";
  484. mes " ";
  485. mes "The ^00AAAAOwnage^000000 added every time any guild members killed another player that doesn't belong to his/her guild. It will reset when any of the guild member was killed by ANY player, including his/her guild member.";
  486. mes " ";
  487. mes "Then it record in the server the ^EE8800TIME^000000 when the guild got that longest ownage.";
  488. mes " ";
  489. mes "If the server went under maintainance, the current ownage will survive after the server restart.";
  490. mes " ";
  491. mes "Any guild member killed by monster, homunculus or pets will not reset the ownage count.";
  492. next;
  493. if ( getvariableofnpc(.lvltokill,"DOTAPVP") ) {
  494. mes "["+ .@npcname$ +"]";
  495. mes "You must kill another player with minimum base level of "+ getvariableofnpc(.lvltokill,"DOTAPVP") +", in order to get an announcement or get in the ladder.";
  496. mes " ";
  497. mes "It's possible for a base level 1 novice kills a base level 99 player and still can get in the ladder.";
  498. mes "However when a player level 99 kills a level 1 novice will get nothing.";
  499. next;
  500. }
  501. if ( getvariableofnpc(.counttopunish,"DOTAPVP") ) {
  502. mes "["+ .@npcname$ +"]";
  503. mes "Some noob players try to kill the same person over and over again in hope of getting his/her name appear in the ladder.";
  504. mes "However if you trying to do the same thing on this ladder, your name will announce to the public, and your action will be recorded into the server to notify the GMs.";
  505. next;
  506. }
  507. if ( getvariableofnpc(.minlvlrange,"DOTAPVP") ) {
  508. mes "["+ .@npcname$ +"]";
  509. mes "When you kill another player thats lower base level than you, the base level gap between you and that player must not more than "+ getvariableofnpc(.minlvlrange,"DOTAPVP") +".";
  510. mes " ";
  511. if ( getvariableofnpc(.minlvlrange,"DOTAPVP") >= 200)
  512. mes "In other words, if your base level is 500, the player you killed must be at least level "+( 500 - getvariableofnpc(.minlvlrange,"DOTAPVP") )+" then only you will get the announcement and in the ladder.";
  513. else if ( getvariableofnpc(.minlvlrange,"DOTAPVP") >= 70)
  514. mes "In other words, if your base level is 255, the player you killed must be at least level "+( 255 - getvariableofnpc(.minlvlrange,"DOTAPVP") )+" then only you will get the announcement and in the ladder.";
  515. else
  516. mes "In other words, if your base level is 99, the player you killed must be at least level "+( 99 - getvariableofnpc(.minlvlrange,"DOTAPVP") )+" then only you will get the announcement and in the ladder.";
  517. mes "Higher base level kills lower level gets nothing, however lower level player kills higher level will get the announcement.";
  518. next;
  519. }
  520. break;
  521. case 6:
  522. if ( getgmlevel() < getvariableofnpc(.min_gm_menu,"DOTAPVP") ) break;
  523. mes "["+ .@npcname$ +"]";
  524. mes "Which table you want to reset ?";
  525. next;
  526. switch( select("Both","PVP ladder","Ownage ladder","Nope") ) {
  527. case 1:
  528. mes "["+ .@npcname$ +"]";
  529. mes "Are you sure you want to reset both ladder ?";
  530. next;
  531. if ( select("Nope:Yup") == 1 ) break;
  532. query_sql "TRUNCATE pvpladder";
  533. query_sql "TRUNCATE ownladder";
  534. mes "["+ .@npcname$ +"]";
  535. mes "Both ladder are reset";
  536. next;
  537. break;
  538. case 2:
  539. case 3:
  540. set .@menu, @menu;
  541. mes "["+ .@npcname$ +"]";
  542. mes "Are you sure you want to reset "+( (.@menu ==2)?"PVP":"Ownage" )+" ladder ?";
  543. next;
  544. if ( select("Nope:Yup") == 1 ) break;
  545. query_sql "TRUNCATE "+( (.@menu ==2)?"pvp":"own" )+"ladder";
  546. mes "["+ .@npcname$ +"]";
  547. mes "The ladder is reset";
  548. next;
  549. break;
  550. default:
  551. }
  552. break;
  553. case 7:
  554. if ( getgmlevel() < getvariableofnpc(.min_gm_menu,"DOTAPVP") ) break;
  555. mes "["+ .@npcname$ +"]";
  556. mes "select which table you want to modify";
  557. next;
  558. switch( select ("PVP ladder","Ownage ladder","Back") ) {
  559. if ( @menu == 3 ) break;
  560. mes "["+ .@npcname$ +"]";
  561. mes "select input type";
  562. next;
  563. case 1:
  564. if ( select("Char ID","Char Name","Account ID") != 3) {
  565. if ( @menu == 1 )
  566. input .@id;
  567. else
  568. input .@id$;
  569. mes "["+ .@npcname$ +"]";
  570. query_sql "select char_id from `char` where "+( (@menu ==1)?("char_id = "+ .@id):("name = '"+ escape_sql(.@id$) +"'") ), .@cid;
  571. if ( !.@cid ) {
  572. mes "There is no such character "+( (@menu == 1)?"ID":"name");
  573. next;
  574. break;
  575. } else
  576. set .@cid, 0;
  577. query_sql "select char_id, name, streaks, kills, deaths, date_format(streaktime,'%a %e/%c/%y %r') from pvpladder where "+( (@menu ==1)?("char_id = "+ .@id):("name = '"+ escape_sql(.@id$) +"'") ), .@cid, .@name$, .@streak, .@kills, .@deaths, .@time$;
  578. if ( !.@cid ) {
  579. mes "This player is not in the ladder";
  580. next;
  581. break;
  582. }
  583. } else {
  584. input .@id;
  585. query_sql "select char_id, name, char_num from `char` where account_id = "+ .@id +" order by char_num asc", .@cid, .@name$, .@gid;
  586. if ( !.@cid ) {
  587. mes "There is no such Account ID";
  588. next;
  589. break;
  590. }
  591. mes "["+ .@npcname$ +"]";
  592. for ( set .@i,0; .@i < getarraysize(.@cid); set .@i, .@i + 1 )
  593. mes (.@gid[.@i] +1) +". "+ .@cid[.@i] +" "+ .@name$[.@i];
  594. set .@menu$, (.@gid[.@i] +1) +". "+ .@cid;
  595. for ( set .@i,1; .@i < getarraysize(.@cid); set .@i, .@i + 1 )
  596. set .@menu$, .@menu$ +":"+ .@gid[.@i] +". "+ .@cid[.@i];
  597. next;
  598. select .@menu$;
  599. mes "["+ .@npcname$ +"]";
  600. set .@id, .@cid[@menu-1];
  601. deletearray .@cid, 9;
  602. query_sql "select char_id, name, streaks, kills, deaths, date_format(streaktime,'%a %e/%c/%y %r') from pvpladder where char_id = "+ .@id, .@cid, .@name$, .@streak, .@kills, .@deaths, .@time$;
  603. if ( !.@cid ) {
  604. mes "This player is not in the ladder";
  605. next;
  606. break;
  607. }
  608. }
  609. mes "Char ID : ^006699"+ .@cid +"^000000";
  610. mes "Char Name : ^006699"+ .@name$ +"^000000";
  611. mes "Total Kills : ^00AA00["+ .@kills +"]^000000";
  612. mes "Deaths Counts : ^FF0000<"+ .@deaths +">^000000";
  613. mes "Highest Streak was ^70AC11{"+ .@streak +"}^000000 on :";
  614. mes " ^EE8800"+ .@time$ +"^000000";
  615. next;
  616. switch( select("Total Kills","Death Counts","Highest Streak & Highest Streak Time","Name") ) {
  617. case 1:
  618. setarray .@time$,"Total Kills",".@kills","kills","";
  619. break;
  620. case 2:
  621. setarray .@time$,"Death Counts",".@deaths","deaths","";
  622. break;
  623. case 3:
  624. setarray .@time$,"Highest Streak",".@streak","streaks","1";
  625. default:
  626. }
  627. if ( @menu < 4 ) {
  628. input .@num;
  629. mes "["+ .@npcname$ +"]";
  630. mes "Really change "+ .@name$ +"'s";
  631. mes .@time$[0] +" from "+ getd(.@time$[1]) +" to "+ .@num +" ?";
  632. if ( .@num >= getd(.@time$[1]) && .@time$[3] == "1" ) mes "and set Highest Streak Time to current time?";
  633. next;
  634. if ( select("Nope:Yup") == 1 ) break;
  635. mes "["+ .@npcname$ +"]";
  636. query_sql "update pvpladder set "+ .@time$[2] +" = "+ .@num +" where char_id = "+ .@cid;
  637. if ( .@num >= getd(.@time$[1]) && .@time$[3] == "1" ) query_sql "update pvpladder set streaktime = now()";
  638. mes "The "+ .@time$[0] +" for";
  639. mes .@name$ +" has set to "+ .@num;
  640. if ( .@num >= getd(.@time$[1]) && .@time$[3] == "1" ) mes "and the Highest Streak Time set to current time";
  641. next;
  642. break;
  643. } else {
  644. mes "["+ .@npcname$ +"]";
  645. mes "Refreshing name of this char :";
  646. mes .@name$ +" ......";
  647. mes " ";
  648. query_sql "select `char`.name, pvpladder.name from `char` right join pvpladder on `char`.char_id = pvpladder.char_id where `char`.char_id = "+ .@cid, .@cid1$, .@cid2$;
  649. if ( .@cid1$ == "" )
  650. mes "The character has deleted, so can't be change anymore";
  651. else if ( .@cid1$ == .@cid2$ )
  652. mes "The name is still the same, so don't need to change";
  653. else {
  654. query_sql "update pvpladder set name = '"+ escape_sql(.@cid1$) +"' where char_id = "+ .@cid;
  655. mes "Now it called : "+ .@cid1$;
  656. }
  657. set .@cid1$, "";
  658. set .@cid2$, "";
  659. next;
  660. }
  661. break;
  662. case 2:
  663. select "Guild ID","Guild Name";
  664. if ( @menu == 1 )
  665. input .@id;
  666. else
  667. input .@id$;
  668. mes "["+ .@npcname$ +"]";
  669. query_sql "select guild_id from guild where "+( (@menu ==1)?("guild_id = "+ .@id):("name = '"+ escape_sql(.@id$) +"'") ), .@gid;
  670. if ( !.@gid ) {
  671. mes "There is no such guild";
  672. next;
  673. break;
  674. } else
  675. set .@gid, 0;
  676. query_sql "select guild_id, name, currentown, highestown, date_format(owntime,'%a %e/%c/%y %r') from ownladder where "+( (@menu ==1)?("guild_id = "+ .@id):("name = '"+ escape_sql(.@id$) +"'") ), .@gid, .@name$, .@currentown, .@owned, .@time$;
  677. if ( !.@gid ) {
  678. mes "This guild is not in the ladder";
  679. next;
  680. break;
  681. }
  682. mes "Guild ID : ^006699"+ .@gid +"^000000";
  683. mes "Guild name : ^006699"+ .@name$ +"^000000";
  684. mes "Current Owning : ^00AAAA("+ .@currentown +")^000000";
  685. mes "Longest Ownage was ^00AAAA("+ .@owned +")^000000 on :";
  686. mes " ^EE8800"+ .@time$ +"^000000";
  687. next;
  688. switch( select("Current Owning","Longest Ownage & Longest Ownage Time","Name") ) {
  689. case 1:
  690. setarray .@time$,"Current Owning",".@currentown","currentown","";
  691. break;
  692. case 2:
  693. setarray .@time$,"Highest Ownage",".@owned","highestown","1";
  694. default:
  695. }
  696. if ( @menu < 3 ) {
  697. input .@num;
  698. mes "["+ .@npcname$ +"]";
  699. mes "Really change "+ .@name$ +"'s";
  700. mes .@time$[0] +" from "+ getd(.@time$[1]) +" to "+ .@num +" ?";
  701. if ( .@num >= getd(.@time$[1]) && .@time$[3] == "1" ) mes "and set Longest Ownage Time to current time?";
  702. next;
  703. if ( select("Nope:Yup") == 1 ) break;
  704. mes "["+ .@npcname$ +"]";
  705. query_sql "update ownladder set "+ .@time$[2] +" = "+ .@num +" where guild_id = "+ .@gid;
  706. if ( .@num >= getd(.@time$[1]) && .@time$[3] == "1" ) query_sql "update ownladder set owntime = now()";
  707. mes "The "+ .@time$[0] +" for";
  708. mes .@name$ +" guild has set to "+ .@num;
  709. if ( .@num >= getd(.@time$[1]) && .@time$[3] == "1" ) mes "and the Longest Ownage Time set to current time";
  710. next;
  711. break;
  712. } else {
  713. mes "["+ .@npcname$ +"]";
  714. mes "Refreshing name of this guild :";
  715. mes .@name$ +" ......";
  716. mes " ";
  717. query_sql "select guild.name, ownladder.name from guild right join ownladder on guild.guild_id = ownladder.guild_id where guild.guild_id = "+ .@gid, .@gid1$, .@gid2$;
  718. if ( .@gid1$ == "" )
  719. mes "The guild has deleted, so can't be change anymore";
  720. else if ( .@gid1$ == .@gid2$ )
  721. mes "The name is still the same, so don't need to change";
  722. else {
  723. query_sql "update ownladder set name = '"+ escape_sql(.@gid1$) +"' where guild_id = "+ .@gid;
  724. mes "Now it called : "+ .@gid1$;
  725. }
  726. set .@gid1$, "";
  727. set .@gid2$, "";
  728. next;
  729. }
  730. default:
  731. }
  732. default:
  733. }
  734. } while (1);
  735. }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!