The Forsaken Lands Wiki

#class {info} {kill}
#class {prompt} {kill}
#class {info} {open}

#split 0 5
#nop #sub {~^.%1/%2(hp) %3/%4(mn) %5/%6(mv) %7tnl/%8cp/%9gl %10t/%11.$} {@info{%1;%2;%3;%4;%5;%6;%7;%8;%9;%10;%11}} {9}
#nop #sub {~^.\e[0;1;33m%1\e[0;0m/%2(hp) %3/%4(mn) %5/%6(mv) %7tnl/%8cp/%9gl %10t/%11.$} {@info{%1;%2;%3;%4;%5;%6;%7;%8;%9;%10;%11}} {6}
#nop #sub {~^.\e[0;31m%1\e[0;0m/%2(hp) %3/%4(mn) %5/%6(mv) %7tnl/%8cp/%9gl %10t/%11.$} {@info{%1;%2;%3;%4;%5;%6;%7;%8;%9;%10;%11}} {6}
#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.$} {
#showme {@hp_bar{%1;%2;%3;%4;%5;%6;%7;%8;%9;%10;%11}} {4};
#showme {@mana_bar{%1;%2;%3;%4;%5;%6;%7;%8;%9;%10;%11}} {3};
#showme {@move_bar{%1;%2;%3;%4;%5;%6;%7;%8;%9;%10;%11}} {2}
}
{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.$} {
#showme {@hp_bar{%1;%2;%3;%4;%5;%6;%7;%8;%9;%10;%11}} {4};
#showme {@mana_bar{%1;%2;%3;%4;%5;%6;%7;%8;%9;%10;%11}} {3};
#showme {@move_bar{%1;%2;%3;%4;%5;%6;%7;%8;%9;%10;%11}} {2}
}
{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.$} {
#showme {@hp_bar{%1;%2;%3;%4;%5;%6;%7;%8;%9;%10;%11}} {4};
#showme {@mana_bar{%1;%2;%3;%4;%5;%6;%7;%8;%9;%10;%11}} {3};
#showme {@move_bar{%1;%2;%3;%4;%5;%6;%7;%8;%9;%10;%11}} {2}
} 
{9}

#function {info}
{
  #var cur_hp %1;
  #var max_hp %2;
  #var cur_mana %3;
  #var max_mana %4;
  #var cur_move %5;
  #var max_move %6;
  #var cur_cp %8;
  #var cur_gold %9;
  #format {cur_gold} {%s%s} {$} {$cur_gold};
  #format {cur_cp} {%s%s} {$cur_cp} {CP};
  #format {cur_hp2} {%s%s} {$cur_hp} {H};
  #format {cur_mana2} {%s%s} {$cur_mana} {M};
  #format {cur_move2} {%s%s} {$cur_move} {V};
  
  #nop #var result <G00> <g10>%1<g22>(<g10>@percent{%1;%2}%<g22>)h <g10>%3<g22>(<g10>@percent{%3;%4}%<g22>)m <g10>%5<g22>(<g10>@percent{%5;%6}%<g22>)v  <g19> <g12>< <g19> <g12>[<g04>%8<g12>] <g11>@time{%10} <g22>(<g10>%7TNL<g22>/<dca>$<g10>@gold{%9}K<g22>) <088>;
  #var result -;
  #return $result
}

#unvar SCALE10 
#var SCALE10[0]  {----------} 
#var SCALE10[1]  {<fbb><FBB>#<088>##################} 
#var SCALE10[2]  {<fbb><FBB>#<fcb><FCB>##<AAA><aaa>################} 
#var SCALE10[3]  {<fbb><FBB>#<fcb><FCB>##<fdb><FDB>##<AAA><aaa>##############} 
#var SCALE10[4]  {<fbb><FBB>#<fcb><FCB>##<fdb><FDB>##<feb><FEB>##<AAA><aaa>############} 
#var SCALE10[5]  {<fbb><FBB>#<fcb><FCB>##<fdb><FDB>##<feb><FEB>##<ffb><FFB>##<AAA><aaa>##########} 
#var SCALE10[6]  {<fbb><FBB>#<fcb><FCB>##<fdb><FDB>##<feb><FEB>##<ffb><FFB>##<efb><EFB>##<AAA><aaa>########} 
#var SCALE10[7]  {<fbb><FBB>#<fcb><FCB>##<fdb><FDB>##<feb><FEB>##<ffb><FFB>##<efb><EFB>##<dfb><DFB>##<AAA><aaa>######} 
#var SCALE10[8]  {<fbb><FBB>#<fcb><FCB>##<fdb><FDB>##<feb><FEB>##<ffb><FFB>##<efb><EFB>##<dfb><DFB>##<cfb><CFB>##<AAA><aaa>####} 
#var SCALE10[9]  {<fbb><FBB>#<fcb><FCB>##<fdb><FDB>##<feb><FEB>##<ffb><FFB>##<efb><EFB>##<dfb><DFB>##<cfb><CFB>##<bfb><BFB>##<AAA><aaa>##} 
#var SCALE10[10] {<fbb><FBB>#<fcb><FCB>##<fdb><FDB>##<feb><FEB>##<ffb><FFB>##<efb><EFB>##<dfb><DFB>##<cfb><CFB>##<bfb><BFB>##<afb><AFB>##<AAA><aaa>} 
#unvar SCALE8 
#VARIABLE         {SCALE8}  {{0}{<AAA> }{1}{|}{2}{|}{3}{|}{4}{|}{5}{|}{6}{|}{7}{|}{8}{|}}


#nop #format SCALE8[0] {<AAA> }; 
#nop #format SCALE8[1] {\xE2\x96\x8F}; 
#nop #format SCALE8[2] {\xE2\x96\x8E}; 
#nop #format SCALE8[3] {\xE2\x96\x8D}; 
#nop #format SCALE8[4] {\xE2\x96\x8C}; 
#nop #format SCALE8[5] {\xE2\x96\x8B}; 
#nop #format SCALE8[6] {\xE2\x96\x8A}; 
#nop #format SCALE8[7] {\xE2\x96\x89}; 
#nop #format SCALE8[8] {\xE2\x96\x88}; 

#function {scale2} { 
  #var scale1 {%1}; 
  #var scale2 {%2}; 
  #math scale3 {((%1*100)/%2+5)/10}; 
  #if {$scale3>10} {#var scale3 10};  
  #if {$scale3<0}  {#var scale3 0};  
  #var result $SCALE10[$scale3]; 
}  

{1}
#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
  };
  #if {"@count{%1}" == "2"} {
    #format {tr} {%s%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 {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 {tank_prompt} 
{

	#math {avground} {$rounddam / $avgdam};
	#if {"$avground" == "0"} {
		#return <G00> <ddd>@tank1{%1}<g22> @ <ddd>@tankbar{%2}<bbb>% <088>
	};
	#else {
		#return <G00> <ddd>@tank1{%1}<g22> @ <ddd>@tankbar{%2}<bbb>%<eee> : <ddd>damage <g22>@<bbb> $rounddam<ddd> : hits<g22> @<bbb> $avgdam <ddd>: avg<g22> @<bbb> $avground<088>
	}
}
#function {gold}
{
	#math {gold} {%1/1000.0};
	#return $gold
}
#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 {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};
	#var {d} {@count{%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 Error};
	#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 {regp} 
{
  #if {"@count{%1}" == "3"} {
  #return %1
  };
  #if {"@count{%1}" == "2"} {
  #format regp {%s%s} {0} {%1};
  #return $regp
  };
  #else {
  #format regp {%s%s} {00} {%1};
  #return $regp
  }
}
#function {percent}
{
	#math {percent} {100 * %1 / %2};
	#switch {$percent / 10}
	{
		#case {0} {#var perc3 @regp{$percent}<faa>};
		#case {1} {#var perc3 @regp{$percent}<fba>};
		#case {2} {#var perc3 @regp{$percent}<fca>};
		#case {3} {#var perc3 @regp{$percent}<fda>};
		#case {4} {#var perc3 @regp{$percent}<fea>};
		#case {5} {#var perc3 @regp{$percent}<ffa>};
		#case {6} {#var perc3 @regp{$percent}<efa>};
		#case {7} {#var perc3 @regp{$percent}<dfa>};
		#case {8} {#var perc3 @regp{$percent}<cfa>};
		#case {9} {#var perc3 @regp{$percent}<bfa>};
		#default {#var perc3 @regp{$percent}<afa>}
	};
	#return $perc3
}
{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
   }
}