Jump to content

Archived

This topic is now archived and is closed to further replies.

chain

mIRC System Addon 3.7 final @by BooM

Recommended Posts

  • Administrators

on *:join:#: {
  if ($nick != $me) {
    if (%clonescan == 1) { clone_scan $nick $chan }
    if (%whoscan == 1) {
      var %NickMatch = $Check($site)
      if ((%NickMatch != $nick) && (%NickMatch != $null) && ($ial($address($nick,2),0) == 1)) {
        echo -t $chan 10¬ (NICK) nick wurde gewechselt !!! 9 $nick 10war vorher als $Check($site) auf $network unterwegs !!!
      }
    }
  }
}
on *:part:#: { if ($nick != $me) && (%whoscan == 1) && ($site) { writeini -n "nicks.ini" Hosts $site $nick | CLimit } }
on *:nick: { if ($nick != $me) && (%whoscan == 1) && ($site) { writeini -n "nicks.ini" Hosts $site $nick | CLimit } }
on *:kick:#: { if ($knick != $me) && (%whoscan == 1) && ($site) { writeini -n "nicks.ini" Hosts $site $nick | CLimit } }
on *:quit: { if ($nick != $me) && (%whoscan == 1) && ($site) { writeini -n "nicks.ini" Hosts $site $nick | CLimit } }
alias Check { var %nickCheck = $readini "nicks.ini" Hosts $1 | return %nickCheck }
alias CLimit { if ($file(nicks.ini).size > 600000) .write -c "nicks.ini" }
alias clone_scan {
  if ($nick($2,0) < 500) && ($1 ison $2) {
    var %ni = $1, %a = $address($1,2), %i = 1, %cl2 = 1
    while (%i <= $nick($2,0)) {
      if (%a == $address($nick($2,%i),2)) && (%ni != $nick($2,%i)) {
        var %cl = %cl $nick($2,%i) und
        inc %cl2 1
      }
      inc %i 1
    }
    if (%cl2 > 1) { echo -t $chan 10¬ (CLONES) clones im channel $chan ! %ni und $deltok(%cl,$numtok(%cl,32),32) sind Clones ! }
  }
}
on ^*:JOIN:#:{
  if ($gettok($readini("mirc.ini",events,default),1,44) != 2) { echo -t $iif($gettok($readini(mirc.ini,events,default),1,44) == 0,$chan) $+(,$color(join),,$chr(32),$strip($hget(theme,nickstylel),cb),JOIN,$strip($hget(theme,nickstyler),cb)) $iif($nick != $me,$strip($hget(theme,nickstylel),cb) $+ $nick $+ $strip($hget(theme,nickstyler),cb) ( $+ $address $+ ) hat,du hast) $chan betreten! $iif($nick != $me,$chr(91) $+ $nick(#,0) $+ $chr(93)) }
  haltdef
}
on ^*:PART:#:{
  if ($gettok($readini("mirc.ini",events,default),2,44) != 2) { echo -t $iif($gettok($readini(mirc.ini,events,default),2,44) == 0,$chan) $+(,$color(part),,$chr(32),$strip($hget(theme,nickstylel),cb),PART,$strip($hget(theme,nickstyler),cb)) $iif($nick != $me, $+ ( $+ $nick $+ ) ( $+ $address $+ ) hat,du hast) $chan verlassen! $iif($1-,$+($chr(40),$1-,$chr(41))) }
  haltdef
}
on ^*:QUIT:{
  if ($nick != $me) && ($gettok($readini("mirc.ini",events,default),3,44) != 3) {
    if ($query($nick)) { echo -t $query($nick) $+(,$color(quit),,$chr(32),$strip($hget(theme,nickstylel),cb),QUIT,$strip($hget(theme,nickstyler),cb)) $strip($hget(theme,nickstylel),cb) $+ $nick $+ $strip($hget(theme,nickstyler),cb) ( $+ $address $+ ) hat $network verlassen: ( $+ $1- $+ ) }
    if ($gettok($readini(mirc.ini,events,default),3,44) == 1) || ($gettok($readini(mirc.ini,events,default),3,44) == 2) { echo -st $+(,$color(quit),,$chr(32),$strip($hget(theme,nickstylel),cb),QUIT,$strip($hget(theme,nickstyler),cb)) $strip($hget(theme,nickstylel),cb) $+ $nick $+ $strip($hget(theme,nickstyler),cb) ( $+ $address $+ ) hat $network verlassen! $iif($1-,( $+ $1- $+ )) }
    if ($gettok($readini(mirc.ini,events,default),3,44) == 0) || ($gettok($readini(mirc.ini,events,default),3,44) == 2) {
      var %i = $comchan($nick,0)
      while (%i) { echo -t $comchan($nick,%i) $+(,$color(quit),,$chr(32),$strip($hget(theme,nickstylel),cb),QUIT,$strip($hget(theme,nickstyler),cb)) $strip($hget(theme,nickstylel),cb) $+ $nick $+ $strip($hget(theme,nickstyler),cb) ( $+ $address $+ ) hat $network verlassen! $iif($1-,( $+ $1- $+ ))
        dec %i 1
      }
    }
  }
  haltdef
}
on *:TEXT:*:#: { 
  if ($me isin $1-) && ($active != $chan) { 
    echo -a %l  10¬ (HIGHLIGHT)  11 $+ $nick 10Schreibt: $1- %r 14( $+ $chan 10«»14 $network $+ 14)
  } 
}
on ^*:notice:*:*:{
  echo -at $chr(160) 10 (NOTICE) 11 $+ $nick 10Schreibt:  $iif($1-, $1-  )  14( $+ $network $+ 14)   | haltdef 
}
on ^*:rawmode:*:{ echo -t $chan $iif($hget(theme,thzwz),$ifmatch) $+(,$color(mode),») $nick setzt mode: $1- | haltdef }
on ^*:NICK:{ var %i = $comchan($newnick,0) | while (%i) { echo -t $comchan($newnick,%i) $iif($nick == $me, 10 du hast deinen nicknamen in,10 $nick hat seinen/ihren nicknamen in)  $newnick geändert.. | dec %i 1 } | haltdef }
on ^*:INVITE:*:{ echo -at 10¬ (INVITE) 10 $+ $nick lädt dich ins $chan auf $network ein | haltdef }
on *:CONNECT: /window -vmg1 @Notice | /log on @Notice -f %mircdir%\logs\Notice.txt
on *:NOTICE:*:*: /window -ng1 @Notice | /echo @Notice $timestamp 10¬ (NOTICE) 11 $+ $nick 10Schreibt:  $iif($1-, $1-  )  14( $+ $network $+ 14) 
on *:FILESENT:*.*:{ echo -a ¬ (DCC) Senden war 9erfolgreich.. | .notice $nick 10Viel spass mit 4-->11 $nopath($filename) 4<-- | haltdef }
on *:SENDFAIL:*.*:{ echo -a ¬ (DCC) Senden war 4NICHT erfolgreich !!! | .notice $nick 10I´m so sorry. Ich versuchs gleich nochmal | haltdef }
on *:FILERCVD:*.*:{ .notice $nick 10¬ (DCC) 10Thx for 4-->11 $nopath($filename) 4<-- | haltdef }
on *:GETFAIL:*.*:{ .notice $nick 10¬ (DCC) 10Ohhh. Dein Versuch mir11 $nopath($filename) 10zu schicken ist 4fehlgeschlagen10. Versuche es bitte nocheinmal | haltdef }
ctcp ^*:ping:*: { .ctcpreply $nick PING | echo -a ¬ (PING)  $nick auf $network  | haltdef }
ctcp ^*:VERSION:*: { .ctcpreply $nick VERSION   | haltdef }
ctcp ^*:time:*: { .ctcpreply $nick TIME | echo -a  ¬ (TIME)  $nick auf $network  | haltdef }
ctcp ^*:sound:*: { .ctcpreply $nick SOUND | echo -a  ¬ (SOUND)  $nick auf $network  | haltdef }
ctcp ^*:finger:*: { .ctcpreply $nick FINGER | echo -a  ¬ (FINGER)  $nick auf $network  | haltdef }
ctcp ^*:LAG:*:{ .ctcpreply $nick LAG %zlag.current Sekündelchen | echo -a  ¬ (LAG)  $nick auf $network  | haltdef }
raw 367:*:{ if (%bl == 1) { haltdef } }
raw 368:*:{ if (%bl == 1) { haltdef } }
raw 306:*:{ echo -ts * Und ab dafür. Du bist nun away | haltdef }
raw 305:*:{ echo -ts * Du bist nun wieder zurückgekehrt | haltdef }
raw 333:*: { echo -t $2 $+(,$color(topic),**) gesetzt von: $3 am: $asctime($4,dd.mm.yyyy) um: $asctime($4,hh:nn) uhr | haltdef }
raw 433:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Nick bereits vorhanden | haltdef }
raw 432:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Fehlerhafter Nick | haltdef }
raw 401:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Kein solcher Nick / Channel | haltdef }
raw 438:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Unerlaubtes Wort / Wörter | haltdef }
raw 461:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Zuwenig Parameter | haltdef }
raw 465:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Server Ban | haltdef }
raw 471:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Du kanst den channel nicht betreten da mode +l 14(begrenzte userzahl) | haltdef }
raw 473:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Channel auf invite (mode +i) | haltdef }
raw 474:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Du kanst den Channel nicht betretten, weil du unerwünscht bist (mode +b) | haltdef }
raw 475:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Du kannst den channel ohne Passwort nicht betreten (mode +k) | haltdef }
raw 482:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Du hast keine Operator-Rechte in diesem Channel  | haltdef }
raw 481:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb überlass das mal lieber den Profis. Du bist kein IrcOP. | haltdef }
raw 491:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Hör auf zu träumen. Du bist kein Ircop | haltdef }
raw 408:*:{ echo -a  $+ %cola  ¬ (FEHLER)   $+ %colb Du kannst keine Farben in $2 senden | haltdef } 
raw 332:*: { 
  if ($regex($3-,/^\(+OK|mcps)\s(.*)$/)) {
    echo -t $2 $+(,$color(topic),$+(,$color(highlight),:,,$color(topic)),**) topic: $+(',$iif($hget(chprot,$+($2,_cryption)) == 1 && $hget(chprot,$+($2,_crypt)) && $hget(crypt,mk),$decrypt($2,$regml(1)),$3-),,$color(topic),') 
  }
  else { echo -t $2 $+(,$color(topic),*) topic: $+(',$3-,,$color(topic),') }
  haltdef 
}
raw 301:*: {
  echo -a (Away)  $+ $3- 
  halt
}
raw 307:*: {
  echo -a (Registred)  $+ Yes 
  halt
}
raw 310:*: {
  echo -a (IRC Helper)  $+ Yes
  halt
}
raw 311:*: {
  echo -a 
  echo -a (Username)  $+ $6-
  echo -a (vHost)  $+ $3 $+ @ $+ $4 
  halt
}
raw 378:*: {
  echo -a (Localhost)  $+ $6  
  echo -a (IP)  $+ $7 
  halt
}
raw 379:*: {
  echo -a (Usermodes)  $+ $6- 
  halt
}
raw 671:*: {
  echo -a (Secure connection)  $+ Yes 
  halt
}
raw 312:*: {
  echo -a (Network)  $+ $network
  echo -a (Serve)  $+ $3 
  echo -a (Description)  $+ $4- 
  halt
}
raw 313:*: {
  echo -a (Network Rank)  $+ $5- 
  halt
}
raw 319:*: {
  echo -a (Channels)  $+ $Replace($3-,~,~,&,&,@,@,%,%,+,+)
  halt
}
raw 317:*: {
  echo -a (Signed ON)  $+ $asctime($4,dddd mm/dd/yyyy HH:nn'tt) 
  echo -a (Idle)  $duration($3) 
  echo -a (Total Online Time)  $+ $duration($calc($ctime - $4)) 
  halt
}
raw 335:*: { 
  echo -a (Bot)  $+ Yes
  halt
}
menu @Notice {
  • clear:clear @Notice
  -
  • fenster schließen:window -c @Notice
}

03:46:45) (JOIN) du hast #DLXREC betreten!

(03:46:45) * topic: ' ┌∩┐ (◣_◢) ┌∩┐ #DLXREC - mIRC Gangstar Treffpunkt - By @Roger123 u. Chrisnix89 ┌∩┐ (◣_◢) ┌∩┐ PartnerHomepage: http://www.rh-welt.de/portal.php '

(03:46:45) ** gesetzt von: Chrisnix89 am: 18.03.2012 um: 04:34 uhr

(03:46:45) (NOTICE) SexyCora Schreibt: [#DLXREC] Welcome to #DLXREC (ladysclub-irc)

(03:46:45) » LimitServ setzt mode: +l 21

Link to comment
Share on other sites



×
×
  • Create New...