join-part-quit messages

By Phil_FW on Nov 27, 2010

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
}
}

Comments

Sign in to comment.
napa182   -  Nov 28, 2010

phil24 you should heed Jethro_s advice also it would be a good idea to name ur timers.

 Respond  
Phil_FW   -  Nov 27, 2010

thnx dude (:

 Respond  
blackvenomm666   -  Nov 27, 2010

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

 Respond  
Dark|   -  Nov 27, 2010

i was really just saying nice to the part one - xD

 Respond  
Jethro   -  Nov 27, 2010

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.

 Respond  
Dark|   -  Nov 27, 2010

lol - Nice

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.