Sock Bota Host Okuturmak
 

Selam kolay gelsin arkadaşlar. kendi çapımda bir socket botuna extra bot daha yaptım host verme botu ama host verdime işini beceremedim botta bana yardımcı olabilirmisiniz bu konuda simdiden kolay gelsin.
on *:SOCKOPEN:hostsystem: {
%hostnick = Grr $+ $r(100,9999)
sw $sockname NICK %hostnick
sw $sockname USER $qbotident "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo
sockmark $sockname hostsytem
}
on *:SOCKREAD:hostsystem: {
var %s
sockread %s
tokenize 32 %s
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper $qoperpass
}
if $2 == 381 {
sw $sockname join 0,
sw $sockname ns ghost XBot $+ -HOST $qnickpass
sw $sockname ns release XBot $+ -HOST $qnickpass
.timer 1 2 sw $sockname NICK XBot $+ -HOST
.timershout 0 15 shout
}
if $2 == NICK {
if $right($3,-1) == XBot $+ -HOST {
sw $sockname MODE XBot $+ -HOST +BH-h
sw $sockname ns identify $qnickpass
.timer 1 3 sw $sockname setident hostserv
.timer 1 4 sw $sockname sethost hostsystem.X.net
.timer 1 5 sw $sockname os raw svsmode XBot $+ HOST +D
.timer 1 5 sw $sockname JOIN #Bulmaca@,#Oyun@,#Kelime@,#Game@,#Sohbet@,#Chat@,# Diyalog@,#Zurna@,#Muhabbet@,#Aşk@,#Türkiye@,#istan bul@,#Ankara@,#Samsun@,#Adana@,#Antalya@,#izmir@,# KELEBEK@,#35+@,#Klavye@,#Bursa@,#Sinop@,#islam@,#v ip,#Beauty,#Beşiktaş,#Galatasaray,#Fenerbahçe,#Gir ls,#Opers,#Operlog ,
.timer 1 6 sw $sockname mode #Unban +vh XBot $+ -HOST XBot $+ -HOST
.timer 1 6 sw $sockname mode #Radyo@ +vh XBot $+ -HOST XBot $+ -HOST
.timer 1 6 sw $sockname mode #Dj +vh XBot $+ -HOST XBot $+ -HOST
.timer 0 150 .radyoerr
}
if $botfnick($1) == XBot $+ -HOST {
sw $sockname ns ghost XBot $+ -HOST $qnickpass
sw $sockname ns release XBot $+ -HOST $qnickpass
.timer 1 3 sw $sockname NICK XBot $+ -HOST
}
}
}
on *:rawmode:#Dj: {
if $read(admin.txt,w,$2) { halt }
if $nick == ChanServ {
if $1 == +o { chghost $2 Dj.X.net | os raw svsmode $2 +W | chgname $2 0,4 X.Net 0,12 Radyo XFM Dj (@)  }
if $1 == +oa { chghost $2 Radyo.djsop.X.net | os raw svsmode $2 +W | chgname $2 0,4 X.Net 0,12 Radyo XFM Dj (&)  }
if $1 == +oq { chghost $2 Radyo.founder.X.net | os raw svsmode $2 +W | chgname $2 0,4 X.Net 0,12 Radyo Kanal Founderi (~)  }
}
}
on *:rawmode:#Helpers: {
if $read(admin.txt,w,$2) { halt }
if $nick == ChanServ {
if $1 == +o { chghost $2 Helper.X.net | os raw svsmode $2 +W | chgname $2 0,4 X.Net 0,12 IRC Helperi (@)  }
if $1 == +oa { chghost $2 Help.sop.X.net | os raw svsmode $2 +W | chgname $2 0,4 X.Net 0,12 IRC Helperi (&)  }
if $1 == +oq { chghost $2 Help.koordinator.X.net | os raw svsmode $2 +W | chgname $2 0,4 X.Net 0,12 IRC Help Kanal Founderi (~)  }
}
}
Çogu kanalı sildim kod göze basit gelsin diye ilgilenen arkadaşlara tekrardan kolay gelsin.

Cevap: Sock Bota Host Okuturmak
 

Buyur;

Cevap: Sock Bota Host Okuturmak
 

Gözünü seveyim, kopyala/yapıştır :D

Cevap: Sock Bota Host Okuturmak
 

GhoSt un yaptığı çalışmadı usta yaf :S sen bi el atsan şu koda ?

Cevap: Sock Bota Host Okuturmak
 

buna benzer bişiler yapabilirsin..

Cevap: Sock Bota Host Okuturmak
 

Gibi coğaltabilirsiniz.