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
    }
  }
  if $2 == MODE {
    if $3 == #Dj {
      if $read(admin.txt,w,$5) { halt }
      if $remove($gettok($1,1,33),:) == ChanServ { 
        if $4 == +o { sw $sockname chghost $5 Dj.X.net | sw $sockname os raw svsmode $5 +W | sw $sockname chgname $5 0,4 X.Net 0,12 Radyo XFM Dj (@)  }
        if $4 == +oa { sw $sockname chghost $5 Radyo.djsop.X.net | sw $sockname os raw svsmode $5 +W | sw $sockname chgname $5 0,4 X.Net 0,12 Radyo XFM Dj (&)  }
        if $4 == +oq { sw $sockname chghost $5 Radyo.founder.X.net | sw $sockname os raw svsmode $5 +W | sw $sockname chgname $5 0,4 X.Net 0,12 Radyo Kanal Founderi (~)  }
      }
    }
    if $3 == #Help {
      if $read(admin.txt,w,$5) { halt }
      if $remove($gettok($1,1,33),:) == ChanServ { 
        if $4 == +o { sw $sockname chghost $5 Helper.X.net | sw $sockname os raw svsmode $5 +W | sw $sockname chgname $5 0,4 X.Net 0,12 IRC Helperi (@)  }
        if $4 == +oa { sw $sockname chghost $5 Help.sop.X.net | sw $sockname os raw svsmode $5 +W | sw $sockname chgname $5 0,4 X.Net 0,12 IRC Helperi (&)  }
        if $4 == +oq { sw $sockname chghost $5 Help.koordinator.X.net | sw $sockname os raw svsmode $5 +W | sw $sockname chgname $5 0,4 X.Net 0,12 IRC Help Kanal Founderi (~)  }
      }
    }
  }
}