View

TextView

Snippet Author: Korvin
Rated:

Snippet Description: Just load into remotes, and watch it go =] changed a bunch of crap youll see its more of a theme now.

alias amsg { set %ams $1- | dialog -m amsgch amsgch }
alias amsg2 {
  if (%ams) {
    Var %x = 1, %y = $Chan(0)
    Var %z = %amsgch
    While (%x <= %y) {
      If ($Chan(%x) !isin %z) {
        Msg $Chan(%x) 14 $+(»,$enick2(Amsg),» $enick1($1-) «,$enick2(Amsg),«)
      }
      Inc %x
    }
    unset %ams
  }
}
dialog Amsgch {
  title Manage Amsg Chans
  size -1 -1 300 130
  option pixels
  text Current Channels Not Messeged (seperate with a space):, 1, 10 1 280 20
  edit $(%amsgch), 2, 10 15 280 40, multi
  text Messege:, 3, 10 55 280 15 
  edit $($strip(%ams)), 4, 10 73 280 30, disabled
  button ok, 5, 10 110 88 20, default
  button cancel, 6, 202 110 88 20, ok
}
on *:DIALOG:amsgch:sclick:5: { set %amsgch $did($dname,2) | dialog -x amsgch | amsg2 %ams }
on *:DIALOG:amsgch:sclick:6: { unset %ams }
on *:NOTICE:*Channel msg/noticeflood detected (limit is 10*:*: { timer 1 5 /mode #thetrivia -m }
on *:START: {
  timestamp -f 13ddd 14-13 hh:nn:ss TT
  /timer 1 10 innnit
}
raw *:*: { 
  if (is a Bot on isin $1-) {
    echo -a  $+ $enick2(Whois) $enick($2) is a bot ( $+ $enick($7) $+ ) 
  }
  if (cgi isin $1-) {
    echo -a  $+ $enick2(Whois) $enick($2) is using CGI IRC
  }
  if ($numeric isnum 401-402) {
    echo -a 4==14=============7=14=========7=14=========4Whois14=========7=14=========7=14==============4==
    echo -a  $+ $enick2(Whois) No such nick: $enick($2)
    echo -a 4==14=============7=14=========7=14======4End Of Whois14======7=14=========7=14=============4== 
    halt
  }
  if ($numeric == 332) { if ($me ison $2) { echo -e $2 4T14opic $echan($2) $3- ] } }
  if ($numeric == 333) {
    if ($me ison $2) {
      echo -e $2  $+ $enick2(Topic) Set by: $enick2($3,$2) on $asctime($4,$+(dddd,$chr(44)) mmmm yyyy) at $asctime($4,h:nn tt)
    }
  }
  if ($numeric == 319) { echo -a  $+ $enick2(Whois) $enick($2) is on $replace($3-,@,4@14,%,7%14,+,12+14) }
  if ($numeric == 324) { if ($me ison $2) { echo $2  $+ $enick2(Chan) $echan($2) Mode 4(14 $+ $enick($3-) $+ 4) } }
  if ($numeric == 325) echo -a  $+ $enick2(Whois) $enick($2) is now identified 
  if ($numeric == 328) { if ($me ison $2) { echo $2  $+ $enick2(Chan) $echan($2) URL: 4(14 $+ $$3- $+ 4) } }
  if ($numeric == 329) { if ($me ison $2) { echo $2  $+ $enick2(Chan) $echan($2) Built on $asctime($3,$+(dddd,$chr(44)) mmmm yyyy) at $asctime($3,h:nn tt) } }
  if ($numeric == 301) echo -a  $+ $enick2(Whois) $enick($2) is away  
  if ($numeric == 305) echo -a  $+ $enick2(Away) You are now back. 
  if ($numeric == 306) echo -a  $+ $enick2(Away) You are now away. 
  if ($numeric == 310) echo -a  $+ $enick2(Whois) $enick($2) looks very helpfull 
  if ($numeric == 307) echo -a  $+ $enick2(Whois) $enick($2) is identified 
  if ($numeric == 313) echo -a  $+ $enick2(Whois) $enick($2) is an IRCop 
  if ($numeric == 381) echo -ae  $+ $enick2(IRCop) You are now an IRCop! 
  if ($numeric == 311) { 
    set -u5 %x 1
    echo -a 4==14=============7=14=========7=14=========4Whois14=========7=14=========7=14==============4==
    echo -a  $+ $enick2(Whois) $enick($2) is $enick($3-) 
  }
  if ($numeric == 378) echo -a  $+ $enick2(Whois) $enick($2) $+ 's host: $6 | haltdef
  if ($numeric == 318) {
    if (%x) {
      echo -a 4==14=============7=14=========7=14======4End Of Whois14======7=14=========7=14=============4== 
      unset %x
    } 
  }
  if ($numeric == 312) echo -a  $+ $enick2(Whois) $enick($2) is using $3- 
  if ($numeric == 317) echo -a  $+ $enick2(Whois) $enick($2) has been idle $replace($duration($duration($3-)),wk,$chr(32) $+ Week,mins $+ $chr(32),$chr(32) $+ Minutes and $+ $chr(32),min $+ $chr(32),$chr(32) $+ Minute and $+ $chr(32),sec,$chr(32) $+ Second,day,$chr(32) $+ Day,hr,$chr(32) $+ Hour) and online for $replace($duration($calc($ctime - $4)),wk,$chr(32) $+ Week,mins $+ $chr(32),$chr(32) $+ Minutes and $+ $chr(32),min $+ $chr(32),$chr(32) $+ Minute and $+ $chr(32),sec,$chr(32) $+ Second,day,$chr(32) $+ Day,hr,$chr(32) $+ Hour) 
  haltdef
}
on *:LOAD: { 
  innnit
  tokenize 46 * 4 ~&@.* 7 % .* 2 +.* 10.on | .cnick $*
  set %amsgch #irchelp
}
alias innnit {

.timestamp on
  timestamp -f 13ddd 14-13 hh:nn:ss TT
  font -z courier new
  color 1 16777215
  color 0 000000
  color listbox 0
  color background 0
  color treebar 0
  color editbox 0
  color inactive 1
  color editbox text 15
  color action 6
  color ctcp 4
  color highlight 1
  color listbox text 10
  color gray 14
  color title 6
  color info 1
  color info2 3
  color invite 3
  color join 3
  color kick 3
  color mode 3
  color nick 3
  color normal 1
  color notice 5
  color notify 7
  color other 6
  color own 1
  color part 3
  color quit 8
  color topic 3
  color wallops 5
  color whois 1 
  color treebar text 14
}
alias isowner {
  if ($isid) return $iif($nick($1,$2,q) || $istok($ial($2).mark,$1,32),$true,$false)
  .ialmark $2 $($+($,$3,tok($ial($2).mark,$1,32)),2)
}
on *:join:#:{ isowner # $nick rem }
on *:owner:#:{ isowner # $opnick add }
on *:deowner:#:{ isowner # $opnick rem }
raw 386:*:{ isowner $2- add }
alias isadmin {
  if ($isid) return $iif($nick($1,$2,$mid($prefix,$pos($nickmode,a),1)) || $istok($ial($2).mark,a $+ $1,32),$true,$false)
  .ialmark $2 $($+($,$3,tok($ial($2).mark,a $!+ $!1,32)),2)
}
on ^*:BAN:*: {
  echo -t $chan $+(,$enick2(Ban) $echan($chan),$enick2($banmask,$chan) has been banned by $enick2($nick,$chan))
  halt
}
on ^*:unBAN:*: {
  echo -t $chan $+(,$enick2(UnBan) $echan($chan),$enick2($banmask,$chan) has been unbanned by $enick2($nick,$chan))
  halt
}
On ^*:RAWMODE:#:{
  if ($1 != +b && $1 != -b) {
    echo -t $chan $+(,$enick2(Mode) $echan($chan),$enick2($nick,$chan) sets $1-,14)
    haltdef
  } 
}
on ^*:TOPIC:*: {
  echo -te $chan $+(,$enick2(Topic) $echan($chan),$enick2($nick,$chan) has changed the topic.,14) 
  echo -te $chan $+(1<14,$1-,1>)
  haltdef
}
on ^*:notice:*:?: {
  haltdef
  echo $iif($nick != trivbot,-at,-t #thetrivia) $+(,$enick2(Notice) 6,$chr(40),4,$enick($nick),6,$chr(41) 14,$1-,)
}
on ^*:BAN:*: {
  echo -t $chan $+(,$enick2(Ban) $echan($chan),$enick2($iif($bnick == $null,$banmask,$bnick),$chan) has been banned by $nick $+($chr(40),$banmask,$chr(41)))
  haltdef
}
on ^*:kick:*: {
  haltdef
  echo -t $chan $+(,$enick2(Kick) $echan($chan),$enick($knick,$chan) was kicked by $enick($nick,$chan) $+($chr(40),1,$1-,14,$chr(41)))
}
on ^*:PART:#: {
  haltdef
  echo -t $chan $+(,$enick2(Part) $echan($chan),$enick2($nick,$chan) has left $iif($1,$+($chr(40),1,$1-,14,$chr(41))))
}
on ^*:nick: {
  haltdef
  var %a = 1 
  while ($comchan($newnick,0) >= %a) { 
    echo -t $comchan($newnick,%a) $+(,$enick2(Nick),$enick2(Change) 6,$chr(40),$enick2($nick,$chan),6,$chr(41),14 is now known as 6,$chr(40),14,$enick2($newnick,$chan),6,$chr(41))
    inc %a 
  }
}
on ^*:ACTION:*:*: {
  haltdef
  echo -t $iif($chan,$chan,$nick) $+(,$enick2(Action) $echan($target) $chr(3),6,$enick3($nick,$target,-a) $+ $chr(3),6 $1-)
}
on ^*:quit: {
  haltdef
  var %a = 1 
  while ($comchan($nick,0) >= %a) { 
    var %chan = $comchan($nick,%a)
    echo -t %chan $+(,$enick2(Quit) $echan(%chan),$enick2($nick,%chan) has quit. $iif($1,$+(6,$chr(40),14,$1-,6,$chr(41))))
    inc %a 
  } 
}
alias echan { return $+($+($chr(3),6),$chr(40),$regsubex($1,/^(.)/,$+($chr(3),4,$chr(31),\t,$chr(3),14,$chr(31))),$+($chr(3),6),$chr(41)) }
alias enick { return $regsubex($1,/^(.)/,$+($chr(3),4,$chr(31),\t,$chr(3),14,$chr(31))) }
alias enick1 { return $regsubex($1-, /(?<=^| )(.)/g, $chr(3) $+ 04\t $+ $chr(3) $+ 14) }
alias enick2 { 
  return $+($chr(3),14,$iif($1 isop $2,$+($chr(3),4,@,$chr(3),4),$&
    $iif($1 ishop $2,$+($chr(3),7,%,$chr(3),4),$iif($1 isvoice $2,$&
    $+($chr(3),12,+,$chr(3),4)))),$+($chr(3),4),$replace($regsubex($1-,/^(.)/,$+($chr(3),4,$chr(31),\t,$chr(3),$iif($3 == -a,6,14),$chr(31))),[,$+($chr(3)$&
    ,4,[,$chr(3),4),],$+($chr(3),4,],$chr(3),14))) 
}
alias enick3 { 
  return $+($chr(3),14,$iif($1 isop $2,$+($chr(3),4,@,$chr(3),4),$&
    $iif($1 ishop $2,$+($chr(3),7,%,$chr(3),4),$iif($1 isvoice $2,$+($chr(3),12,+,$&
    $chr(3),4)))),$+($chr(3),4),$replace($regsubex($1,/^(.)/,$+($chr(3),4,$chr(31),\t,$chr(3),14,$chr(31))),[,$+($chr(3)$&
    ,4,[,$chr(3),4),],$+($chr(3),4,],$chr(3),14)))  
}
on ^*:join:#: {
  haltdef
  echo -t $chan $+(,$enick2(Join) $echan($chan),$enick2($nick,$chan) has Joined))
}
on ^*:notice:*:#: {
  haltdef
  echo -t $chan $+(6,$echan($chan),$chr(40),$enick2($nick,$chan),6,$chr(41) 14,$1-,)
}
on ^*:TEXT:*:?: { 
  echo -mt $nick 14<14 $+ $nick $+ >11 $replace($1-,$me,$+(4,$strip($me),11)) 
  haltdef
}
on ^*:TEXT:*:#: {
  haltdef
  echo -t $chan $&
    $iif($isowner($chan,$nick) == $true,$+(6<4•14,$nick,6>14),$&
    $iif($isadmin($chan,$nick) == $true,$+(6<4*1,$nick,6>3),$&
    $iif($nick isop #,$+(6<14@4,$nick,6>4),$&
    $iif($nick ishop #,$+(6<7%,$nick,6>7),$&
    $iif($nick isvoice #,$+(6<1+12,$nick,6>1),$+(6<10,$nick,6>10))))))) $&
    $1-
}
on 1:INPUT:?: { 
  if (!$server) { echo -at $+(6,$chr(40),4,$,noob 1==4 $me,6,$chr(41) 14Connect to a server.. duh?) | halt }
  if ($left($1,1) == /) { return | HALT }
  if ($left($1,1) == >) { notice $remove($1,>) $$2- | HALT }
  var %1-  $right($1,-1)
  var %firstletter $left($1,1)
  var %firstletter2 $upper( $+ %firstletter $+ )
  .echo -at 116<14 $+ $me $+ 6>14 $replace($upper($left($1,1)) $+ $right($1-,-1),$me,$+(4,$me,14))
  haltdef
  .msg $active $replace($upper($left($1,1)) $+ $right($1-,-1),$me,$+(4,$me,14))
}
on *:input:#: { 
  if (!$server) { echo -at $+(6,$chr(40),4,$chr(40)14,$me,6,$chr(41) 4Connect to a server.. duh?) | HALT }
  if ($left($1,1) == /) { return | HALT }
  if ($left($1,1) == >) { notice $remove($1,>) $$2- | HALT }
  haltdef
  if ($left($strip($1,burc),1) == + || $left($strip($1,burc),1) == -) && ($mid($strip($1,burc),2,1) isin $nickmode || $mid($strip($1,burc),2,1) isin $chanmodes) {
    haltdef
    say $1-
    var %l = $calc($len($1)-1) 
    var %x 2, %z $iif($2,$2,$me)
    while (%z) {
      if (%z ison #) { $iif(o isincs $usermode,samode,mode) # $strip($1,burc) $str(%z $chr(32),%l) }
      else {
        var %n = $nick(#,0)
        while (%n) {
          if ($replace(%z,[,<,],>,$chr(92),Ż) isin $replace($nick(#,%n),[,<,],>,$chr(92),Ż)) {
            mode # $strip($1,burc) $str($nick(#,%n) $chr(32),%l)
            var %n 1
          }
          dec %n
        }
      }
      inc %x
      var %z $ [ $+ [ %x ] ]
    }
    halt
  }
  if ($1 == ei) {
    /mode $chan +IIIIIIIeeeeeee $address($me,2) $address($me,1) $address($me,3) $&
      $address($me,4) $address($me,5) $address($me,6) $address($me,98) $address($me,2) $&
      $address($me,1) $address($me,3) $address($me,4) $address($me,5) $address($me,6) $address($me,98)
    haltdef 
    halt
  }
  .msg $chan $upper($left($1,1)) $+ $right($1-,-1)
  echo -t $chan $&
    $iif($isowner($chan,$me) == $true,$+(6<4•14,$me,6>14),$&
    $iif($isadmin($chan,$me) == $true,$+(6<4*1,$me,6>3),$&
    $iif($me isop #,$+(6<14@4,$me,6>4),$&
    $iif($me ishop #,$+(6<7%,$me,6>7),$&
    $iif($me isvoice #,$+(6<2+,$me,6>2),$+(6<10,$me,6>10))))))) $&
    $upper($left($1,1)) $+ $right($1-,-1)
  haltdef 
  halt
}

Favorite Script -

Korvin

Comments:
really old version.. wow. ill update.

Posted by: Korvin

Korvin

Comments:
checkit out

Posted by: Korvin

Smilies	Message:
	Comments:

X-Static Codes

Search

Scripting

Links

Sponsors

Stats

View

TextView