bind join - * p_greet

set greetmsg {
  {hello $nick, Selamat datang di $chan ketik !help untuk Perintah}

}

proc p_greet {nick uhost hand chan} {
  p_greet2 $nick $chan
  return 0
}

proc p_greet2 {nick chan} {
  global greetmsg
  set randgreet [lindex $greetmsg [rand [llength $greetmsg]]]
  putserv "NOTICE $nick :$randgreet"
}

putlog "SplitBot greet!"