lookjapan.COM - IRC ve mIRC dünyasının forumu!

Tek Kısılık Karşılama TCL'sı ;

Kod:

set sahip Casper

bind join - * karsilama

proc karsilama { nick uhost hand chan } {

  global sahip

  if ($nick==$sahip) {

  putserv "PRIVMSG $nick Hoşgeldin."

  }

  return 0

}

Çoklu Karşılama TCL's ;

Kod:

set sahip Casper

set sahip2 Ben

set sahip3 Baskasi



bind join - * karsilama

proc karsilama { nick uhost hand chan } {

  global sahip sahip2 sahip3

  if {$nick==$sahip} { putserv "PRIVMSG $nick Hoşgeldin." }

  if {$nick==$sahip2} { putserv "PRIVMSG $nick Niye Geldin." }

  if {$nick==$sahip3} { putserv "PRIVMSG $nick Gözlerimiz Yollarda kaldı" }

}

Örnek 2 ;

Kod:

set sahip Casper

set sahip2 Ben

set sahip3 Baskasi



bind join - * karsilama

proc karsilama { nick uhost hand chan } {

  global sahip sahip2 sahip3

  if {$nick==$sahip} { 

     putserv "PRIVMSG $nick :Hoşgeldin." 



  } elseif {$nick==$sahip2} { 

    putserv "PRIVMSG $nick :Niye Geldin." 



  } elseif {$nick==$sahip3} { 

    putserv "PRIVMSG $nick :Gözlerimiz Yollarda kaldı" 



  ;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..

  } else {

    putserv "PRIVMSG $nick :$nick Hos geldiniz"

  }



}