#class {prompt} {kill}
#class {info} {kill}
#class {prompt} {open}
#split 0 3
#nop Change prompt to: %n%p%C.%h/%H(hp) %m/%M(mn) %v/%V(mv) %Xtnl/%acp/%ggl %tt/%i.%c
#nop %1(%h) %2(%H) %3(%m) %4(%M) %5(%v) %6(%V) %7(tnl)
#nop %8(cp) %9(gold) %10(time) %11(D/M) %12(tank) %13(%tank)
#sub {~^%1: [%d]$} {@tank_prompt{%1;%2}}
#gag {~^.\e[0;1;33m%1\e[0;0m/%2(hp) %3/%4(mn) %5/%6(mv) %7tnl/%8cp/%9gl %10t/%11.$}
#action {~^.\e[0;1;33m%1\e[0;0m/%2(hp) %3/%4(mn) %5/%6(mv) %7tnl/%8cp/%9gl %10t/%11.$} {
#if {"%10" != "$bg"}
{
#var bg %10;
#var ltick 0;
#ticker ltick {#math {ltick} {$ltick +1}} {1}
};
#format lticks {%s%s} {$ltick} {s};
#var hpstuff2 %1(@pcnt{%1;%2}%)h %3(@pcnt{%3;%4}%)m %5(@pcnt{%5;%6}%)v - ($lticks);
#var hpstuff <ecb>%1(<g20>@percent{%1;%2}%<ecb>)h <bdd>%3(<g20>@percent{%3;%4}%<bdd>)m <cdb>%5(<g20>@percent{%5;%6}%<cdb>)v<g21> - (<bcc>$lticks<g21>);
#var otstuff <g09>[<g19>%8<g09>] <g20>@time{%10} <g09>(<g20>%7TNL<g09>/<dca>$<g20>@gold{%9}K<g09>);
#var otstuff2 [%8] @time{%10} (%7TNL/$@gold{%9}K);
#var result2 <G02> <ecb>%1(<g20>@percent{%1;%2}%<ecb>)h <bdd>%3(<g20>@percent{%3;%4}%<bdd>)m <cdb>%5(<g20>@percent{%5;%6}%<cdb>)v <g19> <g09>< lt:<g20> $lticks ago <g09>> <g19> <g09><g09>[<g19>%8<g09>] <g20>@time{%10} <g09>(<g20>%7TNL<g09>/<dca>$<g20>@gold{%9}K<g09>) <088>;
#showme {<G00>@ralign{{$otstuff<G00> }{<G00> $hpstuff}}<088>} {1}
}
{6}
#gag {~^.\e[0;31m%1\e[0;0m/%2(hp) %3/%4(mn) %5/%6(mv) %7tnl/%8cp/%9gl %10t/%11.$}
#action {~^.\e[0;31m%1\e[0;0m/%2(hp) %3/%4(mn) %5/%6(mv) %7tnl/%8cp/%9gl %10t/%11.$} {
#if {"%10" != "$bg"}
{
#var bg %10;
#var ltick 0;
#ticker ltick {#math {ltick} {$ltick +1}} {1}
};
#format lticks {%s%s} {$ltick} {s};
#var hpstuff2 %1(@pcnt{%1;%2}%)h %3(@pcnt{%3;%4}%)m %5(@pcnt{%5;%6}%)v - ($lticks);
#var hpstuff <ecb>%1(<g20>@percent{%1;%2}%<ecb>)h <bdd>%3(<g20>@percent{%3;%4}%<bdd>)m <cdb>%5(<g20>@percent{%5;%6}%<cdb>)v<g21> - (<bcc>$lticks<g21>);
#var otstuff <g09>[<g19>%8<g09>] <g20>@time{%10} <g09>(<g20>%7TNL<g09>/<dca>$<g20>@gold{%9}K<g09>);
#var otstuff2 [%8] @time{%10} (%7TNL/$@gold{%9}K);
#var result2 <G02> <ecb>%1(<g20>@percent{%1;%2}%<ecb>)h <bdd>%3(<g20>@percent{%3;%4}%<bdd>)m <cdb>%5(<g20>@percent{%5;%6}%<cdb>)v <g19> <g09>< lt:<g20> $lticks ago <g09>> <g19> <g09><g09>[<g19>%8<g09>] <g20>@time{%10} <g09>(<g20>%7TNL<g09>/<dca>$<g20>@gold{%9}K<g09>) <088>;
#showme {<G00>@ralign{{$otstuff<G00> }{<G00> $hpstuff}}<088>} {1}
}
{6}
#gag {~^.%1/%2(hp) %3/%4(mn) %5/%6(mv) %7tnl/%8cp/%9gl %10t/%11.$}
#action {~^.%1/%2(hp) %3/%4(mn) %5/%6(mv) %7tnl/%8cp/%9gl %10t/%11.$} {
#if {"%10" != "$bg"}
{
#var bg %10;
#var ltick 0;
#ticker ltick {#math {ltick} {$ltick +1}} {1}
};
#format lticks {%s%s} {$ltick} {s};
#var hpstuff2 %1(@pcnt{%1;%2}%)h %3(@pcnt{%3;%4}%)m %5(@pcnt{%5;%6}%)v - ($lticks);
#var hpstuff <ecb>%1(<g20>@percent{%1;%2}%<ecb>)h <bdd>%3(<g20>@percent{%3;%4}%<bdd>)m <cdb>%5(<g20>@percent{%5;%6}%<cdb>)v<g21> - (<bcc>$lticks<g21>);
#var otstuff <g09>[<g19>%8<g09>] <g20>@time{%10} <g09>(<g20>%7TNL<g09>/<dca>$<g20>@gold{%9}K<g09>);
#var otstuff2 [%8] @time{%10} (%7TNL/$@gold{%9}K);
#var result2 <G02> <ecb>%1(<g20>@percent{%1;%2}%<ecb>)h <bdd>%3(<g20>@percent{%3;%4}%<bdd>)m <cdb>%5(<g20>@percent{%5;%6}%<cdb>)v <g19> <g09>< lt:<g20> $lticks ago <g09>> <g19> <g09><g09>[<g19>%8<g09>] <g20>@time{%10} <g09>(<g20>%7TNL<g09>/<dca>$<g20>@gold{%9}K<g09>) <088>;
#showme {<G00>@ralign{{$otstuff<G00> }{<G00> $hpstuff}}<088>} {1}
}
{9}
#nop @tank1{%1} and @tankbar{%2}
#function {tank_prompt}
{
#return <G00> <ddd>%1<g22> @ <ddd>%2<bbb>% <088>
}
#function {gold}
{
#math {gold} {%1/1000.0};
#return $gold
}
#alias {greyscale}
{
#showme \e]P1292929;
#showme \e]P2898989;
#showme \e]P3b1b1b1;
#showme \e]P40c0c0c;
#showme \e]P5363636;
#showme \e]P6969696;
#if {"%1" == "full"} {
#showme \e]P9797979;
#showme \e]PACFCFCF;
#showme \e]PBF3F3F3;
#showme \e]PC616161;
#showme \e]PD858585;
#showme \e]PEDBDBDB;
#showme Full activated. };
#if {"%1" != "full" } { #showme Full not activated. };
#showme Done.
}
#alias {colorreset}
{
#showme \e]P0000000 <008>black;
#showme \e]P1AA0000 <018>red;
#showme \e]P200AA00 <028>green;
#showme \e]P3AAAA00 <038>yellow;
#showme \e]P40000AA <048>blue;
#showme \e]P5AA00AA <058>magenta;
#showme \e]P600AAAA <068>cyan;
#showme \e]P7AAAAAA <078>white;
#showme \e]P8555555 <108>light black;
#showme \e]P9FF5555 <118>light red;
#showme \e]PA55FF5A <128>light green;
#showme \e]PBFFFF55 <138>light yellow;
#showme \e]PC5555FF <148>light blue;
#showme \e]PDFF55FF <158>light magenta;
#showme \e]PE55FFFF <168>light cyan;
#showme \e]PFFFFFFF <178>light white
}
#alias {colorinit}
{
#showme <008>black;
#showme <018>red;
#showme <028>green;
#showme <038>yellow;
#showme <048>blue;
#showme <058>magenta;
#showme <068>cyan;
#showme <078>white;
#showme <108>light black;
#showme <118>light red;
#showme <128>light green;
#showme <138>light yellow;
#showme <148>light blue;
#showme <158>light magenta;
#showme <168>light cyan;
#showme <178>light white
}
#alias {darkscheme}
{
#showme \e]P8002b36;
#showme \e]P0101010;
#showme \e]PA4F8448;
#showme \e]PBCEC400;
#showme \e]PC839496;
#showme \e]PE7BB9B9;
#showme \e]P7A8A8A8;
#showme \e]PFfdf6e3;
#showme \e]P3b58900;
#showme \e]P9cb4b16;
#showme \e]P1dc322f;
#showme \e]P5d33682;
#showme \e]PDC767C9;
#showme \e]P4268bd2;
#showme \e]P62aa198;
#showme \e]P8525252;
#showme \e]P23A6136
}
#nop From colors.tin $rounddam calculations and avg damage.
#function {hp_bar}
{
#return <ecb> <ecb>@dk{%1} <ecb><ECB>@scale{{%1}{%2} {40}}<088><ecb> @dk{%2}H (<g20>@percent{%1;%2}%<ecb>) <088>
}
#function {dk}
{
#if {"@count{%1}" == "3"} {
#format {tr} {%s%s} { } {%1};
#return $tr
};
#else {
#return %1
}
}
#function {mana_bar}
{
#return <bdd> <bdd>@dk{%3} <bdd><BDD>@scale{{%3}{%4} {40}}<088><bdd> @dk{%4}M (<g20>@percent{%3;%4}%<bdd>) <088>
}
#function {ralign3}
{
#format {a} {%C};
#format {b} {%L} {%2};
#math {c} {$a - $b};
#format result {%s%+${c}s} {%2} {%1};
#replace {result} { } {_}
}
#function {ralign2}
{
#format {a} {%C};
#format {b} {%L} {%2};
#math {c} {$a - $b};
#format result {%s%+${c}s} {%2} {%1}
}
#high {[Exits: %1]} {<ccb>}
#function {move_bar}
{
#return <cdb> <cdb>@dk{%5} <cdb><CDB>@scale{{%5}{%6} {40}}<088><cdb> @dk{%6}V (<g20>@percent{%5;%6}%<cdb>) <088>
}
#function {prompt_stuff}
{
#format lticks {%s%s} {$ltick} {s};
#var hpstuff2 %1(@pcnt{%1;%2}%)h %3(@pcnt{%3;%4}%)m %5(@pcnt{%5;%6}%)v - ($lticks);
#var hpstuff <ecb>%1(<g20>@percent{%1;%2}%<ecb>)h <bdd>%3(<g20>@percent{%3;%4}%<bdd>)m <cdb>%5(<g20>@percent{%5;%6}%<cdb>)v - ($lticks);
#var otstuff <g09>[<g19>%8<g09>] <g20>@time{%10} <g09>(<g20>%7TNL<g09>/<dca>$<g20>@gold{%9}K<g09>);
#var otstuff2 [%8] @time{%10} (%7TNL/$@gold{%9}K);
#var result2 <G02> <ecb>%1(<g20>@percent{%1;%2}%<ecb>)h <bdd>%3(<g20>@percent{%3;%4}%<bdd>)m <cdb>%5(<g20>@percent{%5;%6}%<cdb>)v <g19> <g09>< lt:<g20> $lticks ago <g09>> <g19> <g09><g09>[<g19>%8<g09>] <g20>@time{%10} <g09>(<g20>%7TNL<g09>/<dca>$<g20>@gold{%9}K<g09>) <088>;
#return <G00>@ralign{{$hpstuff}{$otstuff}}<088>
}
#nop %1 $object %2 $type %3 $mat %4$extra %5$weight %6$value %7$lvl %8$ac %9$affc
#function {reg_id} {
#line log C:/Users/James/Desktop/items.txt .%1. L%7, %2, %3.%4.%8, w%5, v%6, %9.
}
#VARIABLE {SCALE8} {{0}{<AAA> }{1}{#}{2}{#}{3}{#}{4}{#}{5}{#}{6}{#}{7}{#}{8}{#}}
#FUNCTION {upper}
{
#format {upper} {%u} {%1};
#return $upper
}
#FUNCTION {lower}
{
#format {lower} {%l} {%1};
#return $lower
}
#FUNCTION {md}
{
#if {"%1" == "M"} {#return mounted};
#if {"%1" == "D"} {#return not mounted};
#else {#return %1}
}
#FUNCTION {scale}
{
#variable scale1 {%1};
#nop scale value ;
#variable scale2 {%2};
#nop scale max value ;
#variable scaleC {%3};
#nop number of characters in scale ;
#math scaleM {$scaleC*8};
#nop scale0 = number of characters in scale ;
#math scale3 {(%1*$scaleM)/%2};
#if {$scale3>$scaleM}
{
#variable scale3 $scaleM
};
#if {$scale3<0}
{
#variable scale3 0
};
#variable result {} ;
#loop {1} {$scaleC} {loop}
{
#if {$scale3>=8}
{
#variable scale4 8
};
#else
{
#variable scale4 $scale3
};
#math scale3 {$scale3-$scale4};
#format result {%s%s} {$result} {$SCALE8[$scale4]}
}
}
#function {ralign}
{
#format {a} {%C};
#nop #var {d} {@count{%2}};
#format {d} {%L} {%2};
#math {e} {$a - $d};
#format {b} {%s%s%s} {%%+} {$e} {s};
#format {c} {$b} {%1};
#format {f} {%s%s} {%2} {$c};
#return $f
}
#FUNCTION {count}
{
#variable count 0;
#parse {%1} {dm}
{
#math {count} {$count +1}
};
#return $count
}
#function {cpercent}
{
#switch {%1 / 10}
{
#case {0} {#return <faa>};
#case {1} {#return <fba>};
#case {2} {#return <fca>};
#case {3} {#return <fda>};
#case {4} {#return <fea>};
#case {5} {#return <ffa>};
#case {6} {#return <efa>};
#case {7} {#return <dfa>};
#case {8} {#return <cfa>};
#case {9} {#return <bfa>};
#case {10} {#return <afa>};
#default {#return <afa>}
}
}
{5}
#function {cupper}
{
#switch {%1 / 10}
{
#case {0} {#return <FAA>};
#case {1} {#return <FBA>};
#case {2} {#return <FCA>};
#case {3} {#return <FDA>};
#case {4} {#return <FEA>};
#case {5} {#return <FFA>};
#case {6} {#return <EFA>};
#case {7} {#return <DFA>};
#case {8} {#return <CFA>};
#case {9} {#return <BFA>};
#case {10} {#return <AFA>};
#default {#return <AFA>}
}
}
{5}
#FUNCTION {tank1}
{
#var c %1;
#replace {c} {:} {};
#format {res} {%p} {$c};
#return $res
}
{5}
#FUNCTION {tankbar}
{
#if {!%1} {#return 0};
#else {
#var b %1;
#replace {b} {[} {};
#replace {b} {]} {};
#format {res2} {%p} {$b};
#return $res2
}
}
{5}
#function {time}
{
#if {%1 > 12} {#math time {%1 - 12};#format {res} {%s%+0s} {$time} {PM}};
#if {%1 < 12} {#var res %1AM};
#if {%1 == 12} {#var res 12PM};
#if {"$res" == "0AM"} {#return 12AM};
#else {#return $res}
}
{5}
#function {percent}
{
#math {percent} {100 * %1 / %2};
#switch {$percent / 10}
{
#case {0} {#var perc3 $percent<faa>};
#case {1} {#var perc3 $percent<fba>};
#case {2} {#var perc3 $percent<fca>};
#case {3} {#var perc3 $percent<fda>};
#case {4} {#var perc3 $percent<fea>};
#case {5} {#var perc3 $percent<ffa>};
#case {6} {#var perc3 $percent<efa>};
#case {7} {#var perc3 $percent<dfa>};
#case {8} {#var perc3 $percent<cfa>};
#case {9} {#var perc3 $percent<bfa>};
#default {#var perc3 $percent<afa>}
};
#return $perc3
}
{5}
#function {pcnt}
{
#math {pcnt} {100 * %1 / %2};
#switch {$pcnt / 10}
{
#case {0} {#var pcnt3 $pcnt};
#case {1} {#var pcnt3 $pcnt};
#case {2} {#var pcnt3 $pcnt};
#case {3} {#var pcnt3 $pcnt};
#case {4} {#var pcnt3 $pcnt};
#case {5} {#var pcnt3 $pcnt};
#case {6} {#var pcnt3 $pcnt};
#case {7} {#var pcnt3 $pcnt};
#case {8} {#var pcnt3 $pcnt};
#case {9} {#var pcnt3 $pcnt};
#default {#var pcnt3 $pcnt}
};
#return $pcnt3
}
{5}
#act {^Object '%1' is type %2, material %3.$} {
#var id 1;
#var affc ,;
#var object %1;
#var type %2;
#var mat %3
}
#act {^Extra flags: %1.} {
#if {$id>0} { #var extra %1 }
}
#act {^Weight is %1, value is %2, level is %3.$} {
#if {$id>0} { #var weight %1; #var value %2; #var lvl %3 }
}
#act {^Armor class is %1 pierce, %2 bash, %3 slash, and %4 vs. magic.$}
{
#if {$id>0} { #var ac %1 %2 %3 %4 }
}
#act {^Affects %1 by %2.$} {
#if {$id>0} {
#var affc $affc , %1 by %2
}
}
#class {prompt} {close}