We dont like racist forum fuc|< you.
$exphesap = $CurrentExp / $explvl * 100 ($explvl = want of lvling max. exp)Quote:
i like how the statusbar says 70.33 and your xp bar says 70.34.
anyways! lol. good work deswa.
~ Kaz
$size = FileGetSize("SRO_Client.exe")
$file = FileOpen("SRO_Client.exe", 4)
$content = FileRead($file, $size)
$base = StringRegExp($content, "8B0D(.{6}?)0080", 3)
$base = $base[0]&"00"
$maxhp = StringMid($content, StringInStr($content, "8B3D"&$base&"8BBF", 2)+StringLen("8B3D"&$base&"8BBF"), 8)
$curhp = calc($maxhp, 0x8)
$maxmp = calc($maxhp, 0x4)
$curmp = calc($maxhp, 0x4, "sub")
$lvl = StringMid($content, StringInStr($content, "8B0D"&$base&"0FB691", 2)+StringLen("8B0D"&$base&"0FB691"), 8)
$str = StringMid($content, StringInStr($content, "A1"&$base&"0FB788", 2)+StringLen("A1"&$base&"0FB788"), 8)
$exp = calc($str, 0xC, "sub")
$sxp = calc($str, 0x4, "sub")
$int = calc($str, 0x2)
$sp = calc($str, 0x4)
$stat = calc($str, 0x8)
Func calc($string, $value, $func = "add")
If $func = "add" Then
$string=Hex(String("0x"&rev($string))+$value)
ElseIf $func = "sub" Then
$string=Hex(String("0x"&rev($string))-$value)
EndIf
While StringLeft($string,1) = "0"
$string = StringTrimLeft($string,1)
Wend
Return $string
Endfunc