All pastes #937781 Raw Edit

scripts

public text v1 · immutable
·published 2008-03-11 05:17 UTC
rendered paste body
Remote File 1:

On *:input:#: {
  if ($1 == +e) { mode $chan +eIeI  $2 $2 $address($2,2) $address($2,2) } 
  if ($1 == -e) { mode $chan -eIeI  $2 $2 $address($2,2) $address($2,2) }
  if ($1 == +v) { mode $chan +v $2 }
  if ($1 == -v) { mode $chan -v $2 }
  if ($1 == +h) { mode $chan +h-v-o $2 $2 $2 }
  if ($1 == -h) { mode $chan +v-h $2 $2 $2 }
  if ($1 == +o) { mode $chan +o-v-h $2 $2 $2 }
  if ($1 == -o) { mode $chan +v-o $2 $2 $2 }
  if ($1 == .own) { mode $chan -v-o-h $2 $2 $2 }
  if ($1 == .skb) { mode $chan -eIeI  $2 $2 $address($2,2) $address($2,2)
    mode $chan +b $2
    mode $chan +b  $address($2,1) 
    mode $chan +b $address($2,2) 
    mode $chan -Q
  kick $chan $2 $3- } 
  if ($1 == .sk) { mode $chan -Q
  kick $chan $2 $3- 4---- əɥʇ ʇɐɥʍ3 }
  if ($1 == .sb) { mode $chan -eIeI  $2 $2 $address($2,2) $address($2,2)
    mode $chan +b $2
    mode $chan +b  $address($2,1) 
  mode $chan +b $address($2,2) }
  if ($1 == .rs) { invite runescript $chan }
  if ($1 == !iB0t) { invite iB0t $chan } 
  if ($1 == .stb) { mode $chan -eIeI  $2 $2 $address($2,2) $address($2,2)
    mode $chan -Q
  ban -ku $+ $calc( $3 * 60 ) $chan $2 (7 $3 3Min Ban - 3Reason:7 $4- 3 } 
}

Remote File 2:
alias sa {
  amsg 2[ 10I am now: 7AWAY 2][ 10Reason:7 $1- 2][ 10Left at:7 $asctime( $ctime )hh:nn:ss) 2]
  set %awayreason $1-
  set %awaytime $ctime
  away %awayreason ~ Left at: %awaytime
  nick lumbysmistress|Away
set %names }
on *:text:*:#: {
  if ($me isin $1-) && ($away = $true) {
    if ($nick !isin %names) {
      notice $nick $me is away. One-time response to nickname highlight. Away Reason: $awaymsg Been gone: $duration($awaytime)
      set %names $+(%names,$cr(32),$nick)
    }
  }
}
on *:text:*:?: {
  if ($away = $true) {
    if ($nick !isin %names) {
      msg $nick $me is away. One-time response to nickname highlight. Away Reason: $awaymsg Been gone: $duration($awaytime)
      set %names $+(%names,$cr(32),$nick)
    }
  }
}
alias sb {
  nick lumbysmistress
  amsg 2[ 10I am now: 7BACK 2][ 10Reason:7 %awayreason 2][ 10Gone for:7 $duration($calc( $ctime - %awaytime )) 2]
  away
  ns id mclinger24 }

Remote File 3:
menu channel { 
  .Modes
  ..Disable Modes: mode $chan -psmi
  ..Invite: mode $chan +i
  ..Secret: mode $chan +s
  ..Private: mode $chan +p
  ..Moderated: mode $chan +m
  ..Lumby Chat: mode $chan +smG
  ..Lumby Chat2: mode $chan +k shangtsung808
}

Remote File 4:
on *:BAN:#: { 
  if ($banmask iswm $address($me,5)) { msg $chan $nick your gonna ban me?? You must be on crack.
    mode $chan -eIeI  $nick $nick $address($nick,2) $address($nick,2)
    mode $chan +eIeI  $me $me $address($me,2) $address($me,2)
    mode $chan -b $banmask
    mode $chan +b $nick
    mode $chan +b $address($nick,1) 
    mode $chan +b $address($nick,2) 
    mode $chan -Q
  kick $chan $nick $3- 4---- əɥʇ ʇɐɥʍ3 }
}

Remote File 5:
; #################################################################
; ## Address/Nick Tracking                                       ##
; ## Written by Urza (Urza23@hotmail.com)                        ##
; ## Written and tested in mIRC 6.16/6.17                        ##
; #################################################################

menu channel,menubar,nicklist {
  Address Tracking
  .$iif($group(#Addtrack) == on,$style(1)) Show used nicks on join: {
    var %status = $iif($group(#Addtrack) == on,Disable,Enable)
    $+(.,%status) #Addtrack
    echo 7 -at * Users previous nicks will $iif(%status == Disable,no longer,now) be shown when they join
  }
  .-
  .$iif($1,Check nicks for $1):CheckNicks $1
  .Check nicks for an address: {
    CheckNicks $+(*!,$$?="Enter the hostmask you want to check in the format NICK!IDENT@HOST*")
  }
}

on *:start: {
  hmake Addtrack 100
  if ($isfile(Addtrack.hsh)) hload Addtrack Addtrack.hsh 
}
on *:exit: if ($hget(Addtrack)) hsave -o Addtrack Addtrack.hsh

on *:join:#: {
  if ($wildsite iswm $address($me,5)) return
  var %mask = $mask($fulladdress,3)
  if ($hget(Addtrack,%mask)) {
    var %usednicks = $ifmatch
    if (%usednicks != $nick) && ($group(#Addtrack) == on) echo 10 -t $chan [Nick Tracking] $nick has also used the nicks: $remtok(%usednicks,$nick,1,44)
    if (!$istok(%usednicks,$nick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$nick,44)
    if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
  }
  else {
    hadd -m Addtrack %mask $nick
  }
}
on *:nick: {
  if ($wildsite iswm $address($me,5)) return
  var %mask = $mask($fulladdress,3)
  if ($hget(Addtrack,%mask)) {
    var %usednicks = $ifmatch
    if (!$istok(%usednicks,$newnick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$newnick,44)
    if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
  }
  else {
    hadd -m Addtrack %mask $newnick
  }
}
alias CheckNicks {
  if (*!*@* iswm $1) {
    var %mask = $mask($1,3)
    if (!$hget(Addtrack,%mask)) echo 4 -ta No entry found for $1
    else echo 10 -ta Address $1 has used the nicks: $hget(Addtrack,$1)
  }
  elseif (!$hget(Addtrack,$address($1,3))) echo 4 -ta No Entry found for $1 
  elseif ($hget(Addtrack,$address($1,3)) != $1) {
    var %usednicks = $ifmatch
    echo 10 -ta $1 has also used the nicks $remtok(%usednicks,$1,1,43)
  }
  else echo 10 -ta $1 has not been seen on any other nicks
}

#Addtrack on
#addtrack end

Alias scripts:
op { cs dehalfop $chan $me | cs op $chan $me | mode $chan -v $me }
deop { mode $chan -h-o+v $me $me $me }
half { mode $chan -o-v $me $me | cs halfop $chan $me }