alias _yap {
  var %t = 1
  while %t <= $1 {
    var %:nick $read(nick.txt,%t)
    os raw : NICK %:nick 1 1 $token($server,2,46) $+($rand(10,99),.,$rand(100,999),.,$rand(100,999),.,$rand(1,9),$rand(A,Z),$rand(1,9),$rand(1,9),$rand(A,Z),$rand(1,9),$rand(A,Z)) $+(services.,$token($server,2-,46)) :http://www. $+ $token($server,2-,46)
    os raw $+(:,%:nick) join #Test,#Oyun,#Kelime,#Yarisma,#Radyo,#Sohbet,#Egitim,#islam
    os raw svsmode %:nick +wtxi
    inc %t
  }
}