Mine

on *:text:!group*:#testepr3:{
  if ($2) {
    if (%protect.group == on) { msg $chan $nick $+ , You need wait 15seconds for do it again }
    if ((%protect.group == off) || (%protect.group == $null)) {
      set %protect.group on
      .timer 1 20 /unset %protect.group
      .timerpredelay 1 1 msg # 0[ 14Group00 ] 00 $+ $2 $+  0(14Searching...0)
      set %group.nick $2
      var %x 1
      while (%x <= $ini(groups.ini,0)) {
        if ($ini(groups.ini,%x) = %group.nick) {
          set %totalgroup $calc( $iif($readini(groups.ini,%group.nick,release),$readini(groups.ini,%group.nick,release),0) + $iif($readini(groups.ini,%group.nick,nuke),$readini(groups.ini,%group.nick,nuke),0) + $iif($readini(groups.ini,%group.nick,unnuke),$readini(groups.ini,%group.nick,unnuke),0) )

          .timerpredelay2 1 3 msg # 0[14 Releases00 ] 00 $iif($readini(groups.ini,%group.nick,release),$readini(groups.ini,%group.nick,release),0) 0[ 4Nukes00 ] 00 $iif($readini(groups.ini,%group.nick,nuke),$readini(groups.ini,%group.nick,nuke),0) ( $+ $int($calc($calc( $readini(groups.ini,%group.nick,nuke) / %totalgroup ) * 100)) $+ % $+ ) 0[ 9Unnukes00 ] 00 $iif($readini(groups.ini,%group.nick,unnuke),$readini(groups.ini,%group.nick,unnuke),0) ( $+ $int($calc($calc( $readini(groups.ini,%group.nick,unnuke) / %totalgroup ) * 100)) $+ % $+ )
          if ($gettok($readini(groups.ini,%group.nick,first),1,32) = PRE) {   
            .timerpredelay3 1 5 msg # 0[14 First00 ]  $+ $gettok($readini(groups.ini,%group.nick,first),3,32) 14got released00 $duration($calc($ctime - $ctime($gettok($readini(groups.ini,%group.nick,first),4-,32)))) 14ago 00[ 1407 $+ $gettok($readini(groups.ini,%group.nick,first),2,32) $+  00/  $+ %group.nick $+  ]
          }
          elseif ($gettok($readini(groups.ini,%group.nick,first),1,32) = NUKE) {   
            .timerpredelay3 1 5 msg # 0[14 First00 ]  $+ $gettok($readini(groups.ini,%group.nick,first),3,32) 14got released00 $duration($calc($ctime - $ctime($gettok($readini(groups.ini,%group.nick,first),5-,32)))) 14ago was nuked because 00 $gettok($readini(groups.ini,%group.nick,first),4,32) [ 1407 $+ $gettok($readini(groups.ini,%group.nick,first),2,32) $+  00/  $+ %group.nick $+  ]
          }
          else {   
            .timerpredelay3 1 5 msg # 0[14 First00 ]  $+ $gettok($readini(groups.ini,%group.nick,first),3,32) 14got released00 $duration($calc($ctime - $ctime($gettok($readini(groups.ini,%group.nick,first),5-,32)))) 14ago was unnuked because 00 $gettok($readini(groups.ini,%group.nick,first),4,32) [ 1407 $+ $gettok($readini(groups.ini,%group.nick,first),2,32) $+  00/  $+ %group.nick $+  ]
          }

          if ($gettok($readini(groups.ini,%group.nick,last),1,32) = PRE) {   
            .timerpredelay4 1 7 msg # 0[14 Last00 ]  $+ $gettok($readini(groups.ini,%group.nick,last),3,32) 14got released00 $duration($calc($ctime - $ctime($gettok($readini(groups.ini,%group.nick,last),4-,32)))) 14ago 00[ 1407 $+ $gettok($readini(groups.ini,%group.nick,last),2,32) $+  00/  $+ %group.nick $+  ]
          }
          elseif ($gettok($readini(groups.ini,%group.nick,last),1,32) = NUKE) {   
            .timerpredelay4 1 7 msg # 0[14 Last00 ]  $+ $gettok($readini(groups.ini,%group.nick,last),3,32) 14got released00 $duration($calc($ctime - $ctime($gettok($readini(groups.ini,%group.nick,last),5-,32)))) 14ago was nuked because 00 $gettok($readini(groups.ini,%group.nick,last),4,32) [ 1407 $+ $gettok($readini(groups.ini,%group.nick,last),2,32) $+  00/  $+ %group.nick $+  ]
          }
          else {   
            .timerpredelay4 1 7 msg # 0[14 Last00 ]  $+ $gettok($readini(groups.ini,%group.nick,last),3,32) 14got released00 $duration($calc($ctime - $ctime($gettok($readini(groups.ini,%group.nick,last),5-,32)))) 14ago was unnuked because 00 $gettok($readini(groups.ini,%group.nick,last),4,32) [ 1407 $+ $gettok($readini(groups.ini,%group.nick,last),2,32) $+  00/  $+ %group.nick $+  ]
          }


          halt
        }
        if (%x = $ini(groups.ini,0)) { .timerpredelay5 1 3 msg # ..:: 0This group not found in Data Base ::.. }
        inc %x
      }
    }
  }
  else {
    if (%protect.group == on) { msg $chan $nick $+ , You need wait 15seconds for do it again }
    if ((%protect.group == off) || (%protect.group == $null)) {
      set %protect.group on
      .timer 1 20 /unset %protect.group
      msg # [7Group Info] - 0Groups [0 $ini(groups.ini,0) ] 0Group Base Size [0 $bytes($file(groups.ini).size).suf ]
    }
  }
}

on *:text:!db:#d&r:{
  msg # [7Data Base] - 0Releases [ 0 $iif($gettok($read(DataBase.txt,1),2,32),$gettok($read(DataBase.txt,1),2,32),0) Releases $chr(124) 4 $iif($gettok($read(DataBase.txt,2),2,32),$gettok($read(DataBase.txt,2),2,32),0) NUKE's  $chr(124) 9 $iif($gettok($read(DataBase.txt,3),2,32),$gettok($read(DataBase.txt,3),2,32),0) UNNUKE's ] 0Data Base Size [0 $bytes($file(db.txt).size).suf ]
  msg # [7Group Database] - 0Groups [0 $ini(groups.ini,0) ] 0Group Base Size [0 $bytes($file(groups.ini).size).suf ]

  }}