An old BoT i used on my own network, i recoded it once and it totally crashed, this is an old backup i have. And i share.
This BoT is created on an Inspircd 1.1 server with Anope services, i cannot garantee this BoT works on other networks. It needs IRCop for good work. Without it might not work. (untested)
alias bad {
writeini -n rpmdb.ini admins $1 1
writeini -n rpmdb.ini main total $calc($readini(rpmdb.ini, main, total) + 1)
writeini -n rpmdb.ini $1 pass $2
writeini -n rpmdb.ini $1 level $3
writeini -n rpmdb.ini $1 logged 0
writeini -n rpmdb.ini $1 regged 1
writeini -n rpmdb.ini $1 $readini(rpmdb.ini, main, total) $1
echo -a Added!
}
alias time {
echo -a It is now $asctime(dddd mmmm dd yyyy h:nn:ss tt zzz) $+ . (24 hour time is $asctime(HH:nn:ss) $+ )
msg $chan It is now $asctime(dddd mmmm dd yyyy h:nn:ss tt zzz) $+ . (24 hour time is $asctime(HH:nn:ss) $+ ) «Type: .time for time!»
}
alias halert {
if ($1 == 0) {
set %alertvar 0
while (%alertvar < $readini(rpmdb.ini, main, actotal)) {
inc %alertvar
mode $readini(rpmdb.ini, aclist, %alertvar) -RiIM
}
writeini -n rpmdb.ini main halert 0
os global Fase 0 Normal state! Everything should be fine now!
}
if ($1 == 5) {
set %alertvar 0
while (%alertvar < $readini(rpmdb.ini, main, actotal)) {
inc %alertvar
mode $readini(rpmdb.ini, aclist, %alertvar) +RiIM
timer 1 300 halert 0
}
writeini -n rpmdb.ini main halert 5
msg #opers We could be under attack! Watch out Join #services for more info
os global Fase 5 Red alert! Do not change channelmodes!
os global This will autounset in 300 seconds (5min)
}
}
alias roman {
if ($isid) {
if (!$2) {
if ($1 isnum) && ($1 > 0) {
var %i 13, %cur $1, %ret $chr(32), %numerals I.IV.V.IX.X.XL.L.XC.C.CD.D.CM.M, %numbers 1.4.5.9.10.40.50.90.100.400.500.900.1000
while %i >= 1 {
set %ret %ret $+ $str($gettok(%numerals,%i,46),$gettok($calc(%cur / $gettok(%numbers,%i,46)),1,46))
set %cur $calc(%cur - $calc($gettok($calc(%cur / $gettok(%numbers,%i,46)),1,46) * $gettok(%numbers,%i,46)))
dec %i
}
return %ret
}
else {
echo $color(info) -a * $ $+ roman: Invalid Number
halt
}
}
elseif ($2 == b) {
if ($1 isalpha) && ($regex($1,[^IVXLCDM]) == 0) {
var %i 1, %cur $1, %ret 0, %numerals I.IV.V.IX.X.XL.L.XC.C.CD.D.CM.M, %numbers 1.4.5.9.10.40.50.90.100.400.500.900.1000
while %i <= $len($1) {
if ($findtok(%numerals,$right(%cur,2),1,46)) {
set %ret $calc(%ret + $gettok(%numbers,$findtok(%numerals,$right(%cur,2),1,46),46))
set %cur $left(%cur,-2)
}
else {
set %ret $calc(%ret + $gettok(%numbers,$findtok(%numerals,$right(%cur,1),1,46),46))
set %cur $left(%cur,-1)
}
inc %i
}
return %ret
}
else {
echo $color(info) -a * $ $+ roman: Invalid Roman Numeral
halt
}
}
else {
echo $color(info) -a * $ $+ roman: Parameter 2 must be nothing or b
halt
}
}
else {
echo $color(info) -a * $ $+ roman: Invalid Usage
halt
}
}
alias md5dec {
set %varsock
sockopen md5dec md5.gromweb.no-ip.com 80
}
alias wofstart {
getword
set %turnspin 0
msg $readini(wof.ini, main, chan) The first one!
msg $readini(wof.ini, main, chan) %getword
set %wofturn 1
msg $readini(wof.ini, main, chan) First turn goes to: $readini(wof.ini,players,%wofturn)
msg $readini(wof.ini, main, chan) Spin the wheel! Type: @spin
}
alias addword {
write wof.txt $1-
echo -a Word added!
}
alias getword {
set %wofword $read(wof.txt)
unset %getword
set %1 0
while (%1 < $len(%wofword)) {
inc %1
if ($left(wofword, %1) == $chr(32)) {
set %theword %theword 11( 12,12_ 11)
}
if ($left(wofword, %1) != $chr(32)) {
set %getword %getword 11( 12_ 11)
set %theword %theword ( $right($left(%wofword,%1),1) )
}
}
}
alias wofendgame {
timers off
unset %getword
unset %theword
set %wofstart off
unset %wofturn
unset %newword
writeini -n wof.ini game players 0
writeini -n wof.ini game tplayers 0
}
alias addletter {
var %x 1,%a %getword
unset %getword
set %addletter 0
while ($mid(%wofword,%x,1) != $null) {
set %getword %getword 11(13 $iif($v1 isin %a || $v1 = $1,$v1,_) 11)
inc %x
}
}
alias wofend {
msg %chan Ending signup!
set %var 0
unset %wofend
unset %wofstart
while (%var <= $readini(wof.ini,game,players)) {
inc %var
set %wofend %wofend $readini(wof.ini,players,%var) $+ ,
}
if ($readini(wof.ini, game, players) <= 1) {
wofendgame
msg $readini(wof.ini, main, chan) Not ennough players! Try again
halt
}
msg %chan Players: %wofend
msg %chan Game has started!
wofstart
}
on *:CTCPREPLY:TIME*:{
if (%timectcp == on) {
msg %timechan 14Time reply received:
msg %timechan 4 $+ %timenick $+ 's 14time is:12 $2-
set %timectcp off
set %timeblah on
}
}
alias spam {
if ($1 isnum) {
if ($2 == $null) {
timer $1 0 spamz0r
halt
}
timer $1 0 spamz0r1 $2-
halt
}
if ($1 != $null) {
timer 15 0 spamz0r1 $1-
halt
}
timer 15 0 spamz0r
}
alias spamz0r1 {
set %spamz0rloop 0
unset %spamtoet
while (%spamz0rloop < 450) {
set %spamtoet %spamtoet $1-
set %spamz0rloop $count(%spamtoet, a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(44),$chr(45),$chr(46),$chr(34),$chr(36),$chr(35),$chr(33),$chr(39),$chr(47),$chr(38),$chr(37),$chr(40),$chr(41),$chr(42),$chr(43),$chr(64),$chr(63),$chr(62),$chr(61),$chr(60),$chr(59),$chr(58),$chr(95),$chr(94),$chr(93),$chr(92),$chr(124),$chr(125),$chr(123),$chr(126))
}
msg %chan $+ $rand(1,14) $+ , $+ $rand(1,14) $+ %spamtoet
}
alias spamz0r {
msg %chan $+ $rand(1,14) $+ , $+ $rand(1,14) $+ SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ! SPAMZ0RZ!
}
alias givecoins {
if ($1 == bwam) {
if ($readini(rpmdb.ini, givecoins, bwam) == 0) { halt }
writeini -n rpmdb.ini $readini(rpmdb.ini, givecoins, nick) lost $calc($readini(rpmdb.ini, $readini(rpmdb.ini, givecoins, nick), lost) + 1)
antich BWAM! Your time is up! You havent managed to get any coins! better luck next time!
msg $readini(rpmdb.ini, givecoins, chan) %antich
if ($readini(rpmdb.ini, givecoins, started) == 2) {
antich
msg $readini(rpmdb.ini, givecoins, chan) The word was: $readini(rpmdb.ini, givecoins, scramble)
}
if ($readini(rpmdb.ini, givecoins, started) == 3) {
antich
msg $readini(rpmdb.ini, givecoins, chan) The number was: $readini(rpmdb.ini, givecoins, rr)
}
if ($readini(rpmdb.ini, givecoins, started) == 4) {
antich
msg $readini(rpmdb.ini, givecoins, chan) Your assasination has failed! You have been spotted and shot in the face!
}
writeini -n rpmdb.ini givecoins started 0
writeini -n rpmdb.ini givecoins bwam 0
halt
}
set %givecoins $rand(1,3)
if (%givecoins == 1) {
writeini -n rpmdb.ini givecoins started 2
writeini -n rpmdb.ini givecoins bwam 1
writeini -n rpmdb.ini givecoins scramble $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
msg $readini(rpmdb.ini, givecoins, chan) Guess The word game!!
msg $readini(rpmdb.ini, givecoins, chan) The word has 5 letters and begins with an " $+ $left($readini(rpmdb.ini, givecoins, scramble), 1) $+ " and ends with an " $+ $right($readini(rpmdb.ini, givecoins, scramble), 1) $+ "
msg $readini(rpmdb.ini, givecoins, chan) You have 5 seconds!
timer 1 6 givecoins bwam
}
if (%givecoins == 2) {
writeini -n rpmdb.ini givecoins started 3
writeini -n rpmdb.ini givecoins bwam 1
writeini -n rpmdb.ini givecoins rr $rand(1,6)
antich
msg $readini(rpmdb.ini, givecoins, chan) Russian Roulette!
antich
msg $readini(rpmdb.ini, givecoins, chan) The chamber is spinning!
antich
msg $readini(rpmdb.ini, givecoins, chan) You have 5 seconds to type: .spin <1-6> or you'll be dead
timer 1 6 givecoins bwam
}
if (%givecoins == 3) {
writeini -n rpmdb.ini givecoins started 4
writeini -n rpmdb.ini givecoins bwam 1
writeini -n rpmdb.ini givecoins hmt 1
set %coinsgive off
while (%coinsgive == off) {
writeini -n rpmdb.ini givecoins hm $nick($readini(rpmdb.ini, givecoins, chan),$r(1,$nick($readini(rpmdb.ini, givecoins, chan),0)))
writeini -n rpmdb.ini givecoins hm2 $nick($readini(rpmdb.ini, givecoins, chan),$r(1,$nick($readini(rpmdb.ini, givecoins, chan),0)))
writeini -n rpmdb.ini givecoins hm3 $nick($readini(rpmdb.ini, givecoins, chan),$r(1,$nick($readini(rpmdb.ini, givecoins, chan),0)))
if ($readini(rpmdb.ini, $readini(rpmdb.ini, givecoins, hm), fuckoff) != 1) {
if ($readini(rpmdb.ini, $readini(rpmdb.ini, givecoins, hm2), fuckoff) != 1) {
if ($readini(rpmdb.ini, $readini(rpmdb.ini, givecoins, hm3), fuckoff) != 1) {
set %coinsgive on
}
}
}
}
antitrig $readini(rpmdb.ini, givecoins, hm)
antich
msg $readini(rpmdb.ini, givecoins, chan) Hitman Game!
antich
msg $readini(rpmdb.ini, givecoins, chan) Your first target will be: %clrnick
antich
msg $readini(rpmdb.ini, givecoins, chan) You have 10 Seconds to take out your 3 targets! Type: .hitman <nick>
timer 1 11 givecoins bwam
}
}
on *:TEXT:*:?:{
if ($1 == .alog) {
if ($2 == $readini(rpmdb.ini, $nick, pass)) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > $nick has logged in! }
writeini -n rpmdb.ini $nick maddress $address($nick,2)
writeini -n rpmdb.ini $nick logged 1
msg $nick Logged in succesfull! Autologout on Nickchange or Quit!
halt
}
msg $nick Login Failed! Usage: .alog <password>
}
if ($1 == .commands) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used Commands! }
set %cmdvar 0
msg $nick Displaying Commands you can use!
msg $nick -------
while (%cmdvar <= $readini(rpmdb.ini, main, commands)) {
inc %cmdvar
set %tempvar $readini(rpmdb.ini, cmdslist, %cmdvar)
if ($readini(rpmdb.ini, cmdlvl, %tempvar) == 0) {
msg $nick Command: %tempvar
msg $nick Describtion: $readini(rpmdb.ini, cmd, %tempvar)
msg $nick -------
}
if ($readini(rpmdb.ini, $nick, level) >= $readini(rpmdb.ini, cmdlvl, %tempvar)) {
msg $nick Command: %tempvar
msg $nick Describtion: $readini(rpmdb.ini, cmd, %tempvar)
msg $nick -------
}
}
}
if ($readini(rpmdb.ini, $nick, logged) == 1) {
if ($1 == .cp) {
if ($2 == $null) || ($3 == $null) {
msg $nick Usage: .cp <oldpass> <newpass>
halt
}
if ($2 == $readini(rpmdb.ini, $nick, pass)) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > changed his password to $3 $+! }
writeini -n rpmdb.ini $nick pass $3
msg $nick Password changed to: $3
}
}
}
}
on *:TEXT:*:*:{
if ($readini(rpmdb.ini, $nick, set) != 1) {
writeini -n rpmdb.ini $nick set 1
}
writeini -n rpmdb.ini $nick sctime $ctime
writeini -n rpmdb.ini $nick slast text
writeini -n rpmdb.ini $nick smsg $1-
writeini -n rpmdb.ini $nick schan $chan
if ($1 != $null) {
if ($readini(rpmdb.ini, $nick, lvl) == $null) {
writeini -n rpmdb.ini $nick lvl 0
}
if ($readini(rpmdb.ini, $nick, won) == $null) {
writeini -n rpmdb.ini $nick won 0
}
if ($readini(rpmdb.ini, $nick, lost) == $null) {
writeini -n rpmdb.ini $nick lost 0
}
if ($readini(rpmdb.ini,$nick,regged) == 1) {
writeini -n rpmdb.ini $nick swords $calc($readini(rpmdb.ini, $nick, swords) + $0)
writeini -n rpmdb.ini $nick stext $calc($readini(rpmdb.ini, $nick, stext) + $len($1-))
writeini -n rpmdb.ini $nick slines $calc($readini(rpmdb.ini, $nick, slines) + 1)
writeini -n rpmdb.ini $chan swords $calc($readini(rpmdb.ini, $chan , swords) + $0)
writeini -n rpmdb.ini $chan stext $calc($readini(rpmdb.ini, $chan , stext) + $count($1-, a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(44),$chr(45),$chr(46),$chr(34),$chr(36),$chr(35),$chr(33),$chr(39),$chr(47),$chr(38),$chr(37),$chr(40),$chr(41),$chr(42),$chr(43),$chr(64),$chr(63),$chr(62),$chr(61),$chr(60),$chr(59),$chr(58),$chr(95),$chr(94),$chr(93),$chr(92),$chr(124),$chr(125),$chr(123),$chr(126)))
writeini -n rpmdb.ini $chan slines $calc($readini(rpmdb.ini, $chan , slines) + 1)
set %addxp $calc( ($0 + $len($1-)) * (($0 / $rand(0,9)) + 1))
writeini -n rpmdb.ini $nick exp $calc($readini(rpmdb.ini, $nick, exp) + %addxp)
if ($readini(rpmdb.ini, $nick, exp) >= $readini(rpmdb.ini, LVLS, $calc($readini(rpmdb.ini, $nick, lvl) + 1))) {
writeini -n rpmdb.ini $nick LVL $calc($readini(rpmdb.ini, $nick, lvl) + 1)
msg $chan Congratulations $nick $+ ! You increased a level! Current level: $readini(rpmdb.ini, $nick, LVL)
}
if ($readini(rpmdb.ini, $nick, exp) > $readini(rpmdb.ini, ranks, $readini(rpmdb.ini, main, tranks))) {
writeini -n rpmdb.ini main tranks $calc($readini(rpmdb.ini, main, tranks) + 1)
writeini -n rpmdb.ini ranks $readini(rpmdb.ini, main, tranks) $readini(rpmd.ini, $nick, exp)
writeini -n rpmdb.ini rankn $readini(rpmdb.ini, main, tranks) $nick
}
set %rankuper 0
set %rankuper2 1
while (%rankuper < $readini(rpmdb.ini, main, tranks)) {
inc %rankuper
inc %rankuper2
}
}
if ($readini(rpmdb.ini,$nick,regged) != 1) {
writeini -n rpmdb.ini $nick regged 1
writeini -n rpmdb.ini $nick level 0
writeini -n rpmdb.ini main susers $calc($readini(rpmdb.ini, main, susers) + 1)
writeini -n rpmdb.ini susers $readini(rpmdb.ini, main, susers) $nick
}
}
if ($readini(rpmdb.ini, $remove($1, $chr(33), $chr(63)), afk) == 1) {
inc %afk
if (%afk >= 3) {
dec -z %afk
halt
}
msg $chan $remove($1, $chr(33), $chr(63)) is set to AFK! Reason: - $readini(rpmdb.ini, $1, afkreason) - AFKTime: $duration($calc($ctime - $readini(rpmdb.ini, $1, afktime)), 2)
}
if ($readini(rpmdb.ini, givecoins, started) == 2) {
if ($nick == $readini(rpmdb.ini, givecoins, nick)) {
if ($1 == $readini(rpmdb.ini, givecoins, scramble)) {
writeini -n rpmdb.ini $nick won $calc($readini(rpmdb.ini, $nick, won) + 1)
writeini -n rpmdb.ini givecoins bwam 0
set %wonexp $rand(50000,250000000)
set %woncoins $rand(10000,10000000)
writeini -n rpmdb.ini $nick exp $calc($readini(rpmdb.ini, $nick, exp) + %wonexp)
writeini -n rpmdb.ini $nick coins $calc($readini(rpmdb.ini, $nick, coins) + %woncoins)
msg $chan You guessed the word just in time! (word: $readini(rpmdb.ini, givecoins, scramble) )
msg $chan you have won $bytes(%woncoins, b) coins and have earned $bytes(%wonexp, b) exp!
}
}
}
if ($readini(rpmdb.ini, givecoins, started) == 3) {
if ($nick == $readini(rpmdb.ini, givecoins, nick)) {
if ($1 == .spin) {
if ($2 == $readini(rpmdb.ini, givecoins, rr)) {
writeini -n rpmdb.ini givecoins started 0
writeini -n rpmdb.ini givecoins bwam 0
writeini -n rpmdb.ini $nick won $calc($readini(rpmdb.ini, $nick, won) + 1)
set %getcoins $rand(1000,5000)
set %getexp $rand(10000,50000)
writeini -n rpmdb.ini $readini(rpmdb.ini, givecoins, nick) coins $calc($readini(rpmdb.ini, $readini(rpmdb.ini, givecoins, nick), coins) + %getcoins)
writeini -n rpmdb.ini $readini(rpmdb.ini, givecoins, nick) exp $calc($readini(rpmdb.ini, $readini(rpmdb.ini, givecoins, nick), exp) + %getexp)
antich
msg $readini(rpmdb.ini, givecoins, chan) Congratulations you have won the Russian Roullette!
antich
msg $readini(rpmdb.ini, givecoins, chan) You have earned: $bytes(%getcoins, b) coins and $bytes(%getexp, b) Exp.
halt
}
}
}
}
if ($readini(rpmdb.ini, givecoins, started) == 4) {
if ($nick == $readini(rpmdb.ini, givecoins, nick)) {
if ($1 == .hitman) {
if ($2 == $null) { msg $chan Usage: .hitman <target> | halt }
if ($readini(rpmdb.ini, givecoins, hmt) == 1) {
if ($2 == $readini(rpmdb.ini, givecoins, hm)) {
writeini -n rpmdb.ini givecoins hmt 2
antitrig $readini(rpmdb.ini, givecoins, hm2)
antich
msg $chan You have successfully assasinated $2
antich
msg $chan Your next target will be: %clrnick
}
}
if ($readini(rpmdb.ini, givecoins, hmt) == 2) {
if ($2 == $readini(rpmdb.ini, givecoins, hm2)) {
writeini -n rpmdb.ini givecoins hmt 3
antitrig $readini(rpmdb.ini, givecoins, hm3)
antich
msg $chan You have successfully assasinated $2
antich
msg $chan Your last target will be: %clrnick
}
}
if ($readini(rpmdb.ini, givecoins, hmt) == 3) {
if ($2 == $readini(rpmdb.ini, givecoins, hm3)) {
writeini -n rpmdb.ini givecoins started 0
writeini -n rpmdb.ini givecoins bwam 0
writeini -n rpmdb.ini $nick won $calc($readini(rpmdb.ini, $nick, won) + 1)
set %getcoins $rand(1000,50000)
set %getexp $rand(10000,500000)
writeini -n rpmdb.ini $readini(rpmdb.ini, givecoins, nick) coins $calc($readini(rpmdb.ini, $readini(rpmdb.ini, givecoins, nick), coins) + %getcoins)
writeini -n rpmdb.ini $readini(rpmdb.ini, givecoins, nick) exp $calc($readini(rpmdb.ini, $readini(rpmdb.ini, givecoins, nick), exp) + %getexp)
antich
msg $chan You have successfully assasinated $2
antich
msg $chan Your targets have been successfully assasinated!
antich
msg $readini(rpmdb.ini, givecoins, chan) You have earned: $bytes(%getcoins, b) coins and $bytes(%getexp, b) Exp.
}
}
}
}
}
if ($readini(rpmdb.ini, $nick, logged) == 1) {
;
;
;Beginning of Access lvl 1000
;
;
if ($readini(rpmdb.ini, $nick, level) >= 1000) {
if ($1 == .loggin) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
if ($2 == $null) { msg $chan Usage: .loggin <on/off> | halt }
if ($2 == on) {
writeini -n rpmdb.ini main logging 1
msg $chan Logging has been turned on!
}
if ($2 == off) {
writeini -n rpmdb.ini main logging 0
msg $chan Logging has been turned off!
}
}
if ($1 == .killmsg) {
if ($2 != $null) {
writeini -n rpmdb.ini main killmsg $2-
msg $chan Antibotnet killmsg set to: $2-
}
}
if ($1 == .compile) {
msg $chan Starting compile!
set %o 0
while (%o < 1000) {
inc %o
set %o2 $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z)
set %o3 $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z)
set %o4 $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z)
set %o5 %o2 $+ %o3 $+ %o4
write Z:\compiled.txt %o5
}
msg $chan Done compilin!
}
if ($1 == .pchan) {
writeini -n rpmdb.ini main actotal $calc($readini(rpmdb.ini, main, actotal) + 1)
writeini -n rpmdb.ini aclist $readini(rpmdb.ini, main, actotal) $chan
msg $chan Channeladded to protection!
}
if ($1 == .spam) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
set %chan $chan
spam $2-
}
if ($1 == .addshop) {
if ($2 == $null) {
msg $chan Usage: .addshop <name>
halt
}
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n shopdb.ini main shops $calc($readini(shopdb.ini, main, shops) + 1)
writeini -n shopdb.ini $readini(shopdb.ini, main, shops) name $2-
writeini -n shopdb.ini $readini(shopdb.ini, main, shops) set 1
writeini -n shopdb.ini $readini(shopdb.ini, main, shops) items 0
msg $chan New shop added! Shopid: $readini(shopdb.ini, main, shops) Name: $2-
}
if ($1 == .additem) {
if ($2 == $null) || ($3 == $null) || ($4 == $null) || ($5 == $null) || ($6 == $null) { msg $chan Usage: .additem <id> <name> <price> <type> <describ> (note: Use 1 word names!) | halt }
if ($readini(itemdb.ini, $2, set) == 1) { msg $chan Item already excists! | halt }
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n itemdb.ini $2 name $3
writeini -n itemdb.ini $2 set 1
writeini -n itemdb.ini $2 price $4
writeini -n itemdb.ini $2 type $5
writeini -n itemdb.ini $2 desc $6-
msg $chan Item Added! name: $3 Price: $4 Type: $5 desc: $6-
}
if ($1 == .setitem) {
if ($2 == $null) || ($3 == $null) { msg $chan Usage: .setitem <id> <shopid> | halt }
if ($readini(itemdb.ini, $2, set) != 1) { msg $chan No such Item! | halt }
if ($readini(shopdb.ini, $3, set) != 1) { msg $chan No such shop! | halt }
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n shopdb.ini $3 items $calc($readini(shopdb.ini, $3, items) + 1)
writeini -n shopdb.ini $3 $readini(shopdb.ini, $3, items) $2
msg $chan $readini(itemdb.ini, $2, name) added to: $readini(shopdb.ini, $3, name)
}
if ($1 == .user) {
if ($2 == lvl) {
if ($readini(rpmdb.ini, $2, regged) != 1) { msg $chan No such User! | halt }
}
}
if ($1 == .exe) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
if ($2 == -n) {
writeini -n rpmdb.ini cache exe $3-
$readini(rpmdb.ini, cache, exe)
notice $nick Executed: $readini(rpmdb.ini, cache, exe)
halt
}
writeini -n rpmdb.ini cache exe $2-
$readini(rpmdb.ini, cache, exe)
msg $chan Executed: $readini(rpmdb.ini, cache, exe)
}
if ($1 == .vlc) {
if ($2 == $null) { msg $chan ERROR! Usage: .vlc <msg> | halt }
msg operserv global RPM WebTV is now showing " $+ $2- $+ " ! Tune in on: revpermin.com:1337 (Suggested to use VLC)
}
if ($1 == .addlvl) {
if ($2 == $null) || ($3 == $null) {
msg $chan Usage: .addlvl <exp> <lvl>
msg $chan Current level: $readini(rpmdb.ini, main, TLVLS) Exp: $bytes($readini(rpmdb.ini, LVLS, $readini(rpmdb.ini, main, TLVLS)), b)
halt
}
if ($2 isnum && $3 isnum) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini main TLVLS $calc($readini(rpmdb.ini, main, TLVLS) + 1)
writeini -n rpmdb.ini LVLS $3 $2
msg $chan Level added! LVL $3 Exp $2
halt
}
msg $chan Usage: .addlvl <exp> <lvl>
}
if ($1 == .adduser) {
if ($2 == $null) || ($3 == $null) { msg $chan Usage: .adduser <nick> <level> | halt }
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
set %userpass $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
writeini -n rpmdb.ini $2 pass %userpass
writeini -n rpmdb.ini $2 level $3
writeini -n rpmdb.ini $2 logged 0
writeini -n rpmdb.ini $2 regged 1
writeini -n rpmdb.ini tusers $readini(rpmdb.ini, main, total) $2
msg $2 Your password is: %userpass
msg $2 You can login by typing: /msg $me .alog %userpass
msg $2 Set your own password with the .cp command
msg $chan Added $2 with level: $3
}
if ($1 == .genpass) {
if ($2 == $null) {
msg $chan Usage: .genpass <nick>
halt
}
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
set %userpass $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
writeini -n rpmdb.ini $2 pass %userpass
msg $2 Your password is: %userpass
msg $2 You can login by typing: /msg $me .alog %userpass
msg $2 Set your own password with the .cp command
msg $chan A new password has been generated for $2
}
if ($1 == .addcmd) {
if ($2 == $null) || ($3 == $null) || ($4 == $null) { msg $chan Usage: .addcmd <cmd> <level> <desc> | halt }
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini main cmds $calc($readini(botdb.ini, main, cmds) + 1)
writeini -n rpmdb.ini cmdslist $readini(botdb.ini, main, cmds) $2
writeini -n rpmdb.ini listcmd $2 1
writeini -n rpmdb.ini cmdlvl $2 $3
writeini -n rpmdb.ini cmd $2 $4-
msg $chan $2 added!Level: $3 Describtion: $4-
}
}
if ($readini(rpmdb.ini, $nick, level) >= 500) {
if ($1 == .kamikaze) {
}
if ($1 == .op) {
mode $chan +oooooooo $2-
}
if ($1 == .deop) {
mode $chan -oooooooo $2-
}
if ($1 == .remq) {
if ($readini(rpmdb.ini, quotes, $2) != $null) {
writeini -n rpmdb.ini quotes $readini(rpmdb.ini, quotes, total) 010
msg $chan QuoteID: $2 removed!
}
}
if ($1 == .talker) {
if ($2 == set) {
if ($3 == $null) { msg $chan Usage: .talker add <word> <msg> | halt }
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini talker $3 $4-
msg $chan Added $qt($3) with $qt($4-)
}
}
if ($1 == .addword) {
if ($2 == $null) { msg $chan Usage: .addword <text> | halt }
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
addword $2-
msg $chan $qt($2-) added
}
if ($1 == .astats) {
if ($2 == $null) { msg $chan Usage: .astats <user> | halt }
if ($readini(rpmdb.ini, $2, regged) == 0) { msg $chan No such user! | halt }
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
msg $chan $2 $+ 's stats:
msg $chan Userlvl: $readini(rpmdb.ini, $2, level)
msg $chan Stext: $bytes($readini(rpmdb.ini, $2, stext), b)
msg $chan Swords: $bytes($readini(rpmdb.ini, $2, swords), b)
msg $chan Slines: $bytes($readini(rpmdb.ini, $2, slines), b)
if ($readini(rpmdb.ini, $2, wmsg) == 1) {
msg $chan WelcMsg: $readini(rpmdb.ini, $2, welc)
}
}
if ($1 == .owelc) {
if ($2 == off) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini $2 wmsg 0
msg $chan Welcome msg Turned off!
halt
}
if ($2 == $null) || ($3 == $null) {
msg $chan Usage: .welc <nick > <msg> or .welc <nick> off
halt
}
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini $2 wmsg 1
writeini -n rpmdb.ini $2 welc $3-
msg $chan $2 $+ 's welcome msg has been set to: $3-
}
if ($1 == .disp) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini cache disp $2-
msg $chan $readini(rpmdb.ini, cache, disp)
}
if ($1 == .bstatus) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
msg $chan Bot Status:
msg $chan Regged users: $bytes($readini(rpmdb.ini, main, susers), b)
}
if ($1 == .access) {
if ($readini(rpmdb.ini, $2,regged) == 1) {
msg $chan $2 Level: $readini(rpmdb.ini, $2, level)
halt
}
msg $chan No such user!
}
}
if ($readini(rpmdb.ini, $nick, level) >= 50) {
if ($1 == .top3stats) {
echo -a lawl
set %swords 0
writeini -n rpmdb.ini stop3 w1 0
writeini -n rpmdb.ini stop3 w1n 0
writeini -n rpmdb.ini stop3 t1 0
writeini -n rpmdb.ini stop3 t1n 0
writeini -n rpmdb.ini stop3 l1 0
writeini -n rpmdb.ini stop3 l1n 0
writeini -n rpmdb.ini stop3 w2 0
writeini -n rpmdb.ini stop3 w2n 0
writeini -n rpmdb.ini stop3 t2 0
writeini -n rpmdb.ini stop3 t2n 0
writeini -n rpmdb.ini stop3 l2 0
writeini -n rpmdb.ini stop3 l2n 0
writeini -n rpmdb.ini stop3 w3 0
writeini -n rpmdb.ini stop3 w3n 0
writeini -n rpmdb.ini stop3 t3 0
writeini -n rpmdb.ini stop3 t3n 0
writeini -n rpmdb.ini stop3 l3 0
writeini -n rpmdb.ini stop3 l3n 0
while (%swords <= $readini(rpmdb.ini, main, susers)) {
inc %swords
set %top3ding 0
if ($readini(rpmdb.ini, stop3, w3) <= $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), swords)) {
if ($readini(rpmdb.ini, stop3, w2) <= $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), swords)) {
if ($readini(rpmdb.ini, stop3, w1) <= $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), swords)) {
set %top3ding 1
writeini -n rpmdb.ini stop3 w1 $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), swords)
writeini -n rpmdb.ini stop3 w1n $readini(rpmdb.ini, susers, %swords)
}
if (%top3ding == 0) {
set %top3ding 1
writeini -n rpmdb.ini stop3 w2 $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), swords)
writeini -n rpmdb.ini stop3 w2n $readini(rpmdb.ini, susers, %swords)
}
}
if (%top3ding == 0) {
writeini -n rpmdb.ini stop3 w3 $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), swords)
writeini -n rpmdb.ini stop3 w3n $readini(rpmdb.ini, susers, %swords)
}
}
if ($readini(rpmdb.ini, stop3, l3) <= $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), slines)) {
if ($readini(rpmdb.ini, stop3, l2) <= $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), slines)) {
if ($readini(rpmdb.ini, stop3, l1) <= $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), slines)) {
set %top3dingl 1
writeini -n rpmdb.ini stop3 l1 $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), slines)
writeini -n rpmdb.ini stop3 l1n $readini(rpmdb.ini, susers, %swords)
}
if (%top3dingl == 0) {
set %top3dingl 1
writeini -n rpmdb.ini stop3 l2 $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), slines)
writeini -n rpmdb.ini stop3 l2n $readini(rpmdb.ini, susers, %swords)
}
}
if (%top3dingl == 0) {
writeini -n rpmdb.ini stop3 l3 $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), slines)
writeini -n rpmdb.ini stop3 l3n $readini(rpmdb.ini, susers, %swords)
}
}
set %top3dingt 0
if ($readini(rpmdb.ini, stop3, t3) <= $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), stext)) {
if ($readini(rpmdb.ini, stop3, t2) <= $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), stext)) {
if ($readini(rpmdb.ini, stop3, t1) <= $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), stext)) {
set %top3dingt 1
writeini -n rpmdb.ini stop3 t1 $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), stext)
writeini -n rpmdb.ini stop3 t1n $readini(rpmdb.ini, susers, %swords)
}
if (%top3dingt == 0) {
set %top3dingt 1
writeini -n rpmdb.ini stop3 t2 $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), stext)
writeini -n rpmdb.ini stop3 t2n $readini(rpmdb.ini, susers, %swords)
}
}
if (%top3dingt == 0) {
writeini -n rpmdb.ini stop3 t3 $readini(rpmdb.ini, $readini(rpmdb.ini, susers, %swords), stext)
writeini -n rpmdb.ini stop3 t3n $readini(rpmdb.ini, susers, %swords)
}
}
set %top3dingl 0
}
msg $chan Top 3 Words:
msg $chan 1 - $readini(rpmdb.ini, stop3, w1n) -- $bytes($readini(rpmdb.ini, stop3, w1), b)
msg $chan 2 - $readini(rpmdb.ini, stop3, w2n) -- $bytes($readini(rpmdb.ini, stop3, w2), b)
msg $chan 3 - $readini(rpmdb.ini, stop3, w3n) -- $bytes($readini(rpmdb.ini, stop3, w3), b)
msg $chan Top 3 Text:
msg $chan 1 - $readini(rpmdb.ini, stop3, t1n) -- $bytes($readini(rpmdb.ini, stop3, t1), b)
msg $chan 2 - $readini(rpmdb.ini, stop3, t2n) -- $bytes($readini(rpmdb.ini, stop3, t2), b)
msg $chan 3 - $readini(rpmdb.ini, stop3, t3n) -- $bytes($readini(rpmdb.ini, stop3, t3), b)
msg $chan Top 3 Lines:
msg $chan 1 - $readini(rpmdb.ini, stop3, l1n) -- $bytes($readini(rpmdb.ini, stop3, l1), b)
msg $chan 2 - $readini(rpmdb.ini, stop3, l2n) -- $bytes($readini(rpmdb.ini, stop3, l2), b)
msg $chan 3 - $readini(rpmdb.ini, stop3, l3n) -- $bytes($readini(rpmdb.ini, stop3, l3), b)
}
if ($1 == .seen) {
if ($2 == $null) { msg $chan Usage: .seen <nick> | halt }
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
if ($readini(rpmdb.ini, $2, slast) == $null) { msg $chan No such User! | halt }
if ($readini(rpmdb.ini, $2, slast) == nick) { msg $chan $qt($2) has been last seen changing his/her nick into $qt($readini(rpmdb.ini, $2, snick)) that was $qt($duration($calc($ctime - $readini(rpmdb.ini, $2, sctime)), 2)) ago! | halt }
if ($readini(rpmdb.ini, $2, slast) == quit) { msg $chan $qt($2) has left the network $qt($duration($calc($ctime - $readini(rpmdb.ini, $2, sctime)), 2)) ago with message $qt($readini(rpmdb.ini, $2, sqmsg)) | halt }
if ($readini(rpmdb.ini, $2, slast) == connect) { msg $chan $qt($2) has connected to this network $qt($duration($calc($ctime - $readini(rpmdb.ini, $2, sctime)), 2)) ago! Try /whois $2 | halt }
if ($readini(rpmdb.ini, $2, slast) == text) { msg $chan $qt($2) has last said $qt($readini(rpmdb.ini, $2, smsg)) in $qt($readini(rpmdb.ini, $2, schan)) that was $qt($duration($calc($ctime - $readini(rpmdb.ini, $2, sctime)), 2)) ago | halt }
}
if ($1 == .quote) {
if ($2 == add) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini quotes total $calc($readini(rpmdb.ini, quotes, total) + 1)
writeini -n rpmdb.ini quotes $readini(rpmdb.ini, quotes, total) $remove($3-, $chr(36))
writeini -n rpmdb.ini quotes $readini(rpmdb.ini, quotes, total) $+ user $nick
writeini -n rpmdb.ini quotes $readini(Rpmdb.ini, quotes, total) $+ time $ctime
msg $chan Quote: $3- - Added! QuoteID: $readini(rpmdb.ini, quotes, total)
msg $readini(rpmdb.ini, main, logchan) Quotes: $nick $+ : $2-
halt
}
if ($2 == $null) {
set %qloop on
while (%qloop == on) {
set %randquote $rand(1, $readini(rpmdb.ini, quotes, total))
if ($readini(rpmdb.ini, quotes, %randquote) == 010) {
set %randquote $rand(1, $readini(rpmdb.ini, quotes, total))
}
if ($readini(rpmdb.ini, quotes, %randquote) != 010) {
set %qloop off
}
}
if ($readini(rpmdb.ini, quotes, %randquote $+ time) isnum) {
msg $chan 12Randquote nr:4 %randquote 7--14 $readini(rpmdb.ini, quotes, %randquote) 7<>12 Quote added4 $duration($calc($ctime - $readini(rpmdb.ini, quotes, %randquote $+ time)), 2) 12ago
}
if ($readini(rpmdb.ini, quotes, %randquote $+ time) == $null) {
msg $chan 12Randquote nr:4 %randquote 7--14 $readini(rpmdb.ini, quotes, %randquote) 7<>12 Quote added 4a long time12 ago
}
halt
}
if ($2 isnum) {
if ($readini(rpmdb.ini, quotes, $2) == 010) { msg $chan No such entry! | halt }
if ($2 > $readini(rpmdb.ini, quotes, total)) { msg $chan There are $readini(rpmdb.ini, quotes, total) quotes! | halt }
if ($readini(rpmdb.ini, quotes, $2 $+ time) == $null) {
msg $chan 12Quote nr:4 $2 7--14 $readini(rpmdb.ini, quotes, $2) 7<>12 Quote added 4long time 12ago
halt
}
msg $chan 12Quote nr:4 $2 7--14 $readini(rpmdb.ini, quotes, $2) 7<>12 Quote added4 $duration($calc($ctime - $readini(rpmdb.ini, quotes, $2 $+ time)), 2) 12ago
}
}
if ($1 == .date) {
msg $chan ::[ Current date: $asctime(dddd mmmm dd yyyy) ]=[ Time: $asctime(HH:nn zzzz) ] ::
halt
}
if ($1 == .time) {
if ($2 == $null) {
msg $chan It is now $asctime(dddd mmmm dd yyyy h:nn:ss tt zzz) $+ . (24 hour time is $asctime(HH:nn:ss) $+ ) «Type: .time <nick> for a persons time!»
halt
}
if ($nick ison $chan) {
if (%timeblah == off) { halt }
set %timeblah off
timer 5 1 set %timeblah on
set %timenick $2-
set %timectcp on
set %timechan $chan
ctcp %timenick TIME
msg $chan 14Checking4 %timenick $+ 's 14time, please stand by.
}
halt
}
if ($1 == .welc) {
if ($2 == off) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini $nick wmsg 0
msg $chan Welcome msg Turned off!
halt
}
if ($2 == $null) {
msg $chan Usage: .welc <msg> or .welc off
halt
}
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini $nick wmsg 1
writeini -n rpmdb.ini $nick welc $remove($2-, $chr(36))
msg $chan Your welcome msg has been set to: $remove($2-, $chr(36))
}
if ($1 == .md5) {
if ($2 == -n) {
if ($3 != $null) {
notice $nick MD5 Output: $md5($3-)
halt
}
}
if ($2 != $null) {
msg $chan MD5 Output: $md5($2-)
halt
}
msg $chan Usage: .md5 <-n> <string>
}
if ($1 == .pwn) {
if ($2 != $null) {
describe $chan slaps $2
halt
}
msg $chan Usage: .pwn <dude>
}
if ($1 == .calc) {
if ($2 == $null) { msg $chan Usage: .calc formula | halt }
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
set %calc $calc($2-)
msg $chan Calculated: %calc
}
if ($1 == .me) {
if ($2 == $null) { msg $chan Usage: .me <msg> | halt }
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
describe $chan $2-
}
if ($1 == .say) {
if ($2 == $null) { msg $chan Usage: .say <msg> | halt }
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
msg $chan $2-
}
if ($1 == .kanker) {
msg $chan hahaha $2 heeft kanker!
}
if ($1 == .roman) {
if ($2 isnum) {
msg $chan $roman($2-)
halt
}
msg $chan Wrong input! Usage: .roman <nr>
}
if ($1 == .slap) {
if ($3 == $null) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
describe $chan slaps $2 with a $readini(rpmdb.ini, slaps, $rand(1, $readini(rpmdb.ini, main, slaps)))
halt
}
if ($2 == $null) {
msg $chan Usage: .slap <nick> (<weapon>)
halt
}
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini main slaps $calc($readini(rpmdb.ini, main, slaps) + 1)
writeini -n rpmdb.ini slaps $readini(rpmdb.ini, main, slaps) $3
describe $chan slaps $2 with a $3-
}
}
}
if ($1 == .lvl) {
msg $chan Your level is: $readini(rpmdb.ini, $nick, lvl)
msg $chan Exp: $bytes($readini(rpmdb.ini, $nick, exp),b)
}
if ($1 == .commands) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
set %cmdvar 0
msg $nick Displaying Commands you can use!
msg $nick -------
while (%cmdvar <= $readini(rpmdb.ini, main, cmds)) {
inc %cmdvar
set %tempvar $readini(rpmdb.ini, cmdslist, %cmdvar)
if ($readini(rpmdb.ini, cmdlvl, %tempvar) == 0) {
msg $nick Command: %tempvar
msg $nick Describtion: $readini(rpmdb.ini, cmd, %tempvar)
msg $nick -------
}
if ($readini(rpmdb.ini, $nick, level) >= $readini(rpmdb.ini, cmdlvl, %tempvar)) {
msg $nick Command: %tempvar
msg $nick Describtion: $readini(rpmdb.ini, cmd, %tempvar)
msg $nick -------
}
}
}
if ($1 == .smoko) {
if ($readini(rpmdb.ini, $nick, joints) <= 0) || ($readini(rpmdb.ini, $nick, joints) == $null) {
msg $chan No joints! Get joints by: .buy joint
halt
}
if ($readini(rpmdb.ini, $nick, lighter) != 1) { msg $chan You dont have a lighter! You cant smoko teh joints without! buy one now for the price of 500 coins! .buy lighter | halt }
set %exp $rand(1, 1000)
if ($readini(rpmdb.ini, $nick, couch) != 1) { msg $chan Its suggested to have a couch to smoko on! .buy couch }
if ($readini(rpmdb.ini, $nick, music) != 1) { msg $chan Its also suggested to buy a music setup to listen to some chilling music! .buy music }
if ($readini(rpmdb.ini, $nick, couch) == 1) {
set %exp $calc(%exp * ($rand(1,100) / 2))
}
if ($readini(rpmdb.ini, $nick, music) == 1) {
set %exp $calc(%exp * ($rand(1,100) / 2))
}
writeini -n rpmdb.ini $nick joints $calc($readini(rpmdb.ini, $nick, joints) - 1)
writeini -n rpmdb.ini $nick exp $calc($readini(rpmdb.ini, $nick, exp) + %exp)
writeini -n rpmdb.ini $nick smoked $calc($readini(rpmdb.ini, $nick, smoked) + 1)
msg $chan You have smoked a JOINT! Exp earned: $bytes(%exp, b) Joints left: $bytes($readini(rpmdb.ini, $nick, joints), b) Total Smoked: $bytes($readini(rpmdb.ini, $nick, smoked), b)
}
if ($1 == .pass) {
if ($readini(rpmdb.ini, $nick, joints) <= 0) || ($readini(rpmdb.ini, $nick, joints) == $null) {
msg $chan No joints! Get joints by: .buy joint
halt
}
if ($2 ison $chan) && ($2 != $nick) {
writeini -n rpmdb.ini $nick joints $calc($readini(rpmdb.ini, $nick, joints) - 1)
writeini -n rpmdb.ini $2 joints $calc($readini(rpmdb.ini, $nick, joints) + 1)
msg $chan $nick passes a joint to $2 $+ .
halt
}
msg $chan Error! Usage: .pass <nick>
}
if ($1 == .buy) {
if ($2 == joint) {
if ($3 isnum) {
if ($readini(rpmdb.ini, $nick, coins) <= $calc(1000 * $3)) || ($readini(rpmdb.ini, $nick, coins) == $null) { msg $chan Not ennough coins! Coins needed: $calc(1000 + $3)! Earn more coins by playing games like .givecoins ! | halt }
writeini -n rpmdb.ini $nick joints $calc(($readini(rpmdb.ini, $nick, joints) + 1) + $3)
writeini -n rpmdb.ini $nick coins $calc($readini(rpmdb.ini, $nick, coins) - ($3 * 1000))
msg $chan You have bought $3 joints at the cost of $bytes($calc($3 * 1000), b) coins! current joints: $bytes($readini(rpmdb.ini, $nick, joints), b) Coins left: $bytes($readini(rpmdb.ini, $nick, coins), b)
halt
}
if ($readini(rpmdb.ini, $nick, coins) <= 1000) || ($readini(rpmdb.ini, $nick, coins) == $null) { msg $chan Not ennough coins! Coins needed: 1000! Earn more coins by playing games like .givecoins ! | halt }
writeini -n rpmdb.ini $nick joints $calc($readini(rpmdb.ini, $nick, joints) + 1)
writeini -n rpmdb.ini $nick coins $calc($readini(rpmdb.ini, $nick, coins) - 1000)
msg $chan You have bought a joint at the cost of 1000 coins! current joints: $bytes($readini(rpmdb.ini, $nick, joints), b) Coins left: $bytes($readini(rpmdb.ini, $nick, coins), b)
halt
}
if ($2 == lighter) {
if ($readini(rpmdb.ini, $nick, coins) <= 500) || ($readini(rpmdb.ini, $nick, coins) == $null) { msg $chan Not ennough coins! Coins needed: 500! Earn more coins by playing games like .givecoins ! | halt }
if ($readini(rpmdb.ini, $nick, lighter) == 1) { msg $chan You already have a lighter! | halt }
writeini -n rpmdb.ini $nick lighter 1
writeini -n rpmdb.ini $nick coins $calc($readini(rpmdb.ini, $nick, coins) - 500)
msg $chan You have bought a lighter!
halt
}
if ($2 == couch) {
if ($readini(rpmdb.ini, $nick, coins) <= 10000) || ($readini(rpmdb.ini, $nick, coins) == $null) { msg $chan Not ennough coins! Coins needed: 10000! Earn more coins by playing games like .givecoins ! | halt }
if ($readini(rpmdb.ini, $nick, couch) == 1) { msg $chan You already have a couch! | halt }
writeini -n rpmdb.ini $nick couch 1
writeini -n rpmdb.ini $nick coins $calc($readini(rpmdb.ini, $nick, coins) - 10000)
msg $chan You have bought a couch!
halt
}
if ($2 == music) {
if ($readini(rpmdb.ini, $nick, coins) <= 100000) || ($readini(rpmdb.ini, $nick, coins) == $null) { msg $chan Not ennough coins! Coins needed: 100000! Earn more coins by playing games like .givecoins ! | halt }
if ($readini(rpmdb.ini, $nick, music) == 1) { msg $chan You already have music! | halt }
writeini -n rpmdb.ini $nick music 1
writeini -n rpmdb.ini $nick coins $calc($readini(rpmdb.ini, $nick, coins) - 100000)
msg $chan You have bought music!
halt
}
msg $chan thats not stuff!
}
if ($1 == .givecoins) {
if ($readini(rpmdb.ini, givecoins, started) != 0) { msg $chan Combat already initiated! | halt }
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini givecoins started 1
writeini -n rpmdb.ini givecoins nick $nick
writeini -n rpmdb.ini givecoins chan $chan
msg $chan So you want coins huh? Alright lets start
timer 1 1 msg $chan Initiating Combat Prepare for the worst
timer 1 1 givecoins
}
if ($1 == .stats) {
unset %statsvar
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
if ($2 == $null) {
msg $chan Your stats:
uset %statsvar
if ($readini(rpmdb.ini, $nick, logged) == 1) {
msg $chan Is logged in
}
if ($readini(rpmdb.ini, $nick, level) != $null) {
msg $chan Access level: $readini(rpmdb.ini, $nick, level)
}
if ($readini(rpmdb.ini, $nick, killz0red) != $null) {
msg $chan Killz0red: $bytes($readini(rpmdb.ini, $nick, killz0red), b)
}
if ($readini(rpmdb.ini, $nick, wmsg) == 1) {
msg $chan Welcome Message: $readini(rpmdb.ini, $nick, welc)
}
msg $chan ---------------------
if ($readini(rpmdb.ini, $nick, lvl) != $null) {
msg $chan Current Level: $readini(rpmdb.ini, $nick, lvl) Exp: $bytes($readini(rpmdb.ini, $nick, exp), b) needed for next level: $bytes($calc($readini(rpmdb.ini, LVLS, $calc($readini(rpmdb.ini, $nick, lvl) + 1)) - $readini(rpmdb.ini, $nick, exp)), b)
}
if ($readini(rpmdb.ini, $nick, won) isnum) {
msg $chan Coins: $bytes($readini(rpmdb.ini, $nick, coins), b) -- Games won: $bytes($readini(rpmdb.ini, $nick, won), b) -- Games lost: $bytes($readini(rpmdb.ini, $nick, lost), b)
}
if ($readini(rpmdb.ini, $nick, molest) != $null) {
msg $chan Molested: $bytes($readini(rpmdb.ini, $nick, molest), b)
}
msg $chan ---------------------
msg $chan Text stats: -- Words: $bytes($readini(rpmdb.ini, $nick, swords), b) -- Text: $bytes($readini(rpmdb.ini, $nick, stext), b) -- Lines: $bytes($readini(rpmdb.ini, $nick, slines), b)
if ($readini(rpmdb.ini, $nick, smoked) >= 1) {
msg $chan ---------------------
msg $chan Jstats: -- Joints: $bytes($readini(rpmdb.ini, $nick, joints), b) -- Smoked: $bytes($readini(rpmdb.ini, $nick, smoked), b)
if ($readini(rpmdb.ini, $nick, lighter) == 1) {
msg $chan Has a lighter!
}
if ($readini(rpmdb.ini, $nick, couch) == 1) {
msg $chan Can chillout on a couch!
}
if ($readini(rpmdb.ini, $nick, music) == 1) {
msg $chan Can listen to music!!
}
}
halt
}
if ($readini(rpmdb.ini, $2, stext) != $null) {
msg $chan $2 $+ 's stats:
if ($readini(rpmdb.ini, $2, logged) == 1) {
msg $chan Is logged in
}
if ($readini(rpmdb.ini, $2, level) != $null) {
msg $chan Access level: $readini(rpmdb.ini, $2, level)
}
if ($readini(rpmdb.ini, $2, killz0red) != $null) {
msg $chan Killz0red: $bytes($readini(rpmdb.ini, $2, killz0red), b)
}
if ($readini(rpmdb.ini, $2, wmsg) == 1) {
msg $chan Welcome Message: $readini(rpmdb.ini, $2, welc)
}
msg $chan ---------------------
if ($readini(rpmdb.ini, $2, lvl) != $null) {
msg $chan Current Level: $readini(rpmdb.ini, $2, lvl) Exp: $bytes($readini(rpmdb.ini, $2, exp), b) needed for next level: $bytes($calc($readini(rpmdb.ini, LVLS, $calc($readini(rpmdb.ini, $2, lvl) + 1)) - $readini(rpmdb.ini, $2, exp)), b)
}
if ($readini(rpmdb.ini, $2, won) isnum) {
msg $chan Coins: $bytes($readini(rpmdb.ini, $2, coins), b) -- Games won: $bytes($readini(rpmdb.ini, $2, won), b) -- Games lost: $bytes($readini(rpmdb.ini, $2, lost), b)
}
if ($readini(rpmdb.ini, $2, molest) != $null) {
msg $chan Molested: $bytes($readini(rpmdb.ini, $2, molest), b)
}
msg $chan ---------------------
msg $chan Words: $bytes($readini(rpmdb.ini, $2, swords), b) -- Text: $bytes($readini(rpmdb.ini, $2, stext), b) -- Lines: $bytes($readini(rpmdb.ini, $2, slines), b)
if ($readini(rpmdb.ini, $2, smoked) >= 1) {
msg $chan ---------------------
msg $chan Jstats: -- Joints: $bytes($readini(rpmdb.ini, $2, joints), b) -- Smoked: $bytes($readini(rpmdb.ini, $2, smoked), b)
if ($readini(rpmdb.ini, $2, lighter) == 1) {
msg $chan Has a lighter!
}
if ($readini(rpmdb.ini, $2, couch) == 1) {
msg $chan Can chillout on a couch!
}
if ($readini(rpmdb.ini, $2, music) == 1) {
msg $chan Can listen to music!!
}
}
halt
}
msg $chan No such user!
}
if ($1 == .shop) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
if ($2 == $null) {
unset %shopmsg
msg $chan Available Shops:
set %shops 0
while (%shops < $readini(shopdb.ini, main, shops)) {
inc %shops
set %shopmsg %shopmsg $readini(shopdb.ini, %shops, name) ID: %shops $+ ,
}
msg $chan %shopmsg
msg $chan To see what a shop has: .shop <ID>
halt
}
if ($readini(shopdb.ini, $2, set) == 1) {
msg $chan Items available in shop:
unset %itemname
set %items 0
while (%items < $readini(shopdb.ini, $2, items)) {
inc %items
set %itemname %itemname $readini(itemdb.ini, $readini(shopdb.ini, $2, %items), name) ID: $readini(shopdb.ini, $2, items) $+ ,
}
msg $chan %itemname
}
}
if ($1 == .afk) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
if ($2 != $null) {
if ($2 == back) {
writeini -n rpmdb.ini $nick afk 0
msg $readini(rpmdb.ini, main, logchan) AFK: $nick - BACK
msg $chan You are now back from AFK! Been gone for: $duration($calc($ctime - $readini(rpmdb.ini, $nick, afktime)), 2) Reason: $readini(rpmdb.ini, $nick, afkreason)
halt
}
}
if ($2 == $null) {
if ($readini(rpmdb.ini, $nick, afk) == 1) {
msg $chan You are set AFK! Reason: - $readini(rpmdb.ini, $nick, afkreason) - AFKTime: $duration($calc($ctime - $readini(rpmdb.ini, $nick, afktime)), 2)
}
if ($readini(rpmdb.ini, $nick, afk) != 1) {
msg $chan You are not set AFK!
}
}
if ($2 != $null) && ($2 != back) {
writeini -n rpmdb.ini $nick afk 1
writeini -n rpmdb.ini $nick afkreason $remove($2-, $chr(36))
writeini -n rpmdb.ini $nick afktime $ctime
msg $chan You are now set to AFK! Reason: $2-
msg $readini(rpmdb.ini, main, logchan) AFK: $nick - $2-
}
}
if ($1 == killme) {
if ($nick == rapacity) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini $nick killz0red $calc($readini(rpmdb.ini,$nick,killz0red) + 1)
writeini -n rpmdb.ini main killz0red $calc($readini(rpmdb.ini,main,killz0red) + 1)
saquit $nick Bye $nick xD
}
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
writeini -n rpmdb.ini $nick killz0red $calc($readini(rpmdb.ini,$nick,killz0red) + 1)
writeini -n rpmdb.ini main killz0red $calc($readini(rpmdb.ini,main,killz0red) + 1)
saquit $nick BWAM! Killed! Total fallen for my evil trap: $bytes($readini(rpmdb.ini, main, killz0red), b)
}
if (ping? isin $1) {
writeini -n rpmdb.ini main kicks $calc($readini(rpmdb.ini, main, kicks) + 1)
kick # $nick PONG! 4Total Kicks: $bytes($readini(rpmdb.ini, main, kicks),b)
}
if ($1 == .fuckoff) {
if ($2 == $null) { msg $chan Usage: .fuckoff <on/off> | halt }
if ($2 == on) {
writeini -n rpmdb.ini $nick fuckoff 1
msg $chan Alright I will leave you alone in scripts!
halt
}
if ($2 == off) {
writeini -n rpmdb.ini $nick fuckoff 0
msg $chan I will now annoy you again! ;D
halt
}
msg $chan Usage: .fuckoff <on/off>
}
if ($1 == .vhost) {
if ($readini(rpmdb.ini, main, logging) == 1) { write botlog.txt < $+ $timestamp $+ > < $+ $nick $+ > used $1 $+ ! Extra: $2- }
if ($2 != $null) {
set %vchan $chan
writeini -n rpmdb.ini $nick vhost $2-
writeini -n rpmdb.ini $nick tvhosts $calc($readini(rpmdb.ini, $nick, tvhosts) + 1)
msg $chan Trying to set Vhost! Note when abused you get banned from BoT all together! or Glined
msg hostserv set $nick $2-
msg $chan A Vhost has been requested! Please hold on! You have chosen $bytes($readini(rpmdb.ini, $nick, tvhosts), b) vhosts in total!
halt
}
msg $chan Error! Usage: .vhost <hostname> -- Note that a host name may only have characters A t/m Z and dots. Ex: .vhost Shadow.pwns.j00.all
}
if ($1 == .wof) {
if (%wofstart == on) { notice $nick OI! | halt }
unset %getword
unset %theword
unset %wofturn
unset %wofsaid
unset %allplayers
set %wofstart on
set %chan $chan
set %totalguessed 0
writeini -n wof.ini main chan $chan
writeini -n wof.ini game players 0
msg $chan Starting Wheel of Fortune!
msg $chan You have 30 seconds to enter the game!
msg $chan Type: "@play" to enter the game! (or @leave to leave)
timer 1 30 wofend
timer 1 25 msg $chan 5 seconds left for signup!
timer 1 20 msg $chan 10 seconds left for signup!
timer 1 15 msg $chan 15 seconds left for signup
timer 1 5 msg $chan 25 seconds left for signup!
}
if ($1 == @play) {
if (%wofstart != on) {
msg $chan Game hasnt started yet! .wof to start
halt
}
if ($nick isin %allplayers) { msg $chan NO! | halt }
set %allplayers %allplayers $nick $+ ,
writeini -n wof.ini game players $calc($readini(wof.ini,game,players) + 1)
writeini -n wof.ini game tplayers $calc($readini(wof.ini,game,tplayers) + 1)
writeini -n wof.ini players $readini(wof.ini,game,players) $nick
writeini -n wof.ini $nick points 0
writeini -n wof.ini $nick playing 1
msg $chan You have entered the game!
}
if ($1 == @ $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)) {
if ($readini(wof.ini, $nick, playing) != 1) {
msg $chan You didnt enter the game!
halt
}
writeini -n wof.ini $nick playing 0
writeini -n wof.ini game tplayers $calc($readini(wof.ini,game,tplayers) - 1)
msg $chan You left the game!
}
if ($1 == @skip) {
if ($readini(wof.ini, $nick, playing) != 1) {
msg $chan You didnt enter the game!
halt
}
inc %wofturn
if (%wofturn > $readini(wof.ini, game, tplayers)) { set %wofturn 1 }
msg $chan Next turn goes to: $qt($readini(wof.ini, players, %wofturn)) Type @spin to spin!
}
if ($1 == @spin) {
if ($nick == $readini(wof.ini,players,%wofturn)) {
if (%turnspin == 1) { msg $chan Wheel has already been spinned this turn! | halt }
set %turnspin 1
writeini -n wof.ini main spin $calc($rand(1,25)*100)
msg $chan You have spinned $bytes($readini(wof.ini, main, spin),b)
msg $chan So what letter will it be? @letter <a>
halt
}
msg $chan Its not your turn!
}
if ($1 == @stop) {
wofendgame
msg $chan Game stopped!
}
if ($1 == @letter) && ($nick == $readini(wof.ini,players,%wofturn)) && (%turnspin == 1) {
if ($2 == $null) { msg $chan Please enter a letter! | halt }
if ($2 isin %wofsaid) { msg $chan Letter already said! please chose another! | halt }
if ($len($2) >= 2) { msg $chan You can only enter 1 letter! | halt }
if ($2 isin %getword) { msg $chan Letter already guessed Try another one! | halt }
if ($2 isin %theword) {
set %wofletter $2
writeini -n rpmdb.ini $nick coins $calc($readini(rpmdb.ini, $nick, coins) + $readini(wof.ini, main, spin))
msg $chan Correct letter!
addletter $2
msg $chan Word: %getword
msg $chan Coins earned: $bytes($calc($readini(wof.ini, main, spin)), b) Total coins: $bytes($readini(rpmdb.ini, $nick, coins), b)
set %turnspin 0
set %wofsaid %wofsaid $+ $2
inc %wofturn
if (%wofturn > $readini(wof.ini, game, tplayers)) { set %wofturn 1 }
msg $chan Next turn goes to: $qt($readini(wof.ini, players, %wofturn)) Type @spin to spin!
msg $chan Letters guessed: %wofsaid
halt
}
set %wofsaid %wofsaid $+ $2
set %turnspin 0
msg $chan Sorry no such letter!
msg $chan Letters guessed: %wofsaid
inc %wofturn
if (%wofturn > $readini(wof.ini, game, tplayers)) { set %wofturn 1 }
msg $chan Next turn goes to: $qt($readini(wof.ini, players, %wofturn)) Type @spin to spin!
}
if ($1 == @guess) {
if ($2- == %wofword) {
writeini -n rpmdb.ini $nick won $calc($readini(rpmdb.ini, $nick, won) + 1)
msg $chan You are Correct, you have won!
wofendgame
}
}
if ($1 == @word) {
if (%wofstart == on) {
msg $chan Current word: %getword
msg $chan Letters tried already: %wofsaid
halt
}
msg $chan No game in progress!
}
}
ON *:SNOTICE:*:{
if ($1 == ***) {
if ($2 == CONNECT:) || ($2 == REMOTECONNECT:) {
if ($readini(rpmdb.ini, $gettok($8, 1, 33), lvl) == $null) {
inc -z %connect 6
if (%connect > 14) {
kill $gettok($8, 1, 33) $readini(rpmdb.ini, main, killmsg)
}
if (%connect > 50) {
if ($readini(rpmdb.ini, main, halert) != 5) {
halert 5
}
}
}
if ($readini(rpmdb.ini, $gettok($8, 1, 33), firctcon) == 1) {
writeini -n rpmdb.ini $gettok($8, 1, 33) firstcon 1
notice $gettok($8, 1, 33) Welcome to the RPM IRC network!
notice $gettok($8, 1, 33) I notice that you are new here so let me introduce... (one time only!)
notice $gettok($8, 1, 33) I am BeastOfTerror or short BoT, wich is a RPM project to write a services like bot in mIRC adding tons of features to this network
notice $gettok($8, 1, 33) So whats RPM? Its short for Revolutions Per Minute, a Network that holds multiple Developers and gives them the chance to express themselves, creating new idea's and new ways to enjoy the internet
notice $gettok($8, 1, 33) For more information you can always visit www.revpermin.com or our forums at www.revpermin.com/rpm/
notice $gettok($8, 1, 33) Feel free toImperiex join our main channel #lobby and just hang out with the rest of us
notice $gettok($8, 1, 33) Kind Regards, teh RPM Family
}
writeini -n rpmdb.ini $gettok($8, 1, 33) sctime $ctime
writeini -n rpmdb.ini $gettok($8, 1, 33) slast connect
}
if ($2 == QUIT:) || ($2 == REMOTEQUIT:) {
writeini -n rpmdb.ini $gettok($5, 1, 33) sctime $ctime
writeini -n rpmdb.ini $gettok($5, 1, 33) slast quit
writeini -n rpmdb.ini $gettok($5, 1, 33) sqmsg $6-
if ($readini(rpmdb.ini, $gettok($5, 1, 33), logged) == 1) {
writeini -n rpmdb.ini $gettok($5, 1, 33) logged 0
msg $readini(rpmdb.ini, main, chan) $gettok($5, 1, 33) Auto logged off!
}
}
if ($2 == NICK:) {
writeini -n rpmdb.ini $4 slast nick
writeini -n rpmdb.ini $4 sctime $ctime
writeini -n rpmdb.ini $4 snick $9
if ($readini(rpmdb.ini, $4, logged) == 1) {
writeini -n rpmdb.ini $4 logged 0
msg $readini(rpmdb.ini, main, chan) $4 Auto logged off!
}
}
}
}
ON *:JOIN:#:{
if ($readini(rpmdb.ini, $nick, lvl) == $null) {
inc -z % [ $+ [ $nick ] $+ [ $chan ] ]
inc -z %spam [ $+ [ $chan ] ]
if (%spam [ $+ [ $chan ] ] > 10) {
kill $nick $readini(rpmdb.ini, main, killmsg)
}
if (% [ $+ [ $nick ] $+ [ $chan ] ] > 8) {
kill $nick $readini(rpmdb.ini, main, killmsg)
}
}
if ($readini(rpmdb.ini, $nick, wmsg) == 1) {
if ($readini(rpmdb.ini, $nick, wmsgq) == 1) { halt }
if ($readini(rpmdb.ini, $nick, welc) == 0) { halt }
Msg $chan Welcome $nick 4<(14 $readini(rpmdb.ini, $nick, welc) 4)>
}
if ($chan == #time) {
time
halt
}
if ($chan == #molest) {
mode #molest +o $nick
if ($nick == $me) { halt }
msg $chan $readini(rpmdb.ini, molest, $rand(11, 15))
}
writeini -n rpmdb.ini $nick slast join
writeini -n rpmdb.ini $nick schan $chan
if ($chan == $readini(rpmdb.ini, main, logchan)) {
if ($readini(rpmdb.ini, $nick, logged) == 1) {
if ($readini(rpmdb.ini, $nick, level) >= 500) {
samode $chan +ao $nick $nick
halt
}
if ($readini(rpmdb.ini, $nick, level) >= 100) {
samode $chan +o $nick
halt
}
if ($readini(rpmdn.ini, $nick, level) >= 50) {
samode $chan +h $nick
halt
}
}
}
}
on *:ACTION:*:#molest:{
if ($me isin $1-) {
if (slaps isin $1-) {
writeini -n rpmdb.ini $nick molest $calc($readini(rpmdb.ini, $nick, molest) + 1)
msg $chan $readini(rpmdb.ini, molest, $rand(16,22))
}
if (kicks isin $1-) {
writeini -n rpmdb.ini $nick molest $calc($readini(rpmdb.ini, $nick, molest) + 1)
msg $chan $readini(rpmdb.ini, molest, $rand(18,25))
}
if (shoots isin $1-) {
writeini -n rpmdb.ini $nick molest $calc($readini(rpmdb.ini, $nick, molest) + 1)
msg $chan $readini(rpmdb.ini, molest, $rand(23,28))
}
if (shreds isin $1-) {
writeini -n rpmdb.ini $nick molest $calc($readini(rpmdb.ini, $nick, molest) + 1)
msg $chan $readini(rpmdb.ini, molest, $rand(33,37))
}
}
}
on *:PART:#molest:{
if ($readini(rpmdb.ini, $nick, lvl) == $null) {
inc -z % [ $+ [ $nick ] $+ [ $chan ] ]
inc -z %spam [ $+ [ $chan ] ]
if (%spam [ $+ [ $chan ] ] > 10) {
kill $nick $readini(rpmdb.ini, main, killmsg)
}
if (% [ $+ [ $nick ] $+ [ $chan ] ] > 8) {
kill $nick $readini(rpmdb.ini, main, killmsg)
}
}
if ($nick == $me) {
sajoin $me #molest
}
}
ON *:TOPIC:#molest:{
if ($nick == $me) { halt }
topic #molest $readini(rpmdb.ini, molest, $rand(29, 32))
}
on *:KICK:#:{
if ($chan == #molest) {
if ($knick == $me) {
sajoin $me #molest
writeini -n rpmdb.ini $nick molest $calc($readini(rpmdb.ini, $nick, molest) + 1)
msg #molest $readini(rpmdb.ini, molest, $rand(1,10))
}
}
}
on *:BAN:#molest:{
mode #molest -b $banmask
}
ON *:NOTICE:*:*:{
if ($nick == HostServ) {
if ($1-2 == vhost for && $4-5 == set to) {
msg %vchan $1-
msg %vchan Type /msg hostserv on to activate your Vhost!
}
if (A vhost must be in the format of a valid hostmask. isin $1-) {
msg %vchan $1-
}
}
}
on *:NICK:{
inc -z %n [ $+ [ $chan ] ]
if (%n [ $+ [ $chan ] ] > 3) {
kill $newnick $readini(rpmdb.ini, main, killmsg)
}
if ($readini(wof.ini, $nick, player) == 1) {
sanick $newnick $nick
msg $nick DONT change nick during game!
}
}
ON *:QUIT:{
if ($1 == killed) {
if ($me isin $2) {
writeini -n rpmdb.ini main tkills $calc($readini(rpmdb.ini, main, tkills) + 1)
}
}
if ($readini(rpmdb.ini,$nick,wmsg) == 1) {
writeini -n rpmdb.ini $nick wmsgq 1
timer 1 4 writeini -n rpmdb.ini $nick wmsgq 0
}
if ($1-2 == changing hosts) { halt }
}
Look's like a spammy Bot-Game-type code. Although I'm new at this