Advertisement
logicmoo

Untitled

Jun 13th, 2016
267
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.81 KB | None | 0 0
  1. alias onfreenode {
  2.   /slowjoin ##prolog
  3. ...
  4. }
  5.  
  6. on *:DISCONNECT: {
  7.   /set %nextdelay 10
  8.   echo -a Disconnected from $network on $asctime(dddd mmmm $+(ddoo,$chr(44), yyyy)) at $asctime(hh:mmtt) $+ . Server disconnect reason: $1-
  9. }
  10.  
  11. alias rejoin_favs {
  12.   var %rejoin.network = $iif($1,$1,$network)
  13.   var %a = 1, %b = $ini(mirc.ini,chanfolder,0)
  14.   while %a <= %b {
  15.     var %channel = $readini(mirc.ini,chanfolder,$ini(mirc.ini,chanfolder,%a))
  16.     var %network = $noqt($gettok(%channel,$iif(%aj isnum,-2,-1),44))
  17.     var %channel = $noqt($gettok(%channel,1,44))
  18.     if %network == %rejoin.network && %channel !ischan {
  19.       .timer -m 1 $calc(500 * %a) join %channel
  20.     }
  21.     inc %a
  22.   }
  23. }
  24.  
  25.  
  26. alias slowjoin {    
  27.   echo -a joining $1 in %nextdelay seconds
  28.   inc %nextdelay
  29.   /timer 1 %nextdelay /join $1  
  30. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement