Automatic Archer Leveler

spoonieluv97 · 01/06/2007, 05:24

Archer Leveler v1.0

A lot of you are probably looking for alternatives if you did not receive ScriptVessel. Once CoPartner got patched, I started working on this. I can't work miracles, only Chocoman can, so don't call this a noob program. I made it with AutoIt, and it is pixel based, so you cannot run this and go on other programs. This is good for if your gone for an hour or so, or maybe overnight.

I originally tried making this a plvler, because I had not seen any before. I wanted to make it jump around a stack of noobs and try to kill monsters that came near, but I discovered the coordinates are very weird for Conquer, so it can't really do this. I tested out how jumps work coordinate wise and it works very strange. I tested out with coordinates and I found t hat when your jumping in the "right" direction, your first jump is longer than any other jumps. Its very weird. No matter how many ways I tested, it seems like once in a while, the character randomly jumps one coordinate off. Sorry for digressing, but anyway, back to the bot.

IMPORTANT: You must have 1280x1024 SCREEN resolution. I don't think a lot of people have this resolution, so I think later tonight I'll make one for 1024x768.

First you should:
1. Run Conquer in the upper left hand corner windowed 1024x768
2. Get FULL arrow packs and put in inventory
3. Put arrows in F1 (this designed for 500 pack arrows)
4. Put scatter in skill box (also make sure capture mode and you don't want your guard out, duh)
5. Edit your monster.dat so the monsters at the spawn are invisible and only name and health bar are visible. (this is optional, it just keeps your archer on track as much as possible)
6. Start the bot and enter amount of arrows packs you have.

If you have any bugs or anything to report please post them, but don't post anything saying "my archer goes off track". Your archer probably will go off track, because since it's pixel based, your mouse might accidentally click the name of a monster when trying to jump, or one of those lakes or sand mounds.

PLEASE: If you have AutoIt you can decompile and look at code. If you play around and find a way to keep the archer on track, please post that source or PM me. I won't take credit from you.

I'll make another post with a monster.dat editor.

+k is appreciated if you like it. Thank you.

TT_TT · 01/06/2007, 05:28

Hmmmm, if co was up i'd test this.

spoonieluv97 · 01/06/2007, 05:32

Here is the monster.dat editor. I did not created this monster.dat editor, I got it off this site, but I cannot find it anymore so I cannot give credit. If you made this and you see this, just post that it was you or PM me and I'll give you creds for it. Very simple to use. Make a backup of your monster.dat. Then drag it to the "monster dat" folder. Run DeEn.exe and click decrypt. Now open the monster txt file and ctrl+f (find) the monster you want to edit. Change the SizeAdd and ZoomPercent to 0, and the monsters will be invisible, but their names and health bars will still show.

IMPORTANT: Make sure you make a backup of your original monster.dat, or else you will have to reinstall or search hard on this site for the original.

spoonieluv97 · 01/06/2007, 06:38

6 DLs but no comments. Work? Not work? Scan?

EDIT: Lol, my bad, CO hasn't been up since I posted so no way to test.

paav · 01/06/2007, 06:52

Results from: www.virustotal.com

Looks like not safe...

spoonieluv97 · 01/06/2007, 08:31

Decompile with AutoIt and just read the source. There is nothing wrong in it. If you want I can post the .au3 file and you can compile it yourselves...

spoonieluv97 · 01/06/2007, 09:18

I PMed DM asking him to read source and he told me to post it. Hopefully he'll read it and verify it safe. If anybody wants to compile it themselves the source in .au3 will be at bottom.

#include <GUIConstants.au3>
$wid=475
$len=360
$rightclicks=0
$counter=0
HotKeySet("^!x","Quit")
func ifclickarrows()
$rightclicks=$rightclicks+1
if $rightclicks=166 Then
sleep(400)
send("{F1}")
$left=500
sleep(400)
$packs=$packs-1
EndIf
EndFunc
Func Quit()
send("{CTRLUP}")
sleep(400)
Exit
EndFunc

GUICreate("Archer Plvl/Leveling Bot v1.0",400,200)
GUICtrlCreatePic("C:/archerlvler.jpg",30,10,338,76)

$Button_1 = GUICtrlCreateButton ( "Start Macro", 270-40, 125, 100,50)
$Button_2 = GUICtrlCreateButton ( "Setup Steps", 130-50, 125, 100,50)
GUICtrlCreateLabel("NOTE: To emergency exit the program, type Alt+Ctrl+x",75,180)
$radio_1

GUISetState ()
$i=1

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Quit()
ExitLoop
Case $msg = $Button_1
ExitLoop
Case $msg = $Button_2
GUICreate("Setup Steps",$wid,$len)
GUISetState ()
GUIctrlcreatepic("setup.jpg",0,0,$wid,$l en)

While 1
$msg=GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
GUIDelete()

EndSelect
Wend
GUIDelete()

$packs = InputBox("Start", "How many arrow packs in inventory?", 35, "", -1, 130, 450, 450)
Dim $Counter
Dim $Max
Dim $Pause

$Max = 100
$Pause = 1

ProgressOn("Status","","") ;fake loading bar lol

For $Counter = 1 to $Max
ProgressSet(($Counter/$Max)*100,"","" & $Counter & "% Completed")
Sleep($Pause * 20)
Next

ProgressOff()
send("{CTRLDOWN}")
While $packs>=0

MouseClick("left", 509,80,2,1)

sleep(3000)
$coord = Pixelsearch(0,97,1019,569, "0xB50400", 5, 1 )
If @error <> 1 then
Mouseclick("right",$coord[0], $coord[1],1,1)
ifclickarrows()
Endif
sleep(200)
MouseClick("left", 509,80,2,1)

sleep(3000)
$coord = Pixelsearch(0,97,1019,569, "0xB50400", 5, 1 )
If @error <> 1 then
Mouseclick("right",$coord[0], $coord[1],1,1)
ifclickarrows()
Endif
sleep(200)
MouseClick("left", 509,80,2,1)

sleep(3000)
$coord = Pixelsearch(0,97,1019,569, "0xB50400", 5, 1 )
If @error <> 1 then
Mouseclick("right",$coord[0], $coord[1],1,1)
ifclickarrows()
Endif
sleep(200)
MouseClick("left", 986,407,2,1)

sleep(3000)
$coord = Pixelsearch(0,97,1019,569, "0xB50400", 5, 1 )
If @error <> 1 then
Mouseclick("right",$coord[0], $coord[1],1,1)
ifclickarrows()

Endif
sleep(200)
MouseClick("left", 986,407,2,1)

sleep(3000)
$coord = Pixelsearch(0,97,1019,569, "0xB50400", 5, 1 )
If @error <> 1 then
Mouseclick("right",$coord[0], $coord[1],1,1)
ifclickarrows()

Endif
sleep(200)
MouseClick("left", 986,407,2,1)

sleep(3000)
$coord = Pixelsearch(0,97,1019,569, "0xB50400", 5, 1 )
If @error <> 1 then
Mouseclick("right",$coord[0], $coord[1],1,1)
ifclickarrows()

Endif
sleep(200)
MouseClick("left", 513,711,2,1)

sleep(3000)
$coord = Pixelsearch(0,97,1019,569, "0xB50400", 5, 1 )
If @error <> 1 then
Mouseclick("right",$coord[0], $coord[1],1,1)
ifclickarrows()
Endif
sleep(200)
MouseClick("left", 513,711,2,1)

sleep(3000)
$coord = Pixelsearch(0,97,1019,569, "0xB50400", 5, 1 )
If @error <> 1 then
Mouseclick("right",$coord[0], $coord[1],1,1)
ifclickarrows()
Endif
sleep(200)
MouseClick("left", 513,711,2,1)

sleep(3000)
$coord = Pixelsearch(0,97,1019,569, "0xB50400", 5, 1 )
If @error <> 1 then
Mouseclick("right",$coord[0], $coord[1],1,1)
ifclickarrows()
Endif
sleep(200)
MouseClick("left", 36,387,2,1)

sleep(3000)
$coord = Pixelsearch(0,97,1019,569, "0xB50400", 5, 1 )
If @error <> 1 then
Mouseclick("right",$coord[0], $coord[1],1,1)
ifclickarrows()
Endif
sleep(200)
MouseClick("left", 35,402,2,1)

sleep(3000)
$coord = Pixelsearch(0,97,1019,569, "0xB50400", 5, 1 )
If @error <> 1 then
Mouseclick("right",$coord[0], $coord[1],1,1)
ifclickarrows()
Endif
sleep(200)
MouseClick("left", 35,402,2,1)

sleep(3000)
$coord = Pixelsearch(0,97,1019,569, "0xB50400", 5, 1 )
If @error <> 1 then
Mouseclick("right",$coord[0], $coord[1],1,1)
ifclickarrows()
Endif
sleep(200)

WEnd
send("{CTRLUP}")

Valefor · 01/06/2007, 11:02

I've just download it, i'll wait for DM to check the source but it looks very useful since no bots are working :? if its clean and useful i'll give u +k ^^

xint · 01/06/2007, 11:11

Yess.. still waiting for DM to confirm it.. I want to try with my noob but since my noob below lvl50... So, Im not dare to try....

saulius321 · 01/06/2007, 11:27

how it work jump around the stack or not

DM2000 · 01/06/2007, 11:54

Hi,

The source code looks fine if you would like to read it. ^^

If you still suspect it, please packet sniffering it.

DM

Valefor · 01/06/2007, 13:56

Ty for checking the source DM^^ +k to spoonieluv97 for the great job^^

Edit: I've just tested it, its working fine in my noob,now i cant test it more but when i get home i'll try it again, for now, congratz^^

iamthebesthacker · 01/06/2007, 15:43

this archer lvl-er is for archers lvl 1-120+ or just for 70-110?

Maybe It's Maybelline · 01/06/2007, 15:55

Quote:

Originally posted by paav@Jan 6 2007, 06:52
Results from: www.virustotal.com

Looks like not safe...

AutoIt Scripts will be always detected as those.

spoonieluv97 · 01/06/2007, 17:18

Quote:

Originally posted by iamthebesthacker@Jan 6 2007, 15:43
this archer lvl-er is for archers lvl 1-120+ or just for 70-110?

Its for any archer with scatter. If you are using an archer with the 100 pack arrows, just open the source (if you have AutoIt) and hit Ctrl-F and type 166. It will bring you to that number Change that to 33 and your good to go.