taultunleashed logoXHack V1.13 : KO Submissions
newtopic  postreply
 [ 2 posts ] 
blue large dot

XHack V1.13 : KO Submissions

Posted: March 27th, 2007, 6:56 pm
 
jeresw
jeresw's Reps:
User avatar
Program & Guide By PABLOESCOBAR

New version features:

* Enable multi-client (XHack will work only on the active KO client)
* Script Language built-in, compatible with vb script:

All AutoIT functions (check the help file on rar)
Before each AutoIT function, you should put "AutoIT.<function>"
Example:
Sub Main()
MsgBox AutoIT.WinExists("Knight OnLine Client")
End Sub

KO specific informations/functions:
-------------------------------------------------------

Code:
Command: SelectTarget()
Description: Select the nearest target (mob or enemy)
Example:
Sub Main()

   XHack.SelectTarget

End Sub


Command: UseSkill(pPageID As Long, pSlotID As Long)
Description: Use the skill assigned on the Page / Slot
Example:
Sub Main()

   XHack.SelectTarget

   XHack.UseSkill 0,1  'Will use the skill on slot 1 of the current page, when the page = 0, the XHack doesnt change ur page

End Sub


Command: StopRAtack()
Description: Stop the R atack
Example:
Sub Main()

   XHack.StopRAtack

End Sub


Command: StartRAtack()
Description: Start R atack, in other words, make ur char run to mob or shot arrows
Example:
Sub Main()

   XHack.SelectTarget

   XHack.StartRAtack

   XHack.UseSkill 0,1  'Will use the skill on slot 1 of the current page, when the page = 0, the XHack doesnt change ur page

   XHack.StopRAtack

End Sub

Command: GetRAtack() As Long
Description: If the function returns 0, ur char is not atacking, if function returns 1 the char is atacking
Example:
Sub Main()

   If XHack.GetRAtack=0 Then

      XHack.SelectTarget

      XHack.StartRAtack

   End If

End Sub

Command: InjectCode(pCode() As Byte)
Description: Inject Assembler code into KO process... only try this if u know what u r doing...
Example:
Sub Main()

   Dim pCode(1 to 4) As Byte

   pCode(1)=&H90   '0x90 = NOP

   pCode(2)=&H90   '0x90 = NOP

   pCode(3)=&H90   '0x90 = NOP

   pCode(4)=&HC3   '0xC3 = RETN

   XHack.InjectCode pCode

End Sub

Command: ShowXHack()
Description: Make the XHack appear (same behavior of "Insert" key)
Example:
Sub Main()

   XHack.ShowXHack

End Sub


Command: HideXHack()
Description: Make the XHack disappear (same behavior of "Insert" key)
Example:
Sub Main()

   XHack.HideXHack

End Sub

Command: GetCharTotalExp() As Long
Description: Return the total exp needed to next level
Example:
Sub Main()

   Dim TotExp As Long

   TotExp=XHack.GetCharTotalExp

End Sub


Command: GetCharExp() As Long
Description: Return the current exp
Example:
Sub Main()

   Dim CurExp As Long

   CurExp=XHack.GetCharExp

End Sub


Command: GetCharDeadState() As Long
Description: Return 1 if the char is dead, 0 if char is alive
Example:
Sub Main()

   If XHack.GetCharDeadState=1 Then

      MsgBox "Ooops, im dead"

   End If

End Sub


Command: GetCharMerchantState() As Long
Description: Return 1 if the char is in merchant, 0 if char is not in merchant... usefull to merchant macros
Example:
Sub Main()

   Dim PrevMerchant As Long

   PrevMerchant=XHack.GetCharMerchantState

   If PrevMerchant=1 Then

      Do While XHack.GetMerchantState=1

         DoEvents

      Loop

      MsgBox "Great! I sold all my items... Time to put new merchant!!"

   End If

End Sub


Command: GetSelectedID() As Long
Description: Return the ID of the current selected object (mob, player or npc)... return 0 if nobody is selected
Example:
Sub Main()

   If XHack.GetSelectedID<>0 Then

      MsgBox "Time to atack..."

   End If

End Sub


Command: SetCharSpeed(pSpeed As Long)
Description: Set your char speed (16256 = normal speed, 16320 = swift, 16384 = light feet). Greater value = greater speed, lower value = low speed
Example:
Sub Main()

   XHack.SetCharSpeed 20000 'If light feet speed = 16384, imagine 20000 speed...hehehe

End Sub


Command: GetCharSpeed() As Long
Description: Return your current char speed
Example:
Sub Main()

   Do While 1=1

      If XHack.GetCharSpeed<16256 Then

         XHack.SetCharSpeed 16320 'If im slowed by legcut or ice mage, then restore my speed

      End If

   Loop

End Sub


Command: Move2Location(X As Single, Y As Single)
Description: Move your char run to X / Y location...
Example:
Sub Main()

   XHack.Move2Location 0,0 'Make ur char move to position 0,0...lol

End Sub


Command: GetCharY() As Single
Description: Return the current Y position of ur char
Example:
Sub Main()

   If CLng(XHack.GetCharY)=0 then

      MsgBox "What hell im doing here..."

   End If

End Sub


Command: GetCharX() As Single
Description: Return the current X position of ur char
Example:
Sub Main()

   If CLng(XHack.GetCharX)=0 And CLng(XHack.GetCharY)=0 then

      MsgBox "!@#$%^&*... Im doomed, time to /town..."

   End If

End Sub



Command: WaitExecution(pTimeMS As Long)
Description: Wait "N" miliseconds before execute the next instruction
Example:
Sub Main()

   XHack.WaitExecution 1000 'Ill wait 1 second before execute the MsgBox

   MsgBox "I love FG.net"

End Sub


Command: WarpGate(pDestination As Integer)
Description: Teleport ur char to other zone... pDestination = Zone ID
Example:
Sub Main()

   XHack.WarpGate 214 'Goto moradon

End Sub


Command: Escape2Town()
Description: The same behavior of "/town" KO command
Example:
Sub Main()

   If CLng(XHack.GetCharX)=0 And CLng(XHack.GetCharY)=0 then

      MsgBox "!@#$%^&*... Im doomed, time to /town..."

      XHack.Escape2Town

   End If

End Sub



Command: GetCharTotalHP() As Long
Description: Get your total HP
Example:
Sub Main()

   Dim TotalHP As Long

   TotalHP=XHack.GetCharTotalHP

   Do While 1=1

      DoEvents

      If XHack.GetCharTotalHP<TotalHP>TotalHP

         MsgBox "Im Buffed"

      End If

   Loop

End Sub



Command: GetCharHP() As Long
Description: Get your current HP
Example:
Sub Main()

   If (XHack.GetCharTotalHP - XHack.GetCharHP) <= 10 Then

      MsgBox "You will die...only left 10 or less HP for u. Time to HP Pot? :P"

   End If

End Sub



Command: GetCharNick() As String
Description: Get the nick of ur char
Example:
Sub Main()

   MsgBox "Hi, my char name is " & XHack.GetCharNick & " and im cheater..."

End Sub



Command: GetCharTotalMP() As Long
Description: Get your total MP
Example:
Sub Main()

   MsgBox "My total MP is " & XHack.GetCharTotalMP & "... im l33t"

End Sub





Command: GetCharMP() As Long
Description: Get your current MP
Example:
Sub Main()

   If (XHack.GetCharTotalMP - XHack.GetCharMP) <= 100 Then

      MsgBox "Time to use mana pot MORON!!!"

   End If

End Sub


Command: SetCharXY(X As Single, Y As Single)
Description: Set your char position, dont set more than 20 points from your current X or Y, otherwise u will dc or teleported back to ur previous location
Example:
Sub Main()

   If (XHack.GetCharTotalMP - XHack.GetCharMP) <= 100 Then

      MsgBox "Time to use mana pot MORON!!!"

   End If

End Sub


Command: TerminateKO()
Description: Close KO process
Example:
Sub Main()

   If XHack.GetCharDeadState = 1 Then

      TerminateKO 'You r dead, then close KO before some priest rezz u with 4 stones

   End If

End Sub



Command: SendKOPackets(pPacket() As Byte)
Description: Send packets to KO server...
Example:
Sub Main()

   Dim pPacket(1 to 2)

   pPacket(1)=&H48

   pPacket(2)=&H0

   XHack.SendKOPackets pPacket 'packet 0x4800 will make you /town... now use ur imagination :)

End Sub



http://rapidshare.com/files/21127733/XHack.rar


Reply with quote
Posted: March 27th, 2007, 8:04 pm
 
Tault_admin

Total Posts: 30069
Joined: November 9th, 2002, 9:57 am
Tault_admin's Reps: 1440
User avatar
administrator
Mod in Training
Can premium members say yay or nay to this being moved to a confirmed section.


Reply with quote
Want Advertisements After The Last Post Removed? Create A Free Account!

blue large dot Who is online
Users browsing this forum: No registered users and 3 guests

cron
Popular Sections
SWTOR Cheats
Guild Wars 2 Cheats
Guild Wars 2 Hacks
Guild Wars 2 Bots
Diablo 3 Cheats
Guild Wars 2 Mods

Popular Sections
WoW Cataclysm Cheats & Exploits
WoW Cataclysm Hacks & Bots
Star Wars The Old Republic Cheats
SWTOR Mods
Torchlight 2 Cheats
SWTOR Space Mission Bots
Site Nav and RSS
RSS Feed of KO Submissions RSS Feed 
Sitemap of KO Submissions Sitemap 
SitemapIndex SitemapIndex
RSS Feed RSS Feed
Channel list Channel list
left bottom corner Site and Contents Copyright 2001-2012 All Rights Reserved TaultUnleashed.com bottom corner
top left
top right
createaccount
Username:   Password:   Remember Me?