help? key response

[bogQ]

btw how do you like the game

the problem is that i dont like this game

i play "cabal" and "sro" and this game 4 me have low graphic, not good organized quests, simular mobs, camera is killing me all the way, msgbox have 1-2 lines on it and if i redirect it i cant rasize to waht i need so its takeing my 1/3 of monitor, goot thing that its in beta, i hope that itl look beter when they finishe it ^^

[Golbez]

i run mine in a window

the graphics look find for me.. they look like sro's graphics after i played with it for a little bit

[Golbez]

new Code:

[autoit]#Include <Misc.au3>

Global $sk, $skd, $mc, $mcdown, $msdrag, $pc, $wtextm, $wtitlem, $mc, $cc, $cm, $wsc, $fishingskd, $fixopt, $Player_see_1

Global $MonsterTextCol, $fishcol, $fcoldif, $rleft, $rtop, $rright, $rbottom, $rcol2, $rcol1, $rcoldif, $Player_see_2

Global $usehokeys, $endkey, $startkey, $runkey, $gamedir, $gamename, $login, $password, $windowname, $var

Global $mainsleep, $serverdelay, $runsleep, $pulldelay, $fishdelay, $fixscreen, $bait, $baitkey1, $baircol

Global $serverx, $servery, $Servokx, $Servoky, $windowx, $windowy, $connectx, $connecty, $baitkey2 , $var1

Global $baitdelay, $baitkey, $castdelay, $fishkey, $fleft, $ftop, $fright, $fbottom, $setbait, $baitkey3

Global $random1, $random2, $usesounds, $switchwindow, $pullrod, $FishCol1, $FishCol2, $usetooltips, $var2

Global $set_error = 0

Global $i_hate_fishing = 0

LoadIni()

_Opt()

Pause()

Func OpenAndLogin()

If WinExists($windowname) = 0 And WinExists("METIN II AUTO PATCH") = 0 then

Run($gamedir & "\" & $gamename, $gamedir)

WinWait($windowname, "StartGame")

EndIf

If WinActive($windowname) <> 1 Then WinActivate($windowname)

ControlClick($windowname, "", "StartGame", "left")

Sleep($serverdelay)

WinWait($windowname)

Sleep($serverdelay)

WinMove($windowname, "", $windowx, $windowy)

Sleep($serverdelay)

MouseClick("left", $serverx, $servery)

ControlClick($windowname, "", "", "left", 1, $serverx, $servery)

Sleep($serverdelay)

MouseClick("left", $Servokx, $Servoky)

;ControlClick($windowname, "", "", "left", 1, $Servokx, $Servoky)

Sleep($serverdelay)

If $login = "" then $login = InputBox("Set Login", "Please input your Login")

ControlSend($windowname, "", "", $login & "{TAB}")

Sleep($serverdelay)

If $password = "" then $password = InputBox("Set Password", "Please input your Password")

ControlSend($windowname, "", "", $password)

Sleep($serverdelay)

MouseClick("left", $connectx, $connecty)

;ControlClick($windowname, "", "", "left", 1, $connectx, $connecty)

EndFunc

Func StartFishing()

$skd = $fixopt

$fishingskd = $skd

_Opt()

$skd = $fixopt

If Not WinActive("METIN2") Then WinActivate("METIN2")

Send("{NUMPAD2 2}")

Send("{PGDN 2}")

TheSlot()

Fishing()

EndFunc

Func Fishing()

TheSlot()

Sleep(2000)

Send($baitkey)

If $usetooltips = 1 Then ToolTip("<" & $set_error & "> <errors> , Lemesee i need to put the Bait", 0, 0)

Sleep(2000)

Send($fishkey)

If $usetooltips = 1 Then ToolTip("<" & $set_error & "> <errors> , And to trow it LoL", 0, 0)

While 1

theslot()

Sleep(50)

$pullrod = PixelSearch($fleft, $ftop, $fright, $fbottom, $fishcol, $fcoldif)

$i_hate_fishing = $i_hate_fishing + 50 ;< reedit it in your script when you try and i add it (50) so that i can reset it with time

Select

Case $pullrod <> 1

Send($fishkey)

Do

$Player_see_1 = PixelSearch($rleft, $rtop, $rright, $rbottom, $rcol1, $rcoldif)

$Player_see_2 = PixelSearch($rleft, $rtop, $rright, $rbottom, $rcol2, $rcoldif)

Sleep(1000)

If $usetooltips = 1 Then ToolTip("Im Detecting some persone neare me i beter stop", 0, 0)

Until $Player_see_1 = 1 And $Player_see_2 = 1

If $usetooltips = 1 Then ToolTip("<" & $set_error & "> <errors> , Bringit on my LovE", 0, 0)

Sleep(5000)

Send($baitkey)

If $usetooltips = 1 Then ToolTip("<" & $set_error & "> <errors> , This worm dont like me O_o", 0, 0)

Sleep(2000)

If $usetooltips = 1 Then ToolTip("<" & $set_error & "> <errors> , Lets try one more round y and me fish", 0, 0)

Send($fishkey)

$i_hate_fishing = 0

Case $i_hate_fishing = 30000

Send($baitkey)

If $usetooltips = 1 Then ToolTip("<" & $set_error & "> <errors> , Lemesee i need to put the Bait", 0, 0)

Sleep(2000)

Send($fishkey)

If $usetooltips = 1 Then ToolTip("<" & $set_error & "> <errors> , And WTF is fishing pule used 4 O_o", 0, 0)

$set_error = $set_error + 1

$i_hate_fishing = 0

If $usetooltips = 1 Then ToolTip("<" & $set_error & "> <errors> , Ahh where is my TnT, and why this fish dont bite, ", 0, 0)

EndSelect

WEnd

EndFunc

Func TheSlot()

$baitkey = $baitkey1

Global $var = Hex(PixelGetColor( 747, 866 ),6)

If $var = $baircol Then

$baitkey = $baitkey2

Global $var1 = Hex(PixelGetColor( 779, 866 ),6)

If $var1 = $baircol Then

$baitkey = $baitkey3

Global $var2 = Hex(PixelGetColor( 811, 866 ),6)

If $var2 = $baircol Then

Exit

EndIf

EndIf

EndIf

EndFunc

Func LoadIni()

;Color

$MonsterTextCol = IniRead(@ScriptDir & "\Metin.ini", "Color", "MonsterText", "")

$fishcol = IniRead(@ScriptDir & "\Metin.ini", "Color", "Fishing", "")

$fcoldif = IniRead(@ScriptDir & "\Metin.ini", "Color", "FishColorDifference", "")

$rcol1 = IniRead(@ScriptDir & "\Metin.ini", "Color", "RadarCol1", "")

$rcol2 = IniRead(@ScriptDir & "\Metin.ini", "Color", "RadarCol2", "")

$rcoldif = IniRead(@ScriptDir & "\Metin.ini", "Color", "RadarColorDifference", "")

$baircol = IniRead(@ScriptDir & "\Metin.ini", "Color", "BaitColor", "")

;Delays

$mainsleep = IniRead(@ScriptDir & "\Metin.ini", "Delays", "MainSleep", "")

$serverdelay = IniRead(@ScriptDir & "\Metin.ini", "Delays", "Server", "")

$runsleep = IniRead(@ScriptDir & "\Metin.ini", "Delays", "Run", "")

$fishdelay = IniRead(@ScriptDir & "\Metin.ini", "Delays", "Fish", "")

$pulldelay = IniRead(@ScriptDir & "\Metin.ini", "Delays", "RodPull", "")

$castdelay = IniRead(@ScriptDir & "\Metin.ini", "Delays", "RodCast", "")

$baitdelay = IniRead(@ScriptDir & "\Metin.ini", "Delays", "Bait", "")

$fixscreen = IniRead(@ScriptDir & "\Metin.ini", "Delays", "FixScreen", "")

$switchwindow = IniRead(@ScriptDir & "\Metin.ini", "Delays", "SwitchWindow", "")

;Keys

$usehokeys = IniRead(@ScriptDir & "\Metin.ini", "Other", "UseHotkeys", "")

$endkey = IniRead(@ScriptDir & "\Metin.ini", "Keys", "ExitKey", "")

$startkey = IniRead(@ScriptDir & "\Metin.ini", "Keys", "StartKey", "")

$pausekey = IniRead(@ScriptDir & "\Metin.ini", "Keys", "PauseKey", "")

$runkey = IniRead(@ScriptDir & "\Metin.ini", "Keys", "RunKey", "")

$startfishkey = IniRead(@ScriptDir & "\Metin.ini", "Keys", "StartFishingKey", "")

$fishkey = IniRead(@ScriptDir & "\Metin.ini", "Keys", "FishingKey", "")

$baitkey1 = IniRead(@ScriptDir & "\Metin.ini", "Keys", "BaitKey1", "")

$baitkey2 = IniRead(@ScriptDir & "\Metin.ini", "Keys", "BaitKey2", "")

$baitkey3 = IniRead(@ScriptDir & "\Metin.ini", "Keys", "BaitKey3", "")

If $usehokeys = 1 Then

HotKeySet($endkey, "Terminate")

HotKeySet($PauseKey,"Pause")

;HotKeySet($startkey, "OpenAndLogin")

HotKeySet($runkey, "_run")

HotKeySet($startfishkey, "StartFishing")

EndIf

;Other

$login = IniRead(@ScriptDir & "\Metin.ini", "Other", "Login", "")

$password = IniRead(@ScriptDir & "\Metin.ini", "Other", "Password", "")

$gamedir = IniRead(@ScriptDir & "\Metin.ini", "Other", "GameDir", "")

$gamename = IniRead(@ScriptDir & "\Metin.ini", "Other", "GameExeName", "")

$windowname = IniRead(@ScriptDir & "\Metin.ini", "Other", "WindowName", "METIN2")

$usesounds = IniRead(@ScriptDir & "\Metin.ini", "Other", "UseSounds","")

$windowmode = IniRead(@ScriptDir & "\Metin.ini", "Other", "WindowMode","")

$usetooltips = IniRead(@ScriptDir & "\Metin.ini", "Other", "UseToolTips","1")

;Opt

;Delays

$sk = IniRead(@ScriptDir & "\Metin.ini", "Opt", "SendKeyDelay", "")

$skd = IniRead(@ScriptDir & "\Metin.ini", "Opt", "SendKeyDownDelay", "")

$mc = IniRead(@ScriptDir & "\Metin.ini", "Opt", "MouseClickDelay", "")

$mcdown = IniRead(@ScriptDir & "\Metin.ini", "Opt", "MouseClickDownDelay", "")

$msdrag = IniRead(@ScriptDir & "\Metin.ini", "Opt", "MouseClickDragDelay", "")

;Modes

$pc = IniRead(@ScriptDir & "\Metin.ini", "Opt", "PixelCoordMode", "")

$wtextm = IniRead(@ScriptDir & "\Metin.ini", "Opt", "WinTextMatchMode", "")

$wtitlem = IniRead(@ScriptDir & "\Metin.ini", "Opt", "WinTitleMatchMode", "")

$mc = IniRead(@ScriptDir & "\Metin.ini", "Opt", "MouseCoordMode", "")

$cc = IniRead(@ScriptDir & "\Metin.ini", "Opt", "CaretCoordMode", "")

$cm = IniRead(@ScriptDir & "\Metin.ini", "Opt", "ColorMode", "")

;Other

$wsc = IniRead(@ScriptDir & "\Metin.ini", "Opt", "WinSearchChildren", "")

$fishingskd = IniRead(@ScriptDir & "\Metin.ini", "Opt", "WinSearchChildren", "")

;Coords

;Select Server

$server = IniRead(@ScriptDir & "\Metin.ini", "Other", "WhatServer", "")

$windowx = IniRead(@ScriptDir & "\Metin.ini", "Coords", "WindowX", "")

$windowy = IniRead(@ScriptDir & "\Metin.ini", "Coords", "WindowY", "")

$Servokx = IniRead(@ScriptDir & "\Metin.ini", "Coords", "ServerOkButtonX", "")

$Servoky = IniRead(@ScriptDir & "\Metin.ini", "Coords", "ServerOkButtonY", "")

If $server = 1 Then

$serverx = IniRead(@ScriptDir & "\Metin.ini", "Coords", "Server1X", "")

$servery = IniRead(@ScriptDir & "\Metin.ini", "Coords", "Server1Y", "")

ElseIf $server = 2 then

$serverx = IniRead(@ScriptDir & "\Metin.ini", "Coords", "Server2X", "")

$servery = IniRead(@ScriptDir & "\Metin.ini", "Coords", "Server2Y", "")

EndIf

$connectx = IniRead(@ScriptDir & "\Metin.ini", "Coords", "ConnectButtonX", "")

$connecty = IniRead(@ScriptDir & "\Metin.ini", "Coords", "ConnectButtonY", "")

If $windowmode = 1 Then

;Fishing

$fleft = IniRead(@ScriptDir & "\Metin.ini", "Coords", "FishLeft1", "")

$ftop = IniRead(@ScriptDir & "\Metin.ini", "Coords", "FishTop1", "")

$fright = IniRead(@ScriptDir & "\Metin.ini", "Coords", "FishRight1", "")

$fbottom = IniRead(@ScriptDir & "\Metin.ini", "Coords", "FishBottom1", "")

;Radar

$rleft = IniRead(@ScriptDir & "\Metin.ini", "Coords", "RadarLeft1", "")

$rtop = IniRead(@ScriptDir & "\Metin.ini", "Coords", "RadarTop1", "")

$rright = IniRead(@ScriptDir & "\Metin.ini", "Coords", "RadarRight1", "")

$rbottom = IniRead(@ScriptDir & "\Metin.ini", "Coords", "RadarBottom1", "")

;F Slots

$f2x = IniRead(@ScriptDir & "\Metin.ini", "Coords", "F2SlotX1", "")

$f3x = IniRead(@ScriptDir & "\Metin.ini", "Coords", "F3SlotX1", "")

$f4x = IniRead(@ScriptDir & "\Metin.ini", "Coords", "F4SlotX1", "")

$f2y = IniRead(@ScriptDir & "\Metin.ini", "Coords", "F2SlotY1", "")

$f3y = IniRead(@ScriptDir & "\Metin.ini", "Coords", "F3SlotY1", "")

$f4y = IniRead(@ScriptDir & "\Metin.ini", "Coords", "F4SlotY1", "")

ElseIf $windowmode = 2 Then

;Fishing

$fleft = IniRead(@ScriptDir & "\Metin.ini", "Coords", "FishLeft2", "")

$ftop = IniRead(@ScriptDir & "\Metin.ini", "Coords", "FishTop2", "")

$fright = IniRead(@ScriptDir & "\Metin.ini", "Coords", "FishRight2", "")

$fbottom = IniRead(@ScriptDir & "\Metin.ini", "Coords", "FishBottom2", "")

;Radar

$rleft = IniRead(@ScriptDir & "\Metin.ini", "Coords", "RadarLeft2", "")

$rtop = IniRead(@ScriptDir & "\Metin.ini", "Coords", "RadarTop2", "")

$rright = IniRead(@ScriptDir & "\Metin.ini", "Coords", "RadarRight2", "")

$rbottom = IniRead(@ScriptDir & "\Metin.ini", "Coords", "RadarBottom2", "")

;F Slots

$f2x = IniRead(@ScriptDir & "\Metin.ini", "Coords", "F2SlotX2", "")

$f3x = IniRead(@ScriptDir & "\Metin.ini", "Coords", "F3SlotX2", "")

$f4x = IniRead(@ScriptDir & "\Metin.ini", "Coords", "F4SlotX2", "")

$f2y = IniRead(@ScriptDir & "\Metin.ini", "Coords", "F2SlotY2", "")

$f3y = IniRead(@ScriptDir & "\Metin.ini", "Coords", "F3SlotY2", "")

$f4y = IniRead(@ScriptDir & "\Metin.ini", "Coords", "F4SlotY2", "")

EndIf

EndFunc

Func _Opt()

;Delays

Opt("SendKeyDelay", $sk)

Opt("SendKeyDownDelay", $skd)

Opt("MouseClickDelay", $mc)

Opt("MouseClickDownDelay", $mcdown)

Opt("MouseClickDragDelay", $msdrag)

;Modes

Opt("PixelCoordMode", $pc)

Opt("WinTextMatchMode", $wtextm)

Opt("WinTitleMatchMode", $wtitlem)

Opt("MouseCoordMode", $mc)

Opt("CaretCoordMode", $cc)

Opt("ColorMode", $cm)

;Other

Opt("WinSearchChildren", $wsc)

EndFunc

Func _run()

While 1

If _IsPressed("57") Then ;57 = w

While 1

Send("{w down}")

Sleep($runsleep)

If _IsPressed("57") Then

If $usesounds = 1 Then Beep(500, 10)

Send("{w down}")

send("")

ExitLoop

EndIf

WEnd

ElseIf _IsPressed("53") Then ;53 = s

While 1

Send("{s down}")

Sleep($runsleep)

If _IsPressed("53") Then

If $usesounds = 1 Then Beep(500, 10)

Send("{s down}")

send("")

ExitLoop

EndIf

WEnd

ElseIf _IsPressed("41") Then ;41 = a

While 1

Send("{a down}")

Sleep($runsleep)

If _IsPressed("41") Then

If $usesounds = 1 Then Beep(500, 10)

Send("{a down}")

send("")

ExitLoop

EndIf

WEnd

ElseIf _IsPressed("44") Then ;44 = d

While 1

Send("{d down}")

Sleep($runsleep)

If _IsPressed("44") Then

If $usesounds = 1 Then Beep(500, 10)

Send("{d down}")

send("")

ExitLoop

EndIf

WEnd

EndIf

Sleep($mainsleep)

WEnd

EndFunc

Func Terminate()

If $usetooltips = 1 Then MsgBox(0,"","I have " & $set_error & " errors")

Exit

EndFunc

Func Pause()

While 1

Sleep($mainsleep)

WEnd

EndFunc

[bogQ]

new Code:

i got your msg:

this is exsample.......

when you get some color with PixelGetColor he return them in numbers 133658 on position 528, 293,

when you use window info tool he return the color 0x5176B5 on position under mouse 528, 293, so to convert PixelGetColor you use Hex() command so he is converting the valye on number 133658 to the PixelGetColor 5176B5 note that with Hex() he dont return the 0x part of the color

so i use that 4 slots F2 F3 F4 to get the emty slot collor in the midle

Global $var = Hex(PixelGetColor( 747, 866 ),6)

4 the

$Player_see_1 = PixelSearch(1157, 33, 1272, 148, "0xFFD74C", 7)

$Player_see_2 = PixelSearch(1157, 33, 1272, 148, "0xAA8D33", 7)

i sended you a pictyre

bdw there whas the poitn of why i put the

Opt("SendKeyDownDelay", 1500) ;1.5 second delay

on the top of the script

first point is that you use Opt("SendKeyDownDelay", 1) from ini

SendKeyDownDelay Alters the length of time a key is held down before being released during a keystroke. For applications that take a while to register keypresses (and many games) you may need to raise this value from the default.

Time in milliseconds to pause (default=5).

the second point whas thet if you see sky on your window it can mesup the PixelSearch on the buble becose of same or simular collor so thats why i added

Send("{NUMPAD2 2}")
Send("{PGDN 2}")

so that my camera go on top of the charecter

if i dont have the SendKeyDownDelay", 1500 and i use your SendKeyDownDelay", 1 from ini then i needed to use

Send("{NUMPAD2 3000}") and then i think that it will not work ^^

Edited September 10, 2007 by bogQ