Тема фарма

с mouseclick после первого клика курсор уносило в ебеня и он там устраивал вакханалию

через click сразу завелось

Можно сказать близорту что ты очень быстрый

Ну стартуешь 7.2 second heart, ебашишь 2-3 стака в крепости/мосту и так далее, далее 2 лвл лестницы, килл паучихи(дроп как с босса), после неё маленькая зона перед азмоданом и азмо. Фармлю этот путь каждый день парочку раз, и в пати заебись проходить :tusila-zavodila: :tusila-zavodila: :tusila-zavodila:

Это что-то наподобие варден-бутчер рана

за 2 дня нафармил 23 миллиона голды. Неплохая локация

с mouseclick после первого клика курсор уносило в ебеня и он там устраивал вакханалию

через click сразу завелось

Я вчера столкнулся с проблемой, что скрипт на переодевашку различает языки раскладки т.е.:

Если у меня в скрипте написано "С" (открыть/закрыть инвентарь) на английском то, если у меня сейчас стоит русская раскладка то "С" не нажимается и инвентарь не открывается при активации скрипта. И соответственно наоборот.

Есть какой-нибудь финт ушами для этого?

с mouseclick после первого клика курсор уносило в ебеня и он там устраивал вакханалию

через click сразу завелось

 

Я вчера столкнулся с проблемой, что скрипт на переодевашку различает языки раскладки т.е.:

 

Если у меня в скрипте написано "С" (открыть/закрыть инвентарь) на английском то, если у меня сейчас стоит русская раскладка то "С" не нажимается и инвентарь не открывается при активации скрипта. И соответственно наоборот.

 

Есть какой-нибудь финт ушами для этого?

Ну наверное можно добавить ещё одно действие в скрипт - нажатие русской С при открытии и закрытии.

Хотя хз.

https://drive.google.com/#folders/0B5Hgmr1RAr3NNmxTQVVqMHNYT2c

дальше разберетесь

https://drive.google...NmxTQVVqMHNYT2c

дальше разберетесь

Опасное что-то

Мне мама не велела exeшники с интернета запускать. Дай текст скрипта?

нет текста (точнее есть в au3, но мне впадлу ковыряться)

написано на AutoIT (аналог Autohotkey), скомпилено в экзешник

нашел у одного стримера визорда-фармилы

сейчас сам юзаю

а потом жалуются, что вещи пропадают

а потом жалуются, что вещи пропадают

И твой компьютер атакует Пентагон без твоего ведома.

я уже спиздил ваши вещи, проверяйте

я уже спиздил ваши вещи, проверяйте

Кароче, жду от тебя текст скрипта. Мира и добра тебе

Душещипательная картинка в подарок

нет текста (точнее есть в au3, но мне впадлу ковыряться)

В 76й строчке с конца прога пиздит пасс

видеогайд от автора скрипта - http://www.twitch.tv/calebbb/b/319966774

нет текста (точнее есть в au3, но мне впадлу ковыряться)

#include <Misc.au3>

#Include <Array.au3>

 

;---------------------------------------

; Values read from the Settings.ini file

;---------------------------------------

func ReadSettings()

Global $Button = IniRead("Settings.ini", "Button", "Button", "!{0}"); alt+0 by default

Global $Inventory = IniRead("Settings.ini", "Inventory", "Inventory", "{i}")

Global $NumOfItems = IniRead("Settings.ini", "NumOfItems", "NumOfItems", "0")

Global $SwitchBothRings = IniRead("Settings.ini", "SwitchBothRings", "SwitchBothRings", true)

 

Global $upperBound = $NumOfItems

if $SwitchBothRings == "False" then

Else

$upperBound = $upperBound - 1

Global $SecRingCoords = IniReadSection("Settings.ini", "SecRingCoords")

endif

Global $Coords = IniReadSection("Settings.ini", "Coords")

endfunc

 

ReadSettings()

 

;---------------------------------------

; Globals

;---------------------------------------

$title = "Diablo III - Gear Switcher"

$win_title = "Diablo III"

$sleepTimeForCoordDetection = 2000

 

;---------------------------------------

; Set up a Hot key to end the script

;---------------------------------------

Global $Paused

Global $Toggle

HotKeySet("+{PAUSE}", "RequestEnd")

HotKeySet("{PAUSE}", "TogglePause")

 

;---------------------------------------

; Window checks

;---------------------------------------

if not WinExists($win_title, "") then

MsgBox(0, $title, $win_title & " window must be open.")

Exit

endif

 

;---------------------------------------

; Start

;---------------------------------------

 

func Start()

$MB_YESNO = 4

$MB_YES = 6

 

if MsgBox($MB_YESNO, $title, "Do you want to Run Setup?") == $MB_Yes then

RunSetup()

endif

endfunc

 

Start()

 

;---------------------------------------

; ButtonPress

;---------------------------------------

 

func ButtonPress()

if WinActive($win_title) then

$StartPos = MouseGetPos()

Send($Inventory)

 

if $SwitchBothRings == "False" then

Else

Send("{ALT DOWN}");

MouseClick ( "right", $SecRingCoords[1][0], $SecRingCoords[1][1], 1, 0 )

Send("{ALT UP}")

endif

 

For $i = 1 To $upperBound

MouseClick ( "right", $Coords[$i][0], $Coords[$i][1], 1, 0 )

Next

 

Send($Inventory)

 

MouseMove($StartPos[0], $StartPos[1], 0)

endif

endfunc

 

;---------------------------------------

func RequestEnd()

$MB_YESNO = 4

$MB_YES = 6

 

if MsgBox($MB_YESNO, $title, "End script?") == $MB_YES then

Exit

endif

endfunc

 

func TogglePause()

$Paused = NOT $Paused

while $Paused

sleep(100)

HotKeySet($Button)

ToolTip($title & ' is "Paused"',0,0)

wend

HotKeySet($Button, "ButtonPress")

ToolTip("")

endfunc

 

;---------------------------------------

 

func RunSetup()

 

$MB_YESNO = 4

$MB_YES = 6

 

$inGameInstructions = "PAUSE to suspend keypress detection" & @CRLF & _

"SHIFT+PAUSE to exit the program"

 

$bindingInstructions = "Instead of ALT use: !" & @CRLF & _

"Instead of SHIFT use: +" & @CRLF & _

"Instead of CTRL use: ^" & @CRLF & _

"Examples:" & @CRLF & _

"SHIFT+CTRL+K = +^K"& @CRLF & _

"ALT+4 = !4"& @CRLF & _

"K = K"

 

MsgBox(0, $title, $inGameInstructions)

$LButton = InputBox($title, "Enter which hotkey you want to use that'll toggle the gear swap." _

& @CRLF & $bindingInstructions, "" & $Button, "", 251, 250)

If $LButton <> "" then

IniWrite("Settings.ini", "Button", "Button", " " & $LButton)

$Button = $LButton

Else

$Button = 1

ErrorMsg()

IniWrite("Settings.ini", "Button", "Button", " 1")

endif

 

$LInventory = InputBox($title, "In game keybinding used to open your inventory (i by default)." _

& @CRLF & $bindingInstructions, "" & $Inventory, "", 251, 250)

If $LInventory <> "" then

IniWrite("Settings.ini", "Inventory", "Inventory", " " & $LInventory)

$Inventory = $LInventory

Else

$Inventory = "i"

ErrorMsg()

IniWrite("Settings.ini", "Inventory", "Inventory", " i")

endif

 

; how many items do you want to switch?

$LNumOfItems = InputBox($title, "How many items slots will you change?")

If $LNumOfItems <> "" then

IniWrite("Settings.ini", "NumOfItems", "NumOfItems", " " & $LNumOfItems)

$NumOfItems = $LNumOfItems

Else

$NumOfItems = 2

ErrorMsg()

IniWrite("Settings.ini", "NumOfItems", "NumOfItems", " 2")

endif

 

; do you want to switch both rings?

 

if MsgBox($MB_YESNO, $title, "Do you want to switch both rings?") == $MB_YES then

$SwitchBothRings = true

IniWrite("Settings.ini", "SwitchBothRings", "SwitchBothRings", $SwitchBothRings)

Else

$SwitchBothRings = false

IniWrite("Settings.ini", "SwitchBothRings", "SwitchBothRings", $SwitchBothRings)

endif

 

; input item locations

; loop for items - 1 if we change 2nd ring too

$upperBound = $NumOfItems

if $SwitchBothRings then

$upperBound = $upperBound - 1

endif

 

Dim $LCoords[$upperBound][2]

 

For $i = 0 To $upperBound - 1

MsgBox(0, "", "Move the mouse into the position of the " & $i + 1 & " (st/nd/rd/th) item in your inventory." & @CRLF & _

"Coordinate recognition will happen 2 sec after pressing 'OK'")

sleep($sleepTimeForCoordDetection)

$pos = MouseGetPos()

$LCoords[$i][0] = $pos[0]

$LCoords[$i][1] = $pos[1]

Next

$Coords = $LCoords

IniWriteSection("Settings.ini", "Coords", $Coords, 0)

 

; input 2nd ring location

 

if $SwitchBothRings then

MsgBox(0, "", "Move the mouse into the position of the 2nd ring in your inventory." & @CRLF & _

"Coordinate recognition will happen 2 sec after pressing 'OK'")

sleep($sleepTimeForCoordDetection)

$pos = MouseGetPos()

Global $SecRingCoords[2][2]

$SecRingCoords[1][0] = $pos[0]

$SecRingCoords[1][1] = $pos[1]

$sData = $SecRingCoords[1][0]&"="&$SecRingCoords[1][1]

IniWriteSection("Settings.ini", "SecRingCoords", $sData)

endif

 

ReadSettings()

MsgBox(0, "", "Setup complete, you can now start swapping gear")

 

endfunc

 

;---------------------------------------

func ErrorMsg()

MsgBox(0, $title, "Incorrect value entered or the user pressed cancel. Default value will be used!")

endfunc

 

while 1

Sleep(1)

if WinActive($win_title) then

HotKeySet($Button, "ButtonPress")

else

HotKeySet($Button)

endif

wend

 

 

В 76й строчке с конца прога пиздит пасс

 

видеогайд от автора скрипта - http://www.twitch.tv...bbb/b/319966774

Запустил через прогу au3 попробовал - норм, получается быстрее через hotkey. А как настройки сохранить? А то как то не прикольно все время в инвентаре шмотки указывать

не выебывайся и юзай экзешник

он создаст ini-файл, в котором будут прописаны твои настройки

не выебывайся и юзай экзешник

он создаст ini-файл, в котором будут прописаны твои настройки

Ты хочешь украсть мои фотографии.

Чото заебало фармить гоблина. Какие ещё есть годные места? А то засосал в середине третьего акта.

Думаю фармить дальше, или тупо пробегать?

кста, где гоблина фармить? И в чем его профит перед фармом элиток? И надо ли стаки набивать перед тем как его фармить?

нет, зашёл убил вышел зашёл не нашёл вышел зашёл не нашёл вышел зашёл не нашёл вышел зашёл не нашёл вышел зашёл убил вышел

профит в том что ты за день фарма можешь выыбить пару шмоток на себя без всякого риска.

за 3 часа набиваю 2-2.5 таба стэша желто-оранжевым шмотом

надеюсь, в последнем патче не понерфили гоблина в а2