not that good, but I'll explain(I hope it works :D )

on *:text:!loadedscripts:#: {
  var %x 1, %s
  while ($script(%x)) { var %s %s $+ , $nopath($v1) | inc %x }
  msg # 7I have 9 $script(0) 4scripts loaded :0 $gettok($right(%s,-1),1-5,44)
  var %x 6
  while (%x <= $numtok(%s,44)) {
    msg # $gettok(%s,%x $+ - $+ $calc(%x +10),44)
    inc %x 10
  }
}