tg bot

Page 1 of 3 1 23
09/08/2005 08:10 Fate435#1
is there a macro that someone made to hit the stake then fb then hit agin etc etc....or will that not make it go faster...if someone has it and will post it...txtxtx


also i searched the whole co fourms and it brought nutthin up about it...i might of just not typed in the right key words



GuttA
09/08/2005 08:15 Saxasolt#2
Quote:
Originally posted by Fate435@Sep 8 2005, 09:10
is there a macro that someone made to hit the stake then fb then hit agin etc etc....or will that not make it go faster...if someone has it and will post it...txtxtx


also i searched the whole co fourms and it brought nutthin up about it...i might of just not typed in the right key words



GuttA
never heard that idea..then again..i jus use ND between 2 :D
09/08/2005 13:07 unknownone#3
Someone posted a screenie of a player hitting a stake at ND speed, and using ScentSword at the same time.
I would assume its done by sending attack packets directly, bypassing the client delays.
09/08/2005 13:24 ultimatedestroyer#4
Hmm, I think hes asking for a macro to hit a stake over and over, does the tg not normally do that?
09/08/2005 13:56 unknownone#5
If you try hitting a stake then using fb/scentsword afterwards, it will stop your normal attacking, and you get like 5 second delay before you can actually use the skill anyway/ Anyone using fb/scent and attacking constantly is using some kind of cheat, more than just a click macro.
09/08/2005 15:45 ultimatedestroyer#6
Hmm ic..I cant see how you can make a macro for this purpose. =/
09/08/2005 17:39 unknownone#7
VB. Create a standard .EXE and add 2 timers to it. Paste this in the form code

Code:
Private Declare Function Hotkey Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

Sub Form_Load()
    Timer1.Enabled = False
    Timer2.Enabled = True
    Timer1.Interval = 500
    Timer2.Interval = 1
    Me.Visible = False
End Sub

Sub Timer1_Timer()
    mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0&, 0&, 0&, 0&
    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
End Sub

Sub Timer2_Timer()
    If Hotkey(vbKeyNumpad0) Then
      Timer1.Enabled = False
    ElseIf Hotkey(vbKeyNumpad1) Then
      Timer1.Enabled = True
    ElseIf Hotkey(vbKeyNumpad2) Then
      End
    End If
End Sub
Set ScentSword/FB as your skill, and hover your mouse over the stake's shadow.
Numberpad 1 to start the macro, Numberpad 0 to stop, Numberpad 2 to exit the macro.
09/08/2005 18:35 BitVector#8
I created a script in [Only registered and activated users can see links. Click Here To Register...] that does the same thing AND uses Cyclone.

How to Use this Script:

1. Place Cyclone on the F1 key.
2. Select Fast Blade or Scent Sword as your current skill.
3. Run the script.
4. Hover mouse over the shadow at the stake you want to hit.
5. Press the Pause key to start the script.

If you want to pause the script, just press the Pause key. If you want to exit the script, just press the Esc key.

I've noticed that I'm almost in perpetual Cyclone (it lasts longer than usual) awhile using this script.

TG Macro1.au3
Code:
; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:     BitVector
;           ElitePvPers Edition
;
; Script Function:
;	Scent Sword/Fast Blade + Stake Hit + Cyclone
;
; ----------------------------------------------------------------------------

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

Call("TogglePause")

While 1=1
  If WinActive("[Conquer]") then
    MouseClick("left")
    Sleep(Random(100,200))
    MouseClick("right")
    Sleep(Random(100,200))
    Send("{F1}")
    Send("{F1}")
    Sleep(Random(10,20))
  Else
    Sleep(100)
  EndIf
WEnd


Func TogglePause()
  $Paused = NOT $Paused
  While $Paused
    sleep(100)
    ToolTip('Script is Paused. Press Pause to Start/Continue.',0,0)
  WEnd
  ToolTip("")
EndFunc

Func Terminate()
  Exit 0
EndFunc
EDIT: I've added random sleep timers to, hopefully, keep me from being jailed for using a macro. Also added second F1 key press, because sometimes the Cyclone didn't activate.

EDIT x2: If anyone wants to put this into an exe or re-release somewhere else, I give full permissions to anyone to do so. I just hope you give credit to me and ElitePvPers, that's all. :)
09/08/2005 20:08 Fate435#9
txtxtx ^-^


GuttA
09/08/2005 21:21 Virtue#10
Is using this macro better exp than hitting 2 stakes with ND or WaterElf?
09/08/2005 22:16 BitVector#11
Quote:
Originally posted by Virtue@Sep 8 2005, 13:21
Is using this macro better exp than hitting 2 stakes with ND or WaterElf?
Since I don't have ND or a water tao, I'm not sure. Perhaps someone else can check it out and see which one is better?

EDIT: I'm usually 85%+ in Cyclone when using this script, and if I'm hitting 1 stake plus SS'ing 2 stakes, then I would assume that my script would be just as good or better than ND in between 2 stakes.
09/09/2005 03:06 Virtue#12
The script looks like its useful, but so far Im under the impression that the macro will only click wherever your mouse is pointing at the moment. So if you (unknowinly) accidentally push your mouse while youre TGing , you'll end up moving around and SS/FBing randomly.

Maybe add a function so the mouse pointer locks onto the set coordinates so even if the mouse is moved it goes back to the preset location. I don't know if its possible to add this feature, but it would help a lot.
09/09/2005 03:22 BitVector#13
Ok, here is a version with Mouse Lock. Once you press Pause, it will start up the script and lock on to where your mouse was last positioned. If you move the mouse, it will automatically move your mouse back to the original position.

It is quite useful if your mouse is extremely sensitive to vibrations in the room that might move it (like mine).

Code:
; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:     BitVector
;           ElitePvPers Edition
;
; Script Function:
;	Scent Sword + Stake Hit + Cyclone
;    New Feature: Mouse Lock (requested by Virtue)
;
; ----------------------------------------------------------------------------

Global $Paused
Global $MousePos
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

Call("TogglePause")

While 1=1
  If WinActive("[Conquer]") then
    MouseClick("left",$MousePos[0],$MousePos[1],1,0)
    Sleep(Random(50,100))
    MouseClick("right",$MousePos[0],$MousePos[1],1,0)
    Sleep(Random(50,100))
    Send("{F1}")
    Send("{F1}")
    Sleep(Random(10,20))
  Else
    Sleep(100)
  EndIf
WEnd


Func TogglePause()
  $Paused = NOT $Paused
  While $Paused
    sleep(100)
    ToolTip('Script is Paused. Press Pause to Start/Continue.',0,0)
  WEnd
  ToolTip("")
  $MousePos = MouseGetPos()
EndFunc

Func Terminate()
  Exit 0
EndFunc
EDIT: I decreased the sleep timers in this version so it'll be a little faster. And as always, this script is free to use, change, and distribute to your heart's content.
09/09/2005 03:55 Virtue#14
Thanks very much for the mouse lock feature, I'll go and test this myself tomorrow when I have more time.
09/11/2005 00:18 BitVector#15
Ok, this will probably be my last version of this script, since it is my best so far.

I took out the sleep timers, because in this case, faster is better. I put the F1 key presses in better locations so that Cyclone will activate every time. My trojan is level 100+, and I am in perpetual Cyclone awhile using this script. In other words, Cyclone lasts forever and does not stop. My experience gains are amazingly fast (compared to normal TG'ing).

I've included the source code as well as an .exe file for those who do not have AutoIt v3 installed.

Code:
; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:     BitVector
;           ElitePvPers Edition
;
; Script Function:
;	Scent Sword + Stake Hit + Cyclone
;    New Feature: Mouse Lock (requested by Virtue)
;
; ----------------------------------------------------------------------------

Global $Paused
Global $MousePos
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

Call("TogglePause")

While 1=1
  If WinActive("[Conquer]") then
    MouseClick("left",$MousePos[0],$MousePos[1],1,0)
    Send("{F1}")
    MouseClick("right",$MousePos[0],$MousePos[1],1,0)
    Send("{F1}")
  Else
    Sleep(100)
  EndIf
WEnd


Func TogglePause()
  $Paused = NOT $Paused
  While $Paused
    sleep(100)
    ToolTip('Script is Paused. Press Pause to Start/Continue.',0,0)
  WEnd
  ToolTip("")
  $MousePos = MouseGetPos()
EndFunc

Func Terminate()
  Exit 0
EndFunc
For those who need instructions, just check a few posts up where I posted my first version of the script. If you are not a Trojan and still want to use this trick, then all you need to do is just make sure that your F1 spot is empty.
Page 1 of 3 1 23