02.07.2014, 00:25
#1
Капитан
Регистрация: 13.02.2012
Сообщений: 286
Популярность: 32107
Сказал(а) спасибо: 528
Поблагодарили 267 раз(а) в 160 сообщениях
[OpenSource] Simple Instalocker
Вы устали от игр которые начинаются с пика и слов я carry, я мид, я топ? Тогда это программа для вас.
Вашему вниманию предоставляется Paraly's Autopicker.
Функции:
Быстрый и автоматический выбор чемпиона (героя).
Автоматическое оповещение игроков, о вашей игровой роли (сообщение в чат).
Опциональный Instalock.
Оптимизация под любой.
Примечание: на данный момент не работает встроенный auto-accept.
Source
Код:
PHP Code:
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
Opt("TrayMenuMode", 1+2)
Global $aboutitem = TrayCreateItem("About")
Global $prefsitem = TrayCreateItem("Settings")
TrayCreateItem("")
Global $exititem = TrayCreateItem("Exit")
Global $searchbox_X, $searchbox_Y, $submitbox_X, $submitbox_Y, $champbox_X, $champbox_Y, $checkbox_X, $Checkbox_Y, $textbox_X, $textbox_Y, $Acceptbox_X, $Acceptbox_Y, $Accept_checkbox_X, $Accept_checkbox_Y, $Clip_type, $Clip_champ
Global $Speed = 1, $multiplier = 0.75, $Title_main = "Para's Instapicker", $version = 0.43
$combo_data = "Ahri|Akali|Alistar|Amumu|Anivia|Annie|Ashe|Blitzcrank|Brand|Braum|Caitlyn|Cassiopeia|Cho'Gath|Corki|Darius|Diana|Dr. Mundo|"
$combo_data &= "Draven|Elise|Evelynn|Ezreal|Fiddlesticks|Fiora|Fizz|Galio|Gangplank|Garen|Gragas|Graves|Hecarim|Heimerdinger|Irelia|Janna|Jarvan IV|"
$combo_data &= "Jax|Jayce|Jinx|Karma|Karthus|Kassadin|Katarina|Kayle|Kennen|Kha'Zix|Kog'Maw|LeBlanc|Lee Sin|Leona|Lissandra|Lucian|Lulu|Lux|Malphite|Malzahar|Maokai|Master Yi|"
$combo_data &= "Miss Fortune|Modekaiser|Morgana|Nami|Nasus|Nautilus|Nidalee|Nocturne|Nunu|Olaf|Orianna|Pantheon|Poppy|Quinn|Rammus|Renekton|Rengar|Riven|Rumble|Ryze|Sejuani|Shaco|Shen|"
$combo_data &= "Shyvana|Singed|Sion|Sivir|Skarner|Sona|Soraka|Swain|Syndra|Talon|Taric|Teemo|Thresh|Tristana|Trundle|Tryndamere|Twisted Fate|Twitch|Udyr|Urgot|Varus|Vayne|Veigar|Vel'Koz|Vi|"
$combo_data &= "Viktor|Vladimir|Volibear|Warwick|Wukong|Xerath|Xin Zhao|Yasuo|Yorick|Zac|Zed|Ziggs|Zilean|Zyra"
$GUI = GUICreate($Title_main, 202, 67, 602, 468)
$Input = GUICtrlCreateInput("", 0, 0, 201, 21)
$Combo = GUICtrlCreateCombo("Aatrox", 0, 24, 201, 25, BitOR($GUI_SS_DEFAULT_COMBO,$CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $combo_data )
$CBox = GUICtrlCreateCheckbox("Instalock",4,48,65,17)
GUICtrlSetState(-1,$GUI_CHECKED)
$CBox2 = GUICtrlCreateCheckbox("Auto-Accept",73,48,80,17)
GUICtrlSetState(-1,$GUI_UNCHECKED)
GUICtrlSetState(-1,$GUI_DISABLE)
$BTN = GUICtrlCreateButton("OK", 156, 48, 43, 17)
GUISetState(@SW_SHOW)
While 1
_WinMSG()
_TrayCheck()
WEnd
Func _WaitforAcceptGame();experimental
$refresh_calc_timer = TimerInit()
_calc_pos()
_calc_delay()
Do
sleep(10)
$refresh_calc_timer_dif = TimerDiff($refresh_calc_timer)
If $refresh_calc_timer_dif > 500 Then
_calc_pos()
$refresh_calc_timer = TimerInit()
EndIf
_WinMSG()
_TrayCheck()
ToolTip(Hex(PixelGetColor($Accept_checkbox_X, $Accept_checkbox_Y),6),0,0)
Local $temp_p = PixelGetColor($Accept_checkbox_X, $Accept_checkbox_Y)
Until $temp_p <> 0xC16213 And $temp_p <> 0xC06213 And $temp_p <> 0xC26313 And $temp_p <> 0xC36313 And $temp_p <> 0xC46414 And $temp_p <> 0xC56514 And $temp_p <> 0xC46514 And $temp_p <> 0xC56614 And $temp_p <> 0xC36414 And $temp_p <> 0xC66614 And $temp_p <> 0xC46313 And $temp_p <> 0xC16313 And $temp_p <> 0xC36213 And $temp_p <> 0xC26213 And $temp_p <> 0xC06113 And $temp_p <> 0xC56414 And WinActive("PVP.net Client")
Sleep(750 * $multiplier)
MouseClick("LEFT",$Acceptbox_X,$Acceptbox_Y,2,1)
EndFunc
Func _WaitforChampselection()
$refresh_calc_timer = TimerInit()
_calc_pos()
_calc_delay()
Do
sleep(10)
$refresh_calc_timer_dif = TimerDiff($refresh_calc_timer)
If $refresh_calc_timer_dif > 500 Then
_calc_pos()
$refresh_calc_timer = TimerInit()
EndIf
_WinMSG()
_TrayCheck()
Until PixelGetColor($checkbox_X, $Checkbox_Y) = 0xF08B2C
Sleep(330 * $multiplier)
_calc_pos()
MouseClick("LEFT",$textbox_X,$textbox_Y,2,1)
Sleep(240 * $multiplier)
$temp_clip = ClipGet()
ClipPut($Clip_type)
Send("^v")
Sleep(200 * $multiplier)
Send("{enter}")
Sleep(240 * $multiplier)
MouseClick("LEFT",$searchbox_X,$searchbox_Y,2,1)
Sleep(290 * $multiplier)
ClipPut($Clip_champ)
Send("^v")
Sleep(480 * $multiplier)
MouseClick("LEFT",$champbox_X,$champbox_Y,2,1)
sleep(290 * $multiplier)
If GUICtrlRead($CBox) = 1 Then
MouseClick("LEFT",$submitbox_X,$submitbox_Y,2,1)
EndIf
ClipPut($temp_clip)
EndFunc
Func _calc_delay()
If $Speed = 0 Then
$multiplier = 1
ElseIf $Speed = 1 Then
$multiplier = 0.75
ElseIf $Speed = 2 then
$multiplier = 0.5
EndIf
EndFunc
Func _calc_pos()
$wintitle = WinGetTitle("[CLASS:ApolloRuntimeContentWindow]")
$p = WinGetPos($wintitle)
If @error Then
MsgBox(16,"League of Legends not found","Errorcode: 13",3)
Exit
EndIf
$textbox_X = $p[2] / 3.961904761904762
$textbox_X += $p[0]
$textbox_Y = $p[3] / 1.084462982273201
$textbox_Y += $p[1]
$searchbox_X = $p[2] / 1.460930640913082
$searchbox_X += $p[0]
$searchbox_Y = $p[3] / 6.303030303030303
$searchbox_Y += $p[1]
$champbox_X = $p[2] / 3.961904761904762
$champbox_X += $p[0]
$champbox_Y = $p[3] / 3.924528301886792
$champbox_Y += $p[1]
$submitbox_X = $p[2] / 1.484388938447814
$submitbox_X += $p[0]
$submitbox_Y = $p[3] / 1.60741885625966
$submitbox_Y += $p[1]
$checkbox_X = $p[2] / 3.328
$checkbox_X += $p[0]
$Checkbox_Y = $p[3] / 6.419753086419753
$Checkbox_Y += $p[1]
$Acceptbox_X = $p[2] / 2.220563847429519
$Acceptbox_X += $p[0]
$Acceptbox_Y = $p[3] / 1.803879310344828
$Acceptbox_Y += $p[1]
$Accept_checkbox_X = $p[2] / 1.510438413361169
$Accept_checkbox_X += $p[0]
$Accept_checkbox_Y = $p[3] / 13.90769230769231
$Accept_checkbox_Y += $p[1]
EndFunc
Func _WinMSG()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BTN
$Clip_type = GUICtrlRead($Input)
$Clip_champ = GUICtrlRead($Combo)
GUICtrlSetState($BTN,$GUI_DISABLE)
If GUICtrlRead($CBox2) = 1 Then
_WaitforAcceptGame()
EndIf
_WaitforChampselection()
GUICtrlSetState($BTN,$GUI_ENABLE)
TrayTip("successfully","Mission completed :>",3)
EndSwitch
EndFunc
Func _TrayCheck()
Local $msg = TrayGetMsg()
Select
Case $msg = $aboutitem
MsgBox(64,"About :","Version: " & $version & @CRLF & "Author: Paraly" & @CRLF & "- Done for Elitepvpers -")
Case $msg = $prefsitem
GUISetState(@SW_HIDE, $GUI)
_Settings(0)
$GUI2 = GUICreate("Settings", 156, 32, 650, 511)
$LBL = GUICtrlCreateLabel("Your PC-Speed:", 2,1,100,14)
$BTN2 = GUICtrlCreateButton("Low", 0, 16, 51, 17)
If $Speed = 0 Then
GUICtrlSetState(-1,$GUI_DISABLE)
EndIf
$BTN3 = GUICtrlCreateButton("Medium", 52, 16, 51, 17)
If $Speed = 1 Then
GUICtrlSetState(-1,$GUI_DISABLE)
EndIf
$BTN4 = GUICtrlCreateButton("High", 104, 16, 51, 17)
If $Speed = 2 Then
GUICtrlSetState(-1,$GUI_DISABLE)
EndIf
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_Settings(1)
GUISetState(@SW_HIDE, $GUI2)
GUISetState(@SW_SHOW, $GUI)
WinActivate($Title_main)
ExitLoop
Case $BTN2
GUICtrlSetState($BTN2,$GUI_DISABLE)
GUICtrlSetState($BTN3,$GUI_ENABLE)
GUICtrlSetState($BTN4,$GUI_ENABLE)
$Speed = 0
Case $BTN3
GUICtrlSetState($BTN2,$GUI_ENABLE)
GUICtrlSetState($BTN3,$GUI_DISABLE)
GUICtrlSetState($BTN4,$GUI_ENABLE)
$Speed = 1
Case $BTN4
GUICtrlSetState($BTN2,$GUI_ENABLE)
GUICtrlSetState($BTN3,$GUI_ENABLE)
GUICtrlSetState($BTN4,$GUI_DISABLE)
$Speed = 2
EndSwitch
WEnd
Case $msg = $exititem
Exit
EndSelect
EndFunc
Func _Settings($mode)
If $mode = 0 Then;Load
If FileExists(@TempDir & "\Instapicker\Instapicker.cfg") Then
$f_settings = FileOpen(@TempDir & "\Instapicker\Instapicker.cfg",0)
$CFG_data = FileRead($f_settings)
FileClose($f_settings)
$CFG_Speed = StringRegExp($CFG_data,"CFG_Speed=(.*?);",3)
If IsArray($CFG_Speed) Then
$Speed = $CFG_Speed[0]
Else
MsgBox(0,"ERROR","Errorcode: 33",3)
Exit
EndIf
Else
_Settings(1)
EndIf
ElseIf $mode = 1 Then;Save
$f_settings = FileOpen(@TempDir & "\Instapicker\Instapicker.cfg",2+8)
FileWrite($f_settings,"CFG_Speed=" & $Speed & ";" & @CRLF)
FileClose($f_settings)
Else
MsgBox(16,"ERROR","Errorcode: 31",3)
Exit
EndIf
EndFunc
Ссылки:
[Ссылки могут видеть только зарегистрированные пользователи. ]или
[Ссылки могут видеть только зарегистрированные пользователи. ]
Материал взят и переведён с сайта elitepvpers.com, ссылка на тему в лого-картинке!
Последний раз редактировалось Qnix; 31.07.2014 в 12:33 .
2 пользователя(ей) сказали cпасибо:
Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
Похожие темы
Тема
Автор
Раздел
Ответов
Последнее сообщение
[Программа] League of Legends Bot Instalocker
OldTimeWhiskey
League of Legends
1
25.01.2014 11:14
simple bot
sashamonster
Другие Игры
0
25.06.2013 12:20
[Уязвимость] Simple NA V6
Cryogenetics
Cross Fire
3
12.06.2013 06:52
simple
sanek67
Общение и обсуждение Counter-Strike
0
09.05.2012 13:38
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 21:07 .