on 100:TEXT:+welcomelist*:#:{
if ($2 == help) {
notice $nick welcomelist commandi:
notice $nick +welcomelist add - Dobavi v welcomelist
notice $nick +welcomelist remove - Premahni ot welcomelist
notice $nick +welcomelist list - Vij vsi4ki dobaveni adresi v welcomelist
}
elseif ($2 == add) {
set %welcomelisted %welcomelisted $3
notice $nick IP $3 beshe dobaveno uspeshno v welcomelist!
if ($3 ischan) {
msg $3 Tozi IP e dobaven v moqt welcomelist ot $nick $+ !
}
}
elseif ($2 == remove) {
if ($3 isin %welcomelisted) {
set %welcomelisted $remtok(%welcomelisted,$3,1,32)
notice $nick IP $3 e iztrit ot welcomelist!
}
}
elseif ($2 == list) {
if (%welcomelisted != $null) {
notice $nick Spisuk s welcomelisted: %welcomelisted
else {
notice $nick Spisaka e prazen welcomelisted.
}
}
}
}
on *:JOIN:#:{
if ($address($nick,2) isin %welcomelisted) {
msg $chan $nick хело май френд :)
}
}