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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Sock bot (https://www.ircforumlari.net/mirc-scripting-sorunlari/381495-sock-bot.html)

Erdem 07 Şubat 2011 12:45

Sock bot
 
Merhaba. Elimde ki sock botu giriş kodlu bir server'e koymak istiyorum fakat sock oldugu icin giriş yapamıyor. Bu bota nasıl bir kod koyabiliriz ki @Bot penceresinden giris kodunu kendimiz girip sunucuya botu atalım. yardımcı olursanız sevinirim. Şimdiden teşekkürler.

xyL 07 Şubat 2011 13:39

Cevap: Sock bot
 
Yazmış olduğun yazıyı biraz daha büyük yaparsan, gerekli kişiler yardım etmeyi düşünebilirler.

Fakat bu şekilde, yardım etmeyi bırak bi kenara, sorunun ne olduğunu dahi anlamayabilirler.

MesqeN 07 Şubat 2011 14:33

Cevap: Sock bot
 
raw 6:*:{
if $
2 != $null
{
write unl1.txt $chr(3) $+ $gettok($2-,2,44
)
write unl2.txt $chr(3) $+ $gettok($2-,3,44
)
write unl3.txt $chr(3) $+ $gettok($2-,4,44
)
}
}

on *:start
:{
write -c unl1.
txt
write
-c unl2.
txt
write
-c unl3.
txt
unset %
unl1
unset %
unl2
unset %
unl3
}

on *:disconnect
:{
write -c unl1.
txt
write
-c unl2.
txt
write
-c unl3.
txt
unset %
unl1
unset %
unl2
unset %
unl3
}

alias bul1
{
var %
unl2a $len($remove($gettok($read(unl1.txt,2),2,3),0,1,2,3,4,5,6,7,8,9
))
var %
unl5a $len($remove($gettok($read(unl1.txt,5),2,3),0,1,2,3,4,5,6,7,8,9
))
var %
unl5a2 $len($remove($gettok($read(unl1.txt,5),1,3),0,1,2,3,4,5,6,7,8,9
))
var %
unl8a $len($remove($gettok($read(unl1.txt,8),2,3),0,1,2,3,4,5,6,7,8,9
))
if (%
unl2a == 2) { set %unl1 4
}
if (%
unl2a == 3) { set %unl1 1
}
if (%
unl2a == 8
) {
if (%
unl8a == 2) { set %unl1 7
}
if (%
unl8a == 7) { set %unl1 5
}
}
if (%
unl2a == 7
) {
if (%
unl8a == 7) { set %unl1 3
}
if (%
unl8a == 6) { set %unl1 6
}
}
if (%
unl2a == 6
) {
if (%
unl5a == 1) { set %unl1 8
}
if (%
unl5a == 7) { set %unl1 9
}
if (%
unl8a == 8) && (%unl5a2 == 6) { set %unl1 2
}
if (%
unl5a == 2) && (%unl5a2 == 1) { set %unl1 0
}
}
}

alias bul2
{
var %
unl2b $len($remove($gettok($read(unl2.txt,2),2,3),0,1,2,3,4,5,6,7,8,9
))
var %
unl5b $len($remove($gettok($read(unl2.txt,5),2,3),0,1,2,3,4,5,6,7,8,9
))
var %
unl5b2 $len($remove($gettok($read(unl2.txt,5),1,3),0,1,2,3,4,5,6,7,8,9
))
var %
unl8b $len($remove($gettok($read(unl2.txt,8),2,3),0,1,2,3,4,5,6,7,8,9
))
if (%
unl2b == 2) { set %unl2 4
}
if (%
unl2b == 3) { set %unl2 1
}
if (%
unl2b == 8
) {
if (%
unl8b == 2) { set %unl2 7
}
if (%
unl8b == 7) { set %unl2 5
}
}
if (%
unl2b == 7
) {
if (%
unl8b == 7) { set %unl2 3
}
if (%
unl8b == 6) { set %unl2 6
}
}
if (%
unl2b == 6
) {
if (%
unl5b == 1) { set %unl2 8
}
if (%
unl5b == 7) { set %unl2 9
}
if (%
unl8b == 8) && (%unl5b2 == 6) { set %unl2 2
}
if (%
unl5b == 2) && (%unl5b2 == 1) { set %unl2 0
}
}
}

alias bul3
{
var %
unl2c $len($remove($gettok($read(unl3.txt,2),2,3),0,1,2,3,4,5,6,7,8,9
))
var %
unl5c $len($remove($gettok($read(unl3.txt,5),2,3),0,1,2,3,4,5,6,7,8,9
))
var %
unl5c2 $len($remove($gettok($read(unl3.txt,5),1,3),0,1,2,3,4,5,6,7,8,9
))
var %
unl8c $len($remove($gettok($read(unl3.txt,8),2,3),0,1,2,3,4,5,6,7,8,9
))
if (%
unl2c == 2) { set %unl3 4
}
if (%
unl2c == 3) { set %unl3 1
}
if (%
unl2c == 8
) {
if (%
unl8c == 2) { set %unl3 7
}
if (%
unl8c == 7) { set %unl3 5
}
}
if (%
unl2c == 7
) {
if (%
unl8c == 7) { set %unl3 3
}
if (%
unl8c == 6) { set %unl3 6
}
}
if (%
unl2c == 6
) {
if (%
unl5c == 1) { set %unl3 8
}
if (%
unl5c == 7) { set %unl3 9
}
if (%
unl8c == 8) && (%unl5c2 == 6) { set %unl3 2
}
if (%
unl5c == 2) && (%unl5c2 == 1) { set %unl3 0
}
}
}

alias cevap
{
bul1
bul2
bul3
if (%unl1 == $null) || (%unl1 == $null) || (%unl1 == $null
) {
if %
unl1 == $null { bul1
}
if %
unl2 == $null { bul2
}
if %
unl3 == $null { bul3
}
goto bas
}
$+(.,
timer,UnLi,$rand(111,999)) 1 1 /echo -s Girilen Giriş Kodu: $+(%unl1,%unl2,%unl3
)
$+(.,
timer,UnLi,$rand(111,999)) 1 1 /giris $+(%unl1,%unl2,%unl3) |
goto son
:
bas
cevap2
:
son
}

alias cevap2
{
$+(.,
timer,UnLi,$rand(111,999)) 1 1 /echo -s Girilen Giriş Kodu: $+(%unl1,%unl2,%unl3
)
$+(.,
timer,UnLi,$rand(111,999)) 1 1 /giris $+(%unl1,%unl2,%unl3
)
}


on *:snotice:*Yukarıda*Gördüğünüz:*: { cevap
}
on *:snotice:* /GIRIS*Kod*: { cevap
}
on *:snotice:*/GIRIS*: { cevap
}


Code: UnLimitedBOY
Tarih: 09.02.2010

Komut Kullanım: Otomatik çalışır.

Ne işe yarar?
Giriş Kodu kullananan Sunuculara otomatik olarak girmenizi sağlar.

Not:
Giriş Kodu 3 haneli olan sunucular için geçerlidir.



Erdem 15 Şubat 2011 19:47

Cevap: Sock bot
 
denedim fakat olmadı. sock bot girdiğinde bir @Giris penceresi acıp kodu oraya yansıtsa, oradan elle girsek. bu mumkun mu?

Erdem 21 Şubat 2011 00:45

Cevap: Sock bot
 
güncel..

uFuK 21 Şubat 2011 09:52

Cevap: Sock bot
 
if $2 == Notice || $3 == Notice { window @Giris | echo @giris $1- }

Bunu Sock botun kaynağına yapıştırıcaksın. @Giris penceresine çıkan noticeler dökülecektir.

Lakin giriş kodlu serverda botların için bir except oluşturup botları sunucuya o porttan sokmanızı tavsiye ederim.

Erdem 23 Şubat 2011 21:41

Cevap: Sock bot
 
Noticeler görünmüyor sock oldugundan, bu yüzden bu koda gerek duyuyorum görünse elle status'ten girebilirdim.

uFuK 24 Şubat 2011 06:12

Cevap: Sock bot
 
Alıntı:

Insomnia Nickli Üyeden Alıntı (Mesaj 1040691114)
Noticeler görünmüyor sock oldugundan, bu yüzden bu koda gerek duyuyorum görünse elle status'ten girebilirdim.

Sock bota vahiymi geliyor parametreler? Onada Notice şeklinde geliyor ama onu event olarak değil kelime yakalayarak düzenlersin.

Ha yok sen ben noticeleri görüyorum ama giriş kodu gelmiyor diyorsan o ayrı. o zaman

Alıntı:

if ($2 == 006) || ($3 == 006) {
echo @giris $1-
}


satırınıda eklemen gerekiyor.

ATLAS 24 Şubat 2011 11:23

Cevap: Sock bot
 
Alıntı:

Insomnia Nickli Üyeden Alıntı (Mesaj 1040673711)
Merhaba. Elimde ki sock botu giriş kodlu bir server'e koymak istiyorum fakat sock oldugu icin giriş yapamıyor. Bu bota nasıl bir kod koyabiliriz ki @Bot penceresinden giris kodunu kendimiz girip sunucuya botu atalım. yardımcı olursanız sevinirim. Şimdiden teşekkürler.

Botunun gireceği serverin port şifresini biliyorsan

Kod:

on *:sockopen:botismi:{
}

bölümüne
Kod:

sockwrite -n $sockname pass portşifresi



ekle. giricektir.


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

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