ON *:TEXT:!*:#:{ proc_bot $1- }
ON *:TEXT:*successfully*:#:{ proc_bot2 $1- }
alias proc_bot {
  set  %stext = $1-
  elseif ($1 == !status) { msg $chan Hi $nick I am doing fine, how about you? }
  if ($1 == !help) { 
    msg $nick Hi $nick 
    msg $nick Bot Commands
    msg $nick !stats -> Shows total stats
    msg $nick !stats <kocname> -> Shows total damage done to <kocname>
    msg $nick !totalsab <IRC nick> -> Shows total damage done by <IRC nick>
    msg $nick !top10 -> Shows Top10 Sabbers
    msg $nick !probeme
    msg $nick !sexme
    msg $nick !hug
    msg $nick !kiss
    msg $nick !shower
    msg $nick !dance
    msg $nick !farms
    msg $nick !farm <koc name>
    msg $nick !addfarm <name> <armysize> <defends> <link> 
    msg $nick !statlink <Koc name>
    msg $nick !sab<weapon> <kocname>
    msg $nick !probe <kocname>
  }
  elseif ($1 == !stats) { 
    if ($2 == $null) {
      ;her skal total stats være
      set %statMK $readini(kocstats.ini,n,Total,MK)
      set %statML $readini(kocstats.ini,n,Total,ML)
      set %statTG $readini(kocstats.ini,n,Total,TG)
      set %statLANCE $readini(kocstats.ini,n,Total,LANCE)

      set %sabMK $calc(%statMK * 1)
      set %sabMLM $calc(%statBPM * 1)
      set %sabTG $calc(%statDS * 1)
      set %sabSPEAR $calc(%statSPEAR * 5100)
      set %sabLANCE $calc(%statLANCE * 5100)

      .action $nick ************************
      .action $nick Total Stats:
      if (%statMK != $null) { _action $nick  %statMK Men Killed á 1 men => $_nform(%sabMK)  }
      if (%statML != $null) { _action $nick  %statML Men Lossed á 1 men => $_nform(%sabML)  }
      if (%statTG != $null) { _action $nick  %statTG Total Gold Stolen => $_nform(%sabTG)  }
      if (%statSPEAR != $null) { _action $nick  %statSPEAR Spear á 5,100 gold => $_nform(%sabSPEAR)  }
      if (%statLANCE != $null) { _action $nick  %statLANCE Lance Bow á 5,100 gold => $_nform(%sabLANCE)  }
      .action $nick ************************
      .action $nick Total: $_nform($calc(%sabMK + %sabML + %sabTG + %sabSPEAR +%sabLANCE)) Gold **************************** Not to be used????
      .action $nick ************************
    }
    else {
      set %statMK $readini(kocstats.ini,n,$2,MK)
      set %statML $readini(kocstats.ini,n,$2,ML)
      set %statTG $readini(kocstats.ini,n,$2,TG)
      set %statSPEAR $readini(kocstats.ini,n,$2,SPEAR)
      set %statLANCE $readini(kocstats.ini,n,$2,LANCE)

      set %sabMK $calc(%statMK * 1)
      set %sabML $calc(%statML * 1)
      set %sabTG $calc(%statTG * 1)
      set %sabSPEAR $calc(%statSPEAR * 5100)
      set %sabLANCE $calc(%statLANCE * 5100)

      .action $nick ************************
      .action $nick  Results of the gold stolen on $2 :
      if (%statMK != $null) { _action $nick  %statMK Men Killed á 1 men => $_nform(%sabMK)  }
      if (%statML != $null) { _action $nick  %statML Men Lost á 1 men => $_nform(%sabML)  }
      if (%statTG != $null) { _action $nick  %statTG Total Gold Stolen á 1 gold => $_nform(%sabTG)  }
      if (%statSPEAR != $null) { _action $nick  %statSPEAR Spear á 5,100 gold => $_nform(%sabSPEAR)  }
      if (%statLANCE != $null) { _action $nick  %statLANCE Lance Bow á 5,100 gold => $_nform(%sabLANCE)  }
      .action $nick ************************
      .action $nick Total: $_nform($calc(%sabIS + %sabBPM + %sabCHARIOT +   abPIKE + )) Gold *****************************Not to be used???
      .action $nick ************************
    }
  }
  elseif (($1 == !totalattack) && ($1 != $null)) { 
    var %fjoms = $2
    set %gnick $2 $+ _TOTAL
    set %statMK $readini(kocstats.ini,n,%gnick,MK)
    set %statML $readini(kocstats.ini,n,%gnick,ML)
    set %statTG $readini(kocstats.ini,n,%gnick,TG)
    set %statSPEAR $readini(kocstats.ini,n,%gnick,SPEAR)
    set %statLANCE $readini(kocstats.ini,n,%gnick,LANCE)

    set %sabMK $calc(%statMK * 1)
    set %sabML $calc(%statML * 1) 
    set %sabTG $calc(%statTG * 1)
    set %sabSPEAR $calc(%statSPEAR * 5100)
    set %sabLANCE $calc(%statLANCE * 5100)

    action $nick ************************
    action $nick  Total Stats of $2 :
    if (%statMK != $null) { _action $nick  %statMK Men Killed => $_nform(%sabMK)  }
    if (%statML != $null) { _action $nick  %statML Men Lost => $_nform(%sabML)  }
    if (%statTG != $null) { _action $nick  %statTG Total Gold Stolen => $_nform(%sabTG)  }
    if (%statSPEAR != $null) { _action $nick  %statSPEAR Spear á 5,100 gold => $_nform(%sabSPEAR)  }
    if (%statLANCE != $null) { _action $nick  %statLANCE Lance Bow á 5,100 gold => $_nform(%sabLANCE)  }
    action $nick ************************
    action $nick Total: $_nform($calc(%sabIS + %sabBPM + )) Gold ***********************************************Not to be used????
    action $nick ************************
    top10sab %fjoms
  }
  elseif ($1 == !top10) {

    ;## Read INI to sortwindow********************************************************************************************************
    .action $nick ***************************
    .action $nick  The Families Top Ten Gold Stealers:
    .action $nick ***************************
    var %t = 1
    while (%t <= 10) {
      var %lsab = $readini(kocstats.ini,n,TopSABBERS,TopSABS [ $+ [ %t ] ] )
      var %lnam = $readini(kocstats.ini,n,TopSABBERS,TopNAME [ $+ [ %t ] ] )
      var %lIS = $readini(kocstats.ini,n,TopSABBERS,TopIS [ $+ [ %t ] ] )
      var %lBPM = $readini(kocstats.ini,n,TopSABBERS,TopBPM [ $+ [ %t ] ] )
      var %lEXCAL = $readini(kocstats.ini,n,TopSABBERS,TopEXCAL [ $+ [ %t ] ] )
      var %lFLAM = $readini(kocstats.ini,n,TopSABBERS,TopFLAM [ $+ [ %t ] ] )*********************************************************

      if (%lsab != $null) {
        .action $nick # $+ %t  %lnam -> $_nform(%lsab) Gold
      }
      inc %t
    }
    .action $nick ************************

  }
  elseif ($1 == !DailySabbs) {

    ;## Read INI to sortwindow
    .action $nick *********************************
    .action $nick  The Firm TOP DAILY SABBERS :
    .action $nick *********************************
    var %t = 1
    while (%t <= Daily) {
      var %lsab = $readini(kocstats.ini,n,DAILYSABBERS,DailySABS [ $+ [ %t ] ] )
      var %lnam = $readini(kocstats.ini,n,DAILYSABBERS,DailyNAME [ $+ [ %t ] ] )
      var %lIS = $readini(kocstats.ini,n,DAILYSABBERS,DailyIS [ $+ [ %t ] ] )
      var %lBPM = $readini(kocstats.ini,n,DAILYSABBERS,DailyBPM [ $+ [ %t ] ] )
      var %lEXCAL = $readini(kocstats.ini,n,DAILYSABBERS,DailyEXCAL [ $+ [ %t ] ] )
      var %lFLAM = $readini(kocstats.ini,n,DAILYSABBERS,DailyFLAM [ $+ [ %t ] ] )

      if (%lsab != $null) {
        .action $nick # $+ %t  %lnam -> $_nform(%lsab) Gold
      }
      inc %t
    }
    .action $nick ************************

  }

} 
******************************************************************************************************************************~~~~
;;;Thunder_CM  	21,877,000 Gold stolen  	15  	8  	16  	1,188,415  	4,558,353  	  

alias proc_bot2 {
  ;; echo proc 2 triggered
  set  %stext $1-
  if (!A * iswm %stext) {
    if ($1 == spies) { tokenize 32 $1- }
    elseif ($2 == spies) { tokenize 32 $2- }

    set %tnick $2 
    set %tnpos1 $calc($len(%tnick) - 2)
    set %tnick $left(%tnick,%tnpos1)
    set %MenK $7
    set %MenL $8
    set %GoldS $3

    if (%tant !isnum) { goto SLUTT }
    if (!A isin $1) { 
      set %MenK  $7  
      set %MenK2 $readini(kocstats.ini,n,%tnick,MK)
      writeini -n kocstats.ini %tnick MK $calc(%MenK + %MenK2)
      set %MenL3 $readini(kocstats.ini,n,Total,ML)
      writeini -n kocstats.ini Total ML $calc(%MenL + %MenL3)
      set %GoldS3 $readini(kocstats.ini,n,Total,TG)
      writeini -n kocstats.ini Total TG $calc(%GoldS + %GoldS4)

      set %gnick $nick $+ _TOTAL
      set %GoldS $3
      set %GoldS4 $readini(kocstats.ini,n,%gnick,TG)
      set %GoldS $calc(%GoldS + %GoldS4)
      writeini -n kocstats.ini %gnick TG %GoldS

      msg $chan  $nick  Killed  %MenK men, lost %MenL men, and stole %GoldS  from   %tnick 


    }
    elseif (LANCE isin $1-) { 
      set %tweap LANCE 
      set %tant2 $readini(kocstats.ini,n,%tnick,LANCE)
      writeini -n kocstats.ini %tnick LANCE $calc(%tant + %tant2)
      set %tant3 $readini(kocstats.ini,n,Total,LANCE)
      writeini -n kocstats.ini Total LANCE $calc(%tant + %tant3)

      set %gnick $nick $+ _TOTAL
      set %tant4 $readini(kocstats.ini,n,%gnick,LANCE)
      set %ttant $calc(%tant + %tant4)
      writeini -n kocstats.ini %gnick LANCE %ttant

      msg $chan  $nick  destroyed  %tant  %tweap of  %tnick 

      ;;if (%target. [ $+ [ %tnick ] $+ ] .BPM != $null)  { set %tant2 %target. [ $+ [ %tnick ] $+ ] .BPM }
      ;;set %target. [ $+ [ $tnick ] $+ ] .BPM $calc(%tant + %tant2)
    }

    top10sab $nick

    ;;set  %target. [ $+ [ %tnick ] ]  %MenK $nick  %MenL
    ;;set %target. [ $+ [ $tnick ] $+ ] .amount %tant
  }

  :SLUTT
}
alias top10sab {
  set %gnick $1 $+ _TOTAL
  set %GoldS $readini(kocstats.ini,n,%gnick,TG)
  set %statSPEAR $readini(kocstats.ini,n,%gnick,SPEAR)
  set %statLANCE $readini(kocstats.ini,n,%gnick,LANCE)


  set %GoldS $calc(%GoldS * 1)
  set %sabSPEAR $calc(%statSPEAR * 5100)
  set %sabLANCE $calc(%statLANCE * 5100) 
  set %sabTOT $calc(%GoldS)
  if (%sabTOT > 0) {
    topsabbers $1 %sabTOT %statIS %statBPM %statDARG %statEXCAL %statBATT %statFLAM %statSTEED %statTHOR %statWARG  %statGAUNTLET %statDS %statMITHRIL %statCHARIOT %statCLOAK
  }
  ;;if (%GoldS != $null) { _action $nick  %GoldS Gold Stolen á 750,000 gold => $_nform(%sabIS)  }
  ;;if (%statBPM != $null) { _action $nick  %statBPM Blackpowder Missile á 850,000 gold => $_nform(%sabBPM)  }
}

alias topsabbers {
  window -c @topsabbers
  ;;echo 7 -a $1-
  var %curname = $1 
  var %cursab = $2 
  var %curGoldS = $3 
  if (%curGoldS == $null) { var %curGoldS = 0 }

  var %sabs = $readini(kocstats.ini,n,TopGoldStealers,TopGold10)
  if (%sabs == $null) { var %sabs = 0 }
  if ((%cursab < %sabs) || (%cursab < 1)) { goto SABEND }

  window -ls @topgoldstealers
  ;## Vindu for å sortere ja
  aline @topgoldstealers $_numfix(%cursab) %curname %curGoldS

  ;## Manipulate numbers for correct sorting
  ;## Read INI to sortwindow
  var %t = 1
  while (%t <= 10) {
    var %lsab = $readini(kocstats.ini,n,TopSABBERS,TopSABS [ $+ [ %t ] ] )
    var %lnam = $readini(kocstats.ini,n,TopSABBERS,TopNAME [ $+ [ %t ] ] )
    var %lGoldS = $readini(kocstats.ini,n,TopGoldStealers,TopGoldS [ $+ [ %t ] ] )
    if (%lGoldS == $null) { var %lGoldS = 0 }
    if ((%lsab != $null) && (%lnam != %curname)) {
      aline @topgoldstealers $_numfix(%lGoldS) %lnam %lGold
    }
    inc %t
  }
  ;## Write sortwindow to INI
  var %tr = 11
  var %t = 1
  while (%tr >= 1) {
    var %linje = $line(@topsabbers,%tr)
    tokenize 32 %linje
    var %lsab = $int($1) | var %lnam = $2 | var %lIS = $3 | var %lBPM = $4
    if (%linje != $null) {
      writeini -n kocstats.ini TopSABBERS TopNAME [ $+ [ %t ] ] %lnam
      writeini -n kocstats.ini TopSABBERS TopSABS [ $+ [ %t ] ] %lsab
      writeini -n kocstats.ini TopSABBERS TopGoldS [ $+ [ %t ] ] %lGoldS
      inc %t
    }
    dec %tr
  }
  :SABEND
  window -c @topsabbers
}
;/tokenize <c> <text>  Fills the $1 $2 ... $N identifiers with tokens in <text> separated by character <c>, eg.

}