Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- killbot.commands=<c1><c2>Killbot:<c3> !kill [target], !killstats, !safehouse, !safehouse<c4>
- killbot.attempt=<nick> makes an attempt on <text>:
- killbot.attempt=Sorry <text>. You must wash away your prints before you can kill again.
- killbot.kill1=<text> died from the wounds you have inflicted. He's swimming with the fishes now.
- killbot.kill2=<text> suffered but is still alive.
- killbot.kill3=You missed <text> completely.
- killbot.bf1=You couldn't contain your enemy's backfire. You died from the wounds he inflicted.
- killbot.bf2=Your enemy tried to strike back, his bullets found their way through your body, but you survived.
- killbot.bf3=Your enemy tried to strike back, but failed completely.
- killbot.me1=hides in a corner
- killbot.me2=Please dont shoot me... I mean you no harm!
- killbot.chanserv=doesnt think thats a good idea, you may cause a netsplit!
- killbot.self=<nick>, you shot yourself in the foot while loading your gun! You lost some KS...
- killbot.nothere=<nick>, how can you kill someone who isnt here?
- killbot.time=Sorry <nick>. You must wash away your prints before you can kill again.
- killbot.timesafe=Sorry <nick>. You must wash away your prints before you can enter on SafeHouse.
- killbot.killstats1=Kill Statistics for <nick>: Killing Skill: <b><ks>%<b> Kills: <b><kills><b> BF Kills: <b><bfkills><b>
- killbot.killstats2=Attempts on your life: <b><att><b> Your attempts: <b><yatt><b>
- killbot.safe1=You are now on SafeHouse. Now you can't kill or be killed.
- killbot.safe2=You are not on SafeHouse anymore.
- killbot.safe3=You can't kill this user because he's on SafeHouse.
- killbot.safe4=You can't kill because you are on SafeHouse.
- ;KILLBOT
- alias sb.script.Killbot {
- if ((%event == text) || (%event == action)) {
- if (!commands == $1) sb queue notice %nick $sb.parse(killbot,commands)
- if (!kill == $1) {
- var %attacker.nick = %nick
- var %attacker.login = $gettok(%sb.who,2,64)
- var %attacker.login = $iif($regex(%attacker.login,^([a-zA-Z]+)\.),$regml(1),%nick)
- var %attacker = $readini(settings\killbot.ini,killbot,%attacker.login)
- var %attacker.time = $calc($gettok(%attacker,1,32))
- var %attacker.ks = $calc($gettok(%attacker,2,32))
- var %attacker.kills = $calc($gettok(%attacker,3,32))
- var %attacker.bfkills = $calc($gettok(%attacker,4,32))
- var %attacker.att = $calc($gettok(%attacker,5,32))
- var %attacker.yatt = $calc($gettok(%attacker,6,32))
- var %attacker.safe = $calc($gettok(%attacker,7,32))
- if ($2) {
- var %target.nick = $2
- }
- else {
- while ($true) {
- var %target.nick = $sb(nick,%chan,$rand(1,$sb(nick,%chan)))
- if ((%target.nick != ChanServ) && (%target.nick != %me)) {
- ;sb queue msg %chan Random target: %target.nick
- var %target.login = $gettok($sb(ial,%target.nick),2,64)
- if (!%target.login) %target.login = %target.nick
- else var %target.login = $iif($regex(%target.login,^([a-zA-Z]+)\.),$regml(1),%target.nick)
- var %target = $readini(settings\killbot.ini,killbot,%target.login)
- if (!$gettok(%target,7,32)) break
- ;else sb queue msg %chan %target.nick is on SafeHouse
- }
- }
- }
- if (%attacker.safe) { sb queue msg %chan $sb.parse(killbot,safe4) }
- elseif (%attacker.time > $ctime) { sb queue msg %chan $sb.parse(killbot,time) }
- elseif (!$sb(ison,%target.nick,%chan)) { sb queue msg %chan $sb.parse(killbot,nothere) }
- elseif (%target.nick == %nick) {
- if (%attacker.ks > 0) dec %attacker.ks 0.1
- sb queue msg %chan $sb.parse(killbot,self)
- }
- else {
- sb queue msg %chan $sb.parse(killbot,attempt,<text>,%target.nick)
- if (%target.nick == ChanServ) { sb queue describe %chan $sb.parse(killbot,chanserv) }
- elseif (%target.nick == %me) {
- sb queue describe %chan $sb.parse(killbot,me1)
- sb queue msg %chan $sb.parse(killbot,me2)
- }
- else {
- var %target.login = $gettok($sb(ial,%target.nick),2,64)
- if (!%target.login) %target.login = %target.nick
- else var %target.login = $iif($regex(%target.login,^([a-zA-Z]+)\.),$regml(1),%target.nick)
- var %target = $readini(settings\killbot.ini,killbot,%target.login)
- var %target.time = $calc($gettok(%target,1,32))
- var %target.ks = $calc($gettok(%target,2,32))
- var %target.kills = $calc($gettok(%target,3,32))
- var %target.bfkills = $calc($gettok(%target,4,32))
- var %target.att = $calc($gettok(%target,5,32))
- var %target.yatt = $calc($gettok(%target,6,32))
- var %target.safe = $calc($gettok(%target,7,32))
- if (%target.safe) { sb queue msg %chan $sb.parse(killbot,safe3) }
- else {
- var %attacker.time = $calc($ctime + 40)
- inc %attacker.yatt
- inc %target.att
- var %power = $calc((%attacker.ks * 1.1 + 1) - %target.ks)
- var %attacker.power = $calc(0.5 * (%power) + 50)
- if (($rand(1,$calc(100 / %attacker.power)) == 1) && (%attacker.power > 0)) {
- if (%attacker.ks < 100) inc %attacker.ks 0.1
- inc %attacker.kills
- sb queue msg %chan $sb.parse(killbot,kill1,<text>,%target.nick)
- }
- elseif (%attacker.power >= $rand(25,50)) {
- sb queue msg %chan $sb.parse(killbot,kill2,<text>,%target.nick)
- }
- else {
- sb queue msg %chan $sb.parse(killbot,kill3,<text>,%target.nick)
- }
- var %target.power = $calc(0.5 * (0 - %power) + 50)
- if (($rand(1,$calc(100 / %target.power)) == 1) && (%target.power > 0)) {
- if (%target.ks < 100) inc %target.ks 0.1
- inc %target.bfkills
- sb queue msg %chan $sb.parse(killbot,bf1,<text>,%target.nick)
- }
- elseif (%target.power >= $rand(25,50)) {
- sb queue msg %chan $sb.parse(killbot,bf2,<text>,%target.nick)
- }
- else {
- sb queue msg %chan $sb.parse(killbot,bf3,<text>,%target.nick)
- }
- ;sb queue msg %chan *debug* Ataccker: %attacker.power ( $+ %attacker.ks $+ % $+ ) Target: %target.power ( $+ %target.ks $+ % $+ )
- writeini -n settings\killbot.ini killbot %target.login %target.time %target.ks %target.kills %target.bfkills %target.att %target.yatt %target.safe
- }
- }
- }
- writeini -n settings\killbot.ini killbot %attacker.login %attacker.time %attacker.ks %attacker.kills %attacker.bfkills %attacker.att %attacker.yatt %attacker.safe
- }
- elseif (!killstats == $1-) {
- var %data = $readini(settings\killbot.ini,killbot,$iif($regex($gettok(%sb.who,2,64),^([a-zA-Z]+)\.),$regml(1),%nick))
- 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)))
- sb queue notice %nick $sb.parse(killbot,killstats2,<att>,$calc($gettok(%data,5,32)),<yatt>,$calc($gettok(%data,6,32)))
- }
- elseif (!safehouse == $1-) {
- var %login = $iif($regex($gettok(%sb.who,2,64),^([a-zA-Z]+)\.),$regml(1),%nick)
- var %data = $readini(settings\killbot.ini,killbot,%login)
- if ($gettok(%data,7,32)) {
- sb queue msg %chan $sb.parse(killbot,safe2)
- writeini -n settings\killbot.ini killbot %login $puttok(%data,0,7,32)
- }
- else {
- if ($gettok(%data,1,32) > $ctime) sb queue msg %chan $sb.parse(killbot,timesafe)
- else {
- sb queue msg %chan $sb.parse(killbot,safe1)
- writeini -n settings\killbot.ini killbot %login $puttok(%data,1,7,32)
- }
- }
- }
- }
- }
- alias sb.script.killbot.dialog run notepad settings\killbot.ini
Add Comment
Please, Sign In to add comment