rendered paste body; 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
}
}