WorldCheats Forum

Форум
Форум посвященный главным образом MMORPG играм. Никаких ХАЙДОВ!

 
ФорумПорталЧаВоПоискПользователиГруппыРегистрацияВход

Поделиться | 
 

 IMB Options

Предыдущая тема Следующая тема Перейти вниз 
АвторСообщение
Belfigor
Освоившийся
Освоившийся
avatar

Мужчина Количество сообщений : 259
Возраст : 18
Награда :  
Дата регистрации : 2009-04-29

СообщениеТема: IMB Options   Пт Май 01, 2009 11:04 am

Цитата :
IMB Options v0.2 Change Log:
v0.2 - 16.02.2009:
- Переработано в связи новыми требованиями TT и WinPos модулей
v0.1 - 15.02.2009:
- Альфа релиз модуля

Цитата :
Главная тема [Link]
Содержание [Link]
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

Мужчина Количество сообщений : 259
Возраст : 18
Награда :  
Дата регистрации : 2009-04-29

СообщениеТема: Re: IMB Options   Пт Май 01, 2009 12:10 pm

IMB Options v0.2

Global $Paused
HotKeySet("{PAUSE}", "TogglePause") ;Назначение горячей клавиши. При нажатии Pause Break скрипт встанет на паузу
HotKeySet("{F9}", "Terminate") ;Назначение горячей клавиши. При нажатии F9 скрипт закончит свою работу
$WinTi = "EVE"
Global $WinPos = WinGetPos("EVE") ;Определение позиции окна клиента EVE
$WarpTestX = $WinPos[0] + 545 ;Расчет Х координаты точки экрана необходимой для определения состояния варпа. При переносе скрипта с одного компьютера на другой может понадобиться корректировка.
$WarpTestY = $WinPos[1] + 734 ;Расчет Y координаты точки экрана необходимой для определения состояния варпа. При переносе скрипта с одного компьютера на другой может понадобиться корректировка.
$sBeginTime = TimerInit() ;Запуск глобального таймера
$TTSeconds = 0 ;Присвоение значения переменной
$TTMinutes = 0 ;Присвоение значения переменной
$Minutes = 0 ;Присвоение значения переменной
$Seconds = 0 ;Присвоение значения переменной
$MenuX = 56 ;Х координата кнопки игрового меню
$MenuY = 96 ;Y координата кнопки игрового меню
$OverviewX = 247 ;Х координата кнопки меню овервью
$OverviewY = 160 ;Y координата кнопки меню овервью
$TTOx = 3 ;Координата Х верхнего левого угла ТулТипа
$TTOy = 790 ;Координата y верхнего левого угла ТулТипа
$SIx = 236 ;Х координата верхнего левого угла окна Selected Item [далее SI]
$SIy = 66 ;Y координата верхнего левого угла окна Selected Item [далее SI]
$MainLoop = 1 ;Присвоение значения переменной
$WinTi = "EVE"
$WinPos = WinGetPos($WinTi)
winactivate("EVE") ;Делает окно EVE активным
winwaitactive("EVE") ;Ожидает момента когда окно EVE станет активным
winmove("EVE", "", 0, 21) ;Передвигает окно EVE так, что левый верхний угол окна оказывается на координатах 0, 21
;~ MainLoop() ;Ссылка на функцию с именем MainLoop()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
;; TogglePause v0.1 Переключение паузы. Функция отвечает за постановку скрипта на паузу.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
;; Terminate v0.1 Завершение работы бота. Функция отвечает за завершение работы бота.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;

Func Terminate()
$sMSG = StringFormat("Cycle Time: %.02d minutes.", (TimerDiff($sBeginTime)/1000)/60 )
MsgBox(0, "Macro Statistics", $sMSG)
Exit 0
EndFunc ;==>Terminate
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
Вернуться к началу Перейти вниз
Посмотреть профиль
 
IMB Options
Предыдущая тема Следующая тема Вернуться к началу 
Страница 1 из 1

Права доступа к этому форуму:Вы не можете отвечать на сообщения
WorldCheats Forum :: Лаборатория Читера :: EVE Online-
Перейти: