|
You last visited: Today at 02:45
Advertisement
[Sammelthread] Alte Bot Sourcecodes
Discussion on [Sammelthread] Alte Bot Sourcecodes within the WoW Exploits, Hacks, Tools & Macros forum part of the World of Warcraft category.
08/11/2011, 21:58
|
#31
|
elite*gold: 0 
Join Date: May 2005
Posts: 414
Received Thanks: 141
|
Quote:
Originally Posted by Nelunia
Seite schon down? :P
Und warum veröffentlichst du "gesperrte" Sachen?
|
Server wurde gerade neu gestartet laut Admin. Und ich veröffentliche gar nichts. Habe die Site zugespielt bekommen.
|
|
|
|
08/27/2011, 14:58
|
#32
|
elite*gold: 0
Join Date: Sep 2010
Posts: 48
Received Thanks: 57
|
Hallo, ich möchte gerne wissen warum du den Source meines Radars ohne Erlaubniss hier veröffentlichst. Ich bitte darum die Verlinkung sowie upload umgehend zu löschen.
Das ist meiner seitens nicht erwünscht.
|
|
|
|
|
08/11/2012, 22:02
|
#33
|
elite*gold: 0
Join Date: Aug 2010
Posts: 3
Received Thanks: 0
|
ja hornorbuddy wäre nett ^^
|
|
|
|
|
04/10/2013, 17:40
|
#34
|
elite*gold: 0
Join Date: Jun 2008
Posts: 516
Received Thanks: 69
|
PiroX Anti-AFK Version 6.0 (dies ist nicht das pvpTool!)
WoW Version unbekannt (ist schon zu lange her)
PHP Code:
;#########################################################################
; AntiÄFK by PiroX
; Version 6.0
; www.pirox.de
;#########################################################################
; ALT + Pause/Break to terminate script, Pause/Break to "pause"
;#########################################################################
; Benötigte WoW Addons:
; - PiroX v2.0 ( /pirox )
;
;###############################
;-- Vars --
;###############################
HotKeySet("{PAUSE}", "request_pause")
HotKeySet("!{PAUSE}", "request_end")
Dim $version="6.0"
Dim $title = "PiroX AntiÄFK B0t"
Dim $title2
Dim $win_title = "WORLD OF WARCRAFT"
Dim $win_title2 = "World of Warcraft"
#include <IE.au3>
#include <Misc.au3>
#include <GuiConstants.au3>
Dim $dll = DllOpen("user32.dll")
;############
;-- Vars --
;############
Dim $paused = 0
Dim $sek = 240 ;Sekundenzähler
Dim $sekleft = 0
Dim $max = 240
Dim $key = "kpulcomn" ;verfügbaren Tasten
Dim $a = 0
Dim $pos[4]
Dim $screenshot = 0
Dim $abc= "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
dim $fraktion
Dim $firstrun = 0
Dim $npc2use
dim $bg
dim $bg_city
dim $meldAn = 0
Dim $coord_check_bg[2]
Dim $mid[3] ;Koords mitte des WoW Fensters
Dim $bgActiv = 0
Dim $bgCounter = 0
Dim $waiting = 220
Dim $youAreDeadTimer = 0
Dim $avTunnelDone = 0
Dim $moveAfterPort = 1
Dim $blockSendTimer = 0
Dim $blockSendOn = 0
Dim $blockWhisperTimer = 0
Dim $blockWhisperOn = 0
Dim $logFiles=0
Dim $open
Dim $lang
Dim $modusRun
Dim $randomTitle
Dim $whisperSound
Dim $langCombo
Dim $wScreenshotBox
Dim $tooltipBox
Dim $pic_ball
Dim $pic_radar
Dim $pic_chat
Dim $button_save_settings
Dim $posc[4]
Dim $msg
Dim $oIE
Dim $npc[4][8] ;[0][0]=av og
;Horde
;AV
;############
;standard farben
Dim $S_color_blau = "0x0000E1"
Dim $S_color_gelb = "0xEFEB00"
Dim $S_color_grau = "0xEFEBEF"
Dim $S_color_gm_whisper = "0xEF00EF"
Dim $S_color_w = "0xBE61BF"
Dim $S_color_npc = "0x00FF00"
Dim $S_color_npc_neutral = "0xFFFF00"
;################
; pirox.ini VARS
;################
Dim $key_port
Dim $key_cat
Dim $key_stealth
Dim $key_buff
Dim $gmWhisperAction
Dim $playerWhisperAction
Dim $gmWhisperSoundDur
Dim $whisperSoundOn
Dim $whisper_l
Dim $whisper_t
Dim $whisper_r
Dim $whisper_b
Dim $blockWhisperTime
Dim $ball_x
Dim $ball_y
Dim $radar_x
Dim $radar_y
Dim $modusRunOn
Dim $randomTitleOn
Dim $lang
Dim $tooltip
Dim $wScreenshot
Dim $color_blau
Dim $color_gelb
Dim $color_grau
Dim $color_gm_whisper
Dim $color_w
Dim $color_npc
Dim $color_npc_neutral
Dim $msgOnWhisper[5]
Dim $msgGmOnWhisper[5]
Dim $msgOnWhisperCtr
Dim $msgGmOnWhisperCtr
Dim $gmWhisperActionListReal
Dim $playerWhisperActionListReal
;#################
;##################
; Set WoW Window
;##################
If Not WinExists($win_title, "") Then
If WinExists($win_title2, "") Then
$win_title = $win_title2
Else
If MsgBox(52, $title, $win_title & " has to be running!" & @CRLF & @CRLF &"Continue ?") = 7 then Exit
EndIf
EndIf
If WinExists($win_title) then $pos = WinGetPos ($win_title)
#cs
WinActivate($win_title)
MouseMove(round($pos[2]/2-$pos[2]*0.003,0),round($pos[3]/2+$pos[3]*0.008,0),5)
while not _IsPressed("20",$dll)
sleep(100)
WEnd
#ce
;### GUI Vars ###
;################
$font="Verdana"
global $posGUIcache[4]
global $posGUI = WinGetPos($title)
global $posPic, $pic1, $pic2, $pic3
dim $label_bg_print
dim $title_handle
load_piroxini()
;#### Zahlen zu text #######
If $playerWhisperAction = 0 Then $playerWhisperActionList = "a.Nothing"
If $playerWhisperAction = 1 Then $playerWhisperActionList = "b.Send Msg"
If $playerWhisperAction = 2 Then $playerWhisperActionList = "c.Close WoW"
If $gmWhisperAction = 0 Then $gmWhisperActionList = "a.Nothing"
If $gmWhisperAction = 1 Then $gmWhisperActionList = "b.Close WoW+Msg"
If $gmWhisperAction = 2 Then $gmWhisperActionList = "c.Shutdown PC"
;####
If $randomTitleOn = 1 then
$a = random(5,13,1)
$title = ""
$version = ""
while $a
$title = $title & "" &StringMid($abc, random(0,51), 1)
$a -= 1
WEnd
EndIf
create_gui()
Func create_gui()
load_piroxini()
$fraktion = -1
$firstrun = 0
$bg = -1
$bg_city = -1
$meldAn = 0
$bgActiv = 0
$waiting = 220
$youAreDeadTimer = 0
$avTunnelDone = 0
$moveAfterPort = 1
$blockSendTimer = 0
$blockSendOn = 0
$blockWhisperTimer = 0
$blockWhisperOn = 0
$label_bg_print = 0
; GUI
If $randomTitleOn = 1 then
$title2 = $title
else
$title2 = $title &" v" & $version
EndIf
$title_handle = GuiCreate($title2, 315, 350)
GuiSetIcon("http://www.*******.com/forums/images/px.ico", 0)
; TAB
GuiCtrlCreateTab(-1, 1, 338, 400)
;### TAB 1 ####
GuiCtrlCreateTabItem("Main")
GUICtrlCreateGroup("Battleground", 8, 32, 114, 73)
GUICtrlSetFont (-1,8, 400, 0, $font)
$bgList = GuiCtrlCreateList("", 10, 49, 110, 80)
GuiCtrlSetData(-1, "Alteractal|Warsong|Arathibecken|Auge des Sturms", "")
GUICtrlSetFont (-1,8, 400, 0, $font)
GUICtrlCreateGroup("City:", 128, 32, 101, 109)
GUICtrlSetFont (-1,8, 400, 0, $font)
$cityList = GuiCtrlCreateList("", 130, 49, 97, 105)
GuiCtrlSetData(-1, "h.Orgrimmar|h.Thunderbluff|h.Undercity|n.Shattrath|a.Stormwind|a.Ironforge|a.Darnassus", "")
GUICtrlSetFont (-1,8, 400, 0, $font)
GUICtrlCreateGroup("Fraction", 8, 112, 114, 49)
GUICtrlSetFont (-1,8, 400, 0, $font)
$fraktionList = GuiCtrlCreateList("", 10, 129, 110, 40)
GuiCtrlSetData(-1, "Horde|Alliance", "")
GUICtrlSetFont (-1,8, 400, 0, $font)
;GUICtrlSetBkColor (-1, 0xEF00EF)
$label_bg = GuiCtrlCreateLabel("Mode1:"& @CRLF &"Choose battleground, city and fraction!", 130, 143, 180, 22)
GUICtrlSetFont (-1,7, 800, 0, "Arial")
GUICtrlSetColor ( -1,0xFF0000)
;$langCombo = GUICtrlCreateCombo ("", 130,145,100,20) ; create first item
;GUICtrlSetData(-1,"Horde|Alliance","Fraktion")
;GUICtrlSetFont (-1,8, 400, 0, $font)
GUICtrlCreateGroup("Info (Mode1 only!)", 8, 170, 165, 121)
GUICtrlSetFont (-1,8, 400, 0, $font)
$label_info = GuiCtrlCreateLabel(" - Window Mode ON!" & @CRLF & _
" - load PiroXs Bot WoW Addon!" & @CRLF & @CRLF & _
" PiroX Addon:" & @CRLF & _
" /pirox << Status" & @CRLF & _
" /pirox help << command list" & @CRLF & _
" /pirox on/off << Ball on/off", 12, 187, 160, 160)
GUICtrlSetFont (-1,7, 400, 0, "Arial")
;GUICtrlSetColor ( -1,0x3333)
GUICtrlCreateGroup("Mode1 (pro)", 180, 170, 125, 55)
GUICtrlSetFont (-1,8, 400, 0, $font)
$label_modus = GuiCtrlCreateLabel("- Autosignup BG" & @CRLF & _
"- Check Whispers" & @CRLF & _
"- WoW is set on top!", 186, 185, 100, 50)
GUICtrlSetFont (-1,7, 400, 0, "Arial")
;GUICtrlSetColor ( -1,0x666666)
GUICtrlCreateGroup("Mode2 (light)", 180, 230, 125, 62)
GUICtrlSetFont (-1,8, 400, 0, $font)
$label_modus = GuiCtrlCreateLabel("- Only antiAFK" & @CRLF & _
"- WoW can be minimized!" & @CRLF & _
" You can play another" & @CRLF & _
" game at the same time :)", 186, 242, 120, 50)
GUICtrlSetFont (-1,7, 400, 0, "Arial")
;GUICtrlSetColor ( -1,0x666666)
GUICtrlCreateGroup("Keys", 8, 295, 247, 46)
GUICtrlSetFont (-1,8, 400, 0, $font)
$label_keys = GuiCtrlCreateLabel(" [PAUSE] - to pause bot" & @CRLF & _
" [ALT]+[PAUSE] - to exit bot", 12, 309, 260, 40)
GUICtrlSetFont (-1,7, 400, 0, "Arial")
;GUICtrlSetColor ( -1,0x666666)
If FileExists("Images/pirox.jpg") then $pirox = GuiCtrlCreatePic("Images/pirox.jpg",260,297,50,50)
$button_modus1 = GuiCtrlCreateButton("Mode 1", 234, 40, 77, 30)
$button_modus2 = GuiCtrlCreateButton("Mode 2", 234, 70, 77, 30)
$button_save_settings = GuiCtrlCreateButton("Save settings", 234, 100, 77, 20)
$button_help = GuiCtrlCreateButton("Help", 234, 120, 77, 20)
;### TAB 2 ####
GuiCtrlCreateTabItem("Options")
GUICtrlCreateGroup("Keys:", 8, 32, 120, 90)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("AV trinket Port:", 18, 49, 90, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$key_port = GuiCtrlCreateInput($key_port, 106, 46, 15, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("Catform: ", 53, 67, 80, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$key_cat = GuiCtrlCreateInput($key_cat, 106, 64, 15, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("Stealth: ", 59, 85, 48, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$key_stealth = GuiCtrlCreateInput($key_stealth, 106, 82, 15, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("Buff/Erdschild: ", 23, 102, 80, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$key_buff = GuiCtrlCreateInput($key_buff, 106, 100, 15, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
GUICtrlCreateGroup("Other:", 135, 32, 172, 90)
GUICtrlSetFont (-1,8, 400, 0, $font)
$tooltipBox = GUICtrlCreateCheckbox("Enable Tooltip", 141, 49, 110, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
If $tooltip = 0 then GuiCtrlSetState(-1, 4)
If $tooltip = 1 then GuiCtrlSetState(-1, 1)
$wScreenshotBox = GUICtrlCreateCheckbox("Take Screen on Whisper", 141, 66, 155, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
;GuiCtrlSetState(-1, $wScreenshot)
If $wScreenshot= 0 then GuiCtrlSetState(-1, 4)
If $wScreenshot= 1 then GuiCtrlSetState(-1, 1)
GuiCtrlCreateLabel("In-game language:", 141, 91, 147, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$langCombo = GUICtrlCreateCombo ("", 252,88,50,20) ; create first item
GUICtrlSetData(-1,"eng|de",$lang)
GUICtrlSetFont (-1,8, 400, 0, $font)
GUICtrlCreateGroup("Farben (no changes needed):", 8, 130, 230, 170)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("Ball - grey:", 18, 145, 90, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$color_grau = GuiCtrlCreateInput($color_grau, 106, 145, 65, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$labelColor_grau = GuiCtrlCreateLabel("", 175, 146, 15, 15)
GuiCtrlCreateLabel("Ball - blue:", 18, 162, 90, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$color_blau = GuiCtrlCreateInput($color_blau, 106, 162, 65, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$labelColor_blau = GuiCtrlCreateLabel("", 175, 163, 15, 15)
GuiCtrlCreateLabel("Ball - yellow:", 18, 179, 90, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$color_gelb = GuiCtrlCreateInput($color_gelb, 106, 179, 65, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$labelColor_gelb = GuiCtrlCreateLabel("", 175, 180, 15, 15)
GuiCtrlCreateLabel("Ball - lila:", 18, 196, 90, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$color_gm_whisper = GuiCtrlCreateInput($color_gm_whisper, 106, 196, 65, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$labelColor_gm_whisper = GuiCtrlCreateLabel("", 175, 197, 15, 15)
GuiCtrlCreateLabel("Whisper:", 18, 213, 90, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$color_w = GuiCtrlCreateInput($color_w, 106, 213, 65, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$labelColor_w = GuiCtrlCreateLabel("", 175, 214, 15, 15)
GuiCtrlCreateLabel("NPC - green:", 18, 230, 90, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$color_npc = GuiCtrlCreateInput($color_npc, 106, 230, 65, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$labelColor_npc = GuiCtrlCreateLabel("", 175, 231, 15, 15)
GuiCtrlCreateLabel("NPC - yellow:", 18, 247, 90, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$color_npc_neutral = GuiCtrlCreateInput($color_npc_neutral, 106, 247, 65, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$labelColor_npc_neutral = GuiCtrlCreateLabel("", 175, 248, 15, 15)
$button_standard_colors = GuiCtrlCreateButton("Standard colors", 53, 270, 100, 18)
$button_load_standard = GuiCtrlCreateButton("All to standard", 110, 315, 100, 18)
$button_set_ball_grau = GuiCtrlCreateButton("Set", 196, 146, 35, 16)
$button_set_ball_blau = GuiCtrlCreateButton("Set", 196, 163, 35, 16)
$button_set_ball_gelb = GuiCtrlCreateButton("Set", 196, 180, 35, 16)
$button_set_ball_lila = GuiCtrlCreateButton("Set", 196, 197, 35, 16)
If FileExists("Images/kugel_grau.jpg") then GuiCtrlCreatePic("Images/kugel_grau.jpg",258,146,32,25)
If FileExists("Images/kugel_blau.jpg") then GuiCtrlCreatePic("Images/kugel_blau.jpg",258,174,32,25)
If FileExists("Images/kugel_gelb.jpg") then GuiCtrlCreatePic("Images/kugel_gelb.jpg",258,202,32,25)
If FileExists("Images/kugel_lila.jpg") then GuiCtrlCreatePic("Images/kugel_lila.jpg",258,230,32,25)
;### TAB 3 ####
GuiCtrlCreateTabItem("Security")
GUICtrlCreateGroup("Security:", 8, 32, 300, 200)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("Action on player whisper:", 15, 49, 150, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
$playerWhisperActionListReal = GuiCtrlCreateList("", 13, 64, 142, 60)
GuiCtrlSetData(-1, "a.Nothing|b.Send Msg|c.Close WoW", $playerWhisperActionList)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("Action on GM whisper:", 168, 49, 130, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
$gmWhisperActionListReal = GuiCtrlCreateList("", 165, 64, 135, 60)
GuiCtrlSetData(-1, "a.Nothing|b.Close WoW+Msg|c.Shutdown PC", $gmWhisperActionList)
GUICtrlSetFont (-1,8, 400, 0, $font)
$whisperSound = GuiCtrlCreateCheckbox(" Play sound on player whisper", 18, 111, 260, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
If $whisperSoundOn = 0 then GuiCtrlSetState(-1, 4)
If $whisperSoundOn = 1 then GuiCtrlSetState(-1, 1)
$label_1 = GuiCtrlCreateLabel("Times to play sound on GM whisper", 40, 133, 200, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
$gmWhisperSoundDur = GuiCtrlCreateInput($gmWhisperSoundDur, 18, 131, 20, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$label_2 = GuiCtrlCreateLabel("Time to block incoming whispers after a whisper", 95, 150, 200, 40)
GUICtrlSetFont (-1,8, 400, 0, $font)
$blockWhisperTime = GuiCtrlCreateInput($blockWhisperTime, 18, 155, 53, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$label_2 = GuiCtrlCreateLabel("ms", 72, 155, 18, 15)
GUICtrlSetFont (-1,8, 400, 0, $font)
$modusRun = GuiCtrlCreateCheckbox(" Run around in BG", 18, 190, 260, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
If $modusRunOn = 0 then GuiCtrlSetState(-1, 4)
If $modusRunOn = 1 then GuiCtrlSetState(-1, 1)
$randomTitle = GuiCtrlCreateCheckbox(" Random window title", 18, 207, 260, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
If $randomTitleOn = 0 then GuiCtrlSetState(-1, 4)
If $randomTitleOn = 1 then GuiCtrlSetState(-1, 1)
;### TAB 4 ####
GuiCtrlCreateTabItem("MSGs")
GUICtrlCreateGroup("Msg on player Whisper:", 8, 32, 300, 110) ;229,2
GUICtrlSetFont (-1,8, 400, 0, $font)
$msgOnWhisper[0] = GuiCtrlCreateInput($msgOnWhisper[0],12, 49, 292, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$msgOnWhisper[1] = GuiCtrlCreateInput($msgOnWhisper[1],12, 67, 292, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$msgOnWhisper[2] = GuiCtrlCreateInput($msgOnWhisper[2],12, 85, 292, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$msgOnWhisper[3] = GuiCtrlCreateInput($msgOnWhisper[3],12, 103, 292, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$msgOnWhisper[4] = GuiCtrlCreateInput($msgOnWhisper[4],12, 121, 292, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
GUICtrlCreateGroup("Msg on GM Whisper:", 8, 147, 300, 111) ;229,2
GUICtrlSetFont (-1,8, 400, 0, $font)
$msgGmOnWhisper[0] = GuiCtrlCreateInput($msgGmOnWhisper[0],12, 165, 292, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$msgGmOnWhisper[1] = GuiCtrlCreateInput($msgGmOnWhisper[1],12, 183, 292, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$msgGmOnWhisper[2] = GuiCtrlCreateInput($msgGmOnWhisper[2],12, 201, 292, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$msgGmOnWhisper[3] = GuiCtrlCreateInput($msgGmOnWhisper[3],12, 219, 292, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$msgGmOnWhisper[4] = GuiCtrlCreateInput($msgGmOnWhisper[4],12, 237, 292, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
;### TAB 4 - COORDS ####
GuiCtrlCreateTabItem("Coords")
;BALL
If WinExists($win_title) then
If $ball_x = 0 then $ball_x = round($pos[2]/2-$pos[2]*0.003,0)
If $ball_y = 0 then $ball_y = round($pos[3]/2+$pos[3]*0.008,0)
EndIf
GUICtrlCreateGroup("Ball", 8, 32, 143, 97)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("X:", 20, 51, 15, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
$ball_x = GuiCtrlCreateInput($ball_x,35, 49, 40, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("Y:", 20, 69, 15, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
$ball_y = GuiCtrlCreateInput($ball_y,35, 67, 40, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$button_set_coords_ball = GuiCtrlCreateButton("Set coords", 14, 88, 85, 17)
$button_show_coords_ball = GuiCtrlCreateButton("Show coords", 14, 106, 85, 17)
$pic_ball = GuiCtrlCreateButton("big", 101, 88, 45, 19)
If FileExists("Images/kugel.jpg") then GuiCtrlCreatePic("Images/kugel.jpg",95,44,50,43)
;RADAR
If WinExists($win_title) then
If $radar_x = 0 then $radar_x = round($pos[2]*0.90,0)
If $radar_y = 0 then $radar_y = round($pos[3]*0.112,0)
EndIf
GUICtrlCreateGroup("Radar", 163, 32, 145, 97)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("X:", 175, 51, 15, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
$radar_x = GuiCtrlCreateInput($radar_x,191, 49, 40, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("Y:", 175, 69, 15, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
$radar_y = GuiCtrlCreateInput($radar_y,191, 67, 40, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$button_set_coords_radar = GuiCtrlCreateButton("Set coords", 169, 88, 85, 17)
$button_show_coords_radar = GuiCtrlCreateButton("Show coords", 169, 106, 85, 17)
$pic_radar = GuiCtrlCreateButton("big", 256, 88, 45, 19)
If FileExists("Images/radar.jpg") then GuiCtrlCreatePic("Images/radar.jpg",251,44,50,43)
;CHAT
GUICtrlCreateGroup("Chat", 8, 140, 300, 110)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("1. point:", 25, 154, 100, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("X:", 19, 172, 15, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
$whisper_l = GuiCtrlCreateInput($whisper_l,34, 170, 40, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("Y:", 19, 190, 15, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
$whisper_t = GuiCtrlCreateInput($whisper_t,34, 188, 40, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("2. point:", 96, 154, 120, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("X:", 95, 172, 15, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
$whisper_r = GuiCtrlCreateInput($whisper_r,110, 170, 40, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
GuiCtrlCreateLabel("Y:", 95, 190, 15, 20)
GUICtrlSetFont (-1,8, 400, 0, $font)
$whisper_b = GuiCtrlCreateInput($whisper_b,110, 188, 40, 17)
GUICtrlSetFont (-1,8, 400, 0, $font)
$button_set_coords_chat = GuiCtrlCreateButton("Set coords", 42, 211, 95, 17)
$button_show_coords_chat = GuiCtrlCreateButton("Show coords", 42, 229, 95, 17)
$pic_chat = GuiCtrlCreateButton("big", 207, 227, 45, 19)
If FileExists("Images/chat.jpg") then GuiCtrlCreatePic("Images/chat.jpg",165,160,130,65)
GuiCtrlCreateTabItem("")
GuiSetState(@SW_SHOW)
;#############################
;##### MAIN - GUI ############
;#############################
sleep(100)
$posGUI = WinGetPos($title)
$label_bg_print = GUICtrlRead($bgList)
Opt("SendKeyDownDelay", random(70,90))
While 1
$msg = GUIGetMsg()
$posGUIcache[0] = $posGUI[0]
$posGUIcache[1] = $posGUI[1]
$posGUI = WinGetPos($title)
If $msg = $GUI_EVENT_CLOSE Then
If $open = 1 then
add2log("Bot quit")
FileClose($open)
EndIf
Exit
EndIf
If GUICtrlRead($playerWhisperActionListReal) = "a.Nothing" Then $playerWhisperAction = 0
If GUICtrlRead($playerWhisperActionListReal) = "b.Send Msg" Then $playerWhisperAction = 1
If GUICtrlRead($playerWhisperActionListReal) = "c.Close WoW" Then $playerWhisperAction = 2
If GUICtrlRead($gmWhisperActionListReal) = "a.Nothing" Then $gmWhisperAction = 0
If GUICtrlRead($gmWhisperActionListReal) = "b.Close WoW+Msg" Then $gmWhisperAction = 1
If GUICtrlRead($gmWhisperActionListReal) = "c.Shutdown PC" Then $gmWhisperAction = 2
If GUICtrlRead($cityList) = "h.Orgrimmar" Then $bg_city = 0
If GUICtrlRead($cityList) = "h.Thunderbluff" Then $bg_city = 1
If GUICtrlRead($cityList) = "h.Undercity" Then $bg_city = 2
If GUICtrlRead($cityList) = "a.Ironforge" Then $bg_city = 3
If GUICtrlRead($cityList) = "a.Stormwind" Then $bg_city = 4
If GUICtrlRead($cityList) = "a.Darnassus" Then $bg_city = 5
If GUICtrlRead($cityList) = "n.Shattrath" Then $bg_city = 6
If GUICtrlRead($fraktionList) = "Horde" Then $fraktion = 0
If GUICtrlRead($fraktionList) = "Alliance" Then $fraktion = 1
If GUICtrlRead($bgList) = "Alteractal" Then $bg=0
If GUICtrlRead($bgList) = "Warsong" Then $bg=1
If GUICtrlRead($bgList) = "Arathibecken" Then $bg=2
If GUICtrlRead($bgList) = "Auge des Sturms" Then $bg=3
If $bg >=0 AND $fraktion >=0 AND $bg_city >=0 then
If NOT $label_bg_print then GUICtrlSetData($label_bg,"OK - you can run MODUS 1 now")
$label_bg_print = 1
EndIf
GUICtrlSetBkColor ($labelColor_grau, GUICtrlRead($color_grau))
GUICtrlSetBkColor ($labelColor_blau, GUICtrlRead($color_blau))
GUICtrlSetBkColor ($labelColor_gelb, GUICtrlRead($color_gelb))
GUICtrlSetBkColor ($labelColor_gm_whisper, GUICtrlRead($color_gm_whisper))
GUICtrlSetBkColor ($labelColor_w, GUICtrlRead($color_w))
GUICtrlSetBkColor ($labelColor_npc, GUICtrlRead($color_npc))
GUICtrlSetBkColor ($labelColor_npc_neutral, GUICtrlRead($color_npc_neutral))
If NOT ($posGUIcache[0] = $posGUI[0] AND $posGUIcache[1] = $posGUI[1]) then moveGUIs()
If $msg = $button_set_ball_grau then set_ball_grau()
If $msg = $button_set_ball_blau then set_ball_blau()
If $msg = $button_set_ball_gelb then set_ball_gelb()
If $msg = $button_set_ball_lila then set_ball_lila()
If $msg = $button_set_coords_ball then set_coords_ball()
If $msg = $button_set_coords_chat then set_coords_chat()
If $msg = $button_set_coords_radar then set_coords_radar()
If $msg = $button_show_coords_ball then show_coords_ball()
If $msg = $button_show_coords_chat then show_coords_chat()
If $msg = $button_show_coords_radar then show_coords_radar()
If FileExists("Images/radar.jpg") then
If $msg = $pic_radar then pic_radar()
EndIf
If FileExists("Images/kugel.jpg") then
If $msg = $pic_ball then pic_ball()
EndIf
If FileExists("Images/chat.jpg") then
If $msg = $pic_chat then pic_chat()
EndIf
If FileExists("Images/pirox.jpg") then
If $msg = $pirox then $oIE = _IECreate ("www.pirox.de")
EndIf
If $msg = $button_standard_colors then standard_colors()
If $msg = $button_help then MsgBox(64,$title & " - Help","Have a look at README.TXT =D")
If $msg = $button_load_standard then all2standard()
If $msg = $button_save_settings then
save_settings()
MsgBox(64,$title,"Settings saved to pirox.ini")
EndIf
If $msg = $button_modus1 then
If $bg >=0 AND $bg_city>=0 AND $fraktion>=0 then
save_settings()
If WinActivate($win_title) then
If $pic1 then GUISetState(@SW_HIDE,$pic1)
If $pic2 then GUISetState(@SW_HIDE,$pic2)
If $pic3 then GUISetState(@SW_HIDE,$pic3)
GUIDelete ( $title_handle)
modus1()
Else
MsgBox(64,$title,"WoW have to be running!")
EndIf
Else
MsgBox(64,$title,"Please choose BG, City and fraction.")
EndIf
EndIf
If $msg = $button_modus2 then
If WinActivate($win_title) then
If $pic1 then GUISetState(@SW_HIDE,$pic1)
If $pic2 then GUISetState(@SW_HIDE,$pic2)
If $pic3 then GUISetState(@SW_HIDE,$pic3)
GUIDelete ( $title_handle)
modus2()
Else
MsgBox(64,$title,"WoW have to be running!")
EndIf
EndIf
WEnd
EndFunc
;#########
Func set_ball_blau()
WinActivate($win_title)
ControlSend ( $win_title, "", 0, "{enter}")
sleep(random(50,75))
ControlSend ( $win_title, "", 0, "/pirox blau")
ControlSend ( $win_title, "", 0, "{enter}")
sleep(70)
MouseMove(GUICtrlRead($ball_x),GUICtrlRead($ball_y),5)
GUICtrlSetData($color_blau, PixelGetColor(GUICtrlRead($ball_x),GUICtrlRead($ball_y)))
MsgBox(64, $title, "Color blue set")
WinActivate($title2)
EndFunc
;#########
Func set_ball_grau()
WinActivate($win_title)
ControlSend ( $win_title, "", 0, "{enter}")
sleep(random(50,75))
ControlSend ( $win_title, "", 0, "/pirox grau")
ControlSend ( $win_title, "", 0, "{enter}")
sleep(70)
MouseMove(GUICtrlRead($ball_x),GUICtrlRead($ball_y),5)
GUICtrlSetData($color_grau, PixelGetColor(GUICtrlRead($ball_x),GUICtrlRead($ball_y)))
MsgBox(64, $title, "Color grey set")
WinActivate($title2)
EndFunc
;#########
Func set_ball_gelb()
WinActivate($win_title)
ControlSend ( $win_title, "", 0, "{enter}")
sleep(random(50,75))
ControlSend ( $win_title, "", 0, "/pirox gelb")
ControlSend ( $win_title, "", 0, "{enter}")
sleep(70)
MouseMove(GUICtrlRead($ball_x),GUICtrlRead($ball_y),5)
GUICtrlSetData($color_gelb, PixelGetColor(GUICtrlRead($ball_x),GUICtrlRead($ball_y)))
MsgBox(64, $title, "Color gelb set")
WinActivate($title2)
EndFunc
;#########
Func set_ball_lila()
WinActivate($win_title)
ControlSend ( $win_title, "", 0, "{enter}")
sleep(random(50,75))
ControlSend ( $win_title, "", 0, "/pirox lila")
ControlSend ( $win_title, "", 0, "{enter}")
sleep(70)
MouseMove(GUICtrlRead($ball_x),GUICtrlRead($ball_y),5)
GUICtrlSetData($color_w, PixelGetColor(GUICtrlRead($ball_x),GUICtrlRead($ball_y)))
MsgBox(64, $title, "Color lila set")
WinActivate($title2)
EndFunc
;#########
Func set_coords_ball()
WinActivate($win_title)
ControlSend ( $win_title, "", 0, "{enter}")
sleep(random(50,75))
ControlSend ( $win_title, "", 0, "/pirox on")
ControlSend ( $win_title, "", 0, "{enter}")
ToolTip("Put your mouse onto the MID of the ball and press SPACE to continue.",20,3)
while not _IsPressed("20", $dll)
sleep(100)
WEnd
$posc = MouseGetPos()
GUICtrlSetData($ball_x,$posc[0])
GUICtrlSetData($ball_y,$posc[1])
ToolTip("")
MsgBox(64,$title,"Coords set")
WinActivate($title2)
EndFunc
Func show_coords_ball()
WinActivate($win_title)
sleep(300)
MouseMove(GUICtrlRead($ball_x),GUICtrlRead($ball_y),5)
sleep(1000)
WinActivate($title2)
EndFunc
;#########
Func set_coords_radar()
WinActivate($win_title)
ToolTip("Put your mouse onto a BLACK pixel of the radar and press SPACE to continue.",20,3)
while not _IsPressed("20", $dll)
sleep(100)
WEnd
$posc = MouseGetPos()
GUICtrlSetData($radar_x,$posc[0])
GUICtrlSetData($radar_y,$posc[1])
ToolTip("")
MsgBox(64,$title,"Coords set")
WinActivate($title2)
EndFunc
Func show_coords_radar()
WinActivate($win_title)
sleep(300)
MouseMove(GUICtrlRead($radar_x),GUICtrlRead($radar_y),5)
sleep(1000)
WinActivate($title2)
EndFunc
;#########
Func show_coords_chat()
WinActivate($win_title)
sleep(300)
MouseMove(GUICtrlRead($whisper_l),GUICtrlRead($whisper_t),5)
sleep(500)
MouseMove(GUICtrlRead($whisper_r),GUICtrlRead($whisper_t),5)
MouseMove(GUICtrlRead($whisper_r),GUICtrlRead($whisper_b),5)
MouseMove(GUICtrlRead($whisper_l),GUICtrlRead($whisper_b),5)
MouseMove(GUICtrlRead($whisper_l),GUICtrlRead($whisper_t),5)
sleep(1000)
WinActivate($title2)
EndFunc
Func set_coords_chat()
WinActivate($win_title)
Tooltip("Put your mouse on the MID-LEFT border of the chatframe and press SPACE to continue.",20,3)
while not _IsPressed("20", $dll)
sleep(100)
WEnd
$posc = MouseGetPos()
GUICtrlSetData($whisper_l,$posc[0])
GUICtrlSetData($whisper_t,$posc[1])
ToolTip("")
while _IsPressed("20", $dll)
sleep(100)
WEnd
MsgBox(64,$title,"1. Point set")
ToolTip("Now put your mouse in the BOTTOM-MID Border and press SPACE to continue.",20,3)
while not _IsPressed("20", $dll)
sleep(100)
WEnd
$posc = MouseGetPos()
GUICtrlSetData($whisper_r,$posc[0])
GUICtrlSetData($whisper_b,$posc[1])
ToolTip("")
MsgBox(64,$title,"2. Point set")
sleep(300)
MouseMove(GUICtrlRead($whisper_l),GUICtrlRead($whisper_t),5)
sleep(700)
MouseMove(GUICtrlRead($whisper_r),GUICtrlRead($whisper_t),5)
MouseMove(GUICtrlRead($whisper_r),GUICtrlRead($whisper_b),5)
MouseMove(GUICtrlRead($whisper_l),GUICtrlRead($whisper_b),5)
MouseMove(GUICtrlRead($whisper_l),GUICtrlRead($whisper_t),5)
WinActivate($title2)
EndFunc
;#####################
;## SHOW PICS ########
;#####################
;#### PIC 1 #####
Func pic_radar()
$posGUI = WinGetPos($title)
$posPic = $posGUI[0]+$posGUI[2]
if $posPic > 950 then $posPic = $posGUI[0]-326
If $pic2 then
GUISetState(@SW_HIDE,$pic2)
GUICtrlSetData($pic_ball,"big")
EndIf
If $pic3 then
GUISetState(@SW_HIDE,$pic3)
GUICtrlSetData($pic_chat,"big")
EndIf
if GUICtrlRead($pic_radar) = "big" then
if Not $pic1 then
$pic1=GUICreate("PIC - Radar", 326, 211, $posPic, $posGUI[1]+20,$WS_POPUP)
GUICtrlCreatePic("Images/radar.jpg",0,0, 0,0)
Else
WinMove("PIC - Radar", "", $posPic, $posGUI[1]+20)
EndIf
GUISetState(@SW_SHOW,$pic1)
GUICtrlSetData($pic_radar,"small")
Else
GUISetState(@SW_HIDE,$pic1)
GUICtrlSetData($pic_radar,"big")
EndIf
WinActivate($title2)
EndFunc
;#### PIC 2 #####
Func pic_ball()
$posGUI = WinGetPos($title)
$posPic = $posGUI[0]+$posGUI[2]
if $posPic > 950 then $posPic = $posGUI[0]-217
If $pic1 then
GUISetState(@SW_HIDE,$pic1)
GUICtrlSetData($pic_radar,"big")
EndIf
If $pic3 then
GUISetState(@SW_HIDE,$pic3)
GUICtrlSetData($pic_chat,"big")
EndIf
if GUICtrlRead($pic_ball) = "big" then
if Not $pic2 then
$pic2=GUICreate("PIC - Ball", 217, 240, $posPic, $posGUI[1]+20,$WS_POPUP)
GUICtrlCreatePic("Images/kugel.jpg",0,0, 0,0)
Else
WinMove("PIC - Ball", "", $posPic, $posGUI[1]+20)
EndIf
GUISetState(@SW_SHOW,$pic2)
GUICtrlSetData($pic_ball,"small")
Else
GUISetState(@SW_HIDE,$pic2)
GUICtrlSetData($pic_ball,"big")
EndIf
WinActivate($title2)
EndFunc
;#### PIC 3 #####
Func pic_chat()
$posGUI = WinGetPos($title)
$posPic = $posGUI[0]-$posGUI[2]/2
if $posPic > 700 then $posPic = $posGUI[0]-627
If $pic1 then
GUISetState(@SW_HIDE,$pic1)
GUICtrlSetData($pic_radar,"big")
EndIf
If $pic2 then
GUISetState(@SW_HIDE,$pic2)
GUICtrlSetData($pic_ball,"big")
EndIf
if GUICtrlRead($pic_chat) = "big" then
if Not $pic3 then
$pic3=GUICreate("PIC - Chat", 627, 150, $posPic, $posGUI[1]+$posGUI[3],$WS_POPUP)
GUICtrlCreatePic("Images/chat.jpg",0,0, 0,0)
Else
WinMove("PIC - Chat", "", $posPic, $posGUI[1]+$posGUI[3])
EndIf
GUISetState(@SW_SHOW,$pic3)
GUICtrlSetData($pic_chat,"small")
Else
GUISetState(@SW_HIDE,$pic3)
GUICtrlSetData($pic_chat,"big")
EndIf
WinActivate($title2)
EndFunc
;#### MOVE GUIS #####
Func moveGUIs()
WinActivate($title2)
$posGUI = WinGetPos($title)
;MsgBox(0,"",GUICtrlGetState($pic1))
If BitAnd(WinGetState($pic1),2) then
$posPic = $posGUI[0]+$posGUI[2]
if $posPic > 950 then $posPic = $posGUI[0]-326
WinMove("PIC - Radar", "", $posPic, $posGUI[1]+20)
EndIf
If BitAnd(WinGetState($pic2),2) then
$posPic = $posGUI[0]+$posGUI[2]
if $posPic > 950 then $posPic = $posGUI[0]-217
WinMove("PIC - Ball", "", $posPic, $posGUI[1]+20)
EndIf
If BitAnd(WinGetState($pic3),2) then
$posPic = $posGUI[0]-$posGUI[2]/2
if $posPic > 700 then $posPic = $posGUI[0]-627
WinMove("PIC - Chat", "", $posPic, $posGUI[1]+$posGUI[3])
EndIf
EndFunc
;##########################################################################################################################
;##########################################################################################################################
;######################################### BOT #########################################################
;##########################################################################################################################
;##########################################################################################################################
;#################################
Func modus1()
If WinExists($win_title) then $pos = WinGetPos ($win_title)
load_piroxini()
;testvars()
check_kugel_on()
ToolTip("")
choose_lang()
If $bg_city = 6 then $bg_city += $fraktion
$npc2use = $npc[$bg][$bg_city]
If NOT $open = 1 then
while FileExists("Log\log#" & $logFiles & ".txt")
$logFiles +=1
WEnd
$open = fileopen('Log\log#' & $logFiles & '.txt', 1)
FileWrite($open, 'Bot v' & $version & ' started on ' & @MDAY & '-' & @MON & ' at ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF & '---------------------------------' & @CRLF)
Else
FileWrite($open, '---------------------------------' & @CRLF)
EndIf
add2log("Mode: Mit Bg anmelden")
check_in_bg()
tt("Running Mode 1")
If $bgActiv Then
add2log("already in BG")
If not (PixelGetColor( $radar_x, $radar_y ) = 0 and PixelGetColor( $radar_x+1, $radar_y+2 ) = 0) Then
If $key_buff Then
sendBG($key_buff)
sleep(random(1250,1500))
EndIf
If $key_cat Then
sendBG($key_cat)
sleep(random(1250,1500))
EndIf
If $key_stealth Then
sendBG($key_stealth)
sleep(random(1250,1500))
EndIf
EndIf
Else
add2log("not in BG")
EndIf
ControlSend ( $win_title, "", 0, "{SPACE}")
sleep(random(400,700))
while 1
WinActivate($win_title)
sleep(100)
while $waiting < 240
If $paused = 1 then
ExitLoop
ExitLoop 2
EndIf
WinActivate($win_title)
check_in_bg()
sleep(100)
$waiting += 1
If NOT StringIsFloat ( $waiting/2 ) Then
If $bgActiv Then
tt("BG is activ - action: " & 120-$waiting/2)
else
tt("BG not activ - action: " & 120-$waiting/2)
EndIf
EndIf
Wend
If $paused = 1 then
ExitLoop
;ExitLoop 2
EndIf
$waiting = 0
If $bgActiv = 1 Then
tt("BG activ - Doing my job")
If $bg = 0 and $fraktion = 0 and Not $avTunnelDone Then check_av_horde_tunnel()
If $bg = 0 and $fraktion = 1 and Not $avTunnelDone Then check_av_allianz_tunnel()
If $bg >= 2 and Not $avTunnelDone Then
for $i=0 to 10
sendbg("{w down}")
sleep(random(1200,1500))
Next
sendbg("{w up}")
sleep(200)
If $key_buff Then
sendBG($key_buff)
sleep(random(1250,1500))
EndIf
If $key_cat Then
sendBG($key_cat)
sleep(random(1250,1500))
EndIf
If $key_stealth Then
sendBG($key_stealth)
sleep(random(1250,1500))
EndIf
EndIf
$avTunnelDone = 1
check_in_bg()
WinActivate($win_title)
If $modusRunOn = 1 Then
run_bg()
Else
no_run()
EndIf
$moveAfterPort=0
Else
tt("Signup for BG")
bg_anmeld()
EndIf
FileClose($open)
$open = fileopen('Log\log#' & $logFiles & '.txt', 1)
WEnd
EndFunc
;#################################
Func modus2()
$sek = 0
$max = random(240,280,1)
ControlSend($win_title, "", 0, "{SPACE}")
while 1
$sekleft = $max-$sek
tt("AFK: " & $sek & "s - action in " & $sekleft & "s")
If $sek = $max Then
$a = random(1,8,1)
sleep(random(100,250))
ControlSend ( $win_title, "", 0, StringMid($key, $a, 1))
sleep(random(500,1000))
ControlSend ( $win_title, "", 0, StringMid($key, $a, 1))
sleep(random(100,250))
$sek = 0
$max = random(240,280,1)
Else
sleep(1000)
$sek += 1
EndIf
WEnd
EndFunc
;#################################
Func bg_anmeld()
send("{enter}")
sleep(random(5,15))
send($npc2use)
send("{enter}")
sleep(100)
$coord = PixelSearch(Round($pos[2]*0.16,0), Round($pos[3]*0.15,0), Round($pos[2]*0.7,0), Round($pos[3]*0.61,0), $color_npc, 20, 1)
If Not @error Then
$meldAn = 1
Else
$coord = PixelSearch(Round($pos[2]*0.16,0), Round($pos[3]*0.15,0), Round($pos[2]*0.7,0), Round($pos[3]*0.61,0), $color_npc_neutral, 20, 1)
If Not @error Then $meldAn = 1
EndIf
If $meldAn Then
If $key_cat Then
send($key_cat)
sleep(random(1350,1850))
MouseMove($coord[0],$coord[1]+40)
MouseClick("right")
sleep(random(20,40))
MouseMove($coord[0]-10,$coord[1]+40)
MouseClick("right")
sleep(random(20,40))
MouseMove($coord[0]+20,$coord[1]+40)
MouseClick("right")
sleep(random(20,40))
MouseMove($coord[0]+40,$coord[1]+40)
MouseClick("right")
sleep(random(300,400))
send($key_cat)
sleep(random(1200,1400))
EndIf
check_whisper()
MouseMove($coord[0],$coord[1]+40)
MouseClick("right")
sleep(random(20,40))
MouseMove($coord[0]-10,$coord[1]+40)
MouseClick("right")
sleep(random(20,40))
MouseMove($coord[0]+20,$coord[1]+40)
MouseClick("right")
sleep(random(20,40))
MouseMove($coord[0]+40,$coord[1]+40)
MouseClick("right")
sleep(random(50,100))
EndIf
$meldAn = 0
EndFunc
;######################
Func no_run()
tt("sending key only")
If $moveAfterPort Then
sendBG("{w down}")
for $i=0 to 10 Step 1
sleep(1000)
Next
EndIf
sendBG("{w up}")
$a = random(1,8,1)
sleep(random(150,250))
sendBG(StringMid($key, $a, 1))
sleep(random(500,1000))
sendBG(StringMid($key, $a, 1))
EndFunc
;######################
Func run_bg()
tt("running around")
sleep(150)
$a = random(1,3,1)
If $bgActiv Then
if $a = 1 Then
sleep(random(100,300))
SendBG("{d down}")
sleep(random(300,500))
SendBG("{d up}")
SendBG("{w down}")
sleep(random(2000,2300))
Send("{SPACE}")
sleep(random(300,500))
SendBG("{d down}")
sleep(random(100,150))
SendBG("{d up}")
sleep(random(2000,2500))
SendBG("{d down}")
sleep(random(450,500))
SendBG("{d up}")
sleep(random(2500,3000))
SendBG("{w up}")
ElseIf $a = 2 Then
sleep(random(100,300))
SendBG("{w down}")
sleep(random(300,500))
Send("{SPACE}")
sleep(random(100,300))
SendBG("{a down}")
sleep(random(700,1300))
SendBG("{a up}")
sleep(random(2000,2500))
SendBG("{w up}")
sleep(random(100,150))
SendBG("{s down}")
sleep(random(2000,2500))
SendBG("{d down}")
sleep(random(800,1020))
SendBG("{s up}")
SendBG("{w down}")
sleep(random(2500,3000))
SendBG("{d up}")
sleep(random(2500,3000))
SendBG("{w up}")
ElseIf $a = 3 Then
sleep(random(100,300))
SendBG("{a down}")
sleep(random(300,500))
SendBG("{SPACE}")
SendBG("{w down}")
sleep(random(700,1300))
SendBG("{a up}")
sleep(random(2000,2500))
SendBG("{d down}")
sleep(random(2000,2500))
SendBG("{d up}")
SendBG("{a down}")
sleep(random(800,1020))
Send("{SPACE}")
sleep(random(100,300))
SendBG("{a up}")
SendBG("{w up}")
sleep(random(2500,3000))
SendBG("{s down}")
sleep(random(2500,3000))
SendBG("{a down}")
sleep(random(700,1200))
SendBG("{a up}")
SendBG("{s up}")
EndIf
EndIf
EndFunc
;######################
Func check_av_allianz_tunnel()
If NOT $radar_x then $radar_x = round($pos[2]*0.89,0)
If NOT $radar_y then $radar_y = round($pos[3]*0.142,0)
WinActivate($win_title)
;MouseMove($radar_x , $radar_y)
;sleep(1000)
;MouseMove($radar_x , $radar_y+2)
;sleep(1000)
If PixelGetColor( $radar_x, $radar_y ) = 0 and PixelGetColor( $radar_x+1, $radar_y+2 ) = 0 Then
tt("AV tunnel - running")
$begin = TimerInit()
SendBG("{w down}")
sleep(1300)
sendBG("{e down}")
while PixelGetColor( $radar_x, $radar_y) = 0 and PixelGetColor( $radar_x+1, $radar_y+2 ) = 0 and $bgActiv
WinActivate($win_title)
sendBG("{e down}")
sleep(1000)
sleep(random(800,1000))
if TimerDiff($begin) > 20000 Then
tt("AV tunnel - Player stucked")
sleep(random(200,300))
SendBG("{e up}")
SendBG("{SPACE}")
sleep(random(1000,1100))
SendBG("{s down}")
sleep(random(500,600))
SendBG("{s up}")
SendBG("{e down}")
sleep(random(1500,1600))
SendBG("{e up}")
$begin = TimerInit()
tt("AV tunnel - running")
EndIf
Wend
tt("AV outside - running")
send("{SPACE}")
sleep(random(1200,1500))
SendBG("{e down}")
sleep(random(1200,1500))
SendBG("{w up}")
SendBG("{e up}")
SendBG("{s down}")
sleep(random(1200,1500))
SendBG("{s up}")
SendBG("{w down}")
SendBG("{e down}")
sleep(random(3500,4000))
SendBG("{w up}")
SendBG("{e up}")
sleep(random(300,500))
tt("AV - port to base")
sleep(random(180,200))
SendBG($key_port)
For $i=0 to 6
sleep(random(2000,2100))
check_in_bg()
Next
If $key_buff Then
sendBG($key_buff)
sleep(random(1350,1850))
EndIf
If $key_cat Then
sendBG($key_cat)
sleep(random(1350,1850))
EndIf
If $key_stealth Then
sendBG($key_stealth)
sleep(random(1350,1850))
EndIf
$begin = 0
$avTunnelDone = 1
$moveAfterPort = 1
EndIf
EndFunc
;######################
Func check_av_horde_tunnel()
If NOT $radar_x then $radar_x = round($pos[2]*0.90,0)
If NOT $radar_y then $radar_y = round($pos[3]*0.112,0)
WinActivate($win_title)
;MouseMove($radar_x, $radar_y)
;sleep(1000)
;MouseMove($radar_x, $radar_y+2)
;MouseMove(round($pos[2]*0.90625,0), round($pos[3]*0.1117,0))
;sleep(1000)
If PixelGetColor( $radar_x, $radar_y ) = 0 and PixelGetColor( $radar_x+1, $radar_y+2 ) = 0 Then
tt("AV tunnel - running")
$begin = TimerInit()
SendBG("{w down}")
SendBG("{q down}")
sleep(random(2200,2300))
SendBG("{q up}")
while PixelGetColor( $radar_x, $radar_y ) = 0 and PixelGetColor( $radar_x+1, $radar_y+2 ) = 0 and $bgActiv
WinActivate($win_title)
sleep(random(500,550))
sendBG("{q down}")
sleep(random(50,60))
sendBG("{q up}")
if TimerDiff($begin) > 20000 Then
tt("AV tunnel - Player stucked")
sleep(random(200,300))
SendBG("{w up}")
SendBG("{SPACE}")
sleep(random(1000,1100))
SendBG("{s down}")
sleep(random(100,110))
SendBG("{q down}")
sleep(random(1500,1600))
SendBG("{q up}")
SendBG("{s up}")
SendBG("{w down}")
$begin = TimerInit()
tt("AV tunnel - running")
EndIf
Wend
tt("AV outside - running")
send("{SPACE}")
sleep(random(2500,2600))
SendBG("{w up}")
SendBG("{q down}")
sleep(random(1900,2100))
SendBG("{q up}")
sleep(random(100,150))
SendBG("{w down}")
sleep(random(2000,2100))
SendBG("{e down}")
sleep(random(2000,2100))
SendBG("{e up}")
SendBG("{q down}")
sleep(random(2000,2200))
SendBG("{q up}")
sleep(random(1900,2100))
SendBG("{w up}")
tt("AV - port to base")
sleep(random(180,200))
SendBG($key_port) ; 1 7 Klick für Port
For $i=0 to 6
sleep(random(2000,2100))
check_in_bg()
Next
If $key_buff Then
sendBG($key_buff)
sleep(random(1350,1500))
EndIf
If $key_cat Then
sendBG($key_cat)
sleep(random(1350,1500))
EndIf
If $key_stealth Then
sendBG($key_stealth)
sleep(random(1350,1500))
EndIf
$begin = 0
$avTunnelDone = 1
$moveAfterPort = 1
EndIf
EndFunc
;######################
Func check_whisper()
If TimerDiff($blockWhisperTimer) > $blockWhisperTime Then
$blockWhisperOn = 0
$blockWhisperTimer = 0
EndIf
$coord_w = PixelSearch($ball_x-3, $ball_y-3, $ball_x+3, $ball_y+3, $color_gm_whisper, 20, 1)
If Not @error Then
If $wScreenshot then
tt("DANGER : GM WHISPERS YOU - make screen")
add2log("GM Whisper!!! - make screenshot")
screenshot()
Else
tt("DANGER : GM WHISPERS YOU")
add2log("GM Whisper!!!")
EndIf
If $whisperSoundOn Then
for $i=0 to $gmWhisperSoundDur Step 1
SoundPlay ("alarm.wav",1)
Next
EndIf
If $gmWhisperAction = 0 Then
MsgBox(0,$title,"ACHTUNG GameMaster!!!",5)
sleep(1000)
WinActivate($win_title)
sleep(500)
Send("{ENTER}")
sleep(20)
Send("{:/}")
sleep(20)
Send("{ENTER}")
sleep(400)
ElseIf $gmWhisperAction = 1 Then
If $whisperSoundOn = 0 Then
If $gmWhisperSoundDur < 2 Then sleep(random(1000,1500))
Else
sleep(random(4000,5000))
EndIf
check_in_bg()
If $msgGmOnWhisper[0] Then
$a = random(0,$msgGmOnWhisperCtr,1)
send("r" & $msgGmOnWhisper[$a] & "")
add2log($msgGmOnWhisper[$a] & " - answered")
sleep(50)
send("{enter}")
sleep(400)
EndIf
add2log("Close WoW")
FileClose($open)
WinClose($win_title)
Exit
ElseIf $gmWhisperAction = 2 Then
If $whisperSoundOn = 0 Then
If $gmWhisperSoundDur < 2 Then sleep(random(1000,1500))
Else
sleep(random(4000,5000))
EndIf
check_in_bg()
If $msgGmOnWhisper[0] Then
$a = random(0,$msgGmOnWhisperCtr,1)
send("r" & $msgGmOnWhisper[$a] & "")
add2log($msgGmOnWhisper[$a] & " - answered")
sleep(50)
send("{enter}")
sleep(400)
EndIf
add2log("Shutdown PC")
FileClose($open)
Shutdown(9)
Exit
EndIf
$blockWhisperOn = 1
sleep(1000)
ElseIf $blockWhisperOn = 0 Then
$coord_w = PixelSearch($whisper_l, $whisper_t, $whisper_r, $whisper_b, $color_w, 20, 1)
If Not @error Then
$blockWhisperTimer = TimerInit()
$blockWhisperOn = 1
If $wScreenshot then
tt("You got a Whisper - make screen")
add2log("Player Whisper - make screenshot")
screenshot()
Else
tt("You got a Whisper")
add2log("Player Whisper")
EndIf
If $whisperSoundOn Then SoundPlay ("alarm.wav",1)
If $playerWhisperAction = 1 Then
sleep(1000)
$a = random(0,$msgOnWhisperCtr,1)
send("r" & $msgOnWhisper[$a] & "")
add2log($msgOnWhisper[$a] & " - answered")
send("{enter}")
sleep(400)
ElseIf $playerWhisperAction = 2 Then
add2log("Close WoW")
FileClose($open)
WinClose($win_title)
Exit
EndIf
sleep(1000)
EndIf
EndIf
EndFunc
;######################
Func check_in_bg()
check_whisper()
while 1
;MouseMove($ball_x,$ball_y)
;MsgBox(64,"dd","x: "&$ball_x&" - Y: "&$ball_y)
If TimerDiff($blockSendTimer) > 3000 Then
$blockSendOn = 0
$blockSendTimer = 0
EndIf
$coord_check_bg = PixelSearch($ball_x-3, $ball_y-3, $ball_x+3, $ball_y+3, $color_blau, 20, 1) ;BG aktiv
If Not @error Then
If $blockSendOn = 0 Then
If $bgActiv = 0 Then
$bgActiv = 1
$bgCounter += 1
add2log("Joining BG - BG nr. " & $bgCounter)
EndIf
ExitLoop
EndIf
Else
$coord_check_bg = PixelSearch($ball_x-3, $ball_y-3, $ball_x+3, $ball_y+3, $color_grau, 20, 1) ;BG inaktiv
If Not @error Then
If $blockSendOn = 0 Then
If $bgActiv = 1 Then
$bgActiv = 0
add2log("Leaving BG")
EndIf
$avTunnelDone = 0
disableKeys()
ExitLoop
EndIf
Else
$coord_check_bg = PixelSearch($ball_x-3, $ball_y-3, $ball_x+3, $ball_y+3, $color_gelb, 20, 1) ;tot
If Not @error Then
If $blockSendOn = 0 Then
dead()
ExitLoop
EndIf
Else
tt("Ball not found - Loadscreen/ScoreFrame")
disableKeys()
$waiting = 220
$blockSendTimer = TimerInit()
$blockSendOn = 1
EndIf
EndIf
EndIf
WEnd
EndFunc
;######################
Func check_kugel_on()
while 1
WinActivate($win_title)
ControlSend ( $win_title, "", 0, "{enter}")
sleep(random(50,75))
ControlSend ( $win_title, "", 0, "/pirox on")
ControlSend ( $win_title, "", 0, "{enter}")
sleep(500)
$coord_check_bg = PixelSearch($ball_x-3, $ball_y-3, $ball_x+3, $ball_y+3, $color_blau, 20, 1) ;BG aktiv
If Not @error Then
ExitLoop
Else
$coord_check_bg = PixelSearch($ball_x-3, $ball_y-3, $ball_x+3, $ball_y+3, $color_grau, 20, 1) ;BG inaktiv
If Not @error Then
ExitLoop
Else
$coord_check_bg = PixelSearch($ball_x-3, $ball_y-3, $ball_x+3, $ball_y+3, $color_gelb, 20, 1) ;tot
If Not @error Then
ExitLoop
Else
tt("Ball NOT found - Ball Addon loaded ? Coords OK ? ")
MsgBox(64,$title,"Ball NOT found - Ball Addon loaded ? Coords OK ?")
ControlSend ( $win_title, "", 0, "{enter}")
sleep(random(50,75))
ControlSend ( $win_title, "", 0, "/pirox off")
ControlSend ( $win_title, "", 0, "{enter}")
ToolTip("")
create_gui()
EndIf
EndIf
EndIf
WEnd
EndFunc
;######################
func dead()
add2log("you are dead")
$coord_check_bg = PixelSearch($ball_x-3, $ball_y-3, $ball_x+3, $ball_y+3, $color_gelb, 20, 1) ;tot
If Not @error Then
tt("Du bist TOT - Geist freilassen")
disableKeys()
While 1
$a = random(0,5,1)
if $a = 0 Then send("{SPACE}")
sleep(random(1500,1800))
check_whisper()
$coord_check_bg = PixelSearch($ball_x-3, $ball_y-3, $ball_x+3, $ball_y+3, $color_blau, 20, 1) ;BG inaktiv
If Not @error Then
While 1
tt("Du bist TOT - warte auf Rezz - " & 35-$youAreDeadTimer & "s")
$youAreDeadTimer += 1
sleep(1000)
check_whisper()
If $youAreDeadTimer = 35 Then ExitLoop
WEnd
ExitLoop
EndIf
WEnd
EndIf
$youAreDeadTimer = 0
tt("you are alive")
add2log("you are alive")
If $bg = 0 and $bg_city <= 2 Then check_av_horde_tunnel()
If $bg = 0 and $bg_city >= 3 Then check_av_allianz_tunnel()
If $bg >= 2 and Not $avTunnelDone Then
for $i=0 to 8
sendbg("{w down}")
sleep(random(1200,1500))
Next
EndIf
sleep(100)
If $key_buff and $moveAfterPort = 0 Then
sendBG($key_buff)
sleep(random(1350,1500))
EndIf
If $key_cat and $moveAfterPort = 0 Then
sendBG($key_cat)
sleep(random(1350,1500))
EndIf
If $key_stealth and $moveAfterPort = 0 Then
sendBG($key_stealth)
sleep(random(1350,1500))
EndIf
EndFunc
;######################
Func sendBG($text)
check_in_bg()
If $bgActiv and $blockSendOn = 0 Then
send($text)
Else
disableKeys()
EndIf
EndFunc
;######################
func disableKeys() ;function to add a line to the log
Opt("SendKeyDownDelay", 5)
send("{s up}")
send("{w up}")
send("{q up}")
send("{e up}")
send("{a up}")
send("{d up}")
Opt("SendKeyDownDelay", random(70,90))
EndFunc
;############
; pirox.ini
;############
Func choose_lang()
If $lang = "eng" then
$npc[0][0] = "/target Kartra Murrblood" ;og
$npc[0][1] = "/target Taim Ragetotem" ;tb
$npc[0][2] = "/target Grizzle Halfmane" ;uc
$npc[0][3] = "/target Glordrum Steelbeard" ;if
$npc[0][4] = "/target Thelman Slatefist" ;sw
$npc[0][5] = "/target Brogun Stoneshield" ;darnassus
$npc[0][6] = "/target Wolfsister Maka" ;shattrath HORDE
$npc[0][7] = "/target Haelga Slatefist" ;shattrath ALLIANZ
;WS
$npc[1][0] = "/target Brakgul Deathbringer"
$npc[1][1] = "/target Kergul Bloodaxe"
$npc[1][2] = "/target Kurden Bloodclaw"
$npc[1][3] = "/target Lylandris"
$npc[1][4] = "/target Elfarran"
$npc[1][5] = "/target Aethalas"
$npc[1][6] = "/target Montok Redhands"
$npc[1][7] = "/target Lylandor" ;shattrath ALLIANZ
;AB
$npc[2][0] = "/target Deze Snowbane"
$npc[2][1] = "/target Martin Lindsey"
$npc[2][2] = "/target Sire Malory Wheeler"
$npc[2][3] = "/target Donal Osgood"
$npc[2][4] = "/target Lady Hoteshem"
$npc[2][5] = "/target Keras Wolfheart"
$npc[2][6] = "/target Keldor the Lost"
$npc[2][7] = "/target Adam Eternum" ;shattrath ALLIANZ
;Auge des Sturms
$npc[3][0] = "/target Andrissa Herzspeer"
$npc[3][1] = "/target Althallen Glanzklinge"
$npc[3][2] = "/target Lyrlia Blackshield"
$npc[3][3] = "/target Kandaar"
$npc[3][4] = "/target Jovil"
$npc[3][5] = "/target Enlae"
$npc[3][6] = "/target Yula the Fair"
$npc[3][7] = "/target Iravar" ;shattrath ALLIANZ
Else
;AV
$npc[0][0] = "/target Kartra Murrblut" ;og
$npc[0][1] = "/target Taim Rachtotem" ;tb
$npc[0][2] = "/target Grizzle Halbskalp" ;uc
$npc[0][3] = "/target Glordrum Stahlbart" ;if
$npc[0][4] = "/target Thelman Fausttadel" ;sw
$npc[0][5] = "/target Brogun Steinschild" ;darnassus
$npc[0][6] = "/target Wolfsschwester Maka" ;shattrath
$npc[0][7] = "/target Haelga Fausttadel" ;shattrath ALLIANZ
;WS
$npc[1][0] = "/target Brakgul Todesbringer"
$npc[1][1] = "/target Kergul Blutaxt"
$npc[1][2] = "/target Kurden Blutklaue"
$npc[1][3] = "/target Lylandris"
$npc[1][4] = "/target Elfarran"
$npc[1][5] = "/target Aethalas"
$npc[1][6] = "/target Montok Rothand"
$npc[1][7] = "/target Lylandor" ;shattrath ALLIANZ
;AB
$npc[2][0] = "/target Deze Schneefluch"
$npc[2][1] = "/target Martin Lindsey"
$npc[2][2] = "/target Sire Malory Wagner"
$npc[2][3] = "/target Donal Gutmark"
$npc[2][4] = "/target Lady Hoteshem"
$npc[2][5] = "/target Keras Wolfsherz"
$npc[2][6] = "/target Keldor der Verlorene"
$npc[2][7] = "/target Adam Eternum" ;shattrath ALLIANZ
;Auge des Sturms
$npc[3][0] = "/target Andrissa Herzspeer"
$npc[3][1] = "/target Althallen Glanzklinge"
$npc[3][2] = "/target Lyrlia Schwarzschild"
$npc[3][3] = "/target Kandaar"
$npc[3][4] = "/target Jovil"
$npc[3][5] = "/target Enlae"
$npc[3][6] = "/target Yula die Gerechte"
$npc[3][7] = "/target Iravar" ;shattrath ALLIANZ
EndIf
EndFunc
;#########
Func standard_colors()
GUICtrlSetData($color_grau, $S_color_grau)
GUICtrlSetData($color_blau, $S_color_blau)
GUICtrlSetData($color_gelb, $S_color_gelb)
GUICtrlSetData($color_gm_whisper, $S_color_gm_whisper)
GUICtrlSetData($color_w, $S_color_w)
GUICtrlSetData($color_npc, $S_color_npc)
GUICtrlSetData($color_npc_neutral, $S_color_npc_neutral)
EndFunc
;#########
Func all2standard()
standard_colors()
GUICtrlSetData($key_port,"")
GUICtrlSetData($key_cat,"")
GUICtrlSetData($key_stealth,"")
GUICtrlSetData($key_buff,"")
GUICtrlSetData($gmWhisperActionListReal,"b.Close WoW+Msg")
GUICtrlSetData($playerWhisperActionListReal,"b.Send Msg")
GUICtrlSetData($gmWhisperSoundDur,2)
GUICtrlSetState($whisperSound,1)
GUICtrlSetData($blockWhisperTime,80000)
GUICtrlSetState($modusRun,1)
GUICtrlSetState($randomTitle,4)
GUICtrlSetData($lang,"de")
GUICtrlSetState($tooltipBox,1)
GUICtrlSetState($wScreenshotBox,1)
GUICtrlSetData($whisper_l,40)
GUICtrlSetData($whisper_t,900)
GUICtrlSetData($whisper_r,200)
GUICtrlSetData($whisper_b,945)
GUICtrlSetData($ball_x,640)
GUICtrlSetData($ball_y,500)
GUICtrlSetData($radar_x,round($pos[2]*0.90,0))
GUICtrlSetData($radar_y,round($pos[3]*0.112,0))
GUICtrlSetData($msgOnWhisper[0],"Huhu :)")
GUICtrlSetData($msgOnWhisper[1],"")
GUICtrlSetData($msgOnWhisper[2],"")
GUICtrlSetData($msgOnWhisper[3],"")
GUICtrlSetData($msgOnWhisper[4],"")
GUICtrlSetData($msgGmOnWhisper[0],"muss off")
GUICtrlSetData($msgGmOnWhisper[1],"")
GUICtrlSetData($msgGmOnWhisper[2],"")
GUICtrlSetData($msgGmOnWhisper[3],"")
GUICtrlSetData($msgGmOnWhisper[4],"")
EndFunc
Func load_piroxini()
$key_port = IniRead('pirox.ini', 'Keys', 'key_port', '') ;Taste des AV abzeichens für Port (muss angelegt sein!)
$key_cat = IniRead('pirox.ini', 'Keys', 'key_cat', '') ;Taste um in Stealhmodus zu wechseln
$key_stealth = IniRead('pirox.ini', 'Keys', 'key_stealth', '') ;Taste um in Stealhmodus zu wechseln
$key_buff = IniRead('pirox.ini', 'Keys', 'key_buff', '') ;Taste um in Stealhmodus zu wechseln
$gmWhisperAction = IniRead('pirox.ini', 'Settings', 'gmWhisperAction', '1') ;0 = do nothing; 1 = close WoW ;2 = PC shutdown
$playerWhisperAction = IniRead('pirox.ini', 'Settings', 'playerWhisperAction', '1') ;0 = do nothing; 1 = send $w_text; 2 = close WoW
$gmWhisperSoundDur = IniRead('pirox.ini', 'Settings', 'gmWhisperSoundDur', '1') ;Wie oft der Sound abgespielt werden soll (Länge 2sek) - GM only (mehr als 4mal nicht zu empfehlen, der GM wartet ja nicht ewig)
$whisperSoundOn = IniRead('pirox.ini', 'Settings', 'whisperSoundOn', '1') ;0 = aus | 1 = an (wenn aktiviert, wird der Sound bei jedem Whisper ausgeöst)
$blockWhisperTime = IniRead('pirox.ini', 'Settings', 'blockWhisperTime', '80000')
$modusRunOn = IniRead('pirox.ini', 'Settings', 'modusRunOn', '1')
$lang = IniRead('pirox.ini', 'Settings', 'language', 'de')
$tooltip = IniRead('pirox.ini', 'Settings', 'tooltip', '1')
$wScreenshot = IniRead('pirox.ini', 'Settings', 'wScreenshot', '1')
$randomTitleOn = IniRead('pirox.ini', 'Settings', 'randomTitleOn', '0')
$whisper_l = IniRead('pirox.ini', 'Coords', 'whisper_l', '40')
$whisper_t = IniRead('pirox.ini', 'Coords', 'whisper_t', '900')
$whisper_r = IniRead('pirox.ini', 'Coords', 'whisper_r', '200')
$whisper_b = IniRead('pirox.ini', 'Coords', 'whisper_b', '945')
$ball_x = IniRead('pirox.ini', 'Coords', 'ball_x', '0')
$ball_y = IniRead('pirox.ini', 'Coords', 'ball_y', '0')
$radar_x = IniRead('pirox.ini', 'Coords', 'radar_x', '0')
$radar_y = IniRead('pirox.ini', 'Coords', 'radar_y', '0')
$color_blau = IniRead('pirox.ini', 'Colors', 'color_blau', $S_color_blau)
$color_gelb = IniRead('pirox.ini', 'Colors', 'color_gelb', $S_color_gelb)
$color_grau = IniRead('pirox.ini', 'Colors', 'color_grau', $S_color_grau)
$color_gm_whisper = IniRead('pirox.ini', 'Colors', 'color_gm_whisper', $S_color_gm_whisper)
$color_w = IniRead('pirox.ini', 'Colors', 'color_w', $S_color_w)
$color_npc = IniRead('pirox.ini', 'Colors', 'color_npc', $S_color_npc)
$color_npc_neutral = IniRead('pirox.ini', 'Colors', 'color_npc_neutral', $S_color_npc_neutral)
$msgOnWhisper[0] = IniRead('pirox.ini', 'Whisper', 'msgOnWhisper', 'Huhu :)')
$msgOnWhisper[1] = IniRead('pirox.ini', 'Whisper', 'msgOnWhisper1', '')
$msgOnWhisper[2] = IniRead('pirox.ini', 'Whisper', 'msgOnWhisper2', '')
$msgOnWhisper[3] = IniRead('pirox.ini', 'Whisper', 'msgOnWhisper3', '')
$msgOnWhisper[4] = IniRead('pirox.ini', 'Whisper', 'msgOnWhisper4', '')
$msgGmOnWhisper[0] = IniRead('pirox.ini', 'Whisper', 'msgGmOnWhisper', 'muss off')
$msgGmOnWhisper[1] = IniRead('pirox.ini', 'Whisper', 'msgGmOnWhisper1', '')
$msgGmOnWhisper[2] = IniRead('pirox.ini', 'Whisper', 'msgGmOnWhisper2', '')
$msgGmOnWhisper[3] = IniRead('pirox.ini', 'Whisper', 'msgGmOnWhisper3', '')
$msgGmOnWhisper[4] = IniRead('pirox.ini', 'Whisper', 'msgGmOnWhisper4', '')
For $msgOnWhisperCtr=0 to 5 Step 1
If $msgOnWhisper[$msgOnWhisperCtr] = "" Then ExitLoop
Next
$msgOnWhisperCtr += -1
For $msgGmOnWhisperCtr=0 to 5 Step 1
If $msgGmOnWhisper[$msgGmOnWhisperCtr] = "" Then ExitLoop
Next
$msgGmOnWhisperCtr += -1
EndFunc
;#################################
Func save_settings()
IniWrite('pirox.ini', 'Keys', 'key_port', GUICtrlRead($key_port))
IniWrite('pirox.ini', 'Keys', 'key_cat', GUICtrlRead($key_cat))
IniWrite('pirox.ini', 'Keys', 'key_stealth', GUICtrlRead($key_stealth))
IniWrite('pirox.ini', 'Keys', 'key_buff', GUICtrlRead($key_buff))
IniWrite('pirox.ini', 'Settings', 'gmWhisperAction', $gmWhisperAction)
IniWrite('pirox.ini', 'Settings', 'playerWhisperAction', $playerWhisperAction)
If GUICtrlRead($whisperSound) = 4 then $whisperSoundOn = 0
If GUICtrlRead($whisperSound) = 1 then $whisperSoundOn = 1
IniWrite('pirox.ini', 'Settings', 'whisperSoundOn', $whisperSoundOn)
IniWrite('pirox.ini', 'Settings', 'gmWhisperSoundDur', GUICtrlRead($gmWhisperSoundDur))
IniWrite('pirox.ini', 'Settings', 'blockWhisperTime', GUICtrlRead($blockWhisperTime))
If GUICtrlRead($modusRun) = 4 then $modusRunOn = 0
If GUICtrlRead($modusRun) = 1 then $modusRunOn = 1
IniWrite('pirox.ini', 'Settings', 'modusRunOn', $modusRunOn)
IniWrite('pirox.ini', 'Settings', 'language', GUICtrlRead($langCombo))
If GUICtrlRead($tooltipBox) = 4 then $tooltip = 0
If GUICtrlRead($tooltipBox) = 1 then $tooltip = 1
IniWrite('pirox.ini', 'Settings', 'tooltip', $tooltip)
If GUICtrlRead($wScreenshotBox) = 4 then $wScreenshot = 0
If GUICtrlRead($wScreenshotBox) = 1 then $wScreenshot = 1
IniWrite('pirox.ini', 'Settings', 'wScreenshot', $wScreenshot)
If GUICtrlRead($randomTitle) = 4 then $randomTitleOn = 0
If GUICtrlRead($randomTitle) = 1 then $randomTitleOn = 1
IniWrite('pirox.ini', 'Settings', 'randomTitleOn', $randomTitleOn)
IniWrite('pirox.ini', 'Coords', 'whisper_l', GUICtrlRead($whisper_l))
IniWrite('pirox.ini', 'Coords', 'whisper_t', GUICtrlRead($whisper_t))
IniWrite('pirox.ini', 'Coords', 'whisper_r', GUICtrlRead($whisper_r))
IniWrite('pirox.ini', 'Coords', 'whisper_b', GUICtrlRead($whisper_b))
IniWrite('pirox.ini', 'Coords', 'ball_x', GUICtrlRead($ball_x))
IniWrite('pirox.ini', 'Coords', 'ball_y', GUICtrlRead($ball_y))
IniWrite('pirox.ini', 'Coords', 'radar_x', GUICtrlRead($radar_x))
IniWrite('pirox.ini', 'Coords', 'radar_y', GUICtrlRead($radar_y))
IniWrite('pirox.ini', 'Whisper', 'msgOnWhisper', GUICtrlRead($msgOnWhisper[0]))
IniWrite('pirox.ini', 'Whisper', 'msgOnWhisper1', GUICtrlRead($msgOnWhisper[1]))
IniWrite('pirox.ini', 'Whisper', 'msgOnWhisper2', GUICtrlRead($msgOnWhisper[2]))
IniWrite('pirox.ini', 'Whisper', 'msgOnWhisper3', GUICtrlRead($msgOnWhisper[3]))
IniWrite('pirox.ini', 'Whisper', 'msgOnWhisper4', GUICtrlRead($msgOnWhisper[4]))
IniWrite('pirox.ini', 'Whisper', 'msgGmOnWhisper', GUICtrlRead($msgGmOnWhisper[0]))
IniWrite('pirox.ini', 'Whisper', 'msgGmOnWhisper1', GUICtrlRead($msgGmOnWhisper[1]))
IniWrite('pirox.ini', 'Whisper', 'msgGmOnWhisper2', GUICtrlRead($msgGmOnWhisper[2]))
IniWrite('pirox.ini', 'Whisper', 'msgGmOnWhisper3', GUICtrlRead($msgGmOnWhisper[3]))
IniWrite('pirox.ini', 'Whisper', 'msgGmOnWhisper4', GUICtrlRead($msgGmOnWhisper[4]))
IniWrite('pirox.ini', 'Colors', 'color_blau', GUICtrlRead($color_blau))
IniWrite('pirox.ini', 'Colors', 'color_gelb', GUICtrlRead($color_gelb))
IniWrite('pirox.ini', 'Colors', 'color_grau', GUICtrlRead($color_grau))
IniWrite('pirox.ini', 'Colors', 'color_gm_whisper', GUICtrlRead($color_gm_whisper))
IniWrite('pirox.ini', 'Colors', 'color_w', GUICtrlRead($color_w))
IniWrite('pirox.ini', 'Colors', 'color_npc', GUICtrlRead($color_npc))
IniWrite('pirox.ini', 'Colors', 'color_npc_neutral', GUICtrlRead($color_npc_neutral))
If NOT $msg = $button_save_settings then
tt("Einstellungen in pirox.ini gespeichert")
load_piroxini() ;Vars laden
EndIf
EndFunc
Func testvars()
MsgBox(64,"vars1",$key_port&"-"&$key_cat&"-"&$key_stealth&"-"&$key_buff&"-"&$gmWhisperAction&"-"&$playerWhisperAction&"-"& @CRLF _
& $gmWhisperSoundDur&"-"&$whisperSoundOn&"-"&$blockWhisperTime&"-"&$modusRunOn&"-"&$lang&"-"&$tooltip&"-"&$wScreenshot)
MsgBox(64,"vars2",$whisper_l&"-"&$whisper_t&"-"&$whisper_r&"-"&$whisper_b&"-"&$ball_x&"-"&$ball_y&"-"&$radar_x&"-"&$radar_y)
If $radar_x = 0 then $radar_x = round($pos[2]*0.90,0)
If $radar_y = 0 then $radar_y = round($pos[3]*0.112,0)
MsgBox(64,"vars3",$color_blau&"-"&$color_gelb&"-"&$color_grau&"-"&$color_gm_whisper&"-"&$color_w&"-"&$color_npc&"-"&$color_npc_neutral)
MsgBox(64,"vars4",$msgOnWhisper[0]&"-"&$msgOnWhisper[1]&"-"&$msgOnWhisper[2]&"-"&$msgOnWhisper[3]&"-"&$msgOnWhisper[4]&"-"&$msgGmOnWhisper[0]&"-"&$msgGmOnWhisper[1]&"-"&$msgGmOnWhisper[2]&"-"&$msgGmOnWhisper[3]&"-"&$msgGmOnWhisper[4])
EndFunc
;######################
func add2log($txt) ;function to add a line to the log
If $open = 1 then FileWrite($open, '[' & @HOUR & ':' & @MIN & '] ' & $txt & @CRLF)
EndFunc
;######################
Func tt($text)
If $tooltip = 1 then ToolTip($title & " - " &$text ,20,3)
EndFunc
;#####################
Func screenshot()
global $time = @MDAY & "-"& @MON &"_"& @HOUR &"-"& @MIN
$screenshot = 0
while 1
If NOT FileExists("Screenshots/screen-" & $time &".jpg") then
DllCall("PX.dll", "int", "CaptureScreen", "str", "Screenshots/screen-"& $time &".jpg", "int", 85)
Exitloop
Else
If NOT FileExists("Screenshots/screen-"& $time &"_"& $screenshot &".jpg") then
DllCall("PX.dll", "int", "CaptureScreen", "str", "Screenshots/screen-"& $time &"_"& $screenshot &".jpg", "int", 85)
ExitLoop
Else
$screenshot += 1
EndIf
EndIf
WEnd
EndFunc
;#################################
Func request_pause()
disableKeys()
tt("paused")
add2log("Bot paused")
ControlSend ( $win_title, "", 0, "{enter}")
sleep(random(50,75))
ControlSend ( $win_title, "", 0, "/pirox off")
ControlSend ( $win_title, "", 0, "{enter}")
sleep(500)
ToolTip("")
create_gui()
EndFunc
;#################################
Func request_end()
add2log("Bot quit")
If $open = 1 then FileClose($open)
Exit
EndFunc
|
|
|
|
|
04/17/2013, 04:44
|
#35
|
elite*gold: 5
Join Date: May 2012
Posts: 460
Received Thanks: 44
|
Ich habe mir den Pirox AntiAFK nochmal angesehen eine kleinigkeit verschönert und mit dem PTR getestet und er funktioniert noch wie vorher, ich denke wenn ich den Quellcode in AU3 von dem Bot selber nochmal in die Hand bekomme werde ich diesen auch nochmal Modifizieren und dann den Bot weiter ausbauen, da Pirox eines der Besten Tools war das es gab, hatte damals Level 2 User und Unlimited -.- Will ich gerne wiederhaben aber naja 
|
|
|
|
|
04/18/2013, 18:01
|
#36
|
elite*gold: 0
Join Date: May 2009
Posts: 2,256
Received Thanks: 2,348
|
Quote:
Originally Posted by Shøxxø
Ich habe mir den Pirox AntiAFK nochmal angesehen eine kleinigkeit verschönert und mit dem PTR getestet und er funktioniert noch wie vorher, ich denke wenn ich den Quellcode in AU3 von dem Bot selber nochmal in die Hand bekomme werde ich diesen auch nochmal Modifizieren und dann den Bot weiter ausbauen, da Pirox eines der Besten Tools war das es gab, hatte damals Level 2 User und Unlimited -.- Will ich gerne wiederhaben aber naja |
Offests updaten ist kein großer Aufwand, das würde glaub ich so gut wie jeder hier hinbekommen.
greets,
Endecs
|
|
|
|
|
08/20/2017, 15:30
|
#37
|
elite*gold: 0
Join Date: Dec 2012
Posts: 6
Received Thanks: 0
|
Mit welchen Programm öffnet man den Level Bot bzw. wie verwendet man ihn?
|
|
|
|
|
08/24/2017, 00:47
|
#38
|
elite*gold: 0
Join Date: Jan 2008
Posts: 221
Received Thanks: 45
|
Cronos scheint zwar gebannt zu sein aber immer noch ein interesanter Thread hier. Vielleicht kann ein Mod ja PixelMagic hinzufügen. Link: 
Ist ein Rotation-Bot in der Anfangsphase. Mit ein paar Tweaks läuft es aber ganz gut
|
|
|
|
|
08/25/2017, 09:46
|
#39
|
elite*gold: 55
Join Date: Oct 2009
Posts: 5,471
Received Thanks: 1,479
|
Quote:
Originally Posted by PataxX
Cronos scheint zwar gebannt zu sein aber immer noch ein interesanter Thread hier. Vielleicht kann ein Mod ja PixelMagic hinzufügen. Link:
Ist ein Rotation-Bot in der Anfangsphase. Mit ein paar Tweaks läuft es aber ganz gut |
#added
dankeschön 
|
|
|
|
 |
|
Similar Threads
|
Alte Zeiten wieder aufleben lassen (Oder: Alte Spiele im neuen Gewand)
04/09/2011 - Oldschool - 0 Replies
Hurrican + Takatis
Hach ja, wer kennt sie nicht, die guten alten Shoot 'em' Ups auf dem Amiga? OK, hier bei elitepvpers wohl so einige... Ich könnte jetzt Millionen Seiten mit Roms und EMUs aufzählen, mit denen ihr die alten Zeiten wieder aufleben lassen könntet... Das sähe in etwa so aus:
http://www.historycorner.de/Screenshots/Commodore /turrican2.gif
oh yeah... Aber stattdessen (und nicht nur weil das verboten ist) zeige ich euch heute zwei komplett neue Spiele. Gemeint sind...
|
[Hamachi,DynDns Server Sammelthread] Bis der alte wieder da ist !
03/26/2010 - Metin2 Private Server - 24 Replies
Hier könnt ihr eure Server vorstellen.
|
[Stolen]Sourcecodes
03/10/2010 - CrossFire - 4 Replies
hi habe ein paar Sourcecodes für die coder vllt hilft euch das ja.
Credits gehen an:dodo4876(****.net)
{
public:
float fMoveMentWalkRate; //0000
float fMovementDuckRate; //0004
float fMovementSideRate; //0008
float fMoveMentAcceleration; //000C
float fMoveMentFriction; //0010
|
Suche SourceCodes
10/06/2009 - Flyff Private Server - 4 Replies
Hi
ich suche ein paar source von verschiedenen Flyff hacks. Habe auch schon via google gesucht, aber noch nichts gefunden. Soweit ich weiß kann mann aus diesen SourceCodes einen Neuen UNDETECTEN hack basteln oder?
Alle hilfreichen posts werden mit einem dicken DaumenHoch und einem Thanks bedankt ;)
|
All times are GMT +1. The time now is 02:45.
|
|
![[Sammelthread] Alte Bot Sourcecodes](https://www.elitepvpers.com/forum/iconimages/wow-exploits-hacks-tools-macros/sammelthread-alte-bot-sourcecodes_ltr.gif){kind=small}
