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.
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
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)
$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)
$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)
;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
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
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
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 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 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
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
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
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 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
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 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
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
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.
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...
[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 ;)
![[Sammelthread] Alte Bot Sourcecodes](https://www.elitepvpers.com/forum/iconimages/wow-exploits-hacks-tools-macros/sammelthread-alte-bot-sourcecodes_ltr.gif){kind=small}
