;Script format

;  $regml(1) = Version (dm/com/nl/tr)

;  $regml(2) = Rank integer (1 = Empty Suit, 10 = Assasin etc), made for comparing highranks

;  $regml(3) = (A), for akill, (BF), for backfire kill, or empty, for normal kill

;  $regml(4) = Username

;  $regml(5) = Rank

;  $regml(6) = Familyrank, Family

;  $regml(7) = Day

;  $regml(8) = Month

;  $regml(9) = Year

;  $regml(10) = Time

on *:text:*death report*:#trabot.bot: {

  %regex = /|([a-z]{2,3})|(d{1,2})|(.{0,5} )|([a-zA-Z]*)|(.*)|(.*)|(d{2})-(d{2})-(d{4}) (dd:dd:dd)|/

  if ( $regex($1-,%regex) != 0) {

    ;The version we report (separate with an | to prevent confusion)

    %versions = dm|nl

    ;The minimum rank a user should have to send the message (should be a number or the script won't work)

    %minrank = 0

    ;Send only user who are in a family? (use $true or $false, or leave empty)

    %filterfam = $false

    ;Leave the next line as it is plz ;)

    if ( $regml(1) isin %versions && $regml(2) >= %minrank && ( %filterfam != $true || ( $regml(6) != None ) ) ) {

      ;report to all the channels

      if ( $regml(6) == None ) {

        %f = No family

      }

      else {

        %f = $regml(6)

      }

      ;Again, leave the copyright!

      cmsg [Death Report] $regml(3) $+ $+ $regml(4) ( $+ $regml(5) $+ , %f $+ ) Died on  $regml(7) $+ - $+ $regml(8) $+ - $+ $regml(9) $regml(10) on version : $+ $regml(1) $+

    }

  }

}

 

alias /cmsg {

  ;Place the channels where the message shouldn't be sent to below

  ;Example:  %except = #trabot.nl #trace #cokeprijzen.bot

  %except = #trabot.bot

  %n = $chan(0)

  %i = 1

  while ( %i <= %n ) {

    if ( $chan(%i) !isin %except ) {

      /msg $chan(%i) $1-

    }

    /inc %i

  }

}

}