Guest User

Untitled

a guest
May 24th, 2018
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.77 KB | None | 0 0
  1. killbot.commands=<c1><c2>Killbot:<c3> !kill [target], !killstats, !safehouse, !safehouse<c4>
  2. killbot.attempt=<nick> makes an attempt on <text>:
  3. killbot.attempt=Sorry <text>. You must wash away your prints before you can kill again.
  4. killbot.kill1=<text> died from the wounds you have inflicted. He's swimming with the fishes now.
  5. killbot.kill2=<text> suffered but is still alive.
  6. killbot.kill3=You missed <text> completely.
  7. killbot.bf1=You couldn't contain your enemy's backfire. You died from the wounds he inflicted.
  8. killbot.bf2=Your enemy tried to strike back, his bullets found their way through your body, but you survived.
  9. killbot.bf3=Your enemy tried to strike back, but failed completely.
  10. killbot.me1=hides in a corner
  11. killbot.me2=Please dont shoot me... I mean you no harm!
  12. killbot.chanserv=doesnt think thats a good idea, you may cause a netsplit!
  13. killbot.self=<nick>, you shot yourself in the foot while loading your gun! You lost some KS...
  14. killbot.nothere=<nick>, how can you kill someone who isnt here?
  15. killbot.time=Sorry <nick>. You must wash away your prints before you can kill again.
  16. killbot.timesafe=Sorry <nick>. You must wash away your prints before you can enter on SafeHouse.
  17. killbot.killstats1=Kill Statistics for <nick>: Killing Skill: <b><ks>%<b> Kills: <b><kills><b> BF Kills: <b><bfkills><b>
  18. killbot.killstats2=Attempts on your life: <b><att><b> Your attempts: <b><yatt><b>
  19. killbot.safe1=You are now on SafeHouse. Now you can't kill or be killed.
  20. killbot.safe2=You are not on SafeHouse anymore.
  21. killbot.safe3=You can't kill this user because he's on SafeHouse.
  22. killbot.safe4=You can't kill because you are on SafeHouse.
  23.  
  24.  
  25.  
  26.  
  27. ;KILLBOT
  28. alias sb.script.Killbot {
  29. if ((%event == text) || (%event == action)) {
  30. if (!commands == $1) sb queue notice %nick $sb.parse(killbot,commands)
  31. if (!kill == $1) {
  32. var %attacker.nick = %nick
  33. var %attacker.login = $gettok(%sb.who,2,64)
  34. var %attacker.login = $iif($regex(%attacker.login,^([a-zA-Z]+)\.),$regml(1),%nick)
  35. var %attacker = $readini(settings\killbot.ini,killbot,%attacker.login)
  36. var %attacker.time = $calc($gettok(%attacker,1,32))
  37. var %attacker.ks = $calc($gettok(%attacker,2,32))
  38. var %attacker.kills = $calc($gettok(%attacker,3,32))
  39. var %attacker.bfkills = $calc($gettok(%attacker,4,32))
  40. var %attacker.att = $calc($gettok(%attacker,5,32))
  41. var %attacker.yatt = $calc($gettok(%attacker,6,32))
  42. var %attacker.safe = $calc($gettok(%attacker,7,32))
  43.  
  44. if ($2) {
  45. var %target.nick = $2
  46. }
  47. else {
  48. while ($true) {
  49. var %target.nick = $sb(nick,%chan,$rand(1,$sb(nick,%chan)))
  50. if ((%target.nick != ChanServ) && (%target.nick != %me)) {
  51. ;sb queue msg %chan Random target: %target.nick
  52. var %target.login = $gettok($sb(ial,%target.nick),2,64)
  53. if (!%target.login) %target.login = %target.nick
  54. else var %target.login = $iif($regex(%target.login,^([a-zA-Z]+)\.),$regml(1),%target.nick)
  55. var %target = $readini(settings\killbot.ini,killbot,%target.login)
  56. if (!$gettok(%target,7,32)) break
  57. ;else sb queue msg %chan %target.nick is on SafeHouse
  58. }
  59. }
  60. }
  61. if (%attacker.safe) { sb queue msg %chan $sb.parse(killbot,safe4) }
  62. elseif (%attacker.time > $ctime) { sb queue msg %chan $sb.parse(killbot,time) }
  63. elseif (!$sb(ison,%target.nick,%chan)) { sb queue msg %chan $sb.parse(killbot,nothere) }
  64. elseif (%target.nick == %nick) {
  65. if (%attacker.ks > 0) dec %attacker.ks 0.1
  66. sb queue msg %chan $sb.parse(killbot,self)
  67. }
  68. else {
  69. sb queue msg %chan $sb.parse(killbot,attempt,<text>,%target.nick)
  70. if (%target.nick == ChanServ) { sb queue describe %chan $sb.parse(killbot,chanserv) }
  71. elseif (%target.nick == %me) {
  72. sb queue describe %chan $sb.parse(killbot,me1)
  73. sb queue msg %chan $sb.parse(killbot,me2)
  74. }
  75. else {
  76. var %target.login = $gettok($sb(ial,%target.nick),2,64)
  77. if (!%target.login) %target.login = %target.nick
  78. else var %target.login = $iif($regex(%target.login,^([a-zA-Z]+)\.),$regml(1),%target.nick)
  79. var %target = $readini(settings\killbot.ini,killbot,%target.login)
  80. var %target.time = $calc($gettok(%target,1,32))
  81. var %target.ks = $calc($gettok(%target,2,32))
  82. var %target.kills = $calc($gettok(%target,3,32))
  83. var %target.bfkills = $calc($gettok(%target,4,32))
  84. var %target.att = $calc($gettok(%target,5,32))
  85. var %target.yatt = $calc($gettok(%target,6,32))
  86. var %target.safe = $calc($gettok(%target,7,32))
  87.  
  88. if (%target.safe) { sb queue msg %chan $sb.parse(killbot,safe3) }
  89. else {
  90. var %attacker.time = $calc($ctime + 40)
  91. inc %attacker.yatt
  92. inc %target.att
  93.  
  94. var %power = $calc((%attacker.ks * 1.1 + 1) - %target.ks)
  95.  
  96. var %attacker.power = $calc(0.5 * (%power) + 50)
  97. if (($rand(1,$calc(100 / %attacker.power)) == 1) && (%attacker.power > 0)) {
  98. if (%attacker.ks < 100) inc %attacker.ks 0.1
  99. inc %attacker.kills
  100. sb queue msg %chan $sb.parse(killbot,kill1,<text>,%target.nick)
  101. }
  102. elseif (%attacker.power >= $rand(25,50)) {
  103. sb queue msg %chan $sb.parse(killbot,kill2,<text>,%target.nick)
  104. }
  105. else {
  106. sb queue msg %chan $sb.parse(killbot,kill3,<text>,%target.nick)
  107. }
  108. var %target.power = $calc(0.5 * (0 - %power) + 50)
  109. if (($rand(1,$calc(100 / %target.power)) == 1) && (%target.power > 0)) {
  110. if (%target.ks < 100) inc %target.ks 0.1
  111. inc %target.bfkills
  112. sb queue msg %chan $sb.parse(killbot,bf1,<text>,%target.nick)
  113. }
  114. elseif (%target.power >= $rand(25,50)) {
  115. sb queue msg %chan $sb.parse(killbot,bf2,<text>,%target.nick)
  116. }
  117. else {
  118. sb queue msg %chan $sb.parse(killbot,bf3,<text>,%target.nick)
  119. }
  120. ;sb queue msg %chan *debug* Ataccker: %attacker.power ( $+ %attacker.ks $+ % $+ ) Target: %target.power ( $+ %target.ks $+ % $+ )
  121. writeini -n settings\killbot.ini killbot %target.login %target.time %target.ks %target.kills %target.bfkills %target.att %target.yatt %target.safe
  122. }
  123. }
  124. }
  125. writeini -n settings\killbot.ini killbot %attacker.login %attacker.time %attacker.ks %attacker.kills %attacker.bfkills %attacker.att %attacker.yatt %attacker.safe
  126. }
  127. elseif (!killstats == $1-) {
  128. var %data = $readini(settings\killbot.ini,killbot,$iif($regex($gettok(%sb.who,2,64),^([a-zA-Z]+)\.),$regml(1),%nick))
  129. sb queue notice %nick $sb.parse(killbot,killstats1,<ks>,$calc($gettok(%data,2,32)),<kills>,$calc($gettok(%data,3,32)),<bfkills>,$calc($gettok(%data,4,32)))
  130. sb queue notice %nick $sb.parse(killbot,killstats2,<att>,$calc($gettok(%data,5,32)),<yatt>,$calc($gettok(%data,6,32)))
  131. }
  132. elseif (!safehouse == $1-) {
  133. var %login = $iif($regex($gettok(%sb.who,2,64),^([a-zA-Z]+)\.),$regml(1),%nick)
  134. var %data = $readini(settings\killbot.ini,killbot,%login)
  135. if ($gettok(%data,7,32)) {
  136. sb queue msg %chan $sb.parse(killbot,safe2)
  137. writeini -n settings\killbot.ini killbot %login $puttok(%data,0,7,32)
  138. }
  139. else {
  140. if ($gettok(%data,1,32) > $ctime) sb queue msg %chan $sb.parse(killbot,timesafe)
  141. else {
  142. sb queue msg %chan $sb.parse(killbot,safe1)
  143. writeini -n settings\killbot.ini killbot %login $puttok(%data,1,7,32)
  144. }
  145. }
  146. }
  147. }
  148. }
  149. alias sb.script.killbot.dialog run notepad settings\killbot.ini
Add Comment
Please, Sign In to add comment