Please Check me

[Belfigor]

expandcollapse popup

;;It is easy to use this module in any other eve script if u need to use Overview or Menu operations.
;;

$ToolTipXCoord = 800 ;;X coord of ToolTip 
$ToolTipYCoord = 600 ;;Y coord of ToolTip
$OverviewX = 273 ;;Overview button X coord, U need to use here your own coords, mine will not work with your interface settings
$OverviewY = 173 ;;Overview button Y coord, U need to use here your own coords, mine will not work with your interface settings
$MenuX = 56 ;;Menu button X coord, U need to use here your own coords, mine will not work with your interface settings
$MenuY = 96 ;;Menu button Y coord, U need to use here your own coords, mine will not work with your interface settings

Func TT($Text) ;;ToolTips
    ToolTip($Text, $ToolTipXCoord, $ToolTipYCoord) 
EndFunc 

Func CS($Time) ;;Click Delay
    Sleep($Time)
EndFunc 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Used to operate Overview
OpenMenu(3, $MenuX, $MenuY, 2, 1) 
;;       3 - Number of Line in Overview thet you whant to load
;;           $MenuX - Menu button X coord
;;                  $MenuY - Menu button Y coord
;;                          2 - Type of menu what you whant to use (Menu - "1", Overview - "2")
;;                             1 - Level of a menu. Overview have only one Level of Menu, so when you operate Overview, the last parametr allways will be "1")
;;Tins command will open Overview menu and load 3-rd Line from it
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Used to operate Menu
OpenMenu(3, $MenuX, $MenuY, 1, 1) ;;Will open 1 Level of Menu and selest 3 Line (Stargate Menu)
OpenMenu(1, $StrokeX, $StrokeY2, 1, 2) ;;Will open 2 Level of Menu and select 1 Line (1st Stargate in Menu)
OpenMenu(1, $StrokeX, $StrokeY2, 1, 3) ;;Will open 3 Level of menu and select 1 line (Warp to with in 0 m)
;;                             1 - Level of a Menu (1-st lvl)
;;                                  2 - Level of a Menu (2-nd lvl)
;;                                  3 - Level of a Menu (3-rd lvl)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;So, to Warp to location u need just to know what level of Menu and what Line u whant you whant to Click 
;;For example:
OpenMenu(6, $MenuX, $MenuY, 1, 1) 
OpenMenu(1, $StrokeX, $StrokeY2, 1, 2) 
;;Will Warp you to the 1st book bark in a system
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sleep(30000)
Exit

Func OpenMenu($Stroke, $MenuX, $MenuY, $Type, $Run)
    Global $MouseSpeed = 15
    Select 
        Case $Type = 1 
            TT("Открываю Главное Меню") 
            winmove("EVE", "", 0, 20)
        Case $Type = 2 
            TT("Открываю Овервью")
            winmove("EVE", "", -520, 20)
            $Correction = 0
        EndSelect   
    Select 
        Case $Run = 1 
            TT("Открываю Главное Меню") 
            $Correction = 0
            $Correction2 = 10
            MouseClick("left",$MenuX, $MenuY, 1, $MouseSpeed) 
        Case $Run = 2 
            TT("Открываю Овервью")
            $Correction = 15
            $Correction2 = 0
        Case $Run = 3 
            TT("Открываю Овервью")
            $Correction = 15
            $Correction2 = 0
        EndSelect   

    Global $StrokeX = $MenuX+100 
    Global $StrokeY = $MenuY+$Correction2   
    Global $StrokeX2 = $StrokeX+100
    Global $StrokeY2 = $MenuY+$Stroke*15-$Correction 
    Global $WaitTime = 150 ;;Delay betwenn mouse actions
    CS($WaitTime)
    StrokeSelect($Stroke, $StrokeX, $StrokeY2, $Type, $Run)
EndFunc

Func StrokeSelect($Stroke,$MenuX, $MenuY, $Type, $Run)
    CS($WaitTime) 

    Select 
        Case $Stroke = 1 
            TT("Выделяю " &$Stroke& "-ю строку") 
            MouseMove($StrokeX, $StrokeY, $MouseSpeed) 
            CS($WaitTime) 
            MouseClick("left",$StrokeX, $StrokeY, 1, $MouseSpeed)
        Case $Stroke > 1 
            TT("Выделяю " &$Stroke& "-ю строку")
            MouseMove($StrokeX, $StrokeY2, $MouseSpeed)
            CS($WaitTime)
            MouseClick("left",$StrokeX, $StrokeY2, 1, $MouseSpeed)
    EndSelect   
    Select
        Case $Type = 1
            MouseMove($StrokeX2, $StrokeY2, $MouseSpeed)
        Case Else
            ;
    EndSelect
EndFunc

Sorry for my bad eanglish, but i whant to ask. Is there any way to make it script shorter? For example to use not so primetive functions as i do. And how?

[zFrank]

why you want to short it? is it using too much Ram or Process usage?

if yes then give it some sleep....

[Belfigor]

why you want to short it? is it using too much Ram or Process usage?

if yes then give it some sleep....

Because it take too much time to make it . When i will start another script i whant to know may be there was easyer way to make some actions.