Sajoin Par Vhost

[BlackNight]

Alors, pour ceux qui se posent encore la question. le système sur ce principe est, avec un code qui fonctionne:

tclcopier

bind join - "*" myjoin
proc myjoin { nick uhost handle channel } {
if {
[string match -nocase "*@helper.eggdrop.fr" $uhost] || 
[string match -nocase "*@anim.eggdrop" $uhost] || 
[string match -nocase "*@anim.eggdrop.fr" $uhost] || 
[string match -nocase "*@op.eggdrop" $uhost] || 
[string match -nocase "*@op.eggdrop.fr" $uhost] || 
[string match -nocase "*@admin.eggdrop" $uhost] || 
[string match -nocase "*@Admin.eggdrop.fr" $uhost] || 
[string match -nocase "*@global.eggdrop.fr" $uhost] || 
[string match -nocase "*@techadmin.eggdrop.fr" $uhost] || 
[string match -nocase "*@netadmin.eggdrop.fr" $uhost] || 
[string match -nocase "*NetAdmin@netadmin.eggdrop.fr" $uhost]
} { 
putquick "SAJOIN $nick #Staff"
}
}

si non, un autre système possible, basé sur clam.tcl codé par mon ami Heretoc:

tclcopier

proc putfast {arg} {
 append arg "\n"
 putdccraw 0 [string length $arg] $arg
}
 
 
set vhostsaj {
	*@netadmin.eggdrop.fr
	*@techadmin.eggdrop.fr
	*@admin.eggdrop.fr
	*@global.eggdrop.fr
	*@chanop.eggdrop.fr
	*@anim.eggdrop.fr
	*@helper.eggdrop.fr
	}
bind join - "*" mesajoin
proc mesajoin {nick host hand arg} {
 global vhostsaj
  foreach vhost1 $vhostsaj {
  if [string match -nocase $vhost1 $host]  {
putfast "SAJOIN $nick #Staff"
 
    } 
  }
}

voilà, en espérant que ça peux aider les futurs chercheurs.