Mass BNC Klonovi uz Pomoc jednog otvorenog mIRCA
;-- Ne zavrseni projekat ---:
set binvar 1 4
alias bncit {
if ( $1 == $null ) {
echo Koristi sa /bncit server port pass vip koliko irc-server irc-server-port
}
else {
set %bncip $1
set %bncport $2
set %bncpass $3
set %bncvip $4
set %bncklon $5
set %bncircserver $6
set %bncircserverport $7
set %bncircserveriport $6 $7
set %nick $read nicks.txt
}
sockopen bnc %bncip %bncport
}
ON *:SOCKOPEN:bnc: {
if ($sockerr > 0) {
echo Ne radi ti bnc. | halt
}
echo Connected. Sacekaj momenat.
timer 1 6 sockwrite -t bnc quote pass %bncpass
timer 1 7 sockwrite -t bnc quote vip %bncvip
timer 1 8 sockwrite -t bnc quote conn %bncircserveriport
timer 1 9 echo Connectujem se... cekaj sekundu.
timer 1 10 sockwrite -t bnc nick %nick
timerantii 0 30 /antiidle
timer 1 11 echo %nick is connected
timer 1 12 alljoin
}
ON *:sockread:bnc: {
timer 1 5 sockwrite -t bnc quote pass %bncpass
timer 1 6 sockwrite -t bnc quote vip %bncvip
timer 1 7 sockwrite -t bnc quote conn %bncircserveriport
timer 1 8 echo Connectujem se... cekaj sekundu.
timer 1 9 sockwrite -t bnc nick %nick
timerantii 0 30 /antiidle
timer 1 10 echo %nick is connected
timer 1 11 alljoin
}
alias antiidle { set %sockx $sock(bnc*,0) | if (%sockx > 0) { sockwrite -n bnc* PONG 208.203.252.252 } }
alias killbnc { sockwrite -n bnc* quit 2Tuzla4ORG - l33t suckers :) }
alias alljoin { sockwrite -n bnc* join #tuzla1 }
 |  |
 |
Re: Mass BNC Klonovi uz Pomoc jednog otvorenog mIRCA
Re: Mass BNC Klonovi uz Pomoc jednog otvorenog mIRCA