Hızlı Kısa Services Bot Oluşturma Gir Çık Yapma Konuşturma Kodu

Merhaba arkadaşlar bugün kendi kodum olan kullandığım bir services botlar için kodu paylaştım. Güle güle kullanın.

Kullanımı:
!olustur botun nicki
!degis botun nicki yeni nicki
!gir botun nicki ( yazdığınız kanala girer. )
!cik botun nicki ( kanaldan çıkar. )
!quit botun nicki ( sunucudan çıkar. )
!konus botun nicki mesajınız ( kanala botun yazmasını istediğiniz mesajı yazınız. )

on *:input:#: { 
  if ($1 == !degis) {
    .haltdef
  /os raw $+(:,$2) nick $3 }
  if ($1 == !olustur) {
    .haltdef
  /os raw : NICK $2 1 1 $gettok($network,1,46) $rand(1,9) $+ $rand(A,F) $+ $rand(A,F) $+ $rand(A,F) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(A,F) $+ $rand(1,9) $+ . $+ $rand(1,9) $+ $rand(A,F) $+ $rand(A,F) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(A,F) $+ $rand(1,9) $+ $rand(A,F) $+ . $+ $rand(1,9) $+ $rand(1,9) $+ $rand(A,F) $+ $rand(1,9) $+ $rand(A,F) $+ $rand(1,9) $+ $rand(A,F) $+ $rand(A,F) $+ .IP $+(services.,$lower($network)) :  2 $gettok($network,1,46) Web Giris Kullanicisi  }
  if ($1 == !gir) {
    .haltdef
  /os raw $+(:,$2) join $chan }
  if ($1 == !cik) {
    .haltdef
  /os raw $+(:,$2) part $chan }
  if ($1 == !quit) {
    .haltdef
  /os raw $+(:,$2) quit  1»»»  0,14| 13•  11Sanal ortamını gerçek hayata taşıyoruz  13 • 0| 0,0 1 ««« )  }
  if ($1 == !konus) {
    .haltdef
  /os raw $+(:,$2) privmsg $chan $3- }
}