[acer20006]

$sdata ="CCA01A0BA438000022191B49CF01000000000064000000DF2A0000000000003A02010000000500000000DA070000F3020000000000000000000000002D080100000000DC2B000000000000000000000024000000000100020003000400000000DD2B000000000000000000000027000000000100020003000500000000DE2B000000000000000000000024000000000100020003000600000000FA2800000000000000000000002E000000000100020003000D00000000421D000001000E00000000431D000001000F000000008F4C00001300100000000002290000000000000000000000290000000001000200030005010000000000305B00000000000000000000000000000004F600000001000000F700000001000000F800000005000000FC00000005000000010002000300000B00000101020000000102020000000103020000000104020000000105020000000106020000030200020100010000000781010000100018080101011600534E5F434F4E5F5145565F414C4C5F42415349435F31010000000082010000100018080101011600534E5F434F4E5F5145565F414C4C5F42415349435F32010000000083010000100018080101011600534E5F434F4E5F5145565F414C4C5F42415349435F33010000000084010000100018080101011600534E5F434F4E5F5145565F414C4C5F42415349435F34010000000085010000100018080101011600534E5F434F4E5F5145565F414C4C5F42415349435F35010000000086010000100018080101011600534E5F434F4E5F5145565F414C4C5F42415349435F3601000000008D010000100018080101011600534E5F434F4E5F5145565F414C4C5F42415349435F3001000000000000000000C3A651006C6A1470874300003443FCE3B344E817000100E817000000000000008041000048420000C8420005004E4153B0C500000000000100000000000000000000000000FFD71BC10B00000000678B1700000705014AEA030064024AF0030064034AEE030064044AF8030064054AEB03006400000000000000000000010001000000"
$Currhartype = dec(FixDword(StringMid ($sData, 8, 8)))
$Currlvl = (( StringMid ($sData, 19, 2)))
$maxlvl  = dec(( StringMid ($sData, 21, 2)))
$Currharexp = dec(FixDword( StringMid ($sData, 23, 8))) 
$CurrharSp = dec(FixDword( StringMid ($sData, 63, 8)))
$gold = dec(fixdword( StringMid ($sData, 47, 16)))    
$Currzerk = dec(fixbyte( StringMid ($sData, 67, 2)))
$CurrHP = (dec(FixDword( StringMid ($sData, 85, 8))))
$CurrMP = (dec(FixDword( StringMid ($sData, 93, 8))))
MsgBox(acer20006,"Sdata","LVL "&$Currlvl&@CRLF&"MAXLVL "& $maxlvl &@CRLF&"$Currharexp   "& $Currharexp &@CRLF&"SP   "   & $CurrharSp &@CRLF&"Gold   "& $gold  &@CRLF&"$CurrHP   "& $CurrHP &@CRLF&"$CurrMP   "& $CurrMP )



Func fixbyte($word)
        Return StringMid($word, 2, 1) & StringMid($word, 1, 1)
        EndFunc
Func FixWord($word)
    Return StringMid($word, 3, 2) & StringMid($word, 1, 2)
EndFunc
Func FixDword($word)
    Return StringMid($word, 7, 2) & StringMid($word, 5, 2) & StringMid($word, 3, 2) & StringMid($word, 1, 2)
EndFunc

Func fixqword($word)
    Return StringMid($word, 15, 2) & StringMid($word, 13, 2) & StringMid($word, 11, 2) & StringMid($word, 9, 2)&StringMid($word, 7, 2) & StringMid($word, 5, 2) & StringMid($word, 3, 2) & StringMid($word, 1, 2)
    EndFunc