Auto Greet

By xdesoto on Jul 02, 2007

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

Comments

Sign in to comment.
xdesoto   -  Jul 02, 2007

Lindrian I got it from my old script and just forgot to edit it so it works on here well it works on here just there is a bunch of useless stuff with it

 Respond  
Lindrian   -  Jul 02, 2007

Your talker alias contains tons of variables which arent set in the script itself.

%end = %end  %c $+ $left($gettok($1-,%t,32),1) $+ %d $+  $+ $+ $mid($gettok($1-,%t,32),2)

like, %c, %d etc.

Mind explaining?

 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.