Register to post in forums, or Log in to your existing account
 

Play RetroMUD
Post new topic  Reply to topic     Home » Forums » Finished MUD Scripts
Jah
Wanderer


Joined: 11 Oct 2000
Posts: 52
Location: Sweden

PostPosted: Thu Dec 25, 2003 8:23 pm   

magic dragon healthchecker
 
#CLASS {Healthchecker}
#TRIGGER {%s(%d)/(%d)%****,*move, *mana (%*)} {#var name %3;#if %ismember( @name, @Group) {#noop} {#var Group %additem( @name, @Group)};;Begin bar calculation;#var bars "";#var bar =;#var numbars 50;#math bars {%1 * 50 / %2};#var vamped "";#if (@bars >= 51) {#var bars 50;#var vamped 1};#math spacenum {50 - @bars};#var barspace {%repeat( ".", @spacenum)};#if (@bars < 10) {#var bar %ansi( blink, high, red)%repeat( @bar, @bars)} {#if (@bars < 16) {#var bar %ansi( high, red)%repeat( @bar, @bars)} {#if (@bars < 26) {#var bar %ansi( high, yellow)%repeat( @bar, @bars)} {#if (@bars < 38) {#var bar %ansi( high, green)%repeat( @bar, @bars)} {#if (@bars < 48) {#var bar %ansi( high, green)%repeat( @bar, @bars)} {#if (@bars <= 50) {#if (@vamped==1) {#var bar %ansi( grey)%repeat( @bar, 44)VAMPED} {#var bar %ansi( grey)%repeat( @bar, @bars)}}}}}}};;End bar calculation;#var hp %1;#var maxhp %2;#Var sub %line;#math minus (@hp - @maxhp);#math minusplus (@maxhp - @hp);#if (@minusplus<=0) {#var minusplus 0};#math status (@hp*100/@maxhp);#if (@status<0) {#VAR sub2 @status} {#if (@status<20) {#var sub2 {%ansi( blink, high, red) @status~% @minus}} {#if (@status<31) {#VAR sub2 {%ansi( high, red) @status~% @minus}} {#if (@status<51) {#VAR sub2 {%ansi( high, yellow) @status~% @minus}} {#if (@status<76) {#VAR sub2 {%ansi( high, green) @status~% @minus}} {#if (@status<97) {#VAR sub2 {%ansi( high, green) @status~% @minus}} {#if (@status<1000) {#VAR sub2 ""}}}}}}};#if (@status<599) {#SUB {@bar@barspace @name @sub2}};#if (@status<97) {#addkey healthchecker {@name=@minusplus}};#VAR sub ""}
#TRIGGER {$} {#var templist "";#var templist2 "";#var gnum "";#T- Healthchecker;:group: #CLR;#LOOPDB @healthchecker {#VARIABLE templist %concat( @templist, "|", %repeat( "0", 4 - %len( %val)), %val, "=", %key)};#VARIABLE templist %delete( @templist, 1, 1);#VARIABLE templist %sort( @templist, 1);#VARIABLE templist2 %sort( @templist, 1);#FORALL @templist {#add gnum 1;:group: #SHOW F@gnum : %concat( %copy( %i, %pos( "=", %i) + 1, %len( %i) - %pos( "=", %i) + 1), ": -", %number( %copy( %i, 1, %pos( "=", %i) - 1)));#key F@gnum {h %copy( %i, %pos( "=", %i) + 1, %len( %i) - %pos( "=", %i) + 1)}};#Var healthchecker ""}
#CLASS 0

#CLASS {Healtchecker always on}
#TRIGGER {^Your group consists of:} {#var group "";#var Gnum 0;#T+ Healthchecker;:group: #clr}
#CLASS 0
Reply with quote
Display posts from previous:   
Post new topic   Reply to topic     Home » Forums » Finished MUD Scripts All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

© 2009 Zugg Software. Hosted by Wolfpaw.net