$disp = ""
;;
$x = 9
$y = 12
;;
#IF (!%null( @chardb.hp) AND @chardb.hp != @gmcpdb.hp) {
  $v = (@chardb.hp * 100 / @chardb.maxhp)
  $c = %switch( $v > 100, 1, $v > 75, 2, $v > 50, 3, $v > 25, 4, true, 5)
  $disp = ($disp + @cup( $y, $x)@vclr.$c%format( "&5d", @chardb.hp)@rc)
  }
;;
$y = $y + 1
;;
#IF (!%null( @chardb.mana) AND @chardb.mana != @gmcpdb.mana) {
  $v = (@chardb.mana * 100 / @chardb.maxmana)
  $c = %switch( $v > 75, 2, $v > 50, 3, $v > 25, 4, true, 5)
  $disp = ($disp + @cup( $y, $x)@vclr.$c%format( "&5d", @chardb.mana)@rc)
  }
;;
$y = $y + 1
;;
#IF (!%null( @chardb.moves) AND @chardb.moves != @gmcpdb.moves) {
  $v = (@chardb.moves * 100 / @chardb.maxmoves)
  $c = %switch( $v > 75, 2, $v > 50, 3, $v > 25, 4, true, 5)
  $disp = ($disp + @cup( $y, $x)@vclr.$c%format( "&5d", @chardb.moves)@rc)
  }
;;
$pattern = (%char( 64) + "(?<n>\w)")
;;
$x1    = 9
$x2    = 28
$x3    = 9
$x4    = 25
$x5    = 10
$x6    = 29
$y     = 4
$y1    = 16
$y2    = 25
;;
#IF (@chardb.state != @gmcpdb.state AND @gmcpdb.state != 7 AND @gmcpdb.state != 12 AND @chardb.state = 3) {sps}
;;
gmcpstate = @chardb.state
;;
#IF (@gmcpdb.level != @chardb.level) {
  $disp = ($disp + @cup( $y, $x1)@cy%format( "&3d", @chardb.level)@rc)
  }
;;
#IF (@gmcpdb.tnl != @chardb.tnl) {$disp = ($disp + @cup( $y, $x2)@cy%format( "&5d", @chardb.tnl)@rc)}
;;
$y = $y + 2
;;
$state = %switch(@gmcpstate = 12, (@cy + "|MOVING   "), @gmcpstate = 8, (@cr2 + "|IN COMBAT"), @gmcpstate = 4, (@cm + "|AFK      "), @gmcpstate = 5, (@cc + "|NOTE     "), @gmcpstate = 9, (@cm + "|SLEEPING"), @gmcpstate = 11, (@cy + "|RESTING  "), true, (@cg"|STANDING "))
;;
#IF (@gmcpdb.align != @chardb.align) {
  $v = %switch( @chardb.align > 875, @cg, @chardb.align > -876, @cy, true, @cr)
  $disp = ($disp + @cup( $y, $x3)$v%format( "&4d", @chardb.align)@rc)
  }
;;
$disp = ($disp + @cup( $y, $x4)$state.1$state.2@rc)
;;
$y = 18
;;
#IF (@gmcpdb.hunger != @chardb.hunger) {
  $v = %switch( @chardb.hunger > 75, @cg, @chardb.hunger > 50, @cy, @chardb.hunger > 25, @cm, true, @cr)
  $disp = ($disp + @cup( $y, $x5)$v%format( "&3d", @chardb.hunger)"%"@rc)
  }
;;
#IF (@gmcpdb.thirst != @chardb.thirst) {
  $v = %switch( @chardb.thirst > 75, @cg, @chardb.thirst > 50, @cy, @chardb.thirst > 25, @cm, true, @cr)
  $disp = ($disp + @cup( $y, $x6)$v%format( "&3d", @chardb.thirst)"%"@rc)
  }
;;
$y2 = $y2 + 2
;;
#IF (@chardb.state != 8) {
  $disp = ($disp + @cup( $y2, 1)@eol)
  $y2  = $y2 + 1
  $disp = ($disp + @cup( $y2, 1)@eol)
  }
  {
  $enemy = %left( @chardb.enemy, 22)
  $disp = ($disp + @cup( $y2, 2)@cw"ENEMY: "@rc)
  $disp = ($disp + @cup( $y2, 9)@cacolorn( $enemy)@rc)
  $y2 = $y2 + 1
  $disp = ($disp + @cup( $y2, 2)@cc"ENEMY HP%: "@rc)
  $disp = ($disp + @cup( $y2, 13)@cr2%format( "&3d", @chardb.enemypct)%@rc)
  }
;;
$x1 = 7
$x2 = 22
$x3 = 28
$y  = 8
;;
#IF (@gmcpdb.int != @chardb.int) {$disp = ($disp + @cup( $y, $x1)@cy%format( "&3d", @chardb.int)@rc)}
#IF (@gmcpdb.wis != @chardb.wis) {$disp = ($disp + @cup( $y, $x2)@cy%format( "&3d", @chardb.wis)@rc)}
;;
$y = $y + 1
;;
#IF (@gmcpdb.str != @chardb.str) {$disp = ($disp + @cup( $y, $x1)@cy%format( "&3d", @chardb.str)@rc)}
#IF (@gmcpdb.con != @chardb.con) {$disp = ($disp + @cup( $y, $x2)@cy%format( "&3d", @chardb.con)@rc)}
;;
$y = $y + 1
;;
#IF (@gmcpdb.dex  != @chardb.dex)  {$disp = ($disp + @cup( $y, $x1)@cy%format( "&3d", @chardb.dex)@rc)}
#IF (@gmcpdb.luck != @chardb.luck) {$disp = ($disp + @cup( $y, $x2)@cy%format( "&3d", @chardb.luck)@rc)}
;;
$y = 12
;;
#IF (@gmcpdb.hr != @chardb.hr) {$disp = ($disp + @cup( $y, $x3)@cy%format( "&4d", @chardb.hr)@rc)}
;;
$y = $y + 1
;;
#IF (@gmcpdb.dr != @chardb.dr) {$disp = ($disp + @cup( $y, $x3)@cy%format( "&4d", @chardb.dr)@rc)}
;;
$y = $y + 1
;;
#IF (@gmcpdb.saves != @chardb.saves) {$disp = ($disp + @cup( $y, $x3)@cy%format( "&4d", @chardb.saves)@rc)}
;;
$x1 = 10
$x2 = 28
$x3 = 8
$x4 = 28
$y  = 16
;;
#IF (@chardb.trains != @gmcpdb.trains) {$disp = ($disp + @cup( $y, $x1)@cy%format( "&4d", @chardb.trains)@rc)}
#IF (@chardb.pracs  != @gmcpdb.pracs)  {$disp = ($disp + @cup( $y, $x2)@cy%format( "&4d", @chardb.pracs)@rc)}
;;
$y = 20
;;
#IF (@chardb.bank != @gmcpdb.bank) {$disp = ($disp + @cup( $y, $x3)@cy%format( "&15.0n", @chardb.bank)@rc)}
;;
$y = 21
;;
#IF (@chardb.gold != @gmcpdb.gold) {$disp = ($disp + @cup( $y, $x3)@cy%format( "&15.0n", @chardb.gold)@rc)}
#IF (@chardb.tp   != @gmcpdb.tp)   {$disp = ($disp + @cup( $y, $x4)@cy%format( "&5d", @chardb.tp)@rc)}
;;
$y = 23
;;
#IF (@chardb.qp != @gmcpdb.qp) {$disp = ($disp + @cup( $y, 6)@cy%format( "&8d", @chardb.qp)@rc)}
;;
$x1 = 11
$x2 = 26
$x3 = 15
$y  = 8
;;
#IF (@gmcpdb.maxint != @chardb.maxint) {$disp = ($disp + @cup( $y, $x1)@oc%format( "&3d", @chardb.maxint)@rc)}
#IF (@gmcpdb.maxwis != @chardb.maxwis) {$disp = ($disp + @cup( $y, $x2)@oc%format( "&3d", @chardb.maxwis)@rc)}
$y = $y + 1
#IF (@gmcpdb.maxstr != @chardb.maxstr) {$disp = ($disp + @cup( $y, $x1)@oc%format( "&3d", @chardb.maxstr)@rc)}
#IF (@gmcpdb.maxcon != @chardb.maxcon) {$disp = ($disp + @cup( $y, $x2)@oc%format( "&3d", @chardb.maxcon)@rc)}
$y = $y + 1
#IF (@gmcpdb.maxdex  != @chardb.maxdex)  {$disp = ($disp + @cup( $y, $x1)@oc%format( "&3d", @chardb.maxdex)@rc)}
#IF (@gmcpdb.maxluck != @chardb.maxluck) {$disp = ($disp + @cup( $y, $x2)@oc%format( "&3d", @chardb.maxluck)@rc)}
;;
$y = 12
;;
#IF (@gmcpdb.maxhp != @chardb.maxhp)       {$disp = ($disp + @cup( $y, $x3)@oc%format( "&5d", @chardb.maxhp)@rc)}
;;
$y = $y + 1
;;
#IF (@gmcpdb.maxmana != @chardb.maxmana)   {$disp = ($disp + @cup( $y, $x3)@oc%format( "&5d", @chardb.maxmana)@rc)}
;;
$y = $y + 1
;;
#IF (@gmcpdb.maxmoves != @chardb.maxmoves) {$disp = ($disp + @cup( $y, $x3)@oc%format( "&5d", @chardb.maxmoves)@rc)}
;;
$x  = (34 - %len( @chardb.name)) / 2
$y1 = 1
$y2 = $y1 + 1
;;
$dash = %repeat( "-", %len( @chardb.name))
;;
#IF (@gmcpdb.name != @chardb.name) {$disp = ($disp + @cup( $y1, $x)@cw@chardb.name@rc + @cup( $y2, $x)@cw$dash@rc)}
;;
$disp = ($disp + @cup( 23, 27)@cy%format( "&6d", @gmcpqc)@rc)
;;
#IF ($disp != "") {#WINDOW @gmcpwin {$disp}}
;;
#T+ gmcptimer