on !1:join:#chan1,#chan2:{
if (($hget(welcomed. $+ $chan) == $null) && ($isfile($scriptdirjoinsg.hsh)) {
hload -bi welcomed. $+ $chan $qt($scriptdirjoinmsg.hsh) $chan
}
var %x = $hget(welcomed. $+ $chan,0).item
while (%x) {
if ($hget(welcomed. $+ $chan,%x).item iswm $fulladdress) {
return
}
dec %x
}
hadd -mu1800 welcomed. $+ $chan $gettok($address($nick,0),1,64) $+ @*
hsave -bi welcomed. $+ $chan $qt($scriptdirjoinmsg.hsh) $chan
.notice $nick Welcome to $+($chan,!)
}