Paylaşımın Ve Sohbetin Tek Adresine HoşGeldin, Ziyaretçi!

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Socket CycLe System Ozel Version

  • Konbuyu başlatan Che
  • Başlangıç tarihi
  • Okuma süresi: 2:23

Che

uye
Katılım
6 Eyl 2016
Mesajlar
21
Tepkime puanı
0
Puanları
1
Cinsiyet
Erkek

İtibar Puanı:

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 } }
 
Tüm sayfalar yüklendi.

Konuyu Görüntüleyen Kullanıcılar (Toplam:0)

Benzer konular Forum Tarih
Che Hazır ve Mini Kodlar 0 408
Che Hazır ve Mini Kodlar 0 747

Benzer konular