mainly for a bot and has a join-part-quit thing for each
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) .timer1 1 1 /msg $chan Fine then, $nick leave...!
if ( $nick != $me) .timer2 1 2 /describe $chan mumbles "bitch"
if ( $nick != $me) .timer3 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
}
}
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
Dark|, you must have been blinded. The quit event will never work. There's no channel (# or $chan) in the quit event unless you specify it, not to mention the quit event is formatted incorrectly. This is the rewrite:
on !*:join:#:greetings
on !*:part:#:greetings
on !*:quit:greetings
alias greetings {
if $event = join {
msg $chan Hi, $nick $+ !
notice $nick I'm a bot so don't reply or message me. (:
}
elseif $event = part {
.timer 1 1 /msg $chan Fine then, $nick leave...!
.timer 1 2 /describe $chan mumbles "bitch"
.timer 1 4 /msg $chan welll... who wants some Hydro and Tequila?!
}
elseif $event = quit {
var %q $comchan($nick,0)
while %q {
msg $comchan($nick,%q) Have a nice time in $network $+ , $nick $+ !
dec %q
}
}
}
The $nick != $me should have been used once, and that's more than enough, or you could simply use the ! by the events as shown.