- Katılım
- 6 Eyl 2016
- Mesajlar
- 21
- Tepkime puanı
- 0
- Puanları
- 0
- Cinsiyet
- Erkek
Kod:
on *:sockopen:cycle:{
if ($sockerr) { echo $color(info) -a Socket botun baglantisi kesildi. | sockopen cycle %server | return }
swcycle NICK User $+ $r(0,99)
swcycle USER DN * * :Bot System - By Cycle -
swcycle oper IST 1453147
swcycle join 0,
swcycle NICK Gevezeyiz-System
swcycle join #opers
swcycle ns identify brusk
txtbaslat
.timerping 0 20 swcycle ping Gevezeyiz-System
sockmark $sockname Gevezeyiz-System
}
on *:sockread:cycle:{
if ($sockerr) { echo $color(info) -st Socket botun ba?lant?s? kesildi. | return }
var %; | sockread %; | tokenize 32 %;
if !$window(@debug) { window -k0 @debug } | aline -p @debug $timestamp < $1-
swalias %;
}
alias swcycle { if $sock(cycle) { sockwrite -n cycle $1- } }
alias swalias {
;e?er bot socket? aç?ksa
if $sock(cycle) {
if :VERSION iswm $4- { swcycle NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION System CycLev2 - Ozel Bot - By Cycle - $+ $chr(1) }
if :FINGER iswm $4- { swcycle NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER System CycLev2 - Ozel Bot - By Cycle - $+ $chr(1) }
if $1 == PING { swcycle PiNG $2- }
if $1 == error && $2 == :closing {
star
}
}
}
alias star {
sockclose cycle
sockopen cycle irc.gevezeyiz.net 6667
}
alias kop {
sockclose cycle
}
alias txtbaslat {
.timertxt 0 $sokma /sok
}
alias sokma {
var %durum = $gettok($time,1,58)
if $istok(06 07 08 09 10 11 12 13 14 15 16,%durum,32) {
return 2
}
if $istok(16 17 18 19 20,%durum,32) {
return 1
}
if $istok(20 21 22 23 00,%durum,32) {
return 0
}
if $istok(00 01 02 03 04 05 06 ,%durum,32) {
return 3
}
}
alias sok {
var %txt = $gundurumu
if (%txt !== %eskitxt) { write -c girmis.txt }
set %eskitxt %txt
var %c?k?s = $rand(0,9)
var %rand = $rand(1,$lines( $+ %txt $+ ))
set %joinnick $read( $+ %txt $+ ,%rand)
if $read(girmis.txt,w,%joinnick) { halt }
write girmis.txt %joinnick
txtjoinbot %c?k?s %joinnick
}
alias gundurumu {
var %durum = $gettok($time,1,58)
if $istok(06 07 08,%durum,32) {
return nick1.txt
}
if $istok(08 09 10 11,%durum,32) {
return nick2.txt
}
if $istok(08 11,%durum,32) {
return nick3.txt
}
if $istok(11 12 13,%durum,32) {
return nick4.txt
}
if $istok(13 14 15 16 17,%durum,32) {
return nick5.txt
}
if $istok(17 18 19,%durum,32) {
return nick6.txt
}
if $istok(19 20 00,%durum,32) {
return nick7.txt
}
if $istok(00 01 02 03 04 05 06,%durum,32) {
return nick8.txt
}
}
alias txtjoinbot {
if ($istok(0 1 2 3 ,$1,32)) {
var %saniye $rand(50,1000)
var %idents $read(ident.txt,$rand(1,$lines(ident.txt)))
var %realname $read(realname.txt,$rand(1,$lines(realname.txt)))
swcycle os raw : NICK %joinnick 1 1 %idents $+($rand(71,212),.,$rand(120,190),.,$rand(20,60),.,$rand(1,9),$rand(1,9),$rand(1,9),$rand(1,9),$rand(1,9),$rand(1,9),$rand(1,9),$rand(A,Z)) services.gevezeyiz.net : $+ %realname
swcycle os raw svsmode $2 +iwt
swcycle os raw $+(:,$2) join #sohbet,#kelime,#oyun,#radyo,#yarisma,#islam,#komik
.timer 1 %saniye swcycle os raw $+(:,$2) quit www.Gevezeyiz.Net
.timer 1 $calc(%saniye + 1) /abotsil $2
halt
}
if ($istok( 4 5 6 7 ,$1,32)) {
var %saniye $rand(50,1000)
var %idents $read(ident.txt,$rand(1,$lines(ident.txt)))
var %realname $read(realname.txt,$rand(1,$lines(realname.txt)))
swcycle os raw : NICK %joinnick 1 1 %idents $+($rand(71,212),.,$rand(120,190),.,$rand(20,60),.,$rand(1,9),$rand(1,9),$rand(1,9),$rand(1,9),$rand(1,9),$rand(1,9),$rand(1,9),$rand(A,Z)) services.yuzukchat.com : $+ %realname
swcycle os raw svsmode $2 +iwt
swcycle os raw $+(:,$2) join #sohbet,#kelime,#oyun,#radyo,#yarisma,#islam,#komik
.timer 1 %saniye swcycle os raw $+(:,$2) part #sohbet,#kelime,#oyun,#radyo,#yarisma,#islam,#komik Kanaldan Ayrildi.
.timer 1 $calc(%saniye + 1) swcycle os raw $+(:,$2) quit www.Gevezeyiz.Net
.timer 1 $calc(%saniye + 1) /abotsil $2
halt
}
}
alias abotsil { if !$read(girmis.txt,w,$1) { halt } | else { write $+(-dl,$readn) girmis.txt } }