Gammon Forum

(ch->fighting && ch->fighting->who) ? "true" : "false",

t.bar.HP = 40; t.maxbar.HP = 100; 
t.bar.Move = 10; t.maxbar.Move = 50;
t.bar.Guile = 500; t.maxbar.Guile = 600;

t.combat = true;   -- or false obviously
t.dead = true;
t.status.blind = true;    -- status afflictions (debuffs)
t.status.stunned = true; 

t.target.name = "Large Naga"; 
t.target.percent.HP = 40;
t.target.percent.Mana = 30;

"bar":
  "Mana":
    "max"=94
    "cur"=94
  "HP":
    "max"=43
    "cur"=23
  "Move":
    "max"=110
    "cur"=90
"level"=2
"xp":
  "max"=6509
  "cur"=2691

IAC SB 102

name="Nick";

bar={
HP={cur=18;max=43;seq=1};
Mana={cur=42;max=94;seq=2};
Move={cur=90;max=110;seq=3};
Endurance={pct=80,clr="chocolate",seq=4};
};

xp={cur=2691;max=6509};

level=14;
combat=false;

buffs={"bless", "bless", "armor", "swim", "fly", "stealth"}; 

debuffs={"blind", "sick", "sick", "poison", "stunned"}

IAC SE

void show_status( CHAR_DATA *ch )
{
  
   if (WANT_TELNET_INFO (ch))
     {     
     CHAR_DATA * victim = NULL;
     
     if (ch->fighting)
       victim = ch->fighting->who;

     char * pPlayerName;
     pPlayerName = fixup_lua_strings (ch->name);
      
     char buf[MAX_STRING_LENGTH];
     snprintf(buf, sizeof (buf), 
               "\xFF\xFA\x66"         // IAC SB 102
               "tt=\"status\";"       // transaction type: status
               "name=%s;"
               "bar={"                // status bar info
               "HP={cur=%d;max=%d};"      // hp points
               "Mana={cur=%d;max=%d};"    // mana 
               "Move={cur=%d;max=%d};"    // movement
               "};"                   // end bar table
               "xp={cur=%d;max=%d};"  // experience
               "gold=%i;"             // gold
               "level=%d;"            // level
               "combat=%s;"           // in combat or not
               "dead=%s;"             // dead?
               "poisoned=%s;",        // poisoned?
               pPlayerName,
               ch->hit,
               ch->max_hit,
               IS_VAMPIRE( ch ) ? 0 : ch->mana,
               IS_VAMPIRE( ch ) ? 0 : ch->max_mana,
               ch->move,
               ch->max_move,
               ch->exp,
               exp_level( ch, ch->level + 1 ) - ch->exp,
               ch->gold,
               ch->level,
               (ch->fighting && ch->fighting->who) ? "true" : "false",
               TRUE_OR_FALSE (char_died( ch )),
               TRUE_OR_FALSE (IS_AFFECTED( ch, AFF_POISON ))
               );
      free (pPlayerName); 
           
      if( ch->first_affect )
       {
       AFFECT_DATA *paf;
       SKILLTYPE *sktmp;
       char * pAffectName;

       strncpy(&buf [strlen (buf)], "buffs={", sizeof (buf) - strlen (buf)); 
       for( paf = ch->first_affect; paf; paf = paf->next )
         {
         if (sktmp = get_skilltype( paf->type ))
            {
           pAffectName = fixup_lua_strings (sktmp->name);
            
            snprintf(&buf [strlen (buf)], sizeof (buf) - strlen (buf), 
                 "%s;", pAffectName);
                           
            free (pAffectName); 
           }
           
         } // end for loop
       strncpy(&buf [strlen (buf)], "};", sizeof (buf) - strlen (buf)); 
       }  // end if any affects
             
               
      // combat info
      if (victim)
        {
         const char * p = "You";
         char * pName;
         
         if (ch != victim)
           {
           if (IS_NPC( victim ) )
             p = victim->short_descr;
           else
             p = victim->name;
           }
      
         pName = fixup_lua_strings (p);
         
         snprintf(&buf [strlen (buf)], sizeof (buf) - strlen (buf), 
                 "victim={name=%s;" // name
                 "hp=%d;maxhp=%d;"      // hp points
                 "level=%d;"            // level
                 "};",
                 pName,
                 victim->hit,
                 victim->max_hit,
                 victim->level
               );
         free (pName); 
       }
                   
     // finish telnet negotiation after the combat info
     strncpy(&buf [strlen (buf)], "\xFF\xF0", sizeof (buf) - strlen (buf));  // IAC SE
               
     send_to_char( buf, ch );
   }
  
} 

               write_to_descriptor(d, "\xFF\xFA\x66 tt=\"version\";version=1.0;\xFF\xF0", 0);
               // define bar colours
               write_to_descriptor(d, "\xFF\xFA\x66 bar={"
                                      "HP={clr=\"darkgreen\"};"     // hp
                                      "Mana={clr=\"mediumblue\"};"  // mana 
                                      "Move={clr=\"gold\"};"        // movement
                                      "};"                          // end bar
                                      "\xFF\xF0", 0);