[WeGs]

المشاركة الأصلية كتبت بواسطة 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

شكرا طبعا على الاسكربت بس هوا لية ثابت يعنى موش المفرود انو بيقرأ بيانات الشخصية ولا اية ؟؟