Jump to content
TNC-TR

darendeli

Üye
  • Content count

    28
  • Joined

  • Last visited

Community Reputation

3 Neutral

About darendeli

  • Rank
    Yeni üye

Recent Profile Visitors

378 profile views
  1. darendeli

    Autoit Mmo Tarzı Oyunlarda Bot

    #NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=include\robot-icono-9322.ico #AutoIt3Wrapper_Outfile=m.exe #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Fileversion=0.0.0.64 #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.1 Author: loop88 Script Function: Pixel Bot Para DarkOrbit #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <Misc.au3> #include <EditConstants.au3> #include <windowsconstants.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <ImageSearch.au3> #include <MsgBoxConstants.au3> #include <ComboConstants.au3> #include <GuiStatusBar.au3> #include <Process.au3> #include <INet.au3> #include <MD5.au3> #include <Array.au3> HotKeySet("{F2}", "_exit") HotKeySet("{PAUSE}", "_pause") HotKeySet("{ESC}", "_exitbot") ;Version Global $ver = "0.0.13" ;------- Global $msga, $msgb, $msgc ; variables a declarar==START ;_Pausa Global $pausa Global $EXITBOT = 0 ;_GUI_set Global $fraction ;_donated_version Global $username_info ;_run_bot Global $jump = 1 Global $palladium_sleeptime = 1500 Global $box_sleeptime = 400 ;_screen_coordinates Global $screencoordinates12_x1, $screencoordinates12_y1, $screencoordinates12_x2, $screencoordinates12_y2, $a, $b Global $screencoordinates11_x1, $screencoordinates11_y1, $screencoordinates11_x2, $screencoordinates11_y2 Global $screencoordinates10_x1, $screencoordinates10_y1, $screencoordinates10_x2, $screencoordinates10_y2 Global $screencoordinates9_x1, $screencoordinates9_y1, $screencoordinates9_x2, $screencoordinates9_y2 Global $screencoordinates8_x1, $screencoordinates8_y1, $screencoordinates8_x2, $screencoordinates8_y2 Global $screencoordinates7_x1, $screencoordinates7_y1, $screencoordinates7_x2, $screencoordinates7_y2 Global $screencoordinates6_x1, $screencoordinates6_y1, $screencoordinates6_x2, $screencoordinates6_y2 Global $screencoordinates5_x1, $screencoordinates5_y1, $screencoordinates5_x2, $screencoordinates5_y2 Global $screencoordinates4_x1, $screencoordinates4_y1, $screencoordinates4_x2, $screencoordinates4_y2 Global $screencoordinates3_x1, $screencoordinates3_y1, $screencoordinates3_x2, $screencoordinates3_y2 Global $screencoordinates2_x1, $screencoordinates2_y1, $screencoordinates2_x2, $screencoordinates2_y2 Global $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2 Global $screencoordinates_x1, $screencoordinates_y1, $screencoordinates_x2, $screencoordinates_y2 ;_map_coordinates Global $map_coordinates_up_x Global $map_coordinates_up_y Global $map_coordinates_down_x Global $map_coordinates_down_y Global $map_search_state_up_x Global $map_search_state_up_y Global $map_search_state_down_x Global $map_search_state_down_y ; cordenadas resultado Global $found_x, $found_y, $found_x_fire, $found_y_fire, $found_x_npc, $found_y_npc ;imagenes Global $bonusboxIMG = "src/collect/bonusbox.bmp" Global $cargoboxIMG = "src/collect/cargobox.bmp" Global $neweventboxIMG = "src/collect/helixbox.bmp" Global $helixboxIMG = "src/collect/helixbox.bmp" Global $greenbootyIMG = "src/collect/greenbooty.bmp" Global $yellowbootyIMG = "src/collect/yellowbooty.bmp" Global $bluebootyIMG = "src/collect/bluebooty.bmp" Global $redbootyIMG = "src/collect/redbooty.bmp" Global $cargofullIMG = "src/collect/cargofull.bmp" Global $fountcargoIMG = "src/collect/fountcargo.bmp" Global $palladiumIMG = "src/collect/palladium.bmp" Global $shipstatusIMG = "src/shipstatus.bmp" Global $mapcoordinatesIMG = "src/map/select_map_coordinates.bmp" Global $mapsearchstateIMG = "src/map/map_search_state.bmp" Global $mapgateIMG = "src/map/gate.bmp" Global $mapopenIMG = "src/map/open_map.bmp" Global $fleex2shipIMG = "src/map/ship.bmp" Global $1enemieIMG = "src/map/1enemie.bmp" Global $2enemieIMG = "src/map/2enemie.bmp" Global $3enemieIMG = "src/map/3enemie.bmp" Global $4enemieIMG = "src/map/4enemie.bmp" Global $5enemieIMG = "src/map/5enemie.bmp" Global $map21IMG = "src/map/2-1.bmp" Global $map22IMG = "src/map/2-2.bmp" Global $map23IMG = "src/map/2-3.bmp" Global $map24IMG = "src/map/2-4.bmp" Global $aegislife10IMG = "src/aegis/life10.bmp" Global $aegislife20IMG = "src/aegis/life20.bmp" Global $aegislife30IMG = "src/aegis/life30.bmp" Global $aegislife40IMG = "src/aegis/life40.bmp" Global $aegislife50IMG = "src/aegis/life50.bmp" Global $aegislife60IMG = "src/aegis/life60.bmp" Global $aegislife70IMG = "src/aegis/life70.bmp" Global $aegislife80IMG = "src/aegis/life80.bmp" Global $aegislife90IMG = "src/aegis/life90.bmp" Global $aegislife100IMG = "src/aegis/life100.bmp" Global $aegisshield10IMG = "src/aegis/shield10.bmp" Global $aegisshield20IMG = "src/aegis/shield20.bmp" Global $aegisshield30IMG = "src/aegis/shield30.bmp" Global $aegisshield40IMG = "src/aegis/shield40.bmp" Global $aegisshield50IMG = "src/aegis/shield50.bmp" Global $aegisshield60IMG = "src/aegis/shield60.bmp" Global $aegisshield70IMG = "src/aegis/shield70.bmp" Global $aegisshield80IMG = "src/aegis/shield80.bmp" Global $aegisshield90IMG = "src/aegis/shield90.bmp" Global $aegisshield100IMG = "src/aegis/shield100.bmp" Global $lifeIMG = "src/aegis/life.bmp" Global $shieldIMG = "src/aegis/shield.bmp" Global $beaconIMG = "src/aegis/beacon.bmp" Global $x1IMG = "src/npc/x1.bmp" Global $x2IMG = "src/npc/x2.bmp" Global $x3IMG = "src/npc/x3.bmp" Global $x4IMG = "src/npc/x4.bmp" Global $muni1IMG = "src/npc/muni1.bmp" Global $muni2IMG = "src/npc/muni2.bmp" Global $muni3IMG = "src/npc/muni3.bmp" Global $muni4IMG = "src/npc/muni4.bmp" Global $palladium_npcIMG = "src/npc/palladiumnpc.bmp" Global $npc_lordakiaIMG = "src/npc/npc_lordakia.bmp" Global $npc_streunerIMG = "src/npc/npc_streuner.bmp" Global $npc_bosslordakiaIMG = "src/npc/npc_bosslordakia.bmp" Global $npc_bossstreunerIMG = "src/npc/npc_bossstreuner.bmp" Global $npcfireIMG = "src/npc/npcfire.bmp" Global $npcmapIMG = "src/npc/npcmap.bmp" Global $npc_mordonIMG = "src/npc/npc_mordon.bmp" Global $npc_bossmordonIMG = "src/npc/npc_bossmordon.bmp" Global $npc_saimonIMG = "src/npc/npc_saimon.bm" Global $npc_bosssaimonIMG = "src/npc/npc_bosssaimon.bmp" Global $petantibugIMG = "src/pet/petantibug.bmp" Global $petopenIMG = "src/pet/petopen.bmp" Global $petrepairIMG = "src/pet/petrepair.bmp" Global $petmenuIMG = "src/pet/petmenu.bmp" Global $petcloseIMG = "src/pet/petclose.bmp" Global $petlootIMG = "src/pet/petloot.bmp" Global $petresIMG = "src/pet/petres.bmp" Global $petoptionIMG = "src/pet/petoption.bmp" Global $petmapIMG = "src/pet/petmap.bmp" Global $petlootstatusIMG = "src/pet/petlootstatus.bmp" Global $petresstatusIMG = "src/pet/petresstatus.bmp" Global $kloakcpu10IMG = "src/kloakcpu10.bmp" Global $kloakcpu50IMG = "src/kloakcpu50.bmp" Global $kloakedcpu10IMG = "src/kloakedcpu10.bmp" Global $kloakedcpu50IMG = "src/kloakedcpu50.bmp" Global $spearheadreconIMG = "src/spearhead/recon.bmp" Global $spearheadcloakingIMG = "src/spearhead/cloaking.bmp" Global $rapairgateIMG = "src/repair/rapairgate.bmp" Global $repairbaseIMG = "src/repair/repairbase.bmp" Global $repairspotIMG = "src/repair/repairspot.bmp" Global $repairbottonIMG = "src/repair/repairbotton.bmp" Global $connectionlostIMG = "src/repair/connectionlost.bmp" ;INI Global $filesettingsINI = @ScriptDir & "\src\settings.ini" ;GUI_read Global $collect_bonusbox, $collect_cargobox, $green_booty, $collect_palladium, $kill_palladium_npc, $killnpc, $blue_booty, $red_booty, $yellow_booty Global $disconnect_after_time, $time_calc, $disconnect_after_select, $time_msg Global $antiban, $mouse_time, $aegislife, $aegisbeacon, $aegisshield ;GUI_set Global $fleex2, $usepet, $fleex2_enemies, $fleex2IMG, $repairpet, $autolooterpet, $resoursepet, $kloakcpu ;aegis Global $useaegis, $aegisbeaconrepair, $aegisliferepair, $aegisshieldrepair, $aegislifeIMG, $aegisshieldIMG, $aegisbeaconIMG, $notuseship Global $usespearhead, $spearheadautocloaking, $spearheadcloaking, $spearheadnocloaking, $spearheadrecon, $spearheadnorecon, $cloaking, $recon Global $repairbase, $repairgate, $repairspot, $maxrepairtimes, $maxrepaircounter, $reviveship, $revivewaittime, $revive_calc ;killnpc Global $fire2, $npc, $lordakia, $boss_lordakia, $streuner, $boss_streuner, $saimon, $boss_saimon, $mordon, $boss_mordon Global $npc1, $npc2, $npc3, $npc4, $npc5, $npc6, $npc7, $npc8 Global $map1, $map2 ; variables a declarar==END Func _exit() ;para el bot GUISetState(@SW_RESTORE) _bot_menu() EndFunc ;==>_exit Func _exitbot() ;cierra el bot Exit EndFunc ;==>_exitbot Func _pause() ;Para el programa asta nuevo aviso $pausa = Not $pausa EndFunc ;==>_pause _start() Func _start() FileInstall('C:\Users\loop\Desktop\m_XZ\include\sr c.zip', @ScriptDir & '\src.zip', 1) FileInstall('C:\Users\loop\Desktop\m_XZ\include\7z .dll', @ScriptDir & '\7z.dll', 1) FileInstall('C:\Users\loop\Desktop\m_XZ\include\7z .exe', @ScriptDir & '\7z.exe', 1) $unzip = "7z x -aoa " $archiv = "src.zip" _RunDos($unzip & $archiv) FileDelete("src.zip") FileDelete("7z.dll") FileDelete("7z.exe") IniWrite($filesettingsINI, "update", "version", '"' & $ver & '"') If Not FileExists(@ScriptDir & "\ImageSearchDLL.dll") Then FileInstall('C:\Users\loop\Desktop\m_XZ\ImageSearc hDLL.dll', @ScriptDir & '\ImageSearchDLL.dll', 1) EndIf If FileExists($filesettingsINI) Then $fraction = Int(IniRead($filesettingsINI, "user_fraction", "fraction", 0)) If Not ($fraction = 1 Or $fraction = 2 Or $fraction = 3) Then _select_fraction() EndIf Else _select_fraction() EndIf _update() EndFunc ;==>_start Func _select_fraction() #Region ### START Koda GUI section ### Form= $Form3 = GUICreate("Select you Fraction | Do bot", 413, 281, 191, 124) $Pic1 = GUICtrlCreatePic("src/fraction/MMO_Mascot.bmp", 8, 8, 124, 212) $Pic2 = GUICtrlCreatePic("src/fraction/EIC_Mascot.bmp", 141, 9, 124, 212) $Pic3 = GUICtrlCreatePic("src/fraction/VRU_Mascot.bmp", 277, 9, 124, 212) $mmo = GUICtrlCreateRadio("MMO", 40, 232, 81, 25) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $eic = GUICtrlCreateRadio("EIC", 176, 232, 81, 25) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $vru = GUICtrlCreateRadio("VRU", 312, 232, 81, 25) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $mmo $fraction = 1 IniWrite($filesettingsINI, "user_fraction", "fraction", $fraction) GUIDelete($Form3) ExitLoop Case $eic $fraction = 2 IniWrite($filesettingsINI, "user_fraction", "fraction", $fraction) GUIDelete($Form3) ExitLoop Case $vru $fraction = 3 IniWrite($filesettingsINI, "user_fraction", "fraction", $fraction) GUIDelete($Form3) ExitLoop EndSwitch WEnd EndFunc ;==>_select_fraction #Region ### START Koda GUI section ### Form=C:\Users\loop\Documents\Form1_1.kxf $Form1 = GUICreate("Do bot", 591, 419, 322, 151) $MenuItem1 = GUICtrlCreateMenu("&Menu") $m_save_settings = GUICtrlCreateMenuItem("Save Settings" & @TAB & "Alt+NUMERO 5", $MenuItem1) $m_start_bot = GUICtrlCreateMenuItem("- Start Bot -" & @TAB & "Shift+Ctrl+Alt+,", $MenuItem1) $MenuItem4 = GUICtrlCreateMenu("&Aboud") $MenuItem3 = GUICtrlCreateMenuItem("Do Bot" & @TAB & "Alt+H", $MenuItem4) $MenuItem5 = GUICtrlCreateMenuItem("Help" & @TAB & "Alt+ALT", $MenuItem4) $Tab1 = GUICtrlCreateTab(0, 0, 585, 393) $TabSheet1 = GUICtrlCreateTabItem("Home") $l_welcome = GUICtrlCreateLabel("Welcome to Do bot", 128, 26, 336, 28) GUICtrlSetFont(-1, 16, 800, 2, "Arial") GUICtrlSetColor(-1, 0x008000) $NEWS = GUICtrlCreateEdit("", 8, 62, 273, 305) GUICtrlSetData(-1, "") GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet2 = GUICtrlCreateTabItem("Collect") $checkbox_bonusbox = GUICtrlCreateCheckbox("Bonus and Eventboxes", 16, 46, 153, 17) GUICtrlSetFont(-1, 10, 400, 0, "Arial") $checkbox_cargobox = GUICtrlCreateCheckbox("Cargoboxes", 16, 78, 137, 17) GUICtrlSetFont(-1, 10, 400, 0, "Arial") $Group2 = GUICtrlCreateGroup("Booty", 20, 113, 137, 145) GUICtrlSetFont(-1, 10, 400, 0, "Arial") $checkbox_y_booty = GUICtrlCreateCheckbox("Yellow Booty", 46, 166, 105, 17) $checkbox_g_booty = GUICtrlCreateCheckbox("Green Booty", 46, 134, 105, 17) $checkbox_r_booty = GUICtrlCreateCheckbox("Red Booty", 46, 198, 105, 17) $checkbox_b_booty = GUICtrlCreateCheckbox("Blue Booty", 46, 230, 105, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group4 = GUICtrlCreateGroup("Maps", 196, 41, 353, 193) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $combo_map1 = GUICtrlCreateCombo("", 212, 105, 121, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) $combo_map2 = GUICtrlCreateCombo("", 404, 105, 121, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) $Label4 = GUICtrlCreateLabel("Map 1", 260, 81, 33, 18) $Label5 = GUICtrlCreateLabel("Map 2", 444, 81, 33, 18) $input_switch_map_time = GUICtrlCreateInput("", 285, 169, 87, 22) $combo_switch_map_time = GUICtrlCreateCombo("", 400, 169, 81, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) $Label6 = GUICtrlCreateLabel("<--->", 356, 105, 24, 18) $Checkbox_switch_map = GUICtrlCreateCheckbox("Switch map", 324, 145, 89, 17) $Label7 = GUICtrlCreateLabel("Every", 228, 169, 35, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet4 = GUICtrlCreateTabItem("Npc Killer") $checkbox_kill_npc = GUICtrlCreateCheckbox("Kill NPC", 8, 22, 81, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $checkbox_streuner = GUICtrlCreateCheckbox("Streuner", 8, 54, 81, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $checkbox_boss_streuner = GUICtrlCreateCheckbox("Boss Streuner", 8, 86, 89, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $checkbox_lordakia = GUICtrlCreateCheckbox("Lordakia", 8, 118, 89, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $checkbox_boss_lordakia = GUICtrlCreateCheckbox("Boss Lordakia", 9, 146, 89, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $checkbox_saimon = GUICtrlCreateCheckbox("Saimon", 106, 57, 81, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $checkbox_boss_saimon = GUICtrlCreateCheckbox("Boss Saimon", 106, 89, 89, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $checkbox_mordon = GUICtrlCreateCheckbox("Mordon", 106, 121, 89, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $checkbox_boss_mordon = GUICtrlCreateCheckbox("Boss Mordon", 107, 149, 89, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label13 = GUICtrlCreateLabel("Warning slow and buggy, use at your own risk !!", 28, 313, 501, 31) GUICtrlSetFont(-1, 14, 800, 0, "Arial Black") GUICtrlSetColor(-1, 0xFF0000) $TabSheet6 = GUICtrlCreateTabItem("Settings") $Group5 = GUICtrlCreateGroup("Disconnect after", 12, 29, 225, 65) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $input_disconnect_after = GUICtrlCreateInput("", 28, 53, 97, 22, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER)) $combo_disconnect_after = GUICtrlCreateCombo("", 140, 53, 81, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "Off|Minutes|Hours") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group6 = GUICtrlCreateGroup("Flee x2", 12, 107, 313, 81) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $checkbox_fleex2 = GUICtrlCreateCheckbox("Flee on", 36, 139, 57, 17) $l_fleex2 = GUICtrlCreateLabel("", 92, 139, 21, 18) $combo_fleex2 = GUICtrlCreateCombo("", 236, 131, 81, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "1|2|3|4|5") $Label9 = GUICtrlCreateLabel("when enemies on map", 116, 139, 113, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group7 = GUICtrlCreateGroup("Reconnect after", 244, 29, 225, 65) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $input_reconnect_after = GUICtrlCreateInput("", 260, 53, 97, 22, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER)) $combo_reconnect_after = GUICtrlCreateCombo("", 372, 53, 81, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "Minutes|Hours") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group8 = GUICtrlCreateGroup("Anti Ban", 333, 116, 145, 65) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $combo_antiban = GUICtrlCreateCombo("", 342, 142, 129, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "Off|Low|High") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group11 = GUICtrlCreateGroup("Cloaking CPU", 12, 195, 193, 73) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $combo_kloakcpu = GUICtrlCreateCombo("", 106, 234, 81, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "Off|1|2|3|4|5|6|7|8|9|0") $Label28 = GUICtrlCreateLabel("Quickslot bar", 20, 235, 67, 18) $Label23 = GUICtrlCreateLabel("Cloak if not Cloaked", 52, 213, 98, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group16 = GUICtrlCreateGroup("Revive", 12, 269, 401, 105) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $checkbox_reviveship = GUICtrlCreateCheckbox("Revive when being destroyed", 28, 285, 177, 17) $radio_repairbase = GUICtrlCreateRadio("At Base", 52, 309, 89, 25) $radio_repairgate = GUICtrlCreateRadio("At Gate", 156, 309, 97, 25) $radio_repairspot = GUICtrlCreateRadio("On Spot", 284, 309, 97, 25) $Label29 = GUICtrlCreateLabel("Maximun", 204, 285, 46, 18) $Label30 = GUICtrlCreateLabel("times", 356, 285, 29, 18) $input_maxrepairtimes = GUICtrlCreateInput("0", 260, 285, 81, 22) $Label31 = GUICtrlCreateLabel("After Being destroyed wait", 68, 341, 135, 18) $combo_revivewaittime = GUICtrlCreateCombo("", 220, 339, 97, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "10 seconds|20 seconds|30 seconds|40 seconds|50 seconds|1 Minustes|2 Minustes|3 Minustes") GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet7 = GUICtrlCreateTabItem("Palladium") $checkbox_palladium = GUICtrlCreateCheckbox("Collect palladium", 204, 149, 137, 25) GUICtrlSetFont(-1, 10, 400, 0, "Arial") $checkbox_palladium_npc = GUICtrlCreateCheckbox("Kill Palladium NPC", 204, 181, 137, 25) GUICtrlSetFont(-1, 10, 400, 0, "Arial") $TabSheet3 = GUICtrlCreateTabItem("Ship Abilities") $Group9 = GUICtrlCreateGroup("Ship", 116, 37, 113, 129) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $radio_aegis = GUICtrlCreateRadio("Aegis", 132, 53, 81, 17) $radio_spearhea = GUICtrlCreateRadio("Spearhead", 132, 77, 81, 17) $radio_notuse = GUICtrlCreateRadio("Not use", 132, 101, 81, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group10 = GUICtrlCreateGroup("Aegis", 68, 203, 217, 145) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $combo_aegis_life = GUICtrlCreateCombo("", 76, 243, 57, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|0") $combo_aegis_shield = GUICtrlCreateCombo("", 76, 275, 57, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|0") $combo_aegis_beacon = GUICtrlCreateCombo("", 76, 307, 57, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|0") $combo_aegislife_repair = GUICtrlCreateCombo("", 204, 307, 57, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "10|20|30|40|50|60|70|80|90|100") $combo_aegisshield_repair = GUICtrlCreateCombo("", 204, 275, 57, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "10|20|30|40|50|60|70|80|90|100") $combo_aegisbeacon_repair = GUICtrlCreateCombo("", 204, 243, 57, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "10|20|30|40|50|60|70|80|90|100") $Label8 = GUICtrlCreateLabel("Hp", 152, 246, 22, 18) $Label10 = GUICtrlCreateLabel("Shield", 144, 278, 33, 18) $Label11 = GUICtrlCreateLabel("Pod", 152, 310, 25, 18) $Label12 = GUICtrlCreateLabel("Use when less x%", 180, 219, 85, 18) $Label26 = GUICtrlCreateLabel("Quickslot bar", 76, 219, 67, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group13 = GUICtrlCreateGroup("Spearhead", 356, 44, 185, 289) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Group14 = GUICtrlCreateGroup("Ultimate Cloaking", 360, 139, 177, 89) $radio_spearhead_autocloaking = GUICtrlCreateRadio("With enemy is near", 368, 155, 145, 17) $radio_spearhead_cloaking = GUICtrlCreateRadio("Use when can", 368, 171, 129, 25) $radio_spearhead_nocloaking = GUICtrlCreateRadio("Not use", 368, 195, 129, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group15 = GUICtrlCreateGroup("Recon", 360, 59, 177, 73) $radio_spearhead_recon = GUICtrlCreateRadio("Use when can", 384, 75, 129, 17) $radio_spearhead_norecon = GUICtrlCreateRadio("Not use", 384, 99, 129, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) $combo_spearhead_recon = GUICtrlCreateCombo("", 368, 267, 65, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|0") $combo_spearhead_cloaking = GUICtrlCreateCombo("", 368, 299, 65, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE)) GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|0") $Label24 = GUICtrlCreateLabel("Recon", 448, 267, 35, 18) $Label25 = GUICtrlCreateLabel("Ultimate Cloaking", 448, 299, 88, 18) $Label27 = GUICtrlCreateLabel("Quickslot bar", 365, 239, 67, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet5 = GUICtrlCreateTabItem("P.E.T.") $Group3 = GUICtrlCreateGroup("P.E.T.", 127, 148, 297, 65) GUICtrlSetFont(-1, 10, 400, 0, "Arial") $checkbox_use_pet = GUICtrlCreateCheckbox("Use P.E.T.", 135, 164, 81, 17) $checkbox_repair_pet = GUICtrlCreateCheckbox("Repair P.E.T.", 135, 188, 81, 17) $radio_autolooter_pet = GUICtrlCreateRadio("Auto Looter", 255, 164, 153, 17) $radio_resourse_pet = GUICtrlCreateRadio("Resourse Collector", 255, 188, 113, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet8 = GUICtrlCreateTabItem("Settings and Controls") $Label14 = GUICtrlCreateLabel("1. [Graphics] LOW", 8, 48, 150, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $Label15 = GUICtrlCreateLabel("2. [Show Hp warning] OFF", 8, 80, 213, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $Label16 = GUICtrlCreateLabel("3. [Display game performance messages] OFF", 8, 112, 373, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $Label17 = GUICtrlCreateLabel("4. [Show minimap background] OFF", 8, 144, 288, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $Label18 = GUICtrlCreateLabel("5. [Show drones] OFF", 8, 176, 178, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $Label19 = GUICtrlCreateLabel("6. Set Minimap to SMALLEST", 8, 208, 241, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $Label20 = GUICtrlCreateLabel("Hotkey [F2] Stop Bot", 191, 246, 172, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $Label21 = GUICtrlCreateLabel("Hotkey [PAUSE] Pause Bot", 192, 281, 223, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $Label22 = GUICtrlCreateLabel("Hotkey [ESC] Close Bot", 193, 312, 333, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUICtrlCreateTabItem("") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GUICtrlSetState($NEWS, $GUI_DISABLE) GUICtrlSetData($combo_disconnect_after, "Off") GUICtrlSetData($combo_antiban, "Off") GUICtrlSetData($combo_kloakcpu, "Off") GUICtrlSetData($combo_revivewaittime, "40 seconds") GUICtrlSetState($radio_notuse, $GUI_CHECKED) ;desactivados GUICtrlSetState($input_reconnect_after, $GUI_DISABLE) GUICtrlSetState($combo_reconnect_after, $GUI_DISABLE) #CS GUICtrlSetState($combo_map1, $GUI_DISABLE) GUICtrlSetState($combo_map2, $GUI_DISABLE) GUICtrlSetState($input_switch_map_time, $GUI_DISABLE) GUICtrlSetState($Checkbox_switch_map, $GUI_DISABLE) GUICtrlSetState($combo_switch_map_time, $GUI_DISABLE) #CE GUICtrlSetState($checkbox_fleex2, $GUI_DISABLE) GUICtrlSetState($combo_fleex2, $GUI_DISABLE) ;--------------- $msg = "NEWS : Do bot 2015 by loop." $msg &= @CRLF & @CRLF $msg &= "Many improvements and new things." $msg &= @CRLF & @CRLF $msg &= "Helix boxes added. [18/06/2015]" $msg &= @CRLF $msg &= "[23/06/2015]" $msg &= @CRLF $msg &= "Blue and Red bootys added." $msg &= @CRLF $msg &= "Reconnection to lose the connection added." $msg &= @CRLF $msg &= "Connection lost System improved. [25/06/2015]" $msg &= @CRLF & @CRLF $msg &= "yellow bootys added. [26/06/2015]" $msg &= @CRLF & @CRLF $msg &= "Happy botig." GUICtrlSetData($NEWS, $msg) #CS GUICtrlSetState($checkbox_fleex2, $GUI_ENABLE) GUICtrlSetState($combo_fleex2, $GUI_DISABLE) #CE GUICtrlSetState($checkbox_g_booty, $GUI_ENABLE) GUICtrlSetState($checkbox_y_booty, $GUI_ENABLE) GUICtrlSetState($checkbox_r_booty, $GUI_ENABLE) GUICtrlSetState($checkbox_b_booty, $GUI_ENABLE) GUICtrlSetState($input_disconnect_after, $GUI_ENABLE) GUICtrlSetState($combo_disconnect_after, $GUI_ENABLE) GUICtrlSetState($m_save_settings, $GUI_DISABLE) GUICtrlSetState($checkbox_use_pet, $GUI_ENABLE) GUICtrlSetState($checkbox_repair_pet, $GUI_DISABLE) GUICtrlSetState($radio_autolooter_pet, $GUI_DISABLE) GUICtrlSetState($radio_resourse_pet, $GUI_DISABLE) GUICtrlSetState($combo_antiban, $GUI_ENABLE) GUICtrlSetState($checkbox_palladium, $GUI_ENABLE) GUICtrlSetState($checkbox_palladium_npc, $GUI_DISABLE) GUICtrlSetState($combo_kloakcpu, $GUI_ENABLE) GUICtrlSetState($checkbox_reviveship, $GUI_ENABLE) GUICtrlSetState($radio_aegis, $GUI_ENABLE) GUICtrlSetState($radio_spearhea, $GUI_ENABLE) GUICtrlSetState($radio_notuse, $GUI_ENABLE) ;----------- _GUI_set() _bot_menu() Func _bot_menu() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $m_start_bot _GUI_read() If $collect_palladium = 1 And $collect_bonusbox = 1 Or ($collect_palladium = 1 And $killnpc = 1) Then MsgBox(0, "error", "Palladium and Bonusbox or Kill NPC already selected, disable any befor start") Else _start_bot() EndIf Case $checkbox_fleex2 _GUI_read() _GUI_set() Case $checkbox_use_pet _GUI_read() _GUI_set() Case $checkbox_palladium _GUI_read() _GUI_set() Case $checkbox_reviveship _GUI_read() _GUI_set() Case $radio_aegis _GUI_read() _GUI_set() Case $radio_spearhea _GUI_read() _GUI_set() Case $radio_notuse _GUI_read() _GUI_set() EndSwitch WEnd EndFunc ;==>_bot_menu Func _update() #CS $version = IniRead($filesettingsINI, "update", "version", 0) $get = _INetGetSource("........./ver.php") If Not ($get = $version) Then $msg = "Do bbot Update available" $msg &= @LF $msg &= @LF & "Current version : " & $version $msg &= @LF & "Available version : " & $get $msg &= @LF $msg &= @LF & "¿Download it?" $msgbox = MsgBox(36, "Update", $msg) If $msgbox = 6 Then ProgressOn("Update Download", "Downloadig...", "0%") $URL = "....../m.exe" $folder = @ScriptDir & "\update.exe" ;Set folder $hInet = InetGet($URL, $folder, 1, 1) ;Forces a reload from the remote site and return immediately and download in the background $FileSize = InetGetSize($URL) ;Get file size While Not InetGetInfo($hInet, 2) ;Loop until download is finished Sleep(500) ;Sleep for half a second to avoid flicker in the progress bar $BytesReceived = InetGetInfo($hInet, 0) ;Get bytes received $Pct = Int($BytesReceived / $FileSize * 100) ;Calculate percentage ProgressSet($Pct, $Pct & "%") ;Set progress bar WEnd ProgressOff() FileMove(@ScriptDir & '\update.exe', @TempDir & '\update.exe', 1) FileMove(@ScriptDir & '\m.exe', @TempDir & '\old.exe', 1) FileMove(@TempDir & '\update.exe', @ScriptDir & '\ma.exe', 1) Sleep(500) MsgBox(64, "Update", "Update completed") Run("m.exe") Exit EndIf EndIf #CE EndFunc ;==>_update Func _GUI_read() $collect_bonusbox = GUICtrlRead($checkbox_bonusbox) $collect_cargobox = GUICtrlRead($checkbox_cargobox) $collect_palladium = GUICtrlRead($checkbox_palladium) $kill_palladium_npc = GUICtrlRead($checkbox_palladium_npc) $yellow_booty = GUICtrlRead($checkbox_y_booty) $green_booty = GUICtrlRead($checkbox_g_booty) $red_booty = GUICtrlRead($checkbox_r_booty) $blue_booty = GUICtrlRead($checkbox_b_booty) $disconnect_after_time = GUICtrlRead($input_disconnect_after) $disconnect_after_select = GUICtrlRead($combo_disconnect_after) $fleex2 = GUICtrlRead($checkbox_fleex2) $fleex2_enemies = GUICtrlRead($combo_fleex2) $usepet = GUICtrlRead($checkbox_use_pet) $repairpet = GUICtrlRead($checkbox_repair_pet) $autolooterpet = GUICtrlRead($radio_autolooter_pet) $resoursepet = GUICtrlRead($radio_resourse_pet) $useaegis = GUICtrlRead($radio_aegis) $aegislife = GUICtrlRead($combo_aegis_life) $aegisshield = GUICtrlRead($combo_aegis_shield) $aegisbeacon = GUICtrlRead($combo_aegis_beacon) $aegisliferepair = GUICtrlRead($combo_aegislife_repair) $aegisshieldrepair = GUICtrlRead($combo_aegisshield_repair) $aegisbeaconrepair = GUICtrlRead($combo_aegisbeacon_repair) $kloakcpu = GUICtrlRead($combo_kloakcpu) $killnpc = GUICtrlRead($checkbox_kill_npc) $antiban = GUICtrlRead($combo_antiban) $streuner = GUICtrlRead($checkbox_streuner) $boss_streuner = GUICtrlRead($checkbox_boss_streuner) $lordakia = GUICtrlRead($checkbox_lordakia) $boss_lordakia = GUICtrlRead($checkbox_boss_lordakia) $saimon = GUICtrlRead($checkbox_saimon) $boss_saimon = GUICtrlRead($checkbox_boss_saimon) $mordon = GUICtrlRead($checkbox_mordon) $boss_mordon = GUICtrlRead($checkbox_boss_mordon) $usespearhead = GUICtrlRead($radio_spearhea) $spearheadautocloaking = GUICtrlRead($radio_spearhead_autocloaking) $spearheadcloaking = GUICtrlRead($radio_spearhead_cloaking) $spearheadnocloaking = GUICtrlRead($radio_spearhead_nocloaking) $spearheadrecon = GUICtrlRead($radio_spearhead_recon) $spearheadnorecon = GUICtrlRead($radio_spearhead_norecon) $cloaking = GUICtrlRead($combo_spearhead_cloaking) $recon = GUICtrlRead($combo_spearhead_recon) $repairbase = GUICtrlRead($radio_repairbase) $repairgate = GUICtrlRead($radio_repairgate) $repairspot = GUICtrlRead($radio_repairspot) $maxrepairtimes = GUICtrlRead($input_maxrepairtimes) $revivewaittime = GUICtrlRead($combo_revivewaittime) $reviveship = GUICtrlRead($checkbox_reviveship) $notuseship = GUICtrlRead($radio_notuse) $map1 = GUICtrlRead($combo_map1) $map2 = GUICtrlRead($combo_map2) EndFunc ;==>_GUI_read Func _GUI_set() If $fraction = 1 Then GUICtrlSetData($l_fleex2, "1-2") GUICtrlSetData($combo_map1, "1-1|1-2|1-3|1-4|1-8|1-7|1-6|1-5", "1-1") GUICtrlSetData($combo_map2, "1-1|1-2|1-3|1-4|1-8|1-7|1-6|1-5", "1-1") ElseIf $fraction = 2 Then GUICtrlSetData($l_fleex2, "2-2") GUICtrlSetData($combo_map1, "2-1|2-2|2-3|2-4|2-8|2-7|2-6|2-5", "2-1") GUICtrlSetData($combo_map2, "2-1|2-2|2-3|2-4|2-8|2-7|2-6|2-5", "2-1") ElseIf $fraction = 3 Then GUICtrlSetData($l_fleex2, "3-2") GUICtrlSetData($combo_map1, "3-1|3-2|3-3|3-4|3-8|3-7|3-6|3-5", "3-1") GUICtrlSetData($combo_map1, "3-1|3-2|3-3|3-4|3-8|3-7|3-6|3-5", "3-1") EndIf If $fleex2 = 1 Then GUICtrlSetState($checkbox_fleex2, $GUI_CHECKED) GUICtrlSetState($combo_fleex2, $GUI_ENABLE) Else GUICtrlSetState($checkbox_fleex2, $GUI_UNCHECKED) GUICtrlSetState($combo_fleex2, $GUI_DISABLE) EndIf If $repairpet = 1 Then GUICtrlSetState($checkbox_repair_pet, $GUI_CHECKED) GUICtrlSetState($checkbox_repair_pet, $GUI_ENABLE) Else GUICtrlSetState($checkbox_repair_pet, $GUI_UNCHECKED) GUICtrlSetState($checkbox_repair_pet, $GUI_ENABLE) EndIf If $autolooterpet = 1 Then GUICtrlSetState($radio_autolooter_pet, $GUI_CHECKED) GUICtrlSetState($radio_autolooter_pet, $GUI_ENABLE) GUICtrlSetState($radio_resourse_pet, $GUI_UNCHECKED) GUICtrlSetState($radio_resourse_pet, $GUI_ENABLE) EndIf If $resoursepet = 1 Then GUICtrlSetState($radio_autolooter_pet, $GUI_UNCHECKED) GUICtrlSetState($radio_autolooter_pet, $GUI_ENABLE) GUICtrlSetState($radio_resourse_pet, $GUI_CHECKED) GUICtrlSetState($radio_resourse_pet, $GUI_ENABLE) EndIf If $usepet = 1 Then GUICtrlSetState($checkbox_use_pet, $GUI_ENABLE) GUICtrlSetState($checkbox_use_pet, $GUI_CHECKED) GUICtrlSetState($checkbox_repair_pet, $GUI_ENABLE) GUICtrlSetState($radio_autolooter_pet, $GUI_ENABLE) GUICtrlSetState($radio_resourse_pet, $GUI_ENABLE) Else GUICtrlSetState($checkbox_use_pet, $GUI_ENABLE) GUICtrlSetState($checkbox_repair_pet, $GUI_UNCHECKED) GUICtrlSetState($checkbox_repair_pet, $GUI_DISABLE) GUICtrlSetState($radio_autolooter_pet, $GUI_DISABLE) GUICtrlSetState($radio_autolooter_pet, $GUI_UNCHECKED) GUICtrlSetState($radio_resourse_pet, $GUI_DISABLE) GUICtrlSetState($radio_resourse_pet, $GUI_UNCHECKED) EndIf If $collect_palladium = 1 Then GUICtrlSetState($checkbox_palladium_npc, $GUI_ENABLE) Else GUICtrlSetState($checkbox_palladium_npc, $GUI_DISABLE) GUICtrlSetState($checkbox_palladium_npc, $GUI_UNCHECKED) EndIf If $reviveship = 1 Then GUICtrlSetState($checkbox_reviveship, $GUI_ENABLE) GUICtrlSetState($checkbox_reviveship, $GUI_CHECKED) GUICtrlSetState($radio_repairbase, $GUI_ENABLE) GUICtrlSetState($radio_repairgate, $GUI_ENABLE) GUICtrlSetState($radio_repairspot, $GUI_ENABLE) GUICtrlSetState($input_maxrepairtimes, $GUI_ENABLE) GUICtrlSetState($combo_revivewaittime, $GUI_ENABLE) Else GUICtrlSetState($checkbox_reviveship, $GUI_ENABLE) GUICtrlSetState($checkbox_reviveship, $GUI_UNCHECKED) GUICtrlSetState($radio_repairbase, $GUI_DISABLE) GUICtrlSetState($radio_repairgate, $GUI_DISABLE) GUICtrlSetState($radio_repairspot, $GUI_DISABLE) GUICtrlSetState($input_maxrepairtimes, $GUI_DISABLE) GUICtrlSetState($combo_revivewaittime, $GUI_DISABLE) EndIf If $useaegis = 1 Then GUICtrlSetState($combo_aegis_life, $GUI_ENABLE) GUICtrlSetState($combo_aegis_shield, $GUI_ENABLE) GUICtrlSetState($combo_aegis_beacon, $GUI_ENABLE) GUICtrlSetState($combo_aegislife_repair, $GUI_ENABLE) GUICtrlSetState($combo_aegisshield_repair, $GUI_ENABLE) GUICtrlSetState($combo_aegisbeacon_repair, $GUI_ENABLE) GUICtrlSetState($radio_spearhead_autocloaking, $GUI_DISABLE) GUICtrlSetState($radio_spearhead_cloaking, $GUI_DISABLE) GUICtrlSetState($radio_spearhead_nocloaking, $GUI_DISABLE) GUICtrlSetState($radio_spearhead_recon, $GUI_DISABLE) GUICtrlSetState($radio_spearhead_norecon, $GUI_DISABLE) GUICtrlSetState($combo_spearhead_recon, $GUI_DISABLE) GUICtrlSetState($combo_spearhead_cloaking, $GUI_DISABLE) ElseIf $usespearhead = 1 Then GUICtrlSetState($radio_spearhead_autocloaking, $GUI_ENABLE) GUICtrlSetState($radio_spearhead_cloaking, $GUI_ENABLE) GUICtrlSetState($radio_spearhead_nocloaking, $GUI_ENABLE) GUICtrlSetState($radio_spearhead_recon, $GUI_ENABLE) GUICtrlSetState($radio_spearhead_norecon, $GUI_ENABLE) GUICtrlSetState($combo_spearhead_recon, $GUI_ENABLE) GUICtrlSetState($combo_spearhead_cloaking, $GUI_ENABLE) GUICtrlSetState($combo_aegis_life, $GUI_DISABLE) GUICtrlSetState($combo_aegis_shield, $GUI_DISABLE) GUICtrlSetState($combo_aegis_beacon, $GUI_DISABLE) GUICtrlSetState($combo_aegislife_repair, $GUI_DISABLE) GUICtrlSetState($combo_aegisshield_repair, $GUI_DISABLE) GUICtrlSetState($combo_aegisbeacon_repair, $GUI_DISABLE) ElseIf $notuseship = 1 Then GUICtrlSetState($radio_spearhead_autocloaking, $GUI_DISABLE) GUICtrlSetState($radio_spearhead_cloaking, $GUI_DISABLE) GUICtrlSetState($radio_spearhead_nocloaking, $GUI_DISABLE) GUICtrlSetState($radio_spearhead_recon, $GUI_DISABLE) GUICtrlSetState($radio_spearhead_norecon, $GUI_DISABLE) GUICtrlSetState($combo_spearhead_recon, $GUI_DISABLE) GUICtrlSetState($combo_spearhead_cloaking, $GUI_DISABLE) GUICtrlSetState($combo_aegis_life, $GUI_DISABLE) GUICtrlSetState($combo_aegis_shield, $GUI_DISABLE) GUICtrlSetState($combo_aegis_beacon, $GUI_DISABLE) GUICtrlSetState($combo_aegislife_repair, $GUI_DISABLE) GUICtrlSetState($combo_aegisshield_repair, $GUI_DISABLE) GUICtrlSetState($combo_aegisbeacon_repair, $GUI_DISABLE) EndIf EndFunc ;==>_GUI_set Func _start_bot() GUISetState(@SW_MINIMIZE) _GUI_read() _screen_coordinates() _revive_time() _antiban() _fleex2_enemies() _disconnect_timer_calc() _aegis_life() _run_bot() EndFunc ;==>_start_bot Func _aegis_life() If $useaegis = 1 Then If $aegisliferepair = "10" Then $aegislifeIMG = $aegislife10IMG ElseIf $aegisliferepair = "20" Then $aegislifeIMG = $aegislife20IMG ElseIf $aegisliferepair = "30" Then $aegislifeIMG = $aegislife30IMG ElseIf $aegisliferepair = "40" Then $aegislifeIMG = $aegislife40IMG ElseIf $aegisliferepair = "50" Then $aegislifeIMG = $aegislife50IMG ElseIf $aegisliferepair = "60" Then $aegislifeIMG = $aegislife60IMG ElseIf $aegisliferepair = "70" Then $aegislifeIMG = $aegislife70IMG ElseIf $aegisliferepair = "80" Then $aegislifeIMG = $aegislife80IMG ElseIf $aegisliferepair = "90" Then $aegislifeIMG = $aegislife90IMG ElseIf $aegisliferepair = "100" Then $aegislifeIMG = $aegislife100IMG EndIf If $aegisshieldrepair = "10" Then $aegisshieldIMG = $aegisshield10IMG ElseIf $aegisshieldrepair = "20" Then $aegisshieldIMG = $aegisshield20IMG ElseIf $aegisshieldrepair = "30" Then $aegisshieldIMG = $aegisshield30IMG ElseIf $aegisshieldrepair = "40" Then $aegisshieldIMG = $aegisshield40IMG ElseIf $aegisshieldrepair = "50" Then $aegisshieldIMG = $aegisshield50IMG ElseIf $aegisshieldrepair = "60" Then $aegisshieldIMG = $aegisshield60IMG ElseIf $aegisshieldrepair = "70" Then $aegisshieldIMG = $aegisshield70IMG ElseIf $aegisshieldrepair = "80" Then $aegisshieldIMG = $aegisshield80IMG ElseIf $aegisshieldrepair = "90" Then $aegisshieldIMG = $aegisshield90IMG ElseIf $aegisshieldrepair = "100" Then $aegisshieldIMG = $aegisshield100IMG EndIf If $aegisbeaconrepair = "10" Then $aegisbeaconIMG = $aegislife10IMG ElseIf $aegisbeaconrepair = "20" Then $aegisbeaconIMG = $aegislife20IMG ElseIf $aegisbeaconrepair = "30" Then $aegisbeaconIMG = $aegislife30IMG ElseIf $aegisbeaconrepair = "40" Then $aegisbeaconIMG = $aegislife40IMG ElseIf $aegisbeaconrepair = "50" Then $aegisbeaconIMG = $aegislife50IMG ElseIf $aegisbeaconrepair = "60" Then $aegisbeaconIMG = $aegislife60IMG ElseIf $aegisbeaconrepair = "70" Then $aegisbeaconIMG = $aegislife70IMG ElseIf $aegisbeaconrepair = "80" Then $aegisbeaconIMG = $aegislife80IMG ElseIf $aegisbeaconrepair = "90" Then $aegisbeaconIMG = $aegislife90IMG ElseIf $aegisbeaconrepair = "100" Then $aegisbeaconIMG = $aegislife100IMG EndIf EndIf EndFunc ;==>_aegis_life Func _revive_time() If $revivewaittime = "10 seconds" Then $revive_calc = "10" ElseIf $revivewaittime = "20 seconds" Then $revive_calc = "20" ElseIf $revivewaittime = "30 seconds" Then $revive_calc = "30" ElseIf $revivewaittime = "40 seconds" Then $revive_calc = "40" ElseIf $revivewaittime = "50 seconds" Then $revive_calc = "50" ElseIf $revivewaittime = "1 Minustes" Then $revive_calc = "60" ElseIf $revivewaittime = "2 Minustes" Then $revive_calc = "120" ElseIf $revivewaittime = "3 Minustes" Then $revive_calc = "180" EndIf EndFunc ;==>_revive_time Func _antiban() If $antiban = "Off" Then $mouse_time = 0 ElseIf $antiban = "Low" Then $mouse_time = 5 ElseIf $antiban = "High" Then $mouse_time = 10 EndIf EndFunc ;==>_antiban Func _fleex2_enemies() If $fleex2_enemies = 1 Then $fleex2IMG = $1enemieIMG ElseIf $fleex2_enemies = 2 Then $fleex2IMG = $2enemieIMG ElseIf $fleex2_enemies = 3 Then $fleex2IMG = $3enemieIMG ElseIf $fleex2_enemies = 4 Then $fleex2IMG = $4enemieIMG ElseIf $fleex2_enemies = 5 Then $fleex2IMG = $5enemieIMG EndIf EndFunc ;==>_fleex2_enemies Func _disconnect_timer_calc() Global $disconnect_timer = TimerInit() If $disconnect_after_select = "Minutes" Then $time_calc = ($disconnect_after_time * 60000) ElseIf $disconnect_after_select = "Hours" Then $time_calc = ($disconnect_after_time * 3600000) EndIf $time_msg = $disconnect_after_select EndFunc ;==>_disconnect_timer_calc Func _screen_coordinates() $xwidth = @DesktopWidth / 2 $yheight = @DesktopHeight / 2 $screencoordinates1_x1 = $xwidth - $xwidth $screencoordinates1_y1 = $yheight - $yheight $screencoordinates1_x2 = $xwidth + $xwidth $screencoordinates1_y2 = $yheight + $yheight $a = $screencoordinates1_x2 - $screencoordinates1_x1 ; Largo de pantalla $b = $screencoordinates1_y2 - $screencoordinates1_y1; Alto de pantalla $screencoordinates2_x1 = $screencoordinates1_x1 + $a / 24 $screencoordinates2_y1 = $screencoordinates1_y1 + $b / 24 $screencoordinates2_x2 = $screencoordinates2_x1 + $a * 11 / 12 $screencoordinates2_y2 = $screencoordinates2_y1 + $b * 11 / 12 $screencoordinates3_x1 = $screencoordinates2_x1 + $a / 24 $screencoordinates3_y1 = $screencoordinates2_y1 + $b / 24 $screencoordinates3_x2 = $screencoordinates3_x1 + $a * 5 / 6 $screencoordinates3_y2 = $screencoordinates3_y1 + $b * 5 / 6 $screencoordinates4_x1 = $screencoordinates3_x1 + $a / 24 $screencoordinates4_y1 = $screencoordinates3_y1 + $b / 24 $screencoordinates4_x2 = $screencoordinates4_x1 + $a * 3 / 4 $screencoordinates4_y2 = $screencoordinates4_y1 + $b * 3 / 4 $screencoordinates5_x1 = $screencoordinates4_x1 + $a / 24 $screencoordinates5_y1 = $screencoordinates4_y1 + $b / 24 $screencoordinates5_x2 = $screencoordinates5_x1 + $a * 2 / 3 $screencoordinates5_y2 = $screencoordinates5_y1 + $b * 2 / 3 $screencoordinates6_x1 = $screencoordinates5_x1 + $a / 24 $screencoordinates6_y1 = $screencoordinates5_y1 + $b / 24 $screencoordinates6_x2 = $screencoordinates6_x1 + $a * 7 / 12 $screencoordinates6_y2 = $screencoordinates6_y1 + $b * 7 / 12 $screencoordinates7_x1 = $screencoordinates6_x1 + $a / 24 $screencoordinates7_y1 = $screencoordinates6_y1 + $b / 24 $screencoordinates7_x2 = $screencoordinates7_x1 + $a / 2 $screencoordinates7_y2 = $screencoordinates7_y1 + $b / 2 $screencoordinates8_x1 = $screencoordinates7_x1 + $a / 24 $screencoordinates8_y1 = $screencoordinates7_y1 + $b / 24 $screencoordinates8_x2 = $screencoordinates8_x1 + $a * 5 / 12 $screencoordinates8_y2 = $screencoordinates8_y1 + $b * 5 / 12 $screencoordinates9_x1 = $screencoordinates8_x1 + $a / 24 $screencoordinates9_y1 = $screencoordinates8_y1 + $b / 24 $screencoordinates9_x2 = $screencoordinates9_x1 + $a / 3 $screencoordinates9_y2 = $screencoordinates9_y1 + $b / 3 $screencoordinates10_x1 = $screencoordinates9_x1 + $a / 24 $screencoordinates10_y1 = $screencoordinates9_y1 + $b / 24 $screencoordinates10_x2 = $screencoordinates10_x1 + $a / 4 $screencoordinates10_y2 = $screencoordinates10_y1 + $b / 4 $screencoordinates11_x1 = $screencoordinates10_x1 + $a / 24 $screencoordinates11_y1 = $screencoordinates10_y1 + $b / 24 $screencoordinates11_x2 = $screencoordinates11_x1 + $a / 6 $screencoordinates11_y2 = $screencoordinates11_y1 + $b / 6 $screencoordinates12_x1 = $screencoordinates11_x1 + $a / 24 $screencoordinates12_y1 = $screencoordinates11_y1 + $b / 24 $screencoordinates12_x2 = $screencoordinates12_x1 + $a / 12 $screencoordinates12_y2 = $screencoordinates12_y1 + $b / 12 EndFunc ;==>_screen_coordinates Func _run_bot() Sleep(2000) MouseClick("left", $a / 2, $b / 2, 1, 0) Send("H") Sleep(3000) _map() While True If Not $pausa Then Select Case $jump = 1 _run_control() Case $jump = 2 ;_area1() $screencoordinates_x1 = $screencoordinates12_x1 $screencoordinates_y1 = $screencoordinates12_y1 $screencoordinates_x2 = $screencoordinates12_x2 $screencoordinates_y2 = $screencoordinates12_y2 _search_area() Case $jump = 3 ;_area2() $screencoordinates_x1 = $screencoordinates11_x1 $screencoordinates_y1 = $screencoordinates11_y1 $screencoordinates_x2 = $screencoordinates11_x2 $screencoordinates_y2 = $screencoordinates11_y2 _search_area() Case $jump = 4 ;_area3() $screencoordinates_x1 = $screencoordinates10_x1 $screencoordinates_y1 = $screencoordinates10_y1 $screencoordinates_x2 = $screencoordinates10_x2 $screencoordinates_y2 = $screencoordinates10_y2 _search_area() Case $jump = 5 ;_area4() $screencoordinates_x1 = $screencoordinates9_x1 $screencoordinates_y1 = $screencoordinates9_y1 $screencoordinates_x2 = $screencoordinates9_x2 $screencoordinates_y2 = $screencoordinates9_y2 _search_area() Case $jump = 6 ;_area5() $screencoordinates_x1 = $screencoordinates8_x1 $screencoordinates_y1 = $screencoordinates8_y1 $screencoordinates_x2 = $screencoordinates8_x2 $screencoordinates_y2 = $screencoordinates8_y2 _search_area() Case $jump = 7 ;_area6() $screencoordinates_x1 = $screencoordinates7_x1 $screencoordinates_y1 = $screencoordinates7_y1 $screencoordinates_x2 = $screencoordinates7_x2 $screencoordinates_y2 = $screencoordinates7_y2 _search_area() Case $jump = 8 ;_area7() $screencoordinates_x1 = $screencoordinates6_x1 $screencoordinates_y1 = $screencoordinates6_y1 $screencoordinates_x2 = $screencoordinates6_x2 $screencoordinates_y2 = $screencoordinates6_y2 _search_area() Case $jump = 9 ;_area8() $screencoordinates_x1 = $screencoordinates5_x1 $screencoordinates_y1 = $screencoordinates5_y1 $screencoordinates_x2 = $screencoordinates5_x2 $screencoordinates_y2 = $screencoordinates5_y2 _search_area() Case $jump = 10 ;_area9() $screencoordinates_x1 = $screencoordinates4_x1 $screencoordinates_y1 = $screencoordinates4_y1 $screencoordinates_x2 = $screencoordinates4_x2 $screencoordinates_y2 = $screencoordinates4_y2 _search_area() Case $jump = 11 ;_area10() $screencoordinates_x1 = $screencoordinates3_x1 $screencoordinates_y1 = $screencoordinates3_y1 $screencoordinates_x2 = $screencoordinates3_x2 $screencoordinates_y2 = $screencoordinates3_y2 _search_area() Case $jump = 12 ;_area11() $screencoordinates_x1 = $screencoordinates2_x1 $screencoordinates_y1 = $screencoordinates2_y1 $screencoordinates_x2 = $screencoordinates2_x2 $screencoordinates_y2 = $screencoordinates2_y2 _search_area() Case $jump = 13 ;_area12() $screencoordinates_x1 = $screencoordinates1_x1 $screencoordinates_y1 = $screencoordinates1_y1 $screencoordinates_x2 = $screencoordinates1_x2 $screencoordinates_y2 = $screencoordinates1_y2 _search_area() Case $jump = 14 _map_search() EndSelect EndIf WEnd EndFunc ;==>_run_bot Func _run_control() If $collect_cargobox = 1 Then _cargo_control() EndIf If $kill_palladium_npc = 1 Or $killnpc = 1 Then _npc_killer() EndIf _connection_lost() If $reviveship = 1 Then _repair() EndIf If Not ($disconnect_after_select = "Off") Then _disconnect_after_time() EndIf If $fleex2 = 1 Then _flee_x2() EndIf If $useaegis = 1 Then _aegis() EndIf If $usespearhead = 1 Then _spearhead() EndIf If $usepet = 1 Then _PET() EndIf If Not ($kloakcpu = "Off") Then _kloakcpu() EndIf $jump = 2 EndFunc ;==>_run_control Func _search_area() $jump = $jump + 1 If $collect_bonusbox = 1 Then $helixeventbox = _ImageSearchArea($helixboxIMG, 1, $screencoordinates_x1, $screencoordinates_y1, $screencoordinates_x2, $screencoordinates_y2, $found_x, $found_y, 50) $neweventbox = _ImageSearchArea($neweventboxIMG, 1, $screencoordinates_x1, $screencoordinates_y1, $screencoordinates_x2, $screencoordinates_y2, $found_x, $found_y, 50) If $neweventbox = 1 Or $helixeventbox = 1 Then MouseClick("left", $found_x, $found_y, 1, $mouse_time) Sleep($box_sleeptime) $jump = 1 EndIf EndIf If $collect_bonusbox = 1 Then $bonusbox = _ImageSearchArea($bonusboxIMG, 1, $screencoordinates_x1, $screencoordinates_y1, $screencoordinates_x2, $screencoordinates_y2, $found_x, $found_y, 50) If $bonusbox = 1 Then MouseClick("left", $found_x, $found_y, 1, $mouse_time) Sleep($box_sleeptime) $jump = 1 EndIf EndIf If $collect_cargobox = 1 Then $cargobox = _ImageSearchArea($cargoboxIMG, 1, $screencoordinates_x1, $screencoordinates_y1, $screencoordinates_x2, $screencoordinates_y2, $found_x, $found_y, 50) If $cargobox = 1 Then MouseClick("left", $found_x, $found_y, 1, $mouse_time) Sleep($box_sleeptime) $jump = 1 EndIf EndIf If $green_booty = 1 Then $g_booty = _ImageSearchArea($greenbootyIMG, 1, $screencoordinates_x1, $screencoordinates_y1, $screencoordinates_x2, $screencoordinates_y2, $found_x, $found_y, 50) If $g_booty = 1 Then MouseClick("left", $found_x, $found_y, 1, $mouse_time) Sleep(5000) $jump = 1 EndIf EndIf If $yellow_booty = 1 Then $g_booty = _ImageSearchArea($yellowbootyIMG, 1, $screencoordinates_x1, $screencoordinates_y1, $screencoordinates_x2, $screencoordinates_y2, $found_x, $found_y, 50) If $g_booty = 1 Then MouseClick("left", $found_x, $found_y, 1, $mouse_time) Sleep(5000) $jump = 1 EndIf EndIf If $blue_booty = 1 Then $b_booty = _ImageSearchArea($bluebootyIMG, 1, $screencoordinates_x1, $screencoordinates_y1, $screencoordinates_x2, $screencoordinates_y2, $found_x, $found_y, 50) If $b_booty = 1 Then MouseClick("left", $found_x, $found_y, 1, $mouse_time) Sleep(5000) $jump = 1 EndIf EndIf If $red_booty = 1 Then $r_booty = _ImageSearchArea($redbootyIMG, 1, $screencoordinates_x1, $screencoordinates_y1, $screencoordinates_x2, $screencoordinates_y2, $found_x, $found_y, 50) If $r_booty = 1 Then MouseClick("left", $found_x, $found_y, 1, $mouse_time) Sleep(5000) $jump = 1 EndIf EndIf If $collect_palladium = 1 Then $palladium = _ImageSearchArea($palladiumIMG, 1, $screencoordinates_x1, $screencoordinates_y1, $screencoordinates_x2, $screencoordinates_y2, $found_x, $found_y, 30) If $palladium = 1 Then MouseClick("left", $found_x, $found_y, 1, $mouse_time) Sleep($palladium_sleeptime) $jump = 1 EndIf EndIf If $killnpc = 1 Then $npc = _ImageSearchArea($palladium_npcIMG, 0, $screencoordinates7_x1, $screencoordinates7_y1, $screencoordinates7_x2, $screencoordinates7_y2, $found_x, $found_y, 40) If $npc = 1 Then _npc_killer() $jump = 1 EndIf EndIf EndFunc ;==>_search_area Func _repair() If $repairbase = 1 Or $repairgate = 1 Or $repairspot = 1 Then If $maxrepairtimes = $maxrepaircounter Then Sleep(2000) Send("l") MsgBox(0, "Ship destroyed and Disconnected", "ship Disconnected after " & $maxrepaircounter & " destructions", 0) _exit() EndIf EndIf If $repairbase = 1 Then $rep = _ImageSearchArea($repairbaseIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $rep = 1 Then $repbutton = _ImageSearchArea($repairbottonIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) Sleep(5000) ;Send("l") ;MsgBox(0, "Ship destroyed and Disconnected", "Ship destroyed and Disconnected", 0) _map() EndIf EndIf If $repairgate = 1 Then $rep = _ImageSearchArea($rapairgateIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $rep = 1 Then Sleep(1000) MouseClick("left", $found_x, $found_y, 1, 0) Sleep(1000) $repbutton = _ImageSearchArea($repairbottonIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $repbutton = 1 Then _repair_menu() MouseClick("left", $found_x, $found_y, 1, 0) $maxrepaircounter = $maxrepaircounter + 1 EndIf EndIf EndIf If $repairspot = 1 Then $rep = _ImageSearchArea($repairspotIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $rep = 1 Then Sleep(1000) MouseClick("left", $found_x, $found_y, 1, 0) Sleep(1000) $repbutton = _ImageSearchArea($repairbottonIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $repbutton = 1 Then _repair_menu() MouseClick("left", $found_x, $found_y, 1, 0) $maxrepaircounter = $maxrepaircounter + 1 EndIf EndIf EndIf EndFunc ;==>_repair Func _repair_menu() #Region ### START Koda GUI section ### Form= $Form5 = GUICreate("Revive | Do Bot", 332, 50, 0, 886) $Label1 = GUICtrlCreateLabel("Time befor Revive :", 24, 8, 196, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) $l_time_revive = GUICtrlCreateLabel("", 240, 8, 58, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GUICtrlSetData($l_time_revive, $revive_calc) For $revive = $revive_calc To 0 Step -1 Sleep(1000) GUICtrlSetData($l_time_revive, $revive) Next GUIDelete($Form5) Sleep(1000) EndFunc ;==>_repair_menu Func _map() Local $sleepmap = 7000 _map_not_found() $map21 = _ImageSearchArea($map21IMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) $map22 = _ImageSearchArea($map22IMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) $map23 = _ImageSearchArea($map23IMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) $map24 = _ImageSearchArea($map24IMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $map21 = 1 Then ; Mapa 2-1 If $map1 = "2-2" Then _gate3() ElseIf $map1 = "2-3" Then _gate3() Sleep($sleepmap) _gate3() ElseIf $map1 = "2-4" Then _gate3() Sleep($sleepmap) _gate4() EndIf ElseIf $map22 = 1 Then ; Mapa 2-2 If $map1 = "2-3" Then _gate3() ElseIf $map1 = "2-4" Then _gate4() EndIf ElseIf $map23 = 1 Then ; Mapa 2-3 If $map1 = "2-2" Then _gate2() ElseIf $map1 = "2-4" Then _gate4() EndIf ElseIf $map24 = 1 Then ; Mapa 2-4 If $map1 = "2-2" Then _gate1() ElseIf $map1 = "2-3" Then _gate2() EndIf EndIf EndFunc ;==>_map Func _gate1() Sleep(1000) _map_not_found() Sleep(1000) $mapscoordinates = _ImageSearchArea($mapcoordinatesIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) MouseClick("left", $found_x - 153, $found_y + 41, 1, 0) While 1 Sleep(1000) $map_search_state = _ImageSearchArea($mapsearchstateIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $map_search_state = 0 Then ExitLoop EndIf WEnd Send("J") EndFunc ;==>_gate1 Func _gate2() Sleep(1000) _map_not_found() Sleep(1000) $mapscoordinates = _ImageSearchArea($mapcoordinatesIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) MouseClick("left", $found_x - 3, $found_y + 41, 1, 0) While 1 Sleep(1000) $map_search_state = _ImageSearchArea($mapsearchstateIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $map_search_state = 0 Then ExitLoop EndIf WEnd Send("J") EndFunc ;==>_gate2 Func _gate3() Sleep(1000) _map_not_found() Sleep(1000) $mapscoordinates = _ImageSearchArea($mapcoordinatesIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) MouseClick("left", $found_x - 153, $found_y + 127, 1, 0) While 1 Sleep(1000) $map_search_state = _ImageSearchArea($mapsearchstateIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $map_search_state = 0 Then ExitLoop EndIf WEnd Send("J") EndFunc ;==>_gate3 Func _gate4() Sleep(1000) _map_not_found() Sleep(1000) $mapscoordinates = _ImageSearchArea($mapcoordinatesIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) MouseClick("left", $found_x - 3, $found_y + 127, 1, 0) While 1 Sleep(1000) $map_search_state = _ImageSearchArea($mapsearchstateIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $map_search_state = 0 Then ExitLoop EndIf WEnd Send("J") EndFunc ;==>_gate4 Func _kloakcpu() $kloakedcpu10 = _ImageSearchArea($kloakedcpu10IMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) $kloakedcpu50 = _ImageSearchArea($kloakedcpu50IMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If Not ($kloakedcpu10 = 1 Or $kloakedcpu50 = 1) Then $kloakcpu10 = _ImageSearchArea($kloakcpu10IMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) $kloakcpu50 = _ImageSearchArea($kloakcpu50IMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $kloakcpu10 = 1 Or $kloakcpu50 = 1 Then Send("{" & $kloakcpu & "}") EndIf EndIf EndFunc ;==>_kloakcpu Func _aegis() _life_control() Local $IMG1, $IMG2, $IMG3, $IMG4, $IMG5, $IMG6 $IMG1 = _ImageSearchArea($lifeIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) $IMG2 = _ImageSearchArea($shieldIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) $IMG3 = _ImageSearchArea($beaconIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) $IMG4 = _ImageSearchArea($aegislifeIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) $IMG5 = _ImageSearchArea($aegisshieldIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) $IMG6 = _ImageSearchArea($aegisbeaconIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If Not $IMG4 = 1 And $IMG1 = 1 Then Send("{" & $aegislife & "}") EndIf If Not $IMG5 = 1 And $IMG2 = 1 Then Send("{" & $aegisshield & "}") EndIf If Not $IMG6 = 1 And $IMG3 = 1 Then Send("{" & $aegisbeacon & "}") Sleep(7000) EndIf EndFunc ;==>_aegis Func _spearhead() Local $IMG1, $IMG2, $IMG3 If $spearheadautocloaking = 1 Then $enemymap = _ImageSearchArea($npcmapIMG, 0, $map_coordinates_up_x, $map_coordinates_up_y, $map_coordinates_down_x, $map_coordinates_down_y, $found_x, $found_y, 20) If $enemymap = 1 Then $IMG1 = _ImageSearchArea($spearheadcloakingIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 1) If $IMG1 = 1 Then ;MsgBox(0,"cloak",$cloaking) Send("{" & $cloaking & "}") EndIf EndIf EndIf If $spearheadcloaking = 1 Then $IMG2 = _ImageSearchArea($spearheadcloakingIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 1) If $IMG2 = 1 Then ;MsgBox(0,"cloak","ok") Send("{" & $cloaking & "}") EndIf EndIf If $spearheadrecon = 1 Then $IMG3 = _ImageSearchArea($spearheadreconIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 1) If $IMG3 = 1 Then ;MsgBox(0,"recon",$recon) Send("{" & $recon & "}") EndIf EndIf EndFunc ;==>_spearhead Func _life_control() $fountcargo = _ImageSearchArea($fountcargoIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $fountcargo = 0 Then $shipstatus = _ImageSearchArea($shipstatusIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) MouseClick("left", $found_x, $found_y, 1, 0) Sleep(2000) EndIf EndFunc ;==>_life_control Func _cargo_control() $fountcargo = _ImageSearchArea($fountcargoIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $fountcargo = 1 Then $cargofull = _ImageSearchArea($cargofullIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $cargofull = 1 Then If $collect_cargobox = 1 Then $collect_cargobox = 0 EndIf EndIf Else $shipstatus = _ImageSearchArea($shipstatusIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) MouseClick("left", $found_x, $found_y, 1, 0) Sleep(2000) EndIf EndFunc ;==>_cargo_control Func _connection_lost() Local $IMG1, $time_conecction $IMG1 = _ImageSearchArea($connectionlostIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $IMG1 = 1 Then #Region ### START Koda GUI section ### Form= $Form5 = GUICreate("Connection lost | Do bot", 326, 122, 0, 812) $Label1 = GUICtrlCreateLabel("Time befor Reconnect :", 24, 8, 228, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) $l_time_connection = GUICtrlCreateLabel("40", 264, 8, 26, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $Label3 = GUICtrlCreateLabel("Attempts :", 96, 88, 96, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) $l_attemps_connection = GUICtrlCreateLabel("0", 200, 88, 34, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $Label2 = GUICtrlCreateLabel("Time for next attempt :", 16, 48, 252, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) $l_attemps_time = GUICtrlCreateLabel("10", 280, 48, 26, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $attemps_connection = 0 While 1 _INetGetSource("http://www.darkorbit.com/") If Not @error Then GUICtrlSetData($l_time_connection, "40") For $time_conecction = 40 To 0 Step -1 Sleep(1000) GUICtrlSetData($l_time_connection, $time_conecction) Next MouseClick("left", $found_x + 10, $found_y + 170, 1, 0) GUIDelete($Form5) ExitLoop Else GUICtrlSetData($l_attemps_time, "10") For $time_conecction = 10 To 0 Step -1 Sleep(1000) GUICtrlSetData($l_attemps_time, $time_conecction) Next $attemps_connection = $attemps_connection + 1 GUICtrlSetData($l_attemps_connection, $attemps_connection) EndIf $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($Form5) _exit() EndSwitch WEnd EndIf EndFunc ;==>_connection_lost Func _disconnect_after_time() $disconnect_timed = TimerDiff($disconnect_timer) If $disconnect_timed > $time_calc Then _disconnect_ship() EndIf EndFunc ;==>_disconnect_after_time Func _disconnect_ship() $mapgate = _ImageSearchArea($mapgateIMG, 1, $map_coordinates_up_x, $map_coordinates_up_y, $map_coordinates_down_x, $map_coordinates_down_y, $found_x, $found_y, 50) MouseClick("left", $found_x, $found_y, 1, 0) While True Sleep(2000) ;$map_search_state = _ImageSearchArea($mapsearchstateIMG, 0, $map_search_state_up_x, $map_search_state_up_y, $map_search_state_down_x, $map_search_state_down_y, $found_x, $found_y, 50) $map_search_state = _ImageSearchArea($mapsearchstateIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $map_search_state = 0 Then ExitLoop EndIf WEnd Send("L") MsgBox(0, "Disconnect", "Ship disconnected after : " & $disconnect_after_time & " " & $time_msg) _exit() EndFunc ;==>_disconnect_ship Func _fleex2_map_coordinates() #CS _map_not_found() $mapscoordinates = _ImageSearchArea($mapcoordinatesIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $mapscoordinates = 1 Then $map_coordinates_up_x = $found_x - 168 $map_coordinates_up_y = $found_y + 27 $map_coordinates_down_x = $found_x + 15 $map_coordinates_down_y = $found_y + 138 EndIf $fleex2_map_up = $map_coordinates_up_x + $map_coordinates_down_x $fleex2_map_down = $map_coordinates_up_y + $map_coordinates_down_y $fleex2_map_x = $fleex2_map_up /2 ;center $fleex2_map_y = $fleex2_map_down /2 ;center MouseClick("left", $map_coordinates_up_x, $map_coordinates_up_y) ;sect 1 MouseClick("left", $fleex2_map_x, $fleex2_map_y);center MouseClick("left", $fleex2_map_x, $fleex2_map_y);center MsgBox(0,"",$fleex2_map_x & " " & $fleex2_map_y) ;MsgBox(0,"",$x2 & " " & $y2) ;MouseClick("left", $x2, $y2) Exit $xwidth = @DesktopWidth / 2 $yheight = @DesktopHeight / 2 $screencoordinates1_x1 = $xwidth - $xwidth $screencoordinates1_y1 = $yheight - $yheight $screencoordinates1_x2 = $xwidth + $xwidth $screencoordinates1_y2 = $yheight + $yheight $a = $screencoordinates1_x2 - $screencoordinates1_x1 ; Largo de pantalla $b = $screencoordinates1_y2 - $screencoordinates1_y1; Alto de pantalla #CE EndFunc ;==>_fleex2_map_coordinates Func _flee_x2() ;_map_coordinates() $fleex2enemies = _ImageSearchArea($fleex2IMG, 1, $map_coordinates_up_x, $map_coordinates_up_y, $map_coordinates_down_x, $map_coordinates_down_y, $found_x, $found_y, 50) If $fleex2enemies = 1 Then $mapgate = _ImageSearchArea($mapgateIMG, 1, $map_coordinates_up_x, $map_coordinates_up_y, $map_coordinates_down_x, $map_coordinates_down_y, $found_x, $found_y, 50) MouseClick("left", $found_x, $found_y, 1, 0) While True $fleex2enemies = _ImageSearchArea($fleex2IMG, 1, $map_coordinates_up_x, $map_coordinates_up_y, $map_coordinates_down_x, $map_coordinates_down_y, $found_x, $found_y, 50) If $fleex2enemies = 0 Then ExitLoop EndIf WEnd EndIf #CS _fleex2_map_coordinates() $fleex2enemies = _ImageSearchArea($fleex2IMG, 1,$map_coordinates_up_x, $map_coordinates_up_y, $map_coordinates_down_x, $map_coordinates_down_y, $found_x, $found_y, 50) If $fleex2enemies = 1 Then $fleex2ship = _ImageSearchArea($fleex2shipIMG, 1, $map_coordinates_up_x, $map_coordinates_up_y, $map_coordinates_down_x, $map_coordinates_down_y, $found_x, $found_y, 20) If $fleex2 = 1 Then MsgBox(0,"test","test") MouseClick("left", $found_x, $found_y) EndIf EndIf #CE EndFunc ;==>_flee_x2 Func _npc_killer() $premuni1 = _ImageSearchArea($x1IMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $premuni1 = 1 Then ;MsgBox (0, "Muni","x1",0) $muni = _ImageSearchArea($muni1IMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 30) ;MouseClick("left", $CorMuni_X-22, $CorMuni_Y+16, 1, 0) EndIf $premuni2 = _ImageSearchArea($x2IMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $premuni2 = 1 Then ;MsgBox (0, "Muni","x2",0) $muni = _ImageSearchArea($muni2IMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 30) ;MouseClick("left", $CorMuni_X-22, $CorMuni_Y+16, 1, 0) EndIf $premuni3 = _ImageSearchArea($x3IMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $premuni3 = 1 Then ;MsgBox (0, "Muni","x3",0) $muni = _ImageSearchArea($muni3IMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 30) ;MouseClick("left", $CorMuni_X-22, $CorMuni_Y+16, 1, 0) EndIf $premuni4 = _ImageSearchArea($x4IMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $premuni4 = 1 Then ;MsgBox (0, "Muni","x4",0) $muni = _ImageSearchArea($muni4IMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 30) ;MouseClick("left", $CorMuni_X-22, $CorMuni_Y+16, 1, 0) EndIf If $kill_palladium_npc = 1 Then $fire1 = PixelChecksum($found_x - 22, $found_y + 16, $found_x + 6, $found_y + 22) If $fire1 = $fire2 Then $palladium_npc = _ImageSearchArea($palladium_npcIMG, 0, $screencoordinates7_x1, $screencoordinates7_y1, $screencoordinates7_x2, $screencoordinates7_y2, $found_x, $found_y, 40) If $palladium_npc = 1 Then MouseClick("left", $found_x + 30, $found_y - 30, 1, 0) Sleep(600) Send("{LCTRL}") Sleep(2000) EndIf EndIf $fire2 = PixelChecksum($found_x - 22, $found_y + 16, $found_x + 6, $found_y + 22) EndIf If $killnpc = 1 Then If $streuner = 1 Then $npc1 = _ImageSearchArea($npc_streunerIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) EndIf If $boss_streuner = 1 Then $npc2 = _ImageSearchArea($npc_bossstreunerIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) EndIf If $lordakia = 1 Then $npc3 = _ImageSearchArea($npc_lordakiaIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) EndIf If $boss_lordakia = 1 Then $npc4 = _ImageSearchArea($npc_bosslordakiaIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) EndIf If $mordon = 1 Then $npc5 = _ImageSearchArea($npc_mordonIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) EndIf If $boss_mordon = 1 Then $npc6 = _ImageSearchArea($npc_bossmordonIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) EndIf If $saimon = 1 Then $npc7 = _ImageSearchArea($npc_saimonIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) EndIf If $boss_saimon = 1 Then $npc8 = _ImageSearchArea($npc_bosssaimonIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) EndIf #CS $npc5 = _ImageSearchArea($npc_mordonIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) $npc5 = _ImageSearchArea($npc_mordonIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) $npc5 = _ImageSearchArea($npc_mordonIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) $npc5 = _ImageSearchArea($npc_mordonIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) $npc5 = _ImageSearchArea($npc_mordonIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) $npc5 = _ImageSearchArea($npc_mordonIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_npc, $found_y_npc, 60) #CE If $npc1 = 1 Or $npc2 = 1 Or $npc3 = 1 Or $npc4 = 1 Or $npc5 = 1 Or $npc6 = 1 Or $npc7 = 1 Or $npc8 = 1 Then $fire1 = PixelChecksum($found_x - 22, $found_y + 16, $found_x + 6, $found_y + 22) If $fire1 = $fire2 Then MouseClick("left", $found_x_npc + 30, $found_y_npc - 30, 1, 0) Sleep(600) Send("{LCTRL}") Sleep(2000) While True $fire1 = PixelChecksum($found_x - 22, $found_y + 16, $found_x + 6, $found_y + 22) $npcfire = _ImageSearchArea($npcfireIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_fire, $found_y_fire, 60) If $npcfire = 0 Then $fire1 = PixelChecksum($found_x - 22, $found_y + 16, $found_x + 6, $found_y + 22) If $fire1 = $fire2 Then ExitLoop EndIf Sleep(1000) $fire2 = PixelChecksum($found_x - 22, $found_y + 16, $found_x + 6, $found_y + 22) ElseIf $npcfire = 1 Then ;MsgBox(0,"ok","ok") MouseClick("left", $found_x_fire - 45, $found_y_fire, 1, 0) EndIf Sleep(600) $fire2 = PixelChecksum($found_x - 22, $found_y + 16, $found_x + 6, $found_y + 22) #CS If $fire1 = $fire2 Then While True $fire1 = PixelChecksum($found_x - 22, $found_y + 16, $found_x + 6, $found_y + 22) If $fire1 = $fire2 Then ExitLoop EndIf Sleep(1000) $fire2 = PixelChecksum($found_x - 22, $found_y + 16, $found_x + 6, $found_y + 22) WEnd EndIf #CE WEnd EndIf $fire2 = PixelChecksum($found_x - 22, $found_y + 16, $found_x + 6, $found_y + 22) EndIf EndIf EndFunc ;==>_npc_killer Func _PET() Local $found_x_move, $found_y_move $petantibug = _ImageSearchArea($petantibugIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x_move, $found_y_move, 40) If $petantibug = 0 Then $petmenu = _ImageSearchArea($petmenuIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) MouseClick("left", $found_x, $found_y, 1, 0) Sleep(2000) EndIf If $repairpet = 1 Then $petopen = _ImageSearchArea($petopenIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) $petrepair = _ImageSearchArea($petrepairIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $petopen = 1 Then MouseClick("left", $found_x, $found_y, 1, 0) MouseMove($found_x_move, $found_y_move, 0) Sleep(600) ElseIf $petrepair = 1 Then MouseClick("left", $found_x, $found_y, 1, 0) MouseMove($found_x_move, $found_y_move, 0) Sleep(600) EndIf EndIf If $autolooterpet = 1 Then $petopen = _ImageSearchArea($petopenIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $petopen = 1 Then MouseClick("left", $found_x, $found_y, 1, 0) MouseMove($found_x_move, $found_y_move, 0) Sleep(600) EndIf $petclose = _ImageSearchArea($petcloseIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) $petlootstatus = _ImageSearchArea($petlootstatusIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $petclose = 1 And $petlootstatus = 0 Then $petoption = _ImageSearchArea($petoptionIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $petoption = 1 Then MouseClick("left", $found_x, $found_y, 1, 0) MouseMove($found_x_move, $found_y_move, 0) Sleep(600) $petloot = _ImageSearchArea($petlootIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $petloot = 1 Then Sleep(600) MouseClick("left", $found_x, $found_y, 1, 0) MouseMove($found_x_move, $found_y_move, 0) EndIf EndIf EndIf EndIf If $resoursepet = 1 Then $petopen = _ImageSearchArea($petopenIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $petopen = 1 Then MouseClick("left", $found_x, $found_y, 1, 0) MouseMove($found_x_move, $found_y_move, 0) Sleep(600) EndIf $petclose = _ImageSearchArea($petcloseIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) $petlootstatus = _ImageSearchArea($petresstatusIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $petclose = 1 And $petlootstatus = 0 Then $petoption = _ImageSearchArea($petoptionIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $petoption = 1 Then MouseClick("left", $found_x, $found_y, 1, 0) MouseMove($found_x_move, $found_y_move, 0) Sleep(600) $petloot = _ImageSearchArea($petresIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $petloot = 1 Then Sleep(600) MouseClick("left", $found_x, $found_y, 1, 0) MouseMove($found_x_move, $found_y_move, 0) EndIf EndIf EndIf EndIf EndFunc ;==>_PET Func _map_coordinates() _map_not_found() $mapscoordinates = _ImageSearchArea($mapcoordinatesIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $mapscoordinates = 1 Then If $collect_palladium = 1 Then $map_coordinates_up_x = $found_x - 116 $map_coordinates_up_y = $found_y + 105 $map_coordinates_down_x = $found_x - 25 $map_coordinates_down_y = $found_y + 139 Else $map_coordinates_up_x = $found_x - 168 $map_coordinates_up_y = $found_y + 27 $map_coordinates_down_x = $found_x + 15 $map_coordinates_down_y = $found_y + 138 EndIf #CS $map_search_state_up_x = $found_x - 175 $map_search_state_up_y = $found_y $map_search_state_down_x = $found_x $map_search_state_down_y = $found_y + 20 #CE EndIf EndFunc ;==>_map_coordinates Func _map_not_found() $mapscoordinates = _ImageSearchArea($mapcoordinatesIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $mapscoordinates = 0 Then $mapopen = _ImageSearchArea($mapopenIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) MouseClick("left", $found_x, $found_y, 1, 0) Sleep(2000) EndIf EndFunc ;==>_map_not_found Func _map_search() _map_coordinates() If $killnpc = 1 Then $npcmap = _ImageSearchArea($npcmapIMG, 0, $map_coordinates_up_x, $map_coordinates_up_y, $map_coordinates_down_x, $map_coordinates_down_y, $found_x, $found_y, 20) If $npcmap = 1 Then MouseClick("left", $found_x, $found_y, 1, 0) Else $random_map_x = Random($map_coordinates_up_x, $map_coordinates_down_x, 1) $random_map_y = Random($map_coordinates_up_y, $map_coordinates_down_y, 1) MouseClick("left", $random_map_x, $random_map_y, 1, 0) EndIf Else $random_map_x = Random($map_coordinates_up_x, $map_coordinates_down_x, 1) $random_map_y = Random($map_coordinates_up_y, $map_coordinates_down_y, 1) MouseClick("left", $random_map_x, $random_map_y, 1, 0) EndIf While True If $collect_bonusbox = 1 Then $helixeventbox = _ImageSearchArea($neweventboxIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) $neweventbox = _ImageSearchArea($neweventboxIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) $bonusbox = _ImageSearchArea($bonusboxIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $bonusbox = 1 Or $neweventbox = 1 Or $helixeventbox = 1 Then MouseClick("left", $found_x, $found_y, 1, $mouse_time) Sleep(500) ExitLoop EndIf EndIf If $collect_cargobox = 1 Then $cargobox = _ImageSearchArea($cargoboxIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $cargobox = 1 Then MouseClick("left", $found_x, $found_y, 1, $mouse_time) Sleep(500) ExitLoop EndIf EndIf If $green_booty = 1 Then $g_booty = _ImageSearchArea($greenbootyIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $g_booty = 1 Then MouseClick("left", $found_x, $found_y, 1, $mouse_time) Sleep(500) ExitLoop EndIf EndIf If $collect_palladium = 1 Then $palladium = _ImageSearchArea($palladiumIMG, 1, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 30) If $palladium = 1 Then MouseClick("left", $found_x, $found_y, 1, $mouse_time) Sleep(500) ExitLoop EndIf EndIf If $killnpc = 1 Then #CS $npc = _ImageSearchArea($palladium_npcIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 40) If $npc = 1 Then _npc_killer() ExitLoop EndIf #CE $npcmap = _ImageSearchArea($npcmapIMG, 0, $map_coordinates_up_x, $map_coordinates_up_y, $map_coordinates_down_x, $map_coordinates_down_y, $found_x, $found_y, 20) If $npcmap = 1 Then MouseClick("left", $found_x, $found_y, 1, 0) Sleep(500) ExitLoop EndIf EndIf ;$map_search_state = _ImageSearchArea($mapsearchstateIMG, 0, $map_search_state_up_x, $map_search_state_up_y, $map_search_state_down_x, $map_search_state_down_y, $found_x, $found_y, 50) $map_search_state = _ImageSearchArea($mapsearchstateIMG, 0, $screencoordinates1_x1, $screencoordinates1_y1, $screencoordinates1_x2, $screencoordinates1_y2, $found_x, $found_y, 50) If $map_search_state = 0 Then ExitLoop EndIf WEnd $jump = 1 EndFunc ;==>_map_search Azıcık Kurcala
  2. darendeli

    Autoit Mmo Tarzı Oyunlarda Bot

    Örnekleri Var Sitelerde Google Yaz indir...Kodları
  3. darendeli

    _Havadurumu Udf

    Hata Veren kod bu $tCografi[6] = _KelimeDuzelt(_AyirGetir($text,'pMerkezBolge">','</p>'))
  4. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Global $AktifPencereAdi = WinGetTitle("[ACTIVE]") #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Aktif Pencerenin Adı", 342, 101, 192, 124) $Input1 = GUICtrlCreateInput("", 24, 24, 297, 21) $Button1 = GUICtrlCreateButton("Kontrol Et", 24, 56, 185, 33) $Checkbox1 = GUICtrlCreateCheckbox("Sürekli Kontrol Et", 224, 54, 105, 17) $Checkbox2 = GUICtrlCreateCheckbox("Sürekli Üstte Tut", 224, 74, 105, 17) $herzamanustte = 0 GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 GUICtrlSetData($Input1,$AktifPencereAdi) Case $Checkbox1 If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then AdlibRegister("_PencereBilgi",1000) ElseIf GUICtrlRead ($Checkbox1) = $GUI_UNCHECKED Then AdlibUnRegister("_PencereBilgi") EndIf Case $Checkbox2 If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then $herzamanustte = Not $herzamanustte WinSetOnTop ($Form1,"",$herzamanustte) Else WinSetOnTop ($Form1,"","") EndIf EndSwitch WEnd Func _PencereBilgi() Global $AktifPencereAdi = WinGetTitle("[ACTIVE]") If $AktifPencereAdi == "Aktif Pencerenin Adı" Then GUICtrlSetData($Input1,"") Else GUICtrlSetData($Input1,$AktifPencereAdi) EndIf EndFunc Pencere Baslıklarını Gösteren Kücük bir Gui Yaptım Lazım olan Kullanır...
  5. darendeli

    _Ayirgetir Ve _Aragetir Fonksiyonları

    _ayirgetir-ve-_aragetir-fonksiyonlarının Kullanımı için Küçük Bir Örnek Verebilecek varmı...Anlayamadım
  6. darendeli

    Excel Deki Verileri Liste Yazdırmak

    ProcessClose("EXCEL.EXE") #include <ComboConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GuiComboBox.au3> #include <Excel.au3> Opt("GUIOnEventMode", 1) #Region ### START Koda GUI section ### Form=mp $Form1 = GUICreate("Excel Tarihler Arası Veri Sorgulayıcı", 354, 187, 192, 124) GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close") GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize") GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize") GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore") ;$Combo1 = GUICtrlCreateCombo("Combo1", 8, 8, 121, 25, 0x0003 + 0x0040 + $WS_VSCROLL) $Combo1 = GUICtrlCreateCombo("", 8, 8, 121, 25, BitOR($GUI_SS_DEFAULT_COMBO,$CBS_DROPDOWNLIST)) ;$Combo1 = _GUICtrlComboBoxEx_Create($Form1,"ComboBoxEx",8,8,121,25) GUICtrlSetOnEvent(-1, "Combo1Change") $Combo2 = GUICtrlCreateCombo("", 136, 8, 129, 25, BitOR($GUI_SS_DEFAULT_COMBO,$CBS_DROPDOWNLIST)) GUICtrlSetOnEvent(-1, "Combo2Change") $Button1 = GUICtrlCreateButton("Sorgula", 272, 8, 73, 25) GUICtrlSetOnEvent(-1, "Button1Click") $Button2 = GUICtrlCreateButton("Excel'e Aktar", 272, 50, 73, 25) GUICtrlSetOnEvent(-1, "Button2Click") $Group1 = GUICtrlCreateGroup("Gelen", 8, 40, 121, 137) $Label1 = GUICtrlCreateLabel("1 :", 16, 56, 100, 17) GUICtrlSetOnEvent(-1, "Label1Click") $Label2 = GUICtrlCreateLabel("2 :", 16, 80, 100, 17) GUICtrlSetOnEvent(-1, "Label2Click") $Label3 = GUICtrlCreateLabel("3 :", 16, 104, 100, 17) GUICtrlSetOnEvent(-1, "Label3Click") $Label4 = GUICtrlCreateLabel("4", 16, 128, 100, 17) GUICtrlSetOnEvent(-1, "Label4Click") $Label5 = GUICtrlCreateLabel("5", 16, 152, 100, 17) GUICtrlSetOnEvent(-1, "Label5Click") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Giden", 136, 40, 129, 137) $Label6 = GUICtrlCreateLabel("1 :", 144, 56, 100, 17) GUICtrlSetOnEvent(-1, "Label6Click") $Label7 = GUICtrlCreateLabel("2 :", 144, 80, 100, 17) GUICtrlSetOnEvent(-1, "Label7Click") $Label8 = GUICtrlCreateLabel("3 :", 144, 104, 100, 17) GUICtrlSetOnEvent(-1, "Label8Click") $Label9 = GUICtrlCreateLabel("4 :", 144, 128, 100, 17) GUICtrlSetOnEvent(-1, "Label9Click") $Label10 = GUICtrlCreateLabel("5 :", 144, 152, 100, 17) GUICtrlCreateLabel("*******.Org",270,170,100,75) GUICtrlSetOnEvent(-1, "Label10Click") GUICtrlCreateGroup("", -99, -99, 1, 1) ;GUICtrlSendMsg($Combo1, $CB_SETMINVISIBLE, 99999999, 0) #EndRegion ### END Koda GUI section ### $yol = FileOpenDialog("Excel Dosyasını Seçiniz",@ScriptDir,"Excel Dosyaları (*.xlsx;*.xls)") if @error then Exit else $baglan = _Excel_BookOpen($yol,0) $sayi = 2 While 1 $sayi += 1 $oku = _Excel_RangeRead($baglan,$sayi,1) if $oku = "" then ExitLoop ;if $sayi = 367 then exitloop If $sayi = 2 Then ;_GUICtrlComboBoxEx_AddString($Combo1,DTFormat($oku),"") GUICtrlSetData($Combo1, DTFormat($oku), DTFormat($oku)) GUICtrlSetData($Combo2, DTFormat($oku), DTFormat($oku)) Else GUICtrlSetData($Combo1, DTFormat($oku)) GUICtrlSetData($Combo2, DTFormat($oku)) EndIF WEnd _GUICtrlComboBox_SetCurSel($Combo1,0) _GUICtrlComboBox_SetCurSel($Combo2,0) GUISetState(@SW_SHOW) ;_GUICtrlComboBoxEx_ShowDropDown($Combo1, True) endif While 1 Sleep(100) WEnd Func Button1Click() $tarih1 = _GUICtrlComboBox_GetCurSel($Combo1)+2 $tarih2 = _GUICtrlComboBox_GetCurSel($Combo2) +2 Yazdir($label1,2,1,$tarih1,$tarih2) Yazdir($label2,3,2,$tarih1,$tarih2) Yazdir($label3,4,3,$tarih1,$tarih2) Yazdir($label4,5,4,$tarih1,$tarih2) Yazdir($label5,6,5,$tarih1,$tarih2) Yazdir($label6,8,1,$tarih1,$tarih2) Yazdir($label7,9,2,$tarih1,$tarih2) Yazdir($label8,10,3,$tarih1,$tarih2) Yazdir($label9,11,4,$tarih1,$tarih2) Yazdir($label10,12,5,$tarih1,$tarih2) EndFunc Func Combo1Change() EndFunc Func Combo2Change() EndFunc Func Form1Close() _Excel_BookClose($baglan) Exit EndFunc Func DTFormat($DT) If StringLen($DT) = 14 Then $YYYY = StringLeft($DT,4) $MM = StringMid($DT,5,2) $DD = StringMid($DT,7,2) $HH = StringMid($DT,9,2) $MN = StringMid($DT,11,2) $SS = StringRight($DT,2) Return $DD & "." & $MM & "." & $YYYY EndIf Return -1 EndFunc Func Button2Click() $tarih1 = _GUICtrlComboBox_GetCurSel($Combo1)+2 $tarih2 = _GUICtrlComboBox_GetCurSel($Combo2) +2 ExcelYazdir(2,1,$tarih1,$tarih2) ExcelYazdir(3,2,$tarih1,$tarih2) ExcelYazdir(4,3,$tarih1,$tarih2) ExcelYazdir(5,4,$tarih1,$tarih2) ExcelYazdir(6,5,$tarih1,$tarih2) ExcelYazdir(8,1,$tarih1,$tarih2) ExcelYazdir(9,2,$tarih1,$tarih2) ExcelYazdir(10,3,$tarih1,$tarih2) ExcelYazdir(11,4,$tarih1,$tarih2) ExcelYazdir(12,5,$tarih1,$tarih2) MsgBox(0,0,"Veriler Excel'e Aktarıldı!") EndFunc func ExcelYazdir($kolon,$tur,$tarih1,$tarih2) $satir1toplam = 0 for $i = $tarih1 to $tarih2 $deger1 =_Excel_RangeRead($baglan,$i+1,$kolon) $satir1toplam += $deger1 ;MsgBox(0,0,$satir1toplam) Next if $tur = 1 then _Excel_RangeWrite($baglan,"1",369,$kolon) _Excel_RangeWrite($baglan,$satir1toplam,370,$kolon) ;GUICtrlSetData($nesne,"MED :" & $satir1toplam) ElseIf $tur = 2 Then _Excel_RangeWrite($baglan,"2",369,$kolon) _Excel_RangeWrite($baglan,$satir1toplam,370,$kolon) ElseIf $tur = 3 Then _Excel_RangeWrite($baglan,"3",369,$kolon) _Excel_RangeWrite($baglan,$satir1toplam,370,$kolon) ElseIf $tur = 4 Then _Excel_RangeWrite($baglan,"4",369,$kolon) _Excel_RangeWrite($baglan,$satir1toplam,370,$kolon) ElseIf $tur = 5 Then _Excel_RangeWrite($baglan,"5",369,$kolon) _Excel_RangeWrite($baglan,$satir1toplam,370,$kolon) EndIf endfunc func Yazdir($nesne,$kolon,$tur,$tarih1,$tarih2) $satir1toplam = 0 for $i = $tarih1 to $tarih2 $deger1 =_Excel_RangeWrite($baglan,$i+1,$kolon) $satir1toplam += $deger1 ;MsgBox(0,0,$satir1toplam) Next if $tur = 1 then GUICtrlSetData($nesne,"1 :" & $satir1toplam) ElseIf $tur = 2 Then GUICtrlSetData($nesne,"2 :" & $satir1toplam) ElseIf $tur = 3 Then GUICtrlSetData($nesne,"3 :" & $satir1toplam) ElseIf $tur = 4 Then GUICtrlSetData($nesne,"4 :" & $satir1toplam) ElseIf $tur = 5 Then GUICtrlSetData($nesne ,"5 :" & $satir1toplam) EndIf endfunc Func Form1Maximize() EndFunc Func Form1Minimize() EndFunc Func Form1Restore() EndFunc Func Label1Click() EndFunc Func Label2Click() EndFunc Func Label3Click() EndFunc Func Label4Click() EndFunc Func Label5Click() EndFunc Func Label6Click() EndFunc Func Label7Click() EndFunc Func Label8Click() EndFunc Func Label9Click() EndFunc Func Label10Click() EndFunc Soyle Bir Kod Var Yalnız Verileri Aktarmıyor 0 olarak Donüyor Hepsi... Örnek Excel Bu = Veri.xlsx
  7. darendeli

    Excel Deki Verileri Liste Yazdırmak

    Excel deki Verileri Guideki liste Yazdırmak istiyorum Bunun İçin Küçük Bir Örnegi Olan Varmı Acaba.. Kolay Gelsin...
  8. darendeli

    _Havadurumu Udf

    Bunu Kullanmak istedimde... Kelimeleri Düzeltte Bi Hata Veriyor...
  9. Global $AktifPencereAdi = WinGetTitle("[ACTIVE]") MsgBox(0,"Çalısan Pencerenin Başlığı",$AktifPencereAdi) ;Exe Nin Adını Mesaj ile Gösterme $Programim = Run("Notepad.exe") WinWait($Programim, "", 2) $handle = WinGetHandle("[CLASS:Notepad]") MsgBox(0, "", WinGetTitle($handle, ""))
  10. darendeli

    Darendeli Bil Bakalım V1 Yayında

    Öncelikle Yorumunuz için Tesekkurler ...Önerilerinizi Dikkate alacagım Tam Ekran Modu Eklenecektir...
  11. darendeli

    Darendeli Bil Bakalım V1 Yayında

    Link Yenilendi Skin ile olusan Virüs Olarak Algılamadan Dolayı Skin Degistirildi Sarkılı Soru Eklendi
  12. darendeli

    Darendeli Bil Bakalım V1 Yayında

    Daredeli BilBakalım V1 Yayında Yorumlarınızı Bekliyorum Arkadaslar...
  13. darendeli

    Darendeli Bil Bakalım V1 Yayında

    Func _DogruYanlis() For $I = 1 to $SORULAR[0][0] If $SORULAR[$I][5] = $SORULAR[$I][6] Then $dogru += 1 GUICtrlSetData($Label5,$dogru) Else $yanlis += 1 GUICtrlSetData($Label6,$yanlis) EndIf Next Exit EndFunc Gibi birsey Yaptım Kontrol Etsin die ama olmuyor burda verilen cevap dogru cevapla esitse dogru labeline yanlıs ise yanlıs labeline islem yaptırıyor fakat en son kapanırken yapıyor... Bir Yerde Eksik yada Hata olabilir Görmedigim..
  14. darendeli

    Darendeli Bil Bakalım V1 Yayında

    Arkadaslar oyunun sonuna geldim Skor Tabelasına Skorlar en son isliyor Her Soruda işlemiyor Neden Acaba 2. olarakta Soru Bitince Direk Kapanıyor #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Array.au3> Global $SORU_SAYISI = 3 Global $SORULAR[$SORU_SAYISI +1][8] = [[$SORU_SAYISI], _ ["Türkiye'nin başkenti neresidir?","Adana","Istanbul","Ankara","Atina",3] , _ ["2+7= ? işleminin sonucu kaçtır?","8","9","7","10",2], _ ["Yılın en soğuk mevsimi hangisidir?","Kış","Ilk Bahar","Son Bahar","Yaz",1] _ ] Global $dogru , $yanlis , $pas $dogru = 0 $yanlis = 0 $pas = 0 #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 404, 315, 192, 124) $Label1 = GUICtrlCreateLabel("Kalan Süre : 20 Saniye", 40, 32, 109, 17) $Edit = GUICtrlCreateEdit("", 0, 96, 401, 113) GUICtrlSetState(-1, $GUI_DISABLE) $Button3 = GUICtrlCreateButton("TAMAM", 8, 256, 185, 49) GUICtrlSetState(-1,$GUI_DISABLE) $Checkbox1 = GUICtrlCreateCheckbox("", 8, 216, 97, 27 , BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE)) $Checkbox2 = GUICtrlCreateCheckbox("", 104, 216, 97, 27 , BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE)) $Checkbox3 = GUICtrlCreateCheckbox("", 200, 216, 97, 27 ,BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE)) $Checkbox4 = GUICtrlCreateCheckbox("", 296, 216, 97, 27 ,BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE)) $Button2 = GUICtrlCreateButton("PAS GEÇ", 200, 256, 185, 49) $Group1 = GUICtrlCreateGroup("", 192, 24, 209, 65) $Label2 = GUICtrlCreateLabel("DOĞRU", 208, 40, 44, 17) $Label3 = GUICtrlCreateLabel("YANLIŞ", 280, 40, 42, 17) $Label4 = GUICtrlCreateLabel("PAS", 352, 40, 25, 17) $Label5 = GUICtrlCreateLabel("0", 224, 64, 20, 17) $Label6 = GUICtrlCreateLabel("0", 296, 64, 20, 17) $Label7 = GUICtrlCreateLabel("0", 360, 64, 20, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label8 = GUICtrlCreateLabel("SKOR TABELASI", 224, 8, 144, 16) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### AdlibRegister("time", 1000) _SIRADAKI_SORU() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Checkbox1 If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then GUICtrlSetState($Button3, $GUI_ENABLE) Else GUICtrlSetState($Button3, $GUI_DISABLE) EndIf Case $Checkbox2 If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then GUICtrlSetState($Button3, $GUI_ENABLE) Else GUICtrlSetState($Button3, $GUI_DISABLE) EndIf Case $Checkbox3 If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then GUICtrlSetState($Button3, $GUI_ENABLE) Else GUICtrlSetState($Button3, $GUI_DISABLE) EndIf Case $Checkbox4 If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then GUICtrlSetState($Button3, $GUI_ENABLE) Else GUICtrlSetState($Button3, $GUI_DISABLE) EndIf Case $Button2 If $SORU_SAYISI > $pas Then $pas += 1 GUICtrlSetData($Label7,$pas) EndIf _SIRADAKI_SORU() Case $Button3 _ButonaAktarim() _SIRADAKI_SORU() If @error Then _DogruYanlis() EndSwitch WEnd Func _ButonaAktarim() If GUICtrlRead($Checkbox1) = 1 Then $SORULAR[$SORULAR[0][1]][6] = 1 GUICtrlSetState($Checkbox1,4) GUICtrlSetState($Button3,$GUI_DISABLE) ElseIf GUICtrlRead($Checkbox2) = 1 Then $SORULAR[$SORULAR[0][1]][6] = 2 GUICtrlSetState($Checkbox2,4) GUICtrlSetState($Button3,$GUI_DISABLE) ElseIf GUICtrlRead($Checkbox3) = 1 Then $SORULAR[$SORULAR[0][1]][6] = 3 GUICtrlSetState($Checkbox3,4) GUICtrlSetState($Button3,$GUI_DISABLE) ElseIf GUICtrlRead($Checkbox4) = 1 Then $SORULAR[$SORULAR[0][1]][6] = 4 GUICtrlSetState($Checkbox4,4) GUICtrlSetState($Button3,$GUI_DISABLE) EndIf EndFunc Func _SIRADAKI_SORU() $SORULAR[0][1] += 1 If $SORULAR[0][0] < $SORULAR[0][1] Then Return SetError(1,0,0) GUICtrlSetData($Edit,$SORULAR[$SORULAR[0][1]][0]) GUICtrlSetData($label1, "Kalan Süre : 20 Saniye") GUICtrlSetData($Checkbox1,$SORULAR[$SORULAR[0][1]][1]) GUICtrlSetData($Checkbox2,$SORULAR[$SORULAR[0][1]][2]) GUICtrlSetData($Checkbox3,$SORULAR[$SORULAR[0][1]][3]) GUICtrlSetData($Checkbox4,$SORULAR[$SORULAR[0][1]][4]) Return True EndFunc Func _DogruYanlis() For $I = 1 to $SORULAR[0][0] If $SORULAR[$I][5] = $SORULAR[$I][6] Then $dogru += 1 GUICtrlSetData($Label5,$dogru) Else $yanlis += 1 GUICtrlSetData($Label6,$yanlis) EndIf Next Exit EndFunc Func time() $read = GUICtrlRead($label1) $read = StringReplace($read, "Kalan Süre : ", "") $read = StringReplace($read, " Saniye", "") If $read > 0 Then GUICtrlSetData($label1, "Kalan Süre : " & $read - 1 & " Saniye") Else SoundPlay(@TempDir & "\False.mp3", 0) AdlibUnRegister("time") MsgBox(16, "Bilgi", "Malesef Süre Yetmedi. Skor Tabelasına Yanlış Olarak 1 Puan Ekliyorum..", 0, $Form1) GUICtrlSetData($label1, "Kalan Süre : 21 Saniye") AdlibRegister("time", 1000) $yanlis += 1 GUICtrlSetData($label6,$yanlis) EndIf EndFunc ;==>time
  15. darendeli

    Darendeli Bil Bakalım V1 Yayında

    Ben Soyle Bisey Yaptım Mehmet Sadece Cevaplar Dogru Yada Yanlıs ise Skor Tabelasına islemesi Kaldı... #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Array.au3> Global $SORU_SAYISI = 3 Global $SORULAR[$SORU_SAYISI +1][8] = [[$SORU_SAYISI], _ ["Türkiye'nin başkenti neresidir?","Adana","Istanbul","Ankara","Atina",3] , _ ["2+7= ? işleminin sonucu kaçtır?","8","9","7","10",2], _ ["Yılın en soğuk mevsimi hangisidir?","Kış","Ilk Bahar","Son Bahar","Yaz",1] _ ] Global $dogru , $yanlis , $pas $dogru = 0 $yanlis = 0 $pas = 0 #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 404, 315, 192, 124) $Label1 = GUICtrlCreateLabel("Kalan Süre : 20 Saniye", 40, 32, 109, 17) $Edit = GUICtrlCreateEdit("", 0, 96, 401, 113) GUICtrlSetState(-1, $GUI_DISABLE) $Button3 = GUICtrlCreateButton("TAMAM", 8, 256, 185, 49) GUICtrlSetState(-1,$GUI_DISABLE) $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 8, 216, 97, 27 , BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE)) $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 104, 216, 97, 27 , BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE)) $Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 200, 216, 97, 27 ,BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE)) $Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 296, 216, 97, 27 ,BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE)) $Button2 = GUICtrlCreateButton("PAS GEÇ", 200, 256, 185, 49) $Group1 = GUICtrlCreateGroup("", 192, 24, 209, 65) $Label2 = GUICtrlCreateLabel("DOĞRU", 208, 40, 44, 17) $Label3 = GUICtrlCreateLabel("YANLIŞ", 280, 40, 42, 17) $Label4 = GUICtrlCreateLabel("PAS", 352, 40, 25, 17) $Label5 = GUICtrlCreateLabel("0", 224, 64, 20, 17) $Label6 = GUICtrlCreateLabel("0", 296, 64, 20, 17) $Label7 = GUICtrlCreateLabel("0", 360, 64, 20, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label8 = GUICtrlCreateLabel("SKOR TABELASI", 224, 8, 144, 16) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### AdlibRegister("time", 1000) _SIRADAKI_SORU() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $CheckBox1 If GUICtrlRead($CheckBox1) = $GUI_CHECKED Then GUICtrlSetState($Button3, $GUI_ENABLE) Else GUICtrlSetState($Button3, $GUI_DISABLE) EndIf Case $CheckBox2 If GUICtrlRead($CheckBox2) = $GUI_CHECKED Then GUICtrlSetState($Button3, $GUI_ENABLE) Else GUICtrlSetState($Button3, $GUI_DISABLE) EndIf Case $CheckBox3 If GUICtrlRead($CheckBox3) = $GUI_CHECKED Then GUICtrlSetState($Button3, $GUI_ENABLE) Else GUICtrlSetState($Button3, $GUI_DISABLE) EndIf Case $CheckBox4 If GUICtrlRead($CheckBox4) = $GUI_CHECKED Then GUICtrlSetState($Button3, $GUI_ENABLE) Else GUICtrlSetState($Button3, $GUI_DISABLE) EndIf Case $Button2 $pas += 1 GUICtrlSetData($Label7,$pas) _SIRADAKI_SORU() Case $Button3 If GUICtrlRead($CheckBox1) = 1 Then $SORULAR[$SORULAR[0][1]][6] = 1 GUICtrlSetState($CheckBox1,4) GUICtrlSetState($Button3,$GUI_DISABLE) ElseIf GUICtrlRead($CheckBox2) = 1 Then $SORULAR[$SORULAR[0][1]][6] = 2 GUICtrlSetState($CheckBox2,4) GUICtrlSetState($Button3,$GUI_DISABLE) ElseIf GUICtrlRead($CheckBox3) = 1 Then $SORULAR[$SORULAR[0][1]][6] = 3 GUICtrlSetState($CheckBox3,4) GUICtrlSetState($Button3,$GUI_DISABLE) ElseIf GUICtrlRead($CheckBox4) = 1 Then $SORULAR[$SORULAR[0][1]][6] = 4 GUICtrlSetState($CheckBox4,4) GUICtrlSetState($Button3,$GUI_DISABLE) EndIf _SIRADAKI_SORU() If @error Then _Sonuc() EndSwitch WEnd Func _SIRADAKI_SORU() $SORULAR[0][1] += 1 If $SORULAR[0][0] < $SORULAR[0][1] Then Return SetError(1,0,0) GUICtrlSetData($Edit,$SORULAR[$SORULAR[0][1]][0]) GUICtrlSetData($label1, "Kalan Süre : 20 Saniye") GUICtrlSetData($CheckBox1,$SORULAR[$SORULAR[0][1]][1]) GUICtrlSetData($CheckBox2,$SORULAR[$SORULAR[0][1]][2]) GUICtrlSetData($CheckBox3,$SORULAR[$SORULAR[0][1]][3]) GUICtrlSetData($CheckBox4,$SORULAR[$SORULAR[0][1]][4]) GUICtrlSetState($CheckBox2,4) GUICtrlSetState($CheckBox3,4) GUICtrlSetState($CheckBox4,4) Return True EndFunc Func _Sonuc() EndFunc Func time() $read = GUICtrlRead($label1) $read = StringReplace($read, "Kalan Süre : ", "") $read = StringReplace($read, " Saniye", "") If $read > 0 Then GUICtrlSetData($label1, "Kalan Süre : " & $read - 1 & " Saniye") Else SoundPlay(@TempDir & "\False.mp3", 0) AdlibUnRegister("time") MsgBox(16, "Bilgi", "Malesef Süre Yetmedi. Skor Tabelasına Yanlış Olarak 1 Puan Ekliyorum..", 0, $Form1) GUICtrlSetData($label1, "Kalan Süre : 21 Saniye") AdlibRegister("time", 1000) $yanlis += 1 GUICtrlSetData($label6,$yanlis) EndIf EndFunc ;==>time
×