• Silahkan bergabung dengan chat kami di Telegram group kami di N3Forum - https://t.me/n3forum
  • Welcome to the Nyit-Nyit.Net - N3 forum! This is a forum where offline-online gamers, programmers and reverser community can share, learn, communicate and interact, offer services, sell and buy game mods, hacks, cracks and cheats related, including for iOS and Android.

    If you're a pro-gamer or a programmer or a reverser, we would like to invite you to Sign Up and Log In on our website. Make sure to read the rules and abide by it, to ensure a fair and enjoyable user experience for everyone.

Auto Shortcut For Domo

Status
Not open for further replies.

Madamatsu

TK A
Level 1
gwe rasa salah satu mantan cewe lo namanya Rian :smiley_beer:
kalo kk nya sich namanya rian....

o ya nih buat autoheal doank kalo hp dibawah 700 bisa di share ke public. tapi jangan sama gw... nick domo gw CAzh juga hahahaha...

ps : title windows domo dah gw ubah => DOMO - Dream Of Mirror Online(Sep 5 2007) <--- kalo sehabis maintenance itu berarti auto heal jalan, kalo salah berarti autohealnya gak akan jalan.
berarti ini cuman berlaku untuk 1x maintenance hehehehe..... (gpp biar pada rajin masuk)
 

Attachments

Madamatsu

TK A
Level 1
kita seguild ya cash?^^
wakakakaka erevoz disini juga.... eswe teh kotak...
guild kita..... kosong terus... kadang berfikir untuk pindah... wakakaka

masuk game domo.... heal simpen di f1 aja kk... terus panggil applikasinya, balik lagi ke game domo.... xd.
 

babyloecoe

3 SD
Level 2
@atas

hu uh..

bingung neehh..

kalo auto pot kaya itemmallnya seal yg ga guna itu tapi hrs bayar

hehehe
 

Madamatsu

TK A
Level 1
ok d aq terangin step by step supaya jelas
1. panggil game domo
2. login dan masuk game domo
2. heal/pot/soybean/apapun itu simpen di f1
3. terus panggil applikasi autohealnya
4. balik lagi ke game domo....

jika hp dibawah 700 maka dia akan otomatis mencet f1 dan select dirinya sendiri
hp = 700

di VIP ada lho autoskill lengkap, bisa heal, adjust breath (untuk recover mp), pokoknya bisa gunain semua skill dech..
ada yang tertarik join VIP... (Iklan berjalan gg!!!)
 

v0LtaGe

PAUD
Level 1
CAzh!!
Wakakaka..
Akhirna dirimu share sesuatu yg bisa g manfaatin..
G bukan ga mo jadi donatur cash.. Rekening ja ga pny..
Mw donasi via apa? Merpati pos?
Ekekeke..

Eh,tu kan buat Hp cazh,kalo buat MP Pot ada?
G sh butuhnya MP pot.. hikx..
 

terjang92

PAUD
Level 1
Itu cara editnya gmn sih??Kan hp ku cmn 389, hp msh full 389 dia pake skill healing melulu
mohon ajarannya thx ya!hahaha,klo ada yg mp jg tlng di share d...
dimohon kerja smnya ya..thx
 

babyloecoe

3 SD
Level 2
Source codenya kalo ga salah ada di bagian underwear..

eh salah, maksudnya underground...

jadi jayus deh

edittttt

sorry, salah tuh..

di bagian software dech...

AutooIT

ini untuk autopot DOMO, gamenya lom release di indo... akan
jadi kalo hp/mp kritis langsung otomatis minum
tapi konon addressnya suka berubah setiap kali panggil game (dinamis) jadi harus di ganti2
$Caddress = "56F1890"
$Maddress = "56F1894" << dua ini sama alamat HP dan MP

#include <String.au3>
HotKeySet("{F5}", "AutoPot")
HotKeySet("{F6}", "Config")
HotKeySet("{F7}", "Stop")
Dim $SlowHealLife
Dim $InstantHealLife
Dim $SlowPotionKey
Dim $InstantPotionKey
Dim $PotionDelay
Dim $MemOpen
$Caddress = "56F1890"
$Maddress = "56F1894"
$yAutopotStart = MsgBox(1, "yAutopot by julmuri", "F5 - Start Autopotting" & @CRLF & "F6 - yAutopot Configs" & @CRLF & "F7 - Exit yAutopot")
If $yAutopotStart = 2 Then
Stop()
EndIf
Config()
While 1
ToolTip("yAutopot running", 0, 0)
Sleep(200)
WEnd

Func AutoPot()
$Process = "_L.exe"
If ProcessExists($Process) = 0 Then
ToolTip("Waiting for Yogurting Process", 0, 0)
ProcessWait($Process)
ElseIf ProcessExists($Process) Then
$PID = ProcessExists($Process) $MemOpen = _MemOpen($PID)
EndIf

While 1
If ProcessExists($Process) = 0 Then
ToolTip("Waiting for Yogurting Process", 0, 0)
ProcessWait($Process)
ElseIf ProcessExists($Process) Then
$ReadCurrentLife = _MemRead($MemOpen, "0x" & $Caddress, 4)
$ReadMaxLife = _MemRead($MemOpen, "0x" & $Maddress, 4)
$CurrentLife = _HexadecimalToDecimal($ReadCurrentLife)
$MaxLife = _HexadecimalToDecimal($ReadMaxLife)
ToolTip("Current Life is : " & $CurrentLife & " / " & $MaxLife, 0, 0)
Sleep(500)
If $MaxLife / 100 * $InstantHealLife >= $CurrentLife Then
ToolTip("Drinking Instant Potion", 0, 0)
ControlSend("Yogurting", "", "", $InstantPotionKey, 1)
Sleep(100)
ElseIf $MaxLife / 100 * $SlowHealLife >= $CurrentLife Then
ToolTip("Drinking Potion", 0, 0)
ControlSend("Yogurting", "", "", $SlowPotionKey, 1)
Sleep($PotionDelay)
Else
Sleep(200)
EndIf
EndIf
WEnd
EndFunc ;==>AutoPot

Func Config()
ToolTip("yAutopot Configurations", 0, 0)
$SlowHealLife = InputBox("Life Heal %", "Set Life Heal % (0-100) :", "", " ", "100", "50", "-1", "-1")
If @error = 1 Then Exit
$InstantHealLife = InputBox("Life Heal %", "Set Instant Life Heal % (0-100) :", "", " ", "100", "50", "-1", "-1")
If @error = 1 Then Exit
$SlowPotionKey = InputBox("Potion Key", "Set Your Potion Key :", "", " ", "100", "50", "-1", "-1")
If @error = 1 Then Exit
$InstantPotionKey = InputBox("Instant Potion Key", "Set Instant Potion Key :", "", " ", "100", "50", "-1", "-1")
If @error = 1 Then Exit
$PotionDelay = InputBox("Potion Drink Delay", "Set Potion Drink Delay (in ms.) :", "", " ", "100", "50", "-1", "-1")
If @error = 1 Then Exit
Select
Case $SlowHealLife < 1 Or $SlowHealLife > 100
Do
MsgBox(0, "Invalid Heal life %", "Press OK to set new Heal Life %")
$SlowHealLife = InputBox("Life Heal %", "Set Life Heal % (0-100) :", "", " ", "100", "50", "-1", "-1")
If @error = 1 Then Exit
Until $SlowHealLife > 1 And $SlowHealLife < 100
Case $InstantHealLife < 1 Or $InstantHealLife > 100
Do
MsgBox(0, "Invalid Instant Heal life %", "Press OK to set new Instant Heal Life %")
$SlowHealLife = InputBox("Instant Life Heal %", "Set Instant Life Heal % (0-100) :", "", " ", "100", "50", "-1", "-1")
If @error = 1 Then Exit
Until $InstantHealLife > 1 And $InstantHealLife < 100
EndSelect
EndFunc ;==>Config

Func _MemOpen($i_Pid, $i_Access = 0x1F0FFF, $i_Inherit = 0)
Local $av_Return[2]= [DllOpen('kernel32.dll') ]
Local $ai_Handle = DllCall($av_Return[0], 'int', 'OpenProcess', 'int', $i_Access, 'int', $i_Inherit, 'int', $i_Pid)
If @error Then
DllClose($av_Return[0])
SetError(1)
Return 0
EndIf
$av_Return[1] = $ai_Handle[0]
Return $av_Return
EndFunc ;==>_MemOpen

Func _MemRead($ah_Mem, $i_Address, $i_Size = 0)
If $i_Size = 0 Then
Local $v_Return = ''
Local $v_Struct = DllStructCreate('byte[1]')
Local $v_Ret
While 1
$v_Ret = DllCall($ah_Mem[0], 'int', 'ReadProcessMemory', 'int', $ah_Mem[1], 'int', $i_Address, 'ptr', DllStructGetPtr($v_Struct), 'int', 1, 'int', '')
$v_Ret = DllStructGetData($v_Struct, 1)
If $v_Ret = 0 Then ExitLoop
$v_Return &= Chr($v_Ret)
$i_Address += 1
WEnd
Else
Local $v_Struct = DllStructCreate('byte[' & $i_Size & ']')
Local $v_Ret = DllCall($ah_Mem[0], 'int', 'ReadProcessMemory', 'int', $ah_Mem[1], 'int', $i_Address, 'ptr', DllStructGetPtr($v_Struct), 'int', $i_Size, 'int', '')
Local $v_Return[$v_Ret[4]]
For $i = 0 To $v_Ret[4] - 1
$v_Return[$i] = DllStructGetData($v_Struct, 1, $i + 1)
Next
EndIf
Return $v_Return
EndFunc ;==>_MemRead

Func _MemClose($ah_Mem)
Local $av_Ret = DllCall($ah_Mem[0], 'int', 'CloseHandle', 'int', $ah_Mem[1])
DllClose($ah_Mem[0])
Return $av_Ret[0]
EndFunc ;==>_MemClose

Func _MemRev($v_DWORD)
If UBound($v_DWORD) = 4 Then Return '0x' & Hex($v_DWORD[3], 2) & Hex($v_DWORD[2], 2) & Hex($v_DWORD[1], 2) & Hex($v_DWORD[0], 2) Local $v_Ret[4] = ['0x' & StringMid(Hex($v_DWORD, 8), 7, 2), '0x' & StringMid(Hex($v_DWORD, 8), 5, 2), '0x' & StringMid(Hex($v_DWORD, 8), 3, 2), '0x' & StringMid(Hex($v_DWORD, 8), 1, 2) ]
Return $v_Ret
EndFunc ;==>_MemRev

Func _HexadecimalToDecimal($var)
$Result = 0
$Sum = 0
$Power = 0
Do
$CurrentDigit = StringRight(_MemRev($var), $Power + 1)
$CurrentDigit = StringLeft($CurrentDigit, 1)
If $CurrentDigit = "A" Then
$CurrentDigit = 10
ElseIf $CurrentDigit = "B" Then
CurrentDigit = 11
ElseIf $CurrentDigit = "C" Then
$CurrentDigit = 12
ElseIf $CurrentDigit = "D" Then
$CurrentDigit = 13
ElseIf $CurrentDigit = "E" Then
$CurrentDigit = 14
ElseIf $CurrentDigit = "F" Then
$CurrentDigit = 15
EndIf
$Result = $CurrentDigit * 16 ^ $Power
$Power += 1
$Sum += $Result
Until $CurrentDigit = "x"
Return $Sum
EndFunc ;==>_HexadecimalToDecimal

Func Stop()
_MemClose($MemOpen)
Exit
EndFunc ;==>Stop
by Cazh80
 

endz

PAUD
Level 1
wigh.. maknyus dah..
pengen jd VIP negh..
tp gmn transfer ny y?
someone help!!
huehuehue
 
Status
Not open for further replies.
Top