Socket CycLe System Ozel Version

[Che]

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 } }