SHARE
TWEET

auto login/join/identify example

Seb Jan 18th, 2016 (edited) 116 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;This can be used to connect and auth to services safely. Read the whole script.
  2.  
  3. on *:start:{
  4.   server irc.undernet.org -i Mainnick Altnick ident full name here
  5.   server -m irc.freenode.org -i Mainnick Altnick ident full name here
  6. }
  7.  
  8. on *:connect:{
  9.   .timer 1 10 join -n %aj. [ $+ [ $network ] ]
  10.   if ($network == undernet) { .msg x@channels.undernet.org login USERNAME PASSWORD }
  11. }
  12.  
  13. on *:INVITE:#:{ if ($nick == X) { .join -n $chan } }
  14.  
  15. on *:NOTICE:*This nickname is registered*:*:{
  16.   if ($nick == NickServ) && ($network == freenode) { .ns id YOURFREENODEPASSWORD }
  17. }
  18.  
  19. menu status {
  20.   Autojoin on $network
  21.   .List
  22.   ..$submenu($channel_list($1))
  23.   .Join list now:join -n %aj. [ $+ [ $network ] ]
  24. }
  25.  
  26. menu channel {
  27.   Autojoin on $network
  28.   .Add $chan:set $+(%,aj,.,$network) $addtok($eval($+(%,aj,.,$network),2),$chan,44)
  29.   .Remove $chan:set $+(%,aj,.,$network) $remtok($eval($+(%,aj,.,$network),2),$chan,44)
  30.   .-
  31.   .Join list now:join -n %aj. [ $+ [ $network ] ]
  32.   .-
  33.   .$submenu($channel_list($1))
  34. }
  35.  
  36. alias channel_list {
  37.   if ($istok(begin end,$1,32)) return -
  38.   else return $gettok($($+(%,aj.,$network),2),$1,44) :noop
  39. }
RAW Paste Data
Top