Clorens
New Member
- Joined
- Oct 5, 2011
- Messages
- 89
- Reaction score
- 0
So I'm requesting some help, years ago someone created a exp per hour and light hack for Realots 7.7.
But unfortunaley links die out, and so has this link. So everytime I found it, it won't work..
So I managed to find these scripts but I don't have a clue about how to run them so they'll inject to the client.
Could someone help me with this please?
But unfortunaley links die out, and so has this link. So everytime I found it, it won't work..
So I managed to find these scripts but I don't have a clue about how to run them so they'll inject to the client.
Could someone help me with this please?
Code:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.12.1
Author: Farsa
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <GUIConstantsEx.au3>
#include <nMemory2.au3>
Global $PID,$hMem,$player
if WinExists("[CLASS:TibiaClient]")then
Local $i=0
$PID=WinGetProcess("[CLASS:TibiaClient]")
$hMem= _MemoryOpen($PID)
for $i=0 To 200
;battlelist_begin=0x56c8b0 and step=156
if _MemoryRead("0x" & hex(5687472+156*$i,8),$hMem,'dword')==_MemoryRead(0x0056C84C,$hMem,'dword')then
$player=5687472+156*$i
$i=200
Endif
Next
else
MsgBox(0,"RealOts","Start RealOts client first.")
Exit
Endif
Opt("GUIOnEventMode", 1)
GuiCreate("RealOts",150,80)
GUICtrlCreateLabel("Color:",10,10)
GuiCtrlCreateLabel("Intensity:",10,40)
$color=GuiCtrlCreateInput("206",75,5,40,25)
$intensity=GuiCtrlCreateInput("7",75,35,40,25)
$btnlight=GUICtrlCreateButton("Ok",118,20)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUICtrlSetOnEvent($btnlight, "ChangeLight")
GUISetState(@SW_SHOW)
while 1
sleep(1000)
WEnd
Func Close()
Exit
EndFunc
Func ChangeLight()
_MemoryWrite("0x" & hex($player + 120,8),$hMem,GuiCtrlRead($color),'dword')
_MemoryWrite("0x" & hex($player + 116,8),$hMem,GuiCtrlRead($intensity),'dword')
EndFunc
Code:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.12.1
Author: Farsa
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <GUIConstantsEx.au3>
#include <nMemory2.au3>
Global $PID,$hMem,$player,$expini,$expnow,$expleft,$timeleft,$exph,$timecounter=0,$lastcolor=-1,$lastintensity=-1
if WinExists("[CLASS:TibiaClient]")then
$PID=WinGetProcess("[CLASS:TibiaClient]")
$hMem= _MemoryOpen($PID)
$expini=GetPlayerExp()
GetPlayer()
else
MsgBox(0,"RealOts","Start RealOts client first.")
Exit
Endif
Opt("GUIOnEventMode", 1)
GuiCreate("RealOts",250,270)
GUICtrlCreateGroup("Light",10,10,230,125)
GUICtrlCreateGroup("Exp Checker",10,150,230,115)
GUICtrlCreateLabel("Color:",30,30)
GuiCtrlCreateLabel("Intensity:",30,70)
$labelexpleft=GUICtrlCreateLabel("Exp Left:",30,170,200)
$labelexph=GUICtrlCreateLabel("Exp/H:",30,190,200)
$labeltimeleft=GUICtrlCreateLabel("Time Left:",30,210,200)
$color=GuiCtrlCreateInput("",75,25,40,25)
$intensity=GuiCtrlCreateInput("",75,65,40,25)
$radulux=GUICtrlCreateRadio("Utevo Lux",130,20)
$radtorch=GUICtrlCreateRadio("Torch",130,40)
$radugranlux=GUICtrlCreateRadio("Utevo Gran Lux",130,60)
$radfulllux=GUICtrlCreateRadio("Full Light",130,80)
$btnlight=GUICtrlCreateButton("Change",30,100,60)
$btnreset=GuiCtrlCreateButton("Reset",30,230,60)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUICtrlSetOnEvent($radulux,"uLux")
GUICtrlSetOnEvent($radtorch,"TorchLight")
GUICtrlSetOnEvent($radugranlux,"uGranLux")
GUICtrlSetOnEvent($radfulllux,"FullLux")
GUICtrlSetOnEvent($btnlight, "ChangeLight")
GUICtrlSetOnEvent($btnreset, "Reset")
GUISetState(@SW_SHOW)
while 1
sleep(1000)
$timecounter+=1
$expnow=GetPlayerExp()
$exph=($expnow-$expini)*3600/($timecounter)
$expleft=GetExpForLevelx(GetPlayerLevel()+1)-GetPlayerExp()
$timeleft=Floor($expleft/$exph) & " H " & Floor(60*(($expleft/$exph)-(Floor($expleft/$exph)))) & " M " & Floor(60*(60*(($expleft/$exph)-(Floor($expleft/$exph)))-Floor(60*(($expleft/$exph)-(Floor($expleft/$exph)))))) & " S "
GuiCtrlSetData($labelexpleft,"Exp Left: " & $expleft)
GuiCtrlSetData($labelexph,"Exp/H: " & Floor($exph) )
if not (Floor($exph)=0)then
GUICtrlSetData($labeltimeleft,"Time Left: " & $timeleft)
WinSetTitle("[CLASS:TibiaClient]","",_MemoryRead("0x" & hex($player+4,8),$hMem,'char[50]') & " | " & Floor($exph) & "exp/H | " & Floor($expleft) & "exp left | " & $timeleft & "time left")
Else
GUICtrlSetData($labeltimeleft,"Time Left: ->infinite")
WinSetTitle("[CLASS:TibiaClient]","",_MemoryRead("0x" & hex($player+4,8),$hMem,'char[50]') & " | " & Floor($exph) & "exp/H | " & Floor($expleft) & "exp left | ->infinite time left")
EndIf
if (not($lastcolor==-1) and not ($lastintensity=-1)) Then
GetPlayer()
_MemoryWrite("0x" & hex($player + 120,8),$hMem,$lastcolor,'dword')
_MemoryWrite("0x" & hex($player + 116,8),$hMem,$lastintensity,'dword')
Endif
WEnd
Func Close()
Exit
EndFunc
Func ChangeLight()
GetPlayer()
$lastcolor=GuiCtrlRead($color)
$lastintensity=GuiCtrlRead($intensity)
_MemoryWrite("0x" & hex($player + 120,8),$hMem,$lastcolor,'dword')
_MemoryWrite("0x" & hex($player + 116,8),$hMem,$lastintensity,'dword')
EndFunc
Func GetPlayer()
Local $i=0
for $i=0 To 200
if _MemoryRead("0x" & hex(5687472+156*$i,8),$hMem,'dword')==_MemoryRead(0x0056C84C,$hMem,'dword')then
$player=5687472+156*$i
$i=200
Endif
Next
EndFunc
Func uLux()
GuiCtrlSetData($color,"206")
GuiCtrlSetData($intensity,"6")
EndFunc
Func TorchLight()
GuiCtrlSetData($color,"206")
GuiCtrlSetData($intensity,"7")
EndFunc
Func uGranLux()
GuiCtrlSetData($color,"206")
GuiCtrlSetData($intensity,"8")
EndFunc
Func FullLux()
GuiCtrlSetData($color,"206")
GuiCtrlSetData($intensity,"100")
EndFunc
Func GetPlayerExp()
Return _MemoryRead(0x0056C840,$hMem,'dword')
EndFunc
Func GetPlayerLevel()
Return _MemoryRead(0x0056C83C,$hMem,'dword')
EndFunc
Func GetExpForLevelx($x)
Local $exp=((50.0/3.0)*$x^3)-(100*$x^2)+((850.0/3.0)*$x)-200
Return $exp
EndFunc
Func Reset()
$timecounter=0
$expini=GetPlayerExp()
EndFunc