Register for your free account! | Forgot your password?

Go Back   elitepvpers > World of Warcraft > WoW Exploits, Hacks, Tools & Macros
You last visited: Today at 03:54

  • Please register to post and access all features, it's quick, easy and FREE!

 

[Sammelthread] Alte Bot Sourcecodes

Reply
 
Old   #31
 
elite*gold: 0
Join Date: May 2005
Posts: 414
Received Thanks: 140
Quote:
Originally Posted by Nelunia View Post
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.



cronos​ is offline  
Old   #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.


Naice is offline  
Old   #33
 
elite*gold: 0
Join Date: Aug 2010
Posts: 3
Received Thanks: 0
ja hornorbuddy wäre nett ^^
wutzeli is offline  
Old   #34
 
elite*gold: 0
Join Date: Jun 2008
Posts: 517
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 scriptPause/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_titlethen $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($abcrandom(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($title2315350)
GuiSetIcon("http://www.*******.com/forums/images/px.ico"0)


TAB
GuiCtrlCreateTab
(-11338400)


;
### TAB 1 ####
GuiCtrlCreateTabItem("Main")


GUICtrlCreateGroup("Battleground"83211473)
GUICtrlSetFont (-1,84000$font)
$bgList GuiCtrlCreateList(""104911080)
GuiCtrlSetData(-1"Alteractal|Warsong|Arathibecken|Auge des Sturms""")
GUICtrlSetFont (-1,84000$font)


GUICtrlCreateGroup("City:"12832101109)
GUICtrlSetFont (-1,84000$font)
$cityList GuiCtrlCreateList(""1304997105)
GuiCtrlSetData(-1"h.Orgrimmar|h.Thunderbluff|h.Undercity|n.Shattrath|a.Stormwind|a.Ironforge|a.Darnassus""")
GUICtrlSetFont (-1,84000$font)


GUICtrlCreateGroup("Fraction"811211449)
GUICtrlSetFont (-1,84000$font)
$fraktionList GuiCtrlCreateList(""1012911040)
GuiCtrlSetData(-1"Horde|Alliance""")
GUICtrlSetFont (-1,84000$font)
;
GUICtrlSetBkColor (-10xEF00EF)

$label_bg GuiCtrlCreateLabel("Mode1:"& @CRLF &"Choose battleground, city and fraction!"13014318022)
GUICtrlSetFont (-1,78000"Arial")
GUICtrlSetColor ( -1,0xFF0000)


;
$langCombo GUICtrlCreateCombo (""130,145,100,20) ; create first item
;GUICtrlSetData(-1,"Horde|Alliance","Fraktion")
;
GUICtrlSetFont (-1,84000$font)

GUICtrlCreateGroup("Info (Mode1 only!)"8170165121)
GUICtrlSetFont (-1,84000$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"12187160160)
GUICtrlSetFont (-1,74000"Arial")
;
GUICtrlSetColor ( -1,0x3333)



GUICtrlCreateGroup("Mode1 (pro)"18017012555)
GUICtrlSetFont (-1,84000$font)
$label_modus GuiCtrlCreateLabel("- Autosignup BG" & @CRLF _
                
"- Check Whispers" & @CRLF _
                
"- WoW is set on top!"18618510050)
GUICtrlSetFont (-1,74000"Arial")
;
GUICtrlSetColor ( -1,0x666666)

GUICtrlCreateGroup("Mode2 (light)"18023012562)
GUICtrlSetFont (-1,84000$font)
$label_modus GuiCtrlCreateLabel("- Only antiAFK" & @CRLF _
                
"- WoW can be minimized!" & @CRLF _
                
"  You can play another" & @CRLF _
                
"  game at the same time :)"18624212050)
GUICtrlSetFont (-1,74000"Arial")
;
GUICtrlSetColor ( -1,0x666666)


GUICtrlCreateGroup("Keys"829524746)
GUICtrlSetFont (-1,84000$font)
$label_keys GuiCtrlCreateLabel(" [PAUSE]  -  to pause bot" & @CRLF _
                
" [ALT]+[PAUSE]  -  to exit bot"1230926040)
GUICtrlSetFont (-1,74000"Arial")
;
GUICtrlSetColor ( -1,0x666666)


If 
FileExists("Images/pirox.jpg"then $pirox GuiCtrlCreatePic("Images/pirox.jpg",260,297,50,50)



$button_modus1 GuiCtrlCreateButton("Mode 1"234407730)
$button_modus2 GuiCtrlCreateButton("Mode 2"234707730)
$button_save_settings GuiCtrlCreateButton("Save settings"2341007720)
$button_help GuiCtrlCreateButton("Help"2341207720)





;
### TAB 2 ####
GuiCtrlCreateTabItem("Options")


GUICtrlCreateGroup("Keys:"83212090)
GUICtrlSetFont (-1,84000$font)

GuiCtrlCreateLabel("AV trinket Port:"18499015)
GUICtrlSetFont (-1,84000$font)
$key_port GuiCtrlCreateInput($key_port106461517)
GUICtrlSetFont (-1,84000$font)

GuiCtrlCreateLabel("Catform: "53678015)
GUICtrlSetFont (-1,84000$font)
$key_cat GuiCtrlCreateInput($key_cat106641517)
GUICtrlSetFont (-1,84000$font)

GuiCtrlCreateLabel("Stealth: "59854815)
GUICtrlSetFont (-1,84000$font)
$key_stealth GuiCtrlCreateInput($key_stealth106821517)
GUICtrlSetFont (-1,84000$font)

GuiCtrlCreateLabel("Buff/Erdschild: "231028015)
GUICtrlSetFont (-1,84000$font)
$key_buff GuiCtrlCreateInput($key_buff1061001517)
GUICtrlSetFont (-1,84000$font)



GUICtrlCreateGroup("Other:"1353217290)
GUICtrlSetFont (-1,84000$font)

$tooltipBox GUICtrlCreateCheckbox("Enable Tooltip"1414911020)
GUICtrlSetFont (-1,84000$font)
If 
$tooltip 0 then GuiCtrlSetState(-14)
If 
$tooltip 1 then GuiCtrlSetState(-11)

$wScreenshotBox GUICtrlCreateCheckbox("Take Screen on Whisper"1416615520)
GUICtrlSetFont (-1,84000$font)
;
GuiCtrlSetState(-1$wScreenshot)
If 
$wScreenshot0 then GuiCtrlSetState(-14)
If 
$wScreenshot1 then GuiCtrlSetState(-11)


GuiCtrlCreateLabel("In-game language:"1419114715)
GUICtrlSetFont (-1,84000$font)
$langCombo GUICtrlCreateCombo (""252,88,50,20) ; create first item
GUICtrlSetData
(-1,"eng|de",$lang)
GUICtrlSetFont (-1,84000$font)



GUICtrlCreateGroup("Farben (no changes needed):"8130230170)
GUICtrlSetFont (-1,84000$font)

GuiCtrlCreateLabel("Ball - grey:"181459015)
GUICtrlSetFont (-1,84000$font)
$color_grau GuiCtrlCreateInput($color_grau1061456517)
GUICtrlSetFont (-1,84000$font)
$labelColor_grau GuiCtrlCreateLabel(""1751461515)

GuiCtrlCreateLabel("Ball - blue:"181629015)
GUICtrlSetFont (-1,84000$font)
$color_blau GuiCtrlCreateInput($color_blau1061626517)
GUICtrlSetFont (-1,84000$font)
$labelColor_blau GuiCtrlCreateLabel(""1751631515)

GuiCtrlCreateLabel("Ball - yellow:"181799015)
GUICtrlSetFont (-1,84000$font)
$color_gelb GuiCtrlCreateInput($color_gelb1061796517)
GUICtrlSetFont (-1,84000$font)
$labelColor_gelb GuiCtrlCreateLabel(""1751801515)

GuiCtrlCreateLabel("Ball - lila:"181969015)
GUICtrlSetFont (-1,84000$font)
$color_gm_whisper GuiCtrlCreateInput($color_gm_whisper1061966517)
GUICtrlSetFont (-1,84000$font)
$labelColor_gm_whisper GuiCtrlCreateLabel(""1751971515)

GuiCtrlCreateLabel("Whisper:"182139015)
GUICtrlSetFont (-1,84000$font)
$color_w GuiCtrlCreateInput($color_w1062136517)
GUICtrlSetFont (-1,84000$font)
$labelColor_w GuiCtrlCreateLabel(""1752141515)

GuiCtrlCreateLabel("NPC - green:"182309015)
GUICtrlSetFont (-1,84000$font)
$color_npc GuiCtrlCreateInput($color_npc1062306517)
GUICtrlSetFont (-1,84000$font)
$labelColor_npc GuiCtrlCreateLabel(""1752311515)

GuiCtrlCreateLabel("NPC - yellow:"182479015)
GUICtrlSetFont (-1,84000$font)
$color_npc_neutral GuiCtrlCreateInput($color_npc_neutral1062476517)
GUICtrlSetFont (-1,84000$font)
$labelColor_npc_neutral GuiCtrlCreateLabel(""1752481515)

$button_standard_colors GuiCtrlCreateButton("Standard colors"5327010018)
$button_load_standard GuiCtrlCreateButton("All to standard"11031510018)

$button_set_ball_grau GuiCtrlCreateButton("Set"1961463516)
$button_set_ball_blau GuiCtrlCreateButton("Set"1961633516)
$button_set_ball_gelb GuiCtrlCreateButton("Set"1961803516)
$button_set_ball_lila GuiCtrlCreateButton("Set"1961973516)

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:"832300200)
GUICtrlSetFont (-1,84000$font)

GuiCtrlCreateLabel("Action on player whisper:"154915020)
GUICtrlSetFont (-1,84000$font)
$playerWhisperActionListReal GuiCtrlCreateList(""136414260)
GuiCtrlSetData(-1"a.Nothing|b.Send Msg|c.Close WoW"$playerWhisperActionList)
GUICtrlSetFont (-1,84000$font)

GuiCtrlCreateLabel("Action on GM whisper:"1684913020)
GUICtrlSetFont (-1,84000$font)
$gmWhisperActionListReal GuiCtrlCreateList(""1656413560)
GuiCtrlSetData(-1"a.Nothing|b.Close WoW+Msg|c.Shutdown PC"$gmWhisperActionList)
GUICtrlSetFont (-1,84000$font)


$whisperSound GuiCtrlCreateCheckbox(" Play sound on player whisper"1811126020)
GUICtrlSetFont (-1,84000$font)
If 
$whisperSoundOn 0 then GuiCtrlSetState(-14)
If 
$whisperSoundOn 1 then GuiCtrlSetState(-11)


$label_1 GuiCtrlCreateLabel("Times to play sound on GM whisper"4013320020)
GUICtrlSetFont (-1,84000$font)
$gmWhisperSoundDur GuiCtrlCreateInput($gmWhisperSoundDur181312017)
GUICtrlSetFont (-1,84000$font)

$label_2 GuiCtrlCreateLabel("Time to block incoming whispers after a whisper"9515020040)
GUICtrlSetFont (-1,84000$font)
$blockWhisperTime GuiCtrlCreateInput($blockWhisperTime181555317)
GUICtrlSetFont (-1,84000$font)
$label_2 GuiCtrlCreateLabel("ms"721551815)
GUICtrlSetFont (-1,84000$font)


$modusRun GuiCtrlCreateCheckbox(" Run around in BG"1819026020)
GUICtrlSetFont (-1,84000$font)
If 
$modusRunOn 0 then GuiCtrlSetState(-14)
If 
$modusRunOn 1 then GuiCtrlSetState(-11)

$randomTitle GuiCtrlCreateCheckbox(" Random window title"1820726020)
GUICtrlSetFont (-1,84000$font)
If 
$randomTitleOn 0 then GuiCtrlSetState(-14)
If 
$randomTitleOn 1 then GuiCtrlSetState(-11)




;
### TAB 4 ####
GuiCtrlCreateTabItem("MSGs")



GUICtrlCreateGroup("Msg on player Whisper:"832300110) ;229,2
GUICtrlSetFont 
(-1,84000$font)
$msgOnWhisper[0] = GuiCtrlCreateInput($msgOnWhisper[0],124929217)
GUICtrlSetFont (-1,84000$font)
$msgOnWhisper[1] = GuiCtrlCreateInput($msgOnWhisper[1],126729217)
GUICtrlSetFont (-1,84000$font)
$msgOnWhisper[2] = GuiCtrlCreateInput($msgOnWhisper[2],128529217)
GUICtrlSetFont (-1,84000$font)
$msgOnWhisper[3] = GuiCtrlCreateInput($msgOnWhisper[3],1210329217)
GUICtrlSetFont (-1,84000$font)
$msgOnWhisper[4] = GuiCtrlCreateInput($msgOnWhisper[4],1212129217)
GUICtrlSetFont (-1,84000$font)

GUICtrlCreateGroup("Msg on GM Whisper:"8147300111) ;229,2
GUICtrlSetFont 
(-1,84000$font)
$msgGmOnWhisper[0] = GuiCtrlCreateInput($msgGmOnWhisper[0],1216529217)
GUICtrlSetFont (-1,84000$font)
$msgGmOnWhisper[1] = GuiCtrlCreateInput($msgGmOnWhisper[1],1218329217)
GUICtrlSetFont (-1,84000$font)
$msgGmOnWhisper[2] = GuiCtrlCreateInput($msgGmOnWhisper[2],1220129217)
GUICtrlSetFont (-1,84000$font)
$msgGmOnWhisper[3] = GuiCtrlCreateInput($msgGmOnWhisper[3],1221929217)
GUICtrlSetFont (-1,84000$font)
$msgGmOnWhisper[4] = GuiCtrlCreateInput($msgGmOnWhisper[4],1223729217)
GUICtrlSetFont (-1,84000$font)



;
### TAB 4 - COORDS ####
GuiCtrlCreateTabItem("Coords")

;
BALL
If WinExists($win_titlethen
    
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"83214397)
GUICtrlSetFont (-1,84000$font)
GuiCtrlCreateLabel("X:"20511520)
GUICtrlSetFont (-1,84000$font)
$ball_x GuiCtrlCreateInput($ball_x,35494017)
GUICtrlSetFont (-1,84000$font)

GuiCtrlCreateLabel("Y:"20691520)
GUICtrlSetFont (-1,84000$font)
$ball_y GuiCtrlCreateInput($ball_y,35674017)
GUICtrlSetFont (-1,84000$font)

$button_set_coords_ball GuiCtrlCreateButton("Set coords"14888517)
$button_show_coords_ball GuiCtrlCreateButton("Show coords"141068517)

$pic_ball GuiCtrlCreateButton("big"101884519)
If 
FileExists("Images/kugel.jpg"then GuiCtrlCreatePic("Images/kugel.jpg",95,44,50,43)

;
RADAR

If WinExists($win_titlethen
    
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"1633214597)
GUICtrlSetFont (-1,84000$font)
GuiCtrlCreateLabel("X:"175511520)
GUICtrlSetFont (-1,84000$font)
$radar_x GuiCtrlCreateInput($radar_x,191494017)
GUICtrlSetFont (-1,84000$font)

GuiCtrlCreateLabel("Y:"175691520)
GUICtrlSetFont (-1,84000$font)
$radar_y GuiCtrlCreateInput($radar_y,191674017)
GUICtrlSetFont (-1,84000$font)

$button_set_coords_radar GuiCtrlCreateButton("Set coords"169888517)
$button_show_coords_radar GuiCtrlCreateButton("Show coords"1691068517)

$pic_radar GuiCtrlCreateButton("big"256884519)
If 
FileExists("Images/radar.jpg"then GuiCtrlCreatePic("Images/radar.jpg",251,44,50,43)

;
CHAT
GUICtrlCreateGroup
("Chat"8140300110)
GUICtrlSetFont (-1,84000$font)
GuiCtrlCreateLabel("1. point:"2515410020)
GUICtrlSetFont (-1,84000$font)
GuiCtrlCreateLabel("X:"191721520)
GUICtrlSetFont (-1,84000$font)
$whisper_l GuiCtrlCreateInput($whisper_l,341704017)
GUICtrlSetFont (-1,84000$font)

GuiCtrlCreateLabel("Y:"191901520)
GUICtrlSetFont (-1,84000$font)
$whisper_t GuiCtrlCreateInput($whisper_t,341884017)
GUICtrlSetFont (-1,84000$font)

GuiCtrlCreateLabel("2. point:"9615412020)
GUICtrlSetFont (-1,84000$font)
GuiCtrlCreateLabel("X:"951721520)
GUICtrlSetFont (-1,84000$font)
$whisper_r GuiCtrlCreateInput($whisper_r,1101704017)
GUICtrlSetFont (-1,84000$font)

GuiCtrlCreateLabel("Y:"951901520)
GUICtrlSetFont (-1,84000$font)
$whisper_b GuiCtrlCreateInput($whisper_b,1101884017)
GUICtrlSetFont (-1,84000$font)

$button_set_coords_chat GuiCtrlCreateButton("Set coords"422119517)
$button_show_coords_chat GuiCtrlCreateButton("Show coords"422299517)

$pic_chat GuiCtrlCreateButton("big"2072274519)
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 >=AND $fraktion >=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_grauGUICtrlRead($color_grau))
            
GUICtrlSetBkColor ($labelColor_blauGUICtrlRead($color_blau))
            
GUICtrlSetBkColor ($labelColor_gelbGUICtrlRead($color_gelb))
            
GUICtrlSetBkColor ($labelColor_gm_whisperGUICtrlRead($color_gm_whisper))
            
GUICtrlSetBkColor ($labelColor_wGUICtrlRead($color_w))
            
GUICtrlSetBkColor ($labelColor_npcGUICtrlRead($color_npc))
            
GUICtrlSetBkColor ($labelColor_npc_neutralGUICtrlRead($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 >=AND $bg_city>=AND $fraktion>=0 then
                save_settings
()
                If 
WinActivate($win_titlethen
                    
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_titlethen
                
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_blauPixelGetColor(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_grauPixelGetColor(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_gelbPixelGetColor(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_wPixelGetColor(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"326211$posPic$posGUI[1]+20,$WS_POPUP)
            
GUICtrlCreatePic("Images/radar.jpg",0,00,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"217240$posPic$posGUI[1]+20,$WS_POPUP)
            
GUICtrlCreatePic("Images/kugel.jpg",0,00,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"627150$posPic$posGUI[1]+$posGUI[3],$WS_POPUP)
            
GUICtrlCreatePic("Images/chat.jpg",0,00,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),2then
        $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),2then
        $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),2then
        $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_titlethen $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 ) = and PixelGetColor$radar_x+1$radar_y+) = 0Then
            
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/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 and $fraktion and Not $avTunnelDone Then check_av_horde_tunnel()
            If 
$bg and $fraktion and Not $avTunnelDone Then check_av_allianz_tunnel()
            If 
$bg >= 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""0StringMid($key$a1))
            
sleep(random(500,1000))
            
ControlSend $win_title""0StringMid($key$a1))
            
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_npc201)

    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_neutral201)
        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$a1))
    
sleep(random(500,1000))
    
sendBG(StringMid($key$a1))
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 ) = and PixelGetColor$radar_x+1$radar_y+) = 0 Then
        tt
("AV tunnel - running")
        
$begin TimerInit()
        
SendBG("{w down}")
        
sleep(1300)
        
sendBG("{e down}")
        while 
PixelGetColor$radar_x$radar_y) = and PixelGetColor$radar_x+1$radar_y+) = 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 ) = and PixelGetColor$radar_x+1$radar_y+) = 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 ) = and PixelGetColor$radar_x+1$radar_y+) = 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_whisper201)
    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[0Then
                $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[0Then
                $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_w201)
        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_blau201)    ;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_grau201)    ;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_gelb201)    ;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_blau201)    ;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_grau201)    ;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_gelb201)    ;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_gelb201)    ;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_blau201)    ;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 and $bg_city <= 2 Then check_av_horde_tunnel()
    If 
$bg and $bg_city >= 3 Then check_av_allianz_tunnel()
    If 
$bg >= 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')            ;= do nothingclose WoW ;PC shutdown
    $playerWhisperAction 
IniRead('pirox.ini''Settings''playerWhisperAction''1')    ;= do nothingsend $w_textclose 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 empfehlender GM wartet ja nicht ewig)
    
$whisperSoundOn IniRead('pirox.ini''Settings''whisperSoundOn''1')            ;aus an (wenn aktiviertwird 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 


Tomelyr is offline  
Old   #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
Shøxxø is offline  
Old   #36
 
elite*gold: 0
Join Date: May 2009
Posts: 2,227
Received Thanks: 2,291
Quote:
Originally Posted by Shøxxø View Post
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
Endecs is offline  
Old   #37
 
elite*gold: 0
Join Date: Dec 2012
Posts: 5
Received Thanks: 0
Mit welchen Programm öffnet man den Level Bot bzw. wie verwendet man ihn?
Superstar1234 is offline  
Old   #38
 
elite*gold: 0
Join Date: Jan 2008
Posts: 200
Received Thanks: 37
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
PataxX is offline  
Old   #39
Frosty the Snowman

 
elite*gold: 55
Join Date: Oct 2009
Posts: 5,349
Received Thanks: 1,447
Quote:
Originally Posted by PataxX View Post
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


Frosttall is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
Alte Zeiten wieder aufleben lassen (Oder: Alte Spiele im neuen Gewand)
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...
0 Replies - Oldschool
[Hamachi,DynDns Server Sammelthread] Bis der alte wieder da ist !
Hier könnt ihr eure Server vorstellen.
24 Replies - Metin2 PServer - Discussions / Questions
[Stolen]Sourcecodes
hi habe ein paar Sourcecodes für die coder vllt hilft euch das ja. Credits gehen an:dodo4876(****.net) { public: float fMoveMentWalkRate;...
4 Replies - CrossFire
Suche SourceCodes
Hi ich suche ein paar source von verschiedenen Flyff hacks. Habe auch schon via google gesucht, aber noch nichts gefunden. Soweit ich weiß kann...
4 Replies - Flyff PServer - Discussions / Questions



All times are GMT +1. The time now is 03:54.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.