Çevrimdışı

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.