SPECIAL SAFE-AUTO-JOIN (S.A.J)

By eyiezinc on May 17, 2009

; SPECIAL SAFE-AUTO-JOIN (S.A.J) ADDON"S
;
'
;#######Autojoin On Disconnect / Connected N auto-Request Voice In Channel (after Completed Join)...########
;setting ==> mirc option/irc
;1) "on" on "Keep Channels Open"
;2) "off" on "Rejoin Channels on Connect"
;3) /set %atojochan #channel1,#channel2,#channel3,#channel4,#channel5

;ex : %atojochan #terengganu,#eropah,#mp3japan,#suriamp3,#mp3melayu,#mp3zs,#havoc,#uptown,#myspace
;############################

on *:CONNECT:{ if (webchat !isin $server) { return } | //timeratojo 0 13 /atojo | %onjoin = off }

alias atojo {
  if ($gettok(%atojochan,0,44) > $chan(0)) { goto start }
  else { goto dced }
  :start
  var %i = 1
  while (%i <= $gettok(%atojochan,0,44)) {
    if ($me !ison $gettok(%atojochan,%i,44)) { //echo -s *** Autojoin :On:Start: $gettok(%atojochan,%i,44) : You're Joining $gettok(%atojochan,%i,44) | .join -n $gettok(%atojochan,%i,44) | halt }
    .inc %i
  }
  :dced
  var %i = 1
  while (%i <= $chan(0)) {
    if ($me !ison $chan(%i)) { //echo -s *** Autojoin :On:Dc: $chan(%i) : You're Joining $chan(%i) | .join -n $chan(%i) | halt }
    .inc %i
  }
  :end
  .timeratojo off
  echo -s *** Autojoin : Status Complete. Autojoining Timers Are Now Off
  /ame S.A.J Complete : i`m back bebeh!!
  .timer 1 5 /reqvo
}

alias reqvo {
  var %i = 1
  while (%i <= $chan(0)) {
    if ($me isreg $chan(%i)) { echo -s *** Requesting voice's in $chan(%i) | msg $chan(%i) !voice }
    .inc %i
  }
  echo -s 3*** Requesting voice's: Status Complete.
  %onjoin = on
}
on *:Quit:{ $iif($window(@Trace) == $null, .window -ak[0] @Trace) | /echo @trace $+(,$color(quit)) *** $nick $+(,$color(quit),has) quit [ $time $+(,$color(quit),]) reason [ $1- $+(,$color(quit),]) }

Like Page Follow Author

Comments

eyiezinc - May 18, 2009

thanks for ur comments WorldDMT!!

Respond

WorldDMT - May 18, 2009

why u used goto??

& the alias reqvo use "amsg" is like "ame"

u can do this if u want

on *:CONNECT:{
  if (webchat isin $server) {
    .timeratojo 0 13 atojo
    %onjoin = off
  }
}
alias atojo {
  tokenize 32 $regsubex($str(.,$numtok(%atojochan,44)),/./g,$iif($me !ison $gettok(%atojochan,\n,44),$v2) $+ $chr(32))
  join $*
  .timer 1 5 reqvo
}
alias reqvo {
  echo -s *** Requesting voice's in all chan
  amsg !voice
  echo -s *** Requesting voice's: Status Complete.
  %onjoin = on
}
on *:Quit:{
  if (!$window(@Trace)) window -ak[0] @Trace
  echo @trace 2*** $nick has quit [ $time ] reason [ $1- ])
}

Respond