Menu Menubar,Nicklist,Channel {
Greet
.Greet: dialog $iif($dialog(Greet.System),-v,-md Greet.System) Greet.System
}
dialog Greet.System {
title "Greet"
size -1 -1 68 150
option dbu
list 1, 1 2 55 95, hsbar vsbar
Button "Set time " 2, 02 115 37 15, flat
combo 4, 02 89 25 50, size drop
Button "updatelist " 3, 02 135 37 15, flat
}
on :DIALOG:Greet.System:sclick:2: {
if (!$did(1).sel) { noop $input(Please Highlite A Nick To Set An Unest Time For,uwo,Error!) }
else { .timer 1 $calc($did(4) 60) write -dl $+ $did(1).seltext Nick.txt
}
}
on :DIALOG:Greet.System:init:: {
didtok $dname 4 124 60|120|180|240|300|360
nickss
}
on *:DIALOG:Greet.System:sclick:3: {
did -r greet.system 1
.timer 1 3 nickss
}
;:| else { write -dl $+ $did(3).sel %serverspammer | $chanlistalias }
on *:JOIN:#:{
if ( $nick != $me) .set %greetednick $nick
var %na $read(Nick.txt,w,%greetednick)
if (%na = %greetednick) halt
else { write Nick.txt $nick
msg $chan Hi, $nick $+ !
/notice $nick I'm a bot so don't reply or message me. (:
}
}
on *:PART:#:{
if ( $nick != $me) .timer 1 1 /msg $chan Fine then, $nick leave...!
if ( $nick != $me) .timer 1 2 /describe $chan mumbles "bitch"
if ( $nick != $me) .timer 1 4 /msg $chan welll... who wants some Hydro and Tequila?!
}
on *;QUIT:#:{
if ( $nick != $me) msg $chan Have a nice time in $network $+ , $nick $+ !
}
alias nickss {
var %a = 1, %b = $lines(Nick.txt)
while (%a <= %b) {
did -az Greet.System 1 $read(Nick.txt, %a)
inc %a
}
}
just a slight rewrite that the coder asked for