这是什么语言？(对于IRC机器人)

Question

终于找到了我大约10年前为IRC Bot编写的一些非常古老的脚本.我不知道我在做什么,并想知道是否有人知道这是什么写的和任何信息？

on *:sockread:$1:{
  var %stattype $1
  if ($sockerr) {
    .notice [ %nickname [ $+ [ %stattype ] ] ] Error.
    halt
  }
  else {
    var %statread
    sockread %statread
    if (Stat:* * * * iswm %statread) {
      .tokenize 32 %statread
      .notice [ %nickname [ $+ [ %stattype ] ] ] 1[ Username:7 $upper( [ %username [ $+ [ %stattype ] ] ] ) 1] [ Skill: 7 $upper(%stattype) 1] 
      .notice [ %nickname [ $+ [ %stattype ] ] ] 1[ Level:7 $3 1 $chr(124) Exp:7 $4 1 $chr(124) Rank:7 $2 1]
      .notice [ %nickname [ $+ [ %stattype ] ] ] 1[ Next lvl:7 $calc($3 + 1) 1 $chr(124) Exp to:7 $bytes($calc( [ %lvl [ $+ [ $calc($3 + 1) ] ] ] - $remove($4,$chr(44))),b) 1]
      .notice [ %nickname [ $+ [ %stattype ] ] ] 1[ Bandits:7 $bytes($calc($calc( [ %lvl [ $+ [ $calc($3 + 1) ] ] ] - $remove($4,$chr(44)))/(51*1.33)),b) 1 $chr(124) S.Warriors:7 $bytes($calc($calc( [ %lvl [ $+ [ $calc($3 + 1) ] ] ] - $remove($4,$chr(44)))/(67*1.33)),b) 1 $chr(124) Dagg(74):7 $bytes($calc($calc( [ %lvl [ $+ [ $calc($3 + 1) ] ] ] - $remove($4,$chr(44)))/(70*1.33)),b) 1 $chr(124) Ogre(53)/Ice Warrior:7 $bytes($calc($calc( [ %lvl [ $+ [ $calc($3 + 1) ] ] ] - $remove($4,$chr(44)))/(60*1.33)),b) 1]
      .sockclose %stattype
    }
  }
}

on $*:TEXT:$(/@(hp|att|str|ran|mag|pra|def|coo|woo|fir|fle|run|sla|min|smi|cra)/):#: {
  var %stattype $left($remove($1,!,@),3)
  .tokenize %stattype 32
  if ($2 != $null) {
    sockopen %stattype rscript.org 80
    set [ %username [ $+ [ %stattype ] ] ] $2
    set [ %nickname [ $+ [ %stattype ] ] ] $nick
  }
  elseif ($2 == $null) {
    sockopen hp rscript.org 80
    set [ %username [ $+ [ %stattype ] ] ] $nick
    set [ %nickname [ $+ [ %stattype ] ] ] $nick
  }
  else {
    .notice $nick Error. Sorry.
  }
}

Answer 1

这是mIRC客户端的mIRC脚本语言.

哦,它似乎做了一些事情(从我12岁时的pff知识)通过服务rscript.org训练盗贼在游戏runescape中的土匪.