cycleye son mirc userin bot getirsin - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Murebba · 22 Temmuz 2008, 17:47

s.a arkadaslar sunucunuzda useriniz mi cycle weya raw botumu kullanıyorsunuz guzel bir kod ile bir mirc userin girsin yanında iki bot hediye : )

bot nick listesi [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] icindedir nick.txt yi mirc ana dizininde bot diye bir klasor acıp icine atarsın
birde kanalı ve adresi kendine gore ayarlarsın tabi : ) kolay gelsin

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:connect: {
  .timerbağlan 1 10 bağlan
  .timerbaglan 1 60 baglan
}
alias bağlan {  if !$sock(kbot) { sockopen kbot irc.deusohbet.com 6667 } }
on *:SOCKREAD:kbot: {  var %' | sockread %' | tokenize 32 %' | if $1 == PING { swrite $sockname PONG $2  }
  if $2 == JOIN && $remove($gettok($1,1,33),:) == %knick && $right($3,-1) == #Oyun { 
    swrite kbot join #deusohbet
    .timerp 0 25  swrite kbot privmsg %knick selam
    if $1 == PING { swrite $sockname PONG $2  }
  }
  if :VERSION iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
  }
  if :FINGER iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1)
  }
  if $1 == PING { 
    swrite $sockname PONG $2-
  }
}
on *:SOCKOPEN:kbot: {
  %knick = $read(bot/nick.txt)
  swrite $sockname NICK %knick 
  swrite $sockname USER Deusohbet "" " $+ $iif($host,$host,$ip) $+ " : $+ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
  swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
}
on *:SOCKREAD:1bot: {  var %' | sockread %' | tokenize 32 %' 
  if $1 == PING { swrite $sockname PONG $2  }
  if $2 == JOIN && $remove($gettok($1,1,33),:) == %knick && $right($3,-1) == #Oyun { 
    swrite kbot join #deusohbet
    .timerp 0 25  swrite 1bot privmsg %knick selam
  }
  if :VERSION iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
  }
  if :FINGER iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1)
  }
  if PING iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+  $ticks $+ $chr(1)
  }
} 
on *:SOCKOPEN:1bot: {
  %knick2 = $read(bot\nick.txt)
  swrite $sockname NICK %knick2 
  swrite $sockname USER Deusohbet "" " $+ $iif($host,$host,$ip) $+ " : $+ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
  swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
}
alias swrite { if $sock($1).status == active { sockwrite -nt $1- } }
alias baglan {  if !$sock(1bot) { sockopen 1bot irc.deusohbet.com 6667 } }
on *:SOCKREAD:1bot: {  var %' | sockread %' | tokenize 32 %' 
  if $1 == PING { swrite $sockname PONG $2  }
  if $2 == JOIN && $remove($gettok($1,1,33),:) == %knick && $right($3,-1) == #Oyun { 
    swrite kbot join #deusohbet
    .timerp 0 25  swrite 1bot privmsg %knick selam
  }
  if :VERSION iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
  }
  if :FINGER iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1)
  }
  if PING iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+  $ticks $+ $chr(1)
  }
}

Duffy`DuCk · 12 Ağustos 2008, 01:41

Burada bunun yayınlanması yanlış bişi, Zangi'ye zaman'ında ne kadar laf sölediniz script'den clone sokturuyor vs diye. (: Zangiye laf söleyenler $imdi yararlancak buradan.. (:

Radius · 16 Ağustos 2008, 20:58

calistiramadim bi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

Vuslat_Is_for_You · 16 Ağustos 2008, 21:11

Ufkum Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

calistiramadim bi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

script.ini nin içine yazıcaksın biliyorsun dimi..

on *:SOCKOPEN:1bot: {
%knick2 = $read(bot\nick.txt)

burdaki dizinde klasör olarak bot\ gösterilmiş klasör istemessen ana dizine atıp burayı

on *:SOCKOPEN:1bot: {
%knick2 = $read(nick.txt)

vede bugun gibi yerleri düzeltmen yeterLi. ;oki

Locked · 21 Ağustos 2008, 03:19

hayir çalişmiyor !!

XPhytoN · 27 Ağustos 2008, 06:06

Paylaşma arzusu Duffy, doğru olmayan şeylerin yayınlandığı andan itibaren, forumdan silinmesi gerekir.

Fakat, clone kendi suncusuna, istediği kadar sokmakta sanırım hakkı var, bu arkadaşımız da, isteyenler, kendi sunucularına mIRC Download'larının ardından da mIRC'lerini kullananlardan 3 kişilik bir fayda sağlamak istemişler.

Çoooooooooooooooook, faydası oluyor ya bu gibi sistemlerin, o yuzden tutuluyor genelde .)

ccelik · 12 Eylül 2008, 01:25

merhabalar ben 1 tane sokmayı basardım ama bunu 2 yada fazlasını başaramadım nasıl yaparız ? :S

Murebba · 14 Kasım 2008, 16:38

bende 2 side calıstı kodu paylasan benim nick yolunu dogru secin yeterli

duzenlemeye de IrCbastarD yardım etmisti

Murebba · 12 Ocak 2009, 00:08

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


on *:connect: {
  .timerbağlan 1 10 bağlan
  .timerbaglan 1 60 baglan
}
alias bağlan {  if !$sock(kbot) { sockopen kbot irc.fulsohbet.net 6667 } }
on *:SOCKREAD:kbot: {  var %' | sockread %' | tokenize 32 %' | if $1 == PING { swrite $sockname PONG $2  }
  if $2 == JOIN && $remove($gettok($1,1,33),:) == %knick && $right($3,-1) == #Oyun { 
    swrite kbot join #chat
    .timerp 0 25  swrite kbot privmsg %knick selam
    if $1 == PING { swrite $sockname PONG $2  }
  }
  if :VERSION iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
  }
  if :FINGER iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1)
  }
  if $1 == PING { 
    swrite $sockname PONG $2-
  }
}
on *:SOCKOPEN:kbot: {
  %knick = $read(bot/nick.txt)
  swrite $sockname NICK %knick 
  swrite $sockname USER fulsohbet "" " $+ $iif($host,$host,$ip) $+ " : $+ 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">| sockread %' | tokenize 32 %' 
  if $1 == PING { swrite $sockname PONG $2  }
  if $2 == JOIN && $remove($gettok($1,1,33),:) == %knick && $right($3,-1) == #Oyun { 
    swrite kbot join #fulsohbet
    .timerp 0 25  swrite 1bot privmsg %knick selam
  }
  if :VERSION iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
  }
  if :FINGER iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1)
  }
  if PING iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+  $ticks $+ $chr(1)
  }
} 
on *:SOCKOPEN:1bot: {
  %knick2 = $read(bot\nick.txt)
  swrite $sockname NICK %knick2 
  swrite $sockname USER fulsohbet "" " $+ $iif($host,$host,$ip) $+ " : $+ 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.fulsohbet.net
  swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
}
alias swrite { if $sock($1).status == active { sockwrite -nt $1- } }
alias baglan {  if !$sock(1bot) { sockopen 1bot irc.fulsohbet.net 6667 } }
on *:SOCKREAD:1bot: {  var %' | sockread %' | tokenize 32 %' 
  if $1 == PING { swrite $sockname PONG $2  }
  if $2 == JOIN && $remove($gettok($1,1,33),:) == %knick && $right($3,-1) == #Oyun { 
    swrite kbot join #fulsohbet
    .timerp 0 25  swrite 1bot privmsg %knick selam
  }
  if :VERSION iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
  }
  if :FINGER iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1)
  }
  if PING iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+  $ticks $+ $chr(1)
  }
}

duzenleyip tekrar attım arkadaslar bu sorunsuz calısır

OkyAnuS · 12 Ocak 2009, 00:26

Güzel Bir Sisteme Benziyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Yangını gören tekbir getirsin	Che	Güncel ve Son Dakika Haberler	1	14 Aralık 2022 16:10
Mirc de giren cıkan userin Ulke ismi yazması	Kimimben	mIRC Scripting Sorunları	7	16 Şubat 2011 22:45
2o1o Ne getirsin?	Süslü	Serbest Kürsü	10	02 Ocak 2010 20:59

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.