-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathVoransik.au3
204 lines (177 loc) · 6.68 KB
/
Voransik.au3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
#include <Misc.au3>
;Pothack Vorila Dransik
;Kyle GusToughSon Bishop
;Discord : GusToughSon#7073
;GusToughSon@Icloud.com
HotKeySet ("{numpad0}", "Extra")
HotKeySet ("{-}", "mouse2") ;teehee
HotKeySet ("{0}", "mouse1") ;this is for cures
HotKeySet ("{9}", "mouse") ;Press Insert over pots to set where the pothack clicks;
HotKeySet ("{ins}", "mouse") ;Press Insert over pots to set where the pothack clicks;
HotKeySet ("{end}", "close") ;press End To kill Voransik hack;
HotKeySet ("{del}", "check") ;press DEL to turn it on or off;
HotKeySet ("{pause}", "kill") ;Force close the Vorila/Dransik Client IE:Old Style dransik logout;
HotKeySet ("{`}","ClickBoner") ;Exctra Cleanup for left behind loot;
Opt("MouseCoordMode", 2) ;This sets the way the mouse interacts with the client (set as 2) ;
Opt("PixelCoordMode", 2) ;This sets the way the PixelSearch interacts with the client (set as 2) ;
ConsoleWrite ("Started" & @CRLF)
;This is Global Variables; Disease is ;0xDC8C00;
Global $pickx = 0, $picky = 0, $pickx1 = 0, $picky1 = 0, $pickx2 = 0, $picky2 = 0, $Gold = 1, $on = 0
Global $clicklapwait = 25, $Bodyxt = 1270, $Bodyyt = 580, $Bodyxb = 1415, $Bodyyb = 725
While 1
While $on
If WinActive("Dransik Classic") Then ;Make sure the game is in Focus
If $pickx = 0 Then ;Are the pots set as the location yet?;
ConsoleWrite("set the pots dumbass" & @CRLF)
$on = 0 ;return function to off as u cant click air;
Sleep(500)
Else
PixelSearch (10, 99,69, 105,0xDC8C00) ; is there diease somewhere;
If not @Error Then
ClickCures()
Else
DoShit () ;main program to do pots and gold
EndIf
EndIf
GoldWhore()
EndIf
WEnd
WEnd
Func ClickBoner ()
ControlClick("Dransik Classic", "", "", "right", 1, 231, 199) ;Clicking around avatar to clean drops;
sleep($clicklapwait)
ControlClick("Dransik Classic", "", "", "right", 1, 215, 231) ;Clicking around avatar to clean drops;
sleep($clicklapwait)
ControlClick("Dransik Classic", "", "", "right", 1, 231, 231) ;Clicking around avatar to clean drops;
sleep($clicklapwait)
ControlClick("Dransik Classic", "", "", "right", 1, 199, 215) ;Clicking around avatar to clean drops;
sleep($clicklapwait)
ControlClick("Dransik Classic", "", "", "right", 1, 231, 215) ;Clicking around avatar to clean drops;
sleep($clicklapwait)
ControlClick("Dransik Classic", "", "", "right", 1, 199, 199) ;Clicking around avatar to clean drops;
sleep($clicklapwait)
ControlClick("Dransik Classic", "", "", "right", 1, 215, 199) ;Clicking around avatar to clean drops;
sleep($clicklapwait)
ControlClick("Dransik Classic", "", "", "right", 1, 231, 199) ;Clicking around avatar to clean drops;
sleep($clicklapwait)
EndFunc
func GoldWhore()
$CoOrd = PixelSearch(188, 188, 245, 245, 0xE4D008) ; Looks for goldwww.
If Not @error Then ;If it exists then
ControlClick("Dransik Classic", "", "", "right", 1, $CoOrd[0], $CoOrd[1]) ;Clicks the first instance of that colour
Else
;ConsoleWrite ("no go gringo" &@crlf)
Sleep(10)
EndIf
$CaveGold = PixelSearch (188, 188, 245, 245, 0x7C611A) ;attempt for cave gold
If Not @error Then ;If it exists then
ControlClick("Dransik Classic", "", "", "right", 1, $CaveGold[0], $CaveGold[1]) ;Clicks the first instance of that colour
Else
;ConsoleWrite ("gringo gets nothing" &@crlf)
Sleep(10)
EndIf
$Magics = PixelSearch (188, 188, 245, 245, 0x344CC0) ;attempt for Magics
If Not @error Then ;If it exists then
ControlClick("Dransik Classic", "", "", "right", 1, $Magics[0], $Magics[1]) ;Clicks the first instance of that colour
Else
;ConsoleWrite ("gringo is Blind" &@crlf)
Sleep(10)
EndIf
$Holies = PixelSearch (188, 188, 245, 245, 0xFCF420) ;attempt for Holies
If Not @error Then ;If it exists then
ControlClick("Dransik Classic", "", "", "right", 1, $Holies[0], $Holies[1]) ;Clicks the first instance of that colour
Else
;ConsoleWrite ("gringo was eating" &@crlf)
Sleep(10)
EndIf
$OrangeCure = PixelSearch (188, 188, 245, 245, 0xF07000) ;attempt for OrangeCure
If Not @error Then ;If it exists then
ControlClick("Dransik Classic", "", "", "right", 1, $OrangeCure[0], $OrangeCure[1]) ;Clicks the first instance of that colour
Else
;ConsoleWrite ("gringo was eating" &@crlf)
Sleep(10)
EndIf
$PoisonWep = PixelSearch (188, 188, 245, 245, 0x045C00) ;attempt for PoisonWep
If Not @error Then ;If it exists then
ControlClick("Dransik Classic", "", "", "right", 1, $PoisonWep[0], $PoisonWep[1]) ;Clicks the first instance of that colour
Else
;ConsoleWrite ("gringo was eating" &@crlf)
Sleep(10)
EndIf
EndFunc
Func DoShit ()
PixelSearch(430, 12, 430, 12, 0x00C800) ;health bar green check;
If Not @error Then ;no heal needed as it sees green;
;ConsoleWrite ("this shit" & @crlf)
GoldWhore()
Else
ControlClick("Dransik Classic", "", "", "right", 1, $pickx, $picky) ; it saw no green and thinks you need healing
ConsoleWrite("I guess i should heal you you look pathetic" & @CRLF)
PotCoolDown()
EndIf
EndFunc
func ClickCures()
ConsoleWrite ("Nigga u got herpies" & @crlf) ;if there is;
ControlClick("Dransik Classic", "", "", "right", 1, $pickx1, $picky1)
PotCoolDown()
EndFunc
Func PotCoolDown()
Sleep(200)
GoldWhore()
Sleep(200)
GoldWhore()
Sleep(200)
GoldWhore()
Sleep(200)
GoldWhore()
Sleep(200)
GoldWhore()
Sleep(200)
GoldWhore()
Sleep(200)
GoldWhore()
Sleep(200)
EndFunc
Func check()
If $on = 1 Then
$on = 0
Else
$on = 1
EndIf
EndFunc
Func close()
ConsoleWrite(@CRLF & "Closing Via Close Command" & @CRLF)
Exit
EndFunc
Func kill()
ProcessClose ("Vorlia Client.exe")
ConsoleWrite("tryed" & @CRLF)
EndFunc
Func mouse()
$pickx = MouseGetPos(0)
$picky = MouseGetPos(1)
ConsoleWrite("Pots now Set At Location:" & @CRLF)
ConsoleWrite("X = " & $pickx & @CRLF)
ConsoleWrite("Y = " & $picky & @CRLF)
EndFunc
Func mouse1();this is for cures
$pickx1 = MouseGetPos(0)
$picky1 = MouseGetPos(1)
ConsoleWrite("Cures are now Set At Location:" & @CRLF)
ConsoleWrite("X1 = " & $pickx1 & @CRLF)
ConsoleWrite("Y1 = " & $picky1 & @CRLF)
EndFunc
Func Extra() ;using this to QuickChange my skin;
If $pickx2 = 0 Then
Mouse2();if no location is set then it will set one;
Else
ControlClick("Dransik Classic", "", "", "right", 1, $pickx2, $picky2);clicks when hotkey is pressed;
EndIf
EndFunc
Func mouse2();extra as fuck
$pickx2 = MouseGetPos(0)
$picky2 = MouseGetPos(1)
ConsoleWrite("Cures are now Set At Location:" & @CRLF)
ConsoleWrite("X2 = " & $pickx2 & @CRLF)
ConsoleWrite("Y2 = " & $picky2 & @CRLF)
EndFunc