join avec putfast

[heretoc]

Ou alors :

tclcopier

set vhostniv1 {
AnimPlus.zet-land.org 
ChanAdmin.zet-land.org 
CoChefZone.zet-land.org 
OpZone.zet-land.org 
AdminZone.zet-land.org 
ChanOp.zet-land.org
}
 
bind join - "*" sajoinauto
proc sajoinauto {nick host hand arg} {
 global vhostniv1 sajoinauto
  foreach vhost $vhostniv1 {
  if [string match -nocase $vhost $host]  {
putfast "SAJOIN $nick #staff"
putfast "SAJOIN $nick #staff+"
putfast "SAJOIN $nick #aide-staff"
    }  
  }
}