Auto Greet
enjoy
Put this in aliases
talker {
var %t = 1 , %end
while (%t <= $numtok($1-,32)) {
%end = %end %c $+ $left($gettok($1-,%t,32),1) $+ %d $+ $+ $+ $mid($gettok($1-,%t,32),2)
inc %t
}
return %a $+ %end $+ %b
}
----------------------------------
ALT P VIEW MENUBAR OR CHANNEL
Autogreet:/dopen -md auto
-------------------------------
GOES IN REMOTES
#Agreet on
on *:JOIN:#: {
/var %which = $read(notify.txt,s,$nick)
/if ($readn != 0) /msg # $talker($nick) %e $talker($mid(%which,$len(%nick)+2,1000))
}
#agreet end
dialog auto {
title "Autogeet"
size -1 -1 160 52
option dbu
edit "Autogreet old or new", 1, 5 8 151 10
edit "Nick (Must Be Supplied)", 2, 5 19 100 10
button "Add", 3, 7 38 37 12, flat
button "Replace", 4, 48 38 37 12, flat
button "Close", 5, 123 38 37 12, flat ok cancel
}
on *:dialog:auto:sclick:3: { write notify.txt $did(auto,2).text $did(auto,1).text }
on *:dialog:auto:sclick:4: {
%i = 0
:Start
if (%i <= $lines(notify)) {
inc %i
if ($did(auto,2) isin $read(notify.txt)) {
/write notify.txt %i $did(auto,2).text $did(auto,1).text
halt
}
else {
goto start
}
}
}