View difference between Paste ID: uYUsyYV5 and nNkksqk7

 $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)@[email protected]@rc + @cup( $y2, $x)@cw$dash@rc)}
 ;;
 $disp = ($disp + @cup( 23, 27)@cy%format( "&6d", @gmcpqc)@rc)
 ;;
 #IF ($disp != "") {#WINDOW @gmcpwin {$disp}}
 ;;
 #T+ gmcptimer