; By Newklear/Archangel/Casper/Kasbah/ZeitGeist 2009
; Instructions: Copy and Paste entire code into a new Remote and save as KD.mrc
; On Installation 2 popup boxes will appear, first for your Nickname to set you as the master
; second popup box to enter your channel, enter it as follows" #example

on *:LOAD: {
  if (!%master) { set %master $?="What is your nick(case-sensitive, i.e Tesadus)" }
  if (!%channel) { set %channel $?="What is your channel(eg. #KingsofDawn)" }
  echo Kingdomsdivided Script loaded :) 
  echo Please type !help for commands.
}

on *:CONNECT: {
  if (!%master) { set %master $?="What is your nick(case-sensitive, i.e Tesadus)" }
  if (!%channel) { set %channel $?="What is your channel(eg. #KingsofDawn)" }
  .timercleanbackup 1 20 .remove -b backup.txt
  var %s $lines(backup.txt)
  var %ss 1
  while (%ss <= %s) { 
    var %nick $read(backup.txt, %ss) 
    if (!$hget(%nick)) { .hmake -s %nick 100 }
    if ($exists(%nick $+ .hsh)) { hload $read(backup.txt, %ss) %nick $+ .hsh }
    inc %ss 1 
  }
}

on *:START: {
  .timercleanbackup 1 20 .remove -b backup.txt
  var %s $lines(backup.txt)
  var %ss 1
  while (%ss <= %s) { 
    var %nick $read(backup.txt, %ss) 
    if !$hget(%nick) { .hmake %nick 100 }
    if $exists(%nick $+ .hsh) { hload $read(backup.txt, %ss) %nick $+ .hsh }
    inc %ss 1 
  }
} 

on *:QUIT: {
  if ($nick == $me ) {
    var %s $hget(0)
    var %ss 1
    while (%ss <= %s) { hsave $hget(%ss) $hget(%ss) $+ .hsh | write backup.txt $hget(%ss) | inc %ss 1 }
  }
}

on *:EXIT: {
  var %s $hget(0)
  var %ss 1
  while (%ss <= %s) { hsave $hget(%ss) $hget(%ss) $+ .hsh | write backup.txt $hget(%ss) | inc %ss 1 }
}

on *:DISCONNECT: {
  var %s $hget(0)
  var %ss 1
  while (%ss <= %s) { hsave $hget(%ss) $hget(%ss) $+ .hsh | write backup.txt $hget(%ss) | inc %ss 1 }
}

on *:TEXT:!paste*:%channel: {
  if (!$2) { msg $chan Syntax: !paste <player game nick> | halt }
  msg $chan $nick I will now associate your next Attack Page Paste with $2 $+.  (After 60 seconds ' $+ $2 $+ ' will be unset)
  set -u60 %paste $2
}

on *:TEXT:!info*:%channel: {
  if (!$2) { msg $chan Syntax: !info <Player gamenick> }
  msg $chan Stats for $2 $+ :
  msg $chan Cubbles: $iif($hget($2,Cubbles),$hget($2,Cubbles),NA) Updated: $iif($hget($2,Cubbles_time),$duration($calc($ctime - $hget($2,Cubbles_time)),3),NA)
  msg $chan Land: $iif($hget($2,Land),$hget($2,Land),NA) Updated: $iif($hget($2,Land_time),$duration($calc($ctime - $hget($2,Land_time)),3),NA)
  msg $chan Army Size: $iif($hget($2,Army_size),$hget($2,Army_size),NA) Updated: $iif($hget($2,Army_size_time),$duration($calc($ctime - $hget($2,Army_size_time)),3),NA)
  msg $chan Security Level: $iif($hget($2,Security_L),$hget($2,Security_L),NA) Updated: $iif($hget($2,Security_L_time),$duration($calc($ctime - $hget($2,Security_L_time)),3),NA)
  msg $chan Status: $iif($hget($2,Status),$hget($2,Status),NA) Updated: $iif($hget($2,Status_time),$duration($calc($ctime - $hget($2,Status_time)),3),NA)
  msg $chan Infantry: $iif($hget($2,Infantry),$hget($2,Infantry),NA) Updated: Web: $+ $iif($hget($2,Infantry_last),$hget($2,Infantry_last),NA) IRC: $+ $iif($hget($2,Infantry_time),$duration($calc($ctime - $hget($2,Infantry_time)),3),NA)
  msg $chan Security: $iif($hget($2,Security),$hget($2,Security),NA) Updated: Web: $+ $iif($hget($2,Security_last),$hget($2,Security_last),NA) IRC: $+ $iif($hget($2,Security_time),$duration($calc($ctime - $hget($2,Security_time)),3),NA)
  msg $chan Intelligence: $iif($hget($2,Intelligence),$hget($2,Intelligence),NA) Updated: Web: $+ $iif($hget($2,Intelligence_last),$hget($2,Intelligence_last),NA) IRC: $+ $iif($hget($2,Intelligence_time),$duration($calc($ctime - $hget($2,Intelligence_time)),3),NA)
  msg $chan Farming: $iif($hget($2,Farming),$hget($2,Farming),NA) Updated: Web: $+ $iif($hget($2,Farming_last),$hget($2,Farming_last),NA) IRC: $+ $iif($hget($2,Farming_time),$duration($calc($ctime - $hget($2,Farming_time)),3),NA)
  msg $chan Soldiers: $iif($hget($2,Soldiers),$hget($2,Soldiers),NA) Updated: Web: $+ $iif($hget($2,Soldiers_last),$hget($2,Soldiers_last),NA) IRC: $+ $iif($hget($2,Soldiers_time),$duration($calc($ctime - $hget($2,Soldiers_time)),3),NA)
  msg $chan Guards: $iif($hget($2,Guards),$hget($2,Guards),NA) Updated: Web: $+ $iif($hget($2,Guards_last),$hget($2,Guards_last),NA) IRC: $+ $iif($hget($2,Guards_time),$duration($calc($ctime - $hget($2,Guards_time)),3),NA)
  msg $chan Farmers: $iif($hget($2,Farmers),$hget($2,Farmers),NA) Updated: Web: $+ $iif($hget($2,Farmers_last),$hget($2,Farmers_last),NA) IRC: $+ $iif($hget($2,Farmers_time),$duration($calc($ctime - $hget($2,Farmers_time)),3),NA)
  msg $chan Land Production: $iif($hget($2,LP),$hget($2,LP),NA) Updated: Web: $+ $iif($hget($2,LP_last),$hget($2,LP_last),NA) IRC: $+ $iif($hget($2,LP_time),$duration($calc($ctime - $hget($2,LP_time)),3),NA)
  msg $chan Resources: $iif($hget($2,Resources),$hget($2,Resources),NA) Updated: Web: $+ $iif($hget($2,Resources_last),$hget($2,Resources_last),NA) IRC: $+ $iif($hget($2,Resources_time),$duration($calc($ctime - $hget($2,Resources_time)),3),NA)
  msg $chan Farms: $iif($hget($2,Farms),$hget($2,Farms),NA) Updated: Web: $+ $iif($hget($2,Farms_last),$hget($2,Farms_last),NA) IRC: $+ $iif($hget($2,Farms_time),$duration($calc($ctime - $hget($2,Farms_time)),3),NA)
  msg $chan Mills: $iif($hget($2,Mills),$hget($2,Mills),NA) Updated: Web: $+ $iif($hget($2,Mills_last),$hget($2,Mills_last),NA) IRC: $+ $iif($hget($2,Mills_time),$duration($calc($ctime - $hget($2,Mills_time)),3),NA)
  msg $chan Infantry Level: $iif($hget($2,Infantry_L),$hget($2,Infantry_L),NA) Updated: Web: $+ $iif($hget($2,Infantry_L_last),$hget($2,Infantry_L_last),NA) IRC: $+ $iif($hget($2,Infantry_L_time),$duration($calc($ctime - $hget($2,Infantry_L_time)),3),NA)
  msg $chan Intelligence Level: $iif($hget($2,Intel_L),$hget($2,Intel_L),NA) Updated: Web: $+ $iif($hget($2,Intel_L_last),$hget($2,Intel_L_last),NA) IRC: $+ $iif($hget($2,Intel_L_time),$duration($calc($ctime - $hget($2,Intel_L_time)),3),NA)
  msg $chan Farm Level: $iif($hget($2,Farm_Level),$hget($2,Farm_Level),NA) Updated: Web: $+ $iif($hget($2,Farm_Level_last),$hget($2,Farm_Level_last),NA) IRC: $+ $iif($hget($2,Farm_Level_time),$duration($calc($ctime - $hget($2,Farm_Level_time)),3),NA)
  msg $chan Spies: $iif($hget($2,Spies),$hget($2,Spies),NA) Updated: $iif($hget($2,Spies_time),$duration($calc($ctime - $hget($2,Spies_time)),3),NA)
  msg $chan Food: $iif($hget($2,Food),$hget($2,Food),NA) Updated: $iif($hget($2,Food_time),$duration($calc($ctime - $hget($2,Food_time)),3),NA)
  msg $chan Holy Armours: $iif($hget($2,Holy_A),$hget($2,Holy_A),NA) Updated: $iif($hget($2,Holy_A_time),$duration($calc($ctime - $hget($2,Holy_A_time)),3),NA)
  msg $chan Mask: $iif($hget($2,Mask),$hget($2,Mask),NA) Updated: $iif($hget($2,Mask_time),$duration($calc($ctime - $hget($2,Mask_time)),3),NA)
  msg $chan Hook: $iif($hget($2,Hook),$hget($2,Hook),NA) Updated: $iif($hget($2,Hook_time),$duration($calc($ctime - $hget($2,Hook_time)),3),NA)
  msg $chan Night Vision: $iif($hget($2,NV),$hget($2,NV),NA) Updated: $iif($hget($2,NV_time),$duration($calc($ctime - $hget($2,NV_time)),3),NA)
  msg $chan Knight: $iif($hget($2,Knight),$hget($2,Knight),NA) Updated: $iif($hget($2,Knight_time),$duration($calc($ctime - $hget($2,Knight_time)),3),NA)
  msg $chan Dragonmail: $iif($hget($2,Dragonmail),$hget($2,Dragonmail),NA) Updated: $iif($hget($2,Dragonmail_time),$duration($calc($ctime - $hget($2,Dragonmail_time)),3),NA)
  msg $chan Dragon Scales: $iif($hget($2,DS),$hget($2,DS),NA) Updated: $iif($hget($2,DS_time),$duration($calc($ctime - $hget($2,DS_time)),3),NA)
}

on *:TEXT:!store*:%channel: {
  if (!$2) || (!$3) || (!$4) { msg $chan Syntax: !store <Inf/Sec/Intel/Farm> <Player> <Attribute> | halt }
  if ($2 == Inf) {
    hadd -m $3 $2 $remove($4,$chr(9))
    hadd -m $3 $2 $+ time $ctime
  }
  if ($2 == Sec) {
    hadd -m $3 $2 $remove($4,$chr(9))
    hadd -m $3 $2 $+ time $ctime
  }
  if ($2 == Intel) {
    hadd -m $3 $2 $remove($4,$chr(9))
    hadd -m $3 $2 $+ time $ctime
  }
  if ($2 == Farm) {
    hadd -m $3 $2 $remove($4,$chr(9))
    hadd -m $3 $2 $+ time $ctime
  }
}

on *:TEXT:!get*:%channel: {
  if (!$2) || (!$3) { msg $chan Syntax: !get <Inf/Sec/Intel/Farm> <Player> | halt }
  if (!$hget($3)) { msg $chan No stored Data for $3 | halt }
  if (!$hget($3,$2)) { msg $chan No stored $2 Data for $3 | halt }
  msg $chan $3 $+ 's last known $2 $+ : $hget($3,$2) - $duration($calc($ctime - $hget($3,$2 $+ time)),3) ago
}

on *:TEXT:!stats*:%channel: {
  if (!$2) { msg $chan Syntax: !stats <Player> | halt }
  if (!$hget($2)) { msg $chan I have no Data for $2 | halt }
  msg $chan $2 $+ 's Stats: Infantry: $+ $iif($hget($2,Inf),$hget($2,Inf) $duration($calc($ctime - $hget($2,Inf $+ time)),3) ago,0) - Security: $+ $iif($hget($2,Sec),$hget($2,Sec) $duration($calc($ctime - $hget($2,Sec $+ time)),3) ago,0) 
  msg $chan $2 $+ 's Stats: Intelligence: $+ $iif($hget($2,Intel),$hget($2,Intel) $duration($calc($ctime - $hget($2,Intel $+ time)),3) ago,0) - Farming: $+ $iif($hget($2,Farm),$hget($2,Farm) $duration($calc($ctime - $hget($2,Farm $+ time)),3) ago,0)
}

on *:TEXT:!help*:%channel: {
  ;notice $nick Commands: !stolen, !lost, !topsteals, !steals
  msg $chan Commands: !stolen, !lost, !topsteals, !steals, !store, !get, !stats, !paste, !info.
}

on *:TEXT:!backup*:%channel: {
  if ($nick === %master) {
    var %s $hget(0)
    var %ss 1
    while (%ss <= %s) { hsave $hget(%ss) $hget(%ss) $+ .hsh | write backup.txt $hget(%ss) | inc %ss 1 }
    msg $chan Backup Complete.
  }
}

on *:TEXT:!stolen*:%channel: {
  if (!$2) {
    if (!$hget($nick,cubbles_stolen)) { msg $chan You have no recorded steals $nick | halt }
    msg $chan $nick $+ 's Total Cubbles Stolen: $chr(167) $+ $bytes($hget($nick,cubbles_stolen),b) 
    msg $chan $nick $+ 's Cubble Steal Ave: $chr(167) $+ $bytes($calc($hget($nick,cubbles_stolen) / $hget($nick,cubbles_stolen_turn)),b)
    halt
  }
  if (!$hget($2,cubbles_stolen)) { msg $chan $2 has no recorded steals $nick | halt }
  msg $chan $2 $+ 's Total Cubbles Stolen: $chr(167) $+ $bytes($hget($2,cubbles_stolen),b) 
  msg $chan $2 $+ 's Cubble Steal Ave: $chr(167) $+ $bytes($calc($hget($2,cubbles_stolen) / $hget($2,cubbles_stolen_turn)),b) 
}

on *:TEXT:!lost*:%channel: {
  if (!$2) { msg $chan Syntax: !lost <player> | halt }
  if (!$hget($nick,$2)) { msg $chan You have not stolen off $2 yet. | goto Next }
  msg $chan $nick you have stolen $chr(167) $+ $bytes($hget($nick,$2),b) from $2 $+ , Stolen: $bytes($calc($hget($nick,$2) /  $hget($2,cubbles_lost) * 100),b) $+ %
  :Next
  if (!$hget($2,cubbles_lost)) { msg $chan $2 has not been stolen yet. | halt }
  msg $chan $2 Total lost: $chr(167) $+ $bytes($hget($2,cubbles_lost),b) 
}

on *:TEXT:!topsteals*:%channel: {
  if ($hget($nick,top) == yes) { halt }
  hadd -mu3 $nick top yes
  var %file = Steals.txt, %l = 10, %d = $lines(%file), %w = @top10
  window -hn %w
  clear %w
  while %d {
    tokenize 32 $read(%file,nt,%d)
    aline %w $2 $bytes($1,b) $+ ( $+ $3 $+ ) $+ : $duration($calc($ctime - $4),3) ago
    dec %d
  }
  filter -ectuww 2 32 %w %w
  var %k = 1, %k1
  while %k <= %l  {
    %k1 = $addtok(%k1,$+($chr(32),12,$chr(35),%k,) $iif($line(%w,%k),$v1,N/A),44)
    inc %k
  }
  msg $chan Top $chr(167) Steals Overall:
  msg $chan %k1 $+ .
}

on *:TEXT:!steals*:%channel: {
  if (!$2) {
    if ($hget($nick,top) == yes) { halt }
    hadd -mu3 $nick top yes
    var %file = $nick $+ .txt, %l = 10, %d = $lines(%file), %w = @top10
    if (!$read(%file)) { msg $chan You have no Steal Records $nick $+ . | halt }
    window -hn %w
    clear %w
    while %d {
      tokenize 32 $read(%file,nt,%d)
      aline %w $2 $bytes($1,b) $+ : $duration($calc($ctime - $3),3) ago
      dec %d
    }
    filter -ectuww 2 32 %w %w
    var %k = 1, %k1
    while %k <= %l  {
      %k1 = $addtok(%k1,$+($chr(32),12,$chr(35),%k,) $iif($line(%w,%k),$v1,N/A),44)
      inc %k
    }
    msg $chan $nick $+ 's Top $chr(167) Steals:
    msg $chan %k1 $+ .
    halt
  }
  var %player2 $2
  if (!$read(%player2 $+ .txt)) { msg $chan There are no Steal Records for %player2 $+ . | halt }
  if ($hget($nick,top) == yes) { halt }
  hadd -mu3 $nick top yes
  var %file = $2 $+ .txt, %l = 10, %d = $lines(%file), %w = @top10
  window -hn %w
  clear %w
  while %d {
    tokenize 32 $read(%file,nt,%d)
    aline %w $2 $bytes($1,b) $+ : $duration($calc($ctime - $3),3) ago
    dec %d
  }
  filter -ectuww 2 32 %w %w
  var %k = 1, %k1
  while %k <= %l  {
    %k1 = $addtok(%k1,$+($chr(32),12,$chr(35),%k,) $iif($line(%w,%k),$v1,N/A),44)
    inc %k
  }
  msg $chan %player2 $+ 's Top $chr(167) Steals:
  msg $chan %k1 $+ .
}

on *:TEXT:*:%channel: {
  if ($remove($5,$chr(9)) == Failed) { halt }
  if ($remove($5,$chr(9)) == Succeeded) { 
    if ($remove($6,$chr(9)) == Invisibility) {
      var %tool $calc($remove($8,$chr(9)) * 900000)
      var %victim $remove($4,$chr(9))
      write Steals.txt %tool $nick %victim $ctime
      write $nick $+ .txt %tool %victim $ctime
      hinc -m $nick cubbles_stolen_turn 1
      hadd -m $nick cubbles_stolen $calc($hget($nick,cubbles_stolen) + %tool)
      hadd -m $nick %victim $calc($hget($nick,%victim) + %tool)
      hadd -m %victim cubbles_lost $calc($hget(%victim,cubbles_lost) + %tool)
      msg $chan Added Invisibility Cloak steal of ( $+ $remove($8,$chr(9)) $+ ): $chr(167) $+ $bytes(%tool,b) on $remove($4,$chr(9))
    }
    if ($remove($6,$chr(9)) == Night) {
      var %tool $calc($remove($8,$chr(9)) * 300000)
      var %victim $remove($4,$chr(9))
      write Steals.txt %tool $nick %victim $ctime
      write $nick $+ .txt %tool %victim $ctime
      hinc -m $nick cubbles_stolen_turn 1
      hadd -m $nick cubbles_stolen $calc($hget($nick,cubbles_stolen) + %tool)
      hadd -m $nick %victim $calc($hget($nick,%victim) + %tool)
      hadd -m %victim cubbles_lost $calc($hget(%victim,cubbles_lost) + %tool)
      msg $chan Added Night Visions steal of ( $+ $remove($8,$chr(9)) $+ ): $chr(167) $+ $bytes(%tool,b) on $remove($4,$chr(9))
    }
  }
  if ($remove($6,$chr(9)) == Food) {
    var %food $calc($remove($7,$chr(9),$chr(44)) * 10)
    var %victim $remove($4,$chr(9))
    write Steals.txt %food $nick %victim $ctime
    write $nick $+ .txt %food %victim $ctime
    hinc -m $nick cubbles_stolen_turn 1
    hadd -m $nick cubbles_stolen $calc($hget($nick,cubbles_stolen) + %food)
    hadd -m $nick %victim $calc($hget($nick,%victim) + %food)
    hadd -m %victim cubbles_lost $calc($hget(%victim,cubbles_lost) + %food)
    msg $chan Added Food steal of $chr(167) $+ $bytes(%food,b) on $remove($4,$chr(9))
  }
  if ($remove($6,$chr(9)) == Cubbles) {
    var %victim $remove($4,$chr(9))
    write Steals.txt $remove($7,$chr(9),$chr(44)) $nick %victim $ctime
    write $nick $+ .txt $remove($7,$chr(9),$chr(44)) %victim $ctime
    hinc -m $nick cubbles_stolen_turn 1 
    hadd -m $nick cubbles_stolen $calc($hget($nick,cubbles_stolen) + $remove($7,$chr(9),$chr(44)))
    hadd -m $nick %victim $calc($hget($nick,%victim) + $remove($7,$chr(9),$chr(44))))
    hadd -m %victim cubbles_lost $calc($hget(%victim,cubbles_lost) + $remove($7,$chr(9),$chr(44))))
    msg $chan Added Cubble steal of $chr(167) $+ $remove($7,$chr(9)) on $remove($4,$chr(9))
  }
  if ($1 === Cubbles:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Cubbles $remove($2,$chr(9))
    hadd -m %paste Cubbles_time $ctime
  }
  if ($1 === Land:) {
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Land $remove($2,$chr(9))
    hadd -m %paste Land_time $ctime
  }
  if ($1 === Army) && ($2 === Size:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Army_size $remove($3,$chr(9))
    hadd -m %paste Army_size_time $ctime
  }
  if ($1 === Security) && ($2 === Level:) {
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Security_L $remove($3,$chr(9))
    hadd -m %paste Security_L_time $ctime
  }
  if ($1 === Status:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Status $remove($2-,$chr(9))
    hadd -m %paste Status_time $ctime
  }
  if ($1 === Infantry:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Infantry $remove($2,$chr(9))
    hadd -m %paste Infantry_last $remove($3-,$chr(9))
    hadd -m %paste Infantry_time $ctime
  }
  if ($1 === Security:) {
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Security $remove($2,$chr(9))
    hadd -m %paste Security_last $remove($3-,$chr(9))
    hadd -m %paste Security_time $ctime
  }
  if ($1 === Intelligence:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Intelligence $remove($2,$chr(9))
    hadd -m %paste Intelligence_last $remove($3-,$chr(9))
    hadd -m %paste Intelligence_time $ctime
  }
  if ($1 === Farming:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Farming $remove($2,$chr(9))
    hadd -m %paste Farming_last $remove($3-,$chr(9))
    hadd -m %paste Farming_time $ctime
  }
  if ($1 === Soldiers:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Soldiers $remove($2,$chr(9))
    hadd -m %paste Soldiers_last $remove($3-,$chr(9))
    hadd -m %paste Soldiers_time $ctime
  }
  if ($1 === Guards:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Guards $remove($2,$chr(9))
    hadd -m %paste Guards_last $remove($3-,$chr(9))
    hadd -m %paste Guards_time $ctime
  }
  if ($1 === Farmers:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Farmers $remove($2,$chr(9))
    hadd -m %paste Farmers_last $remove($3-,$chr(9))
    hadd -m %paste Farmers_time $ctime
  }
  if ($1 === Land) && ($2 === Production:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste LP $remove($3,$chr(9))
    hadd -m %paste LP_last $remove($4-,$chr(9))
    hadd -m %paste LP_time $ctime
  }
  if ($1 === Resources:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Resources $remove($2,$chr(9))
    hadd -m %paste Resources_last $remove($3-,$chr(9))
    hadd -m %paste Resources_time $ctime
  }
  if ($1 === Farms:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Farms $remove($2,$chr(9))
    hadd -m %paste Farms_last $remove($3-,$chr(9))
    hadd -m %paste Farms_time $ctime
  }
  if ($1 === Mills:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Mills $remove($2,$chr(9))
    hadd -m %paste Mills_last $remove($3-,$chr(9))
    hadd -m %paste Mills_time $ctime
  }
  if ($1 === Infantry) && ($2 === Level:) {
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Infantry_L $remove($3,$chr(9))
    hadd -m %paste Infantry_L_last $remove($4-,$chr(9))
    hadd -m %paste Infantry_L_time $ctime
  }
  if ($1 === Intel) && ($2 === Level:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Intel_L $remove($3,$chr(9))
    hadd -m %paste Intel_L_last $remove($4-,$chr(9))
    hadd -m %paste Intel_L_time $ctime
  }
  if ($1 === Farm) && ($2 === Level:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Farm_Level $remove($3,$chr(9))
    hadd -m %paste Farm_Level_last $remove($4-,$chr(9))
    hadd -m %paste farm_Level_time $ctime
  }
  if ($1 === Spies:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Spies $remove($2,$chr(9))
    hadd -m %paste Spies_last $remove($3-,$chr(9))
    hadd -m %paste Spies_time $ctime
  }
  if ($1 === Food:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Food $remove($2,$chr(9))
    hadd -m %paste Food_last $remove($3-,$chr(9))
    hadd -m %paste Food_time $ctime
  }
  if ($1 === Holy) && ($2 === Armor:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Holy_A $remove($3,$chr(9))
    hadd -m %paste Holy_A_last $remove($4-,$chr(9))
    hadd -m %paste Holy_A_time $ctime
  }
  if ($1 === Mask:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Mask $remove($2,$chr(9))
    hadd -m %paste Mask_last $remove($3-,$chr(9))
    hadd -m %paste Mask_time $ctime
  }
  if ($1 === Invisibility) && ($2 === Cloak:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste IC $remove($3,$chr(9))
    hadd -m %paste IC_last $remove($4-,$chr(9))
    hadd -m %paste IC_time $ctime
  }
  if ($1 === Hook:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Hook $remove($2,$chr(9))
    hadd -m %paste Hook_last $remove($3-,$chr(9))
    hadd -m %paste Hook_time $ctime
  }
  if ($1 === Night) && ($2 === Vision) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste NV $remove($3,$chr(9))
    hadd -m %paste NV_last $remove($4-,$chr(9))
    hadd -m %paste NV_time $ctime
  }
  if ($1 === Knight:) { 
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Knight $remove($2,$chr(9))
    hadd -m %paste Knight_last $remove($3-,$chr(9))
    hadd -m %paste Knight_time $ctime
  }
  if ($1 === Dragonmail:) {
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste Dragonmail $remove($2,$chr(9))
    hadd -m %paste Dragonmail_last $remove($3-,$chr(9))
    hadd -m %paste Dragonmail_time $ctime
  }
  if ($1 === Dragon) && ($2 === Scales:) {
    if (!%paste) { msg $chan $nick you have not assigned anyone to your paste, Syntax: !paste <gamenick> | halt }
    hadd -m %paste DS $remove($3,$chr(9))
    hadd -m %paste DS_last $remove($4-,$chr(9))
    hadd -m %paste DS_time $ctime
  }
}