Miscellany

menu @RSIRC {
  dclick://uwho $nick(%rsirc,$$1)
  Set Aupacity:{
    set %sl $iif($?="Opacity level (0-255) [Currently $iif(%sl,%sl,255) $+ /255 $+ ]" != $null,$v1,125)
    setlayer %sl @RSIRC
  }
  test:/echo -a $$1-
}
menu @Switch {
  sclick:{
    if ($mouse.y <= 36) {
      f6
    }
    if ($mouse.y > 37) {
      f7
    }
  } 
}
alias F6 /setlayer 0 @RSIRC
alias F7 /setlayer 255 @RSIRC
alias RSIRC {
  if (%click1 == $null) {
    if ($?!"Do you want to start setting up RSIRC now?" == $true) {
      steal
      set %steal ok
    }
  }
  if (%steal != ok) {
    set %rsirc $?="What Channel Do You Want To See On RuneScape?"
    //Window -Ban1odeR-l10k0 +d @RSIRC %click1 %click2 %click3 %click4 Tahoma 15
    //Window -Ban1odRk0p +d @Switch 20 545 110 75
    //drawfill @Switch 1 1 5 5
    //drawline @switch 0 1 0 38 110 38
    //drawtext @Switch 0 tahoma 20 5 6 RuneScape
    //drawtext @Switch 14 tahoma 20 6 7 RuneScape
    //drawtext @Switch 0 tahoma 20 5 44 mIRC
    //drawtext @Switch 14 tahoma 20 6 45 mIRC
    join %rsirc
    if ($me ison %rsirc) {
      /aline -p @RSIRC 00-[ $+ $time(HH) $+ : $+ $time(nn) $+ : $+ $time(ss) $+ ]- 00-[You are now in %rsirc $+ 00]-
      makelist %rsirc
    }
    else { /aline -p @RSIRC 00-[ $+ $time(HH) $+ : $+ $time(nn) $+ : $+ $time(ss) $+ 00]- 00-[Couldn't Join %rsirc For Some Reason.00]- }
  }
}
alias mjoin {
  if ($window(@RSIRC) != $null) {
    set %rsirc $iif($left($1,1) != $chr(35),# $+ $1,$1)
    $iif($me ison $1,,join $1)
    if ($me ison %rsirc) {
      echo -at 00-[You are now in $1 $+ 00]-
      var %a = 1
      who $1
      while (%a <= $nick($1,0)) {
        if ($nick($1,%a) isop $1) { var %o = @ }
        if ($nick($1,%a) ishop $1) { var %o = % }
        if ($nick($1,%a) isvoice $1) { var %o = + }
        var %b = %o $+ $nick($1,%a) $+ %b
        inc %a
      }
      echo -at 00-[Nicklist Is: %b $+ 00]-
    }
    else { echo -at 00-[Couldn't Join $1 For Some Reason.00]- }
  }
}

alias whos {
  var %a = 1
  who $1
  while (%a <= $nick($1,0)) {
    if ($nick($1,%a) isop $1) { var %o = @ }
    if ($nick($1,%a) ishop $1) { var %o = % }
    if ($nick($1,%a) isvoice $1) { var %o = + }
    var %b = %o $+ $nick($1,%a) $+  %b
    inc %a
  }
  echo -at 00-[Nicklist on $1 $+ ( $+  $+ $nick($1,0) $+ ): %b $+ 00]-
}
on *:TEXT:*:%rsirc:{
  if ($scon(1).me == $me) {
    if ($window(@RSIRC) != $null) {
      if ($nick isop $chan) { var %o = @ }
      if ($nick ishop $chan) { var %o = % }
      if ($nick isvoice $chan) { var %o = + }
      /aline -p @RSIRC 00-[ $+ $time(HH) $+ : $+ $time(nn) $+ : $+ $time(ss) $+ 00]- < $+ %o $+ $nick $+ > $1-
    }
  }
}
on *:INPUT:%rsirc:{
  if ($left($1,1) == $chr(47)) {
    $($$1-,2)
    halt
  }
  if ($window(@RSIRC) != $null) {
    if ($me isop $chan) { var %o = @ }
    if ($me ishop $chan) { var %o = % }
    if ($me isvoice $chan) { var %o = + }
    /aline -p @RSIRC 00-[ $+ $time(HH) $+ : $+ $time(nn) $+ : $+ $time(ss) $+ 00]- < $+ %o $+ $me $+ > $1-
  }
}
on *:INPUT:@RSIRC:{
  if (+ isin $1 && $1 != +ei) { mode %rsirc $1- }
  if (- isin $1 && $1 != -ei) { mode %rsirc $1- }
  if ($1 == w) {
    HALTDEF
    //whois $2 $2
    halt
  }
  if ($left($1,1) == $chr(47)) {
    $($$1-,2)
    halt
  }
  /scon 1 /msg %rsirc $1-
  if ($me isvoice %rsirc) { var %o = + }
  if ($me ishop %rsirc) { var %o = % }
  if ($me isop %rsirc) { var %o = @ }
  /aline -p @RSIRC 00-[ $+ $time(HH) $+ : $+ $time(nn) $+ : $+ $time(ss) $+ 00]- < $+ %o $+ $me $+ > $1-
}
on ^*:rawmode:%rsirc:{
  if ($scon(1).me == $me) {
    haltdef
    /aline -p @RSIRC 00-[ $+ $time(HH) $+ : $+ $time(nn) $+ : $+ $time(ss) $+ 00]- 00-[ $+ $nick sets mode $1- on %rsirc $+ 00]-
  }
}
on *:NICK:{
  if ($scon(1).me == $me) {
    if ($newnick ison %rsirc) {
      /aline -p @RSIRC 00-[ $+ $time(HH) $+ : $+ $time(nn) $+ : $+ $time(ss) $+ 00]- 00-[ $+ $nick is now known as $newnick $+ ]-
      makelist %rsirc
    }
  }
}
on *:QUIT:{
  if ($scon(1).me == $me) {
    if ($nick ison %rsirc) {
      /aline -p @RSIRC 00-[ $+ $time(HH) $+ : $+ $time(nn) $+ : $+ $time(ss) $+ 00]- 00-[ $+ $nick ( $+ $fulladdress $+ ) has quitted $network $+ . Reason: $1- $+ ]-
    }
  }
}
on *:JOIN:%rsirc:{
  if ($scon(1).me == $me) {
    /aline -p @RSIRC 00-[ $+ $time(HH) $+ : $+ $time(nn) $+ : $+ $time(ss) $+ 00]- $nick ( $+ $fulladdress $+ ) has joined %rsirc
    makelist %rsirc
  }
}
on *:PART:%rsirc:{
  if ($scon(1).me == $me) {
    /aline -p @RSIRC 00-[ $+ $time(HH) $+ : $+ $time(nn) $+ : $+ $time(ss) $+ 00]- $nick ( $+ $fulladdress $+ ) has parted %rsirc $+ . Reason: $1-
    .timer1 1 1 /makelist %rsirc
  }
}
on *:QUIT:{
  if ($scon(1).me == $me) {
    if ($nick ison %rsirc) {
      /aline -p @RSIRC 00-[ $+ $time(HH) $+ : $+ $time(nn) $+ : $+ $time(ss) $+ 00]- $nick ( $+ $fulladdress $+ ) has quitted $network $+ . Reason: $1-
      .timer1 1 1 /makelist %rsirc
    }
  }

}
on *:VOICE:%rsirc:{
  if ($scon(1).me == $me) {
    .timer1 1 1 /makelist %rsirc
  }
}
on *:HELP:%rsirc:{
  if ($scon(1).me == $me) {

    .timer1 1 1 /makelist %rsirc
  }
}
on *:OP:%rsirc:{
  if ($scon(1).me == $me) {

    .timer1 1 1 /makelist %rsirc
  }
}
on *:DEVOICE:%rsirc:{
  if ($scon(1).me == $me) {

    .timer1 1 1 /makelist %rsirc
  }
}
on *:DEHELP:%rsirc:{
  if ($scon(1).me == $me) {

    .timer1 1 1 /makelist %rsirc
  }
}
on *:DEOP:%rsirc:{
  if ($scon(1).me == $me) {

    .timer1 1 1 /makelist %rsirc
  }
}
on *:ACTION:*:%rsirc:{
  if ($scon(1).me == $me) {
    if ($nick isop %rsirc) { var %o = @ }
    if ($nick ishop %rsirc) { var %o = % }
    if ($nick isvoice %rsirc) { var %o = + }
    /aline -p @RSIRC 00-[ $+ $time(HH) $+ : $+ $time(nn) $+ : $+ $time(ss) $+ 00]- * %o $+ $nick $1-
  }
}
alias makelist {
  var %i = 1 $+ $chr($asc([)) $+ - $nick($1,0) $+ $chr($asc(]))
  /dline -l @RSIRC %i
  var %a = 1
  while (%a <= $nick($1,0)) {
    if ($nick($1,%a) isreg $1) {
      var %o = 10
      /aline -l @RSIRC %o $+ $nick($1,%a) $+ 
    }
    if ($nick($1,%a) isvoice $1) {
      var %o = 12+
      /aline -l @RSIRC %o $+ $nick($1,%a) $+    
    }
    if ($nick($1,%a) ishop $1) {
      var %o = 7%
      /aline -l @RSIRC %o $+ $nick($1,%a) $+ 
    }
    if ($nick($1,%a) isop $1) {
      var %o = 4@
      /aline -l @RSIRC %o $+ $nick($1,%a) $+ 
    }
    inc %a
  }
}
on *:CLOSE:@RSIRC:{
  unset %rsirc
}


menu @screen {
  sclick:/cclik $mouse.x $mouse.y
  Set Aupacity:{
    set %sl $iif($?="Opacity level (0-255) [Currently $iif(%sl,%sl,255) $+ /255 $+ ]" != $null,$v1,125)
    setlayer %sl @screen
  }
}

;;130 545 516 164;;


alias -l cclik {
  if (%click == $null) {
    inc %click 2
    set %click1 $gettok($1-, 1, 32)
    set %click2 $gettok($1-, 2, 32)
    halt
  }
  if (%click == 2) {
    inc %click
    set %click3 $calc($1 - %click1)
    halt
  }
  if (%click == 3) {
    inc %click
    set %click4 $calc($2 - %click2)
    rsirc
  }
  close -@screen
  set %steal duh
  rsirc
}
alias steal {
  window -k0pdo +d @screen 0 0 $window(-1).w $window(-1).h
  setlayer 200 @screen
  drawtext @screen 1 tahoma 40 20 100 1. Alt Tab To The RuneScape Window.
  drawtext @screen 1 tahoma 40 20 150 2. Pick The Three Corners Of The
  drawtext @screen 1 tahoma 40 65 200 RuneScape ChatBox.
  drawline @screen 1 5 220 300 220 450
  drawline @screen 1 5 220 300 700 300
  drawline @screen 1 5 700 300 700 450
  drawline @screen 1 5 220 450 700 450
  drawtext @screen 1 tahoma 25 425 365 Exemple
  drawtext @screen 1 tahoma 25 218 260 1
  drawtext @screen 1 tahoma 25 690 260 2
  drawtext @screen 1 tahoma 25 218 463 3
}