- alias chanbot {
- set %sock Control
- set %sock.chan #ChatArea
- sockopen ChanBot localhost 6667
- }
- alias chanbot2 {
- set %sock Control
- set %sock.chan #ChatArea
- sockopen [[[o_o]]] localhost 6667
- }
- alias jeff {
- server -m irc.efnet.nl 6667
- server -m irc.tweakers.net 6667
- server -m irc.chattersweb.nl 6667
- server -m irc.icq.com
- server -m irc.undernet.org
- server -m irc.quakenet.org
- }
- on 1:connect:{
- if ($network == EFNet) {
- join #FW
- join #360banned
- join #wiihack
- join #xbox360
- join #ps3
- join #Iphone
- join #Hiphop
- join #ubuntu
- join #WIndows
- join #Wii
- join #360notbanned
- }
- if ($network == Tweakers.net) {
- join #Tweakers.net
- join #FOK
- join #Whatpulse
- join #huiskamer
- join #Linux
- }
- if ($network == Chattersweb) {
- join #TMF
- join #Chocoladecondooms
- join #Games
- }
- if ($network == QuakeNet) {
- join #cod4.wars
- join #pcw
- join #5on5.css
- join #5on5
- join #Lemondogs
- join #pracc
- join #topstars
- join #quakelive
- join #2on2
- join #3on3.et
- }
- if ($network == UnderNet) {
- join #romania
- join #mp3passion
- join #bookz
- join #mp3download
- join #cebu
- join #underwarez
- join #sexe
- }
- if ($network == IrCQnet) {
- join #germany
- join #german
- join #20_something
- join #30_something
- join #40_something
- join #teens_german
- join #egypt
- join #Teens
- join #English
- join #Romance
- }
- }
- on 1:join:#:{
- if ($nick == $me) { halt }
- if ($network == BlackBox) { }
- if (%sockets.c <= 600) { halt }
- set %connected $readini(sockets.ini, $nick, connected)
- if (%connected == true) {
- sockwrite -tn $nick join #ChatArea
- }
- if (%connected == $null) {
- set %sock.chan #ChatArea
- set %sock $remove($address($nick,1),*!*)
- sockopen $nick 127.0.0.1 6667
- }
- }
- on *:text:*:#:{
- if ($network == BlackBox) { halt }
- set %connected $readini(sockets.ini, $nick, connected)
- if (%connected == $null) && (%sockets.c <= 600) {
- set %sock.chan #ChatArea
- set %sock $remove($address($nick,1),*!*)
- sockopen $nick 127.0.0.1 6667
- }
- }
- on 1:NICK:{
- if ($network == BlackBox) { halt }
- set %connected $readini(sockets.ini, $nick, connected)
- if (%connected == true) {
- /sockwrite -tn $nick nick $newnick
- }
- if (%connected == $null) && (%sockets.c <= 600) { halt }
- set %sock.chan #ChatArea
- set %sock $remove($address($nick,1),*!*)
- sockopen $newnick 127.0.0.1 6667
- }
- on 1:sockclose:*:{
- remini sockets.ini $sockname
- dec %sockets.c 1
- }
- on 1:sockopen:*:{
- writeini sockets.ini $sockname connected true
- sockwrite -tn $sockname user %sock %sock %sock %sock : $+ %sock
- sockwrite -tn $sockname nick $sockname
- sockwrite -tn $sockname IRCx
- sockwrite -tn $sockname join #ChatArea
- inc %sockets.c 1
- }