Project: TibiaBot XT - Full BusinessSkin Form VCL Purchased!

[GattacaInt]

Hello.

I started an new Bot Project, it will by better than NG, but omost as it is.
What the bot will as, and it status:

Project Started in: 10 Sept, 2009.

Code:

- Cave Hunting (0%). - Need help! P.M me, i speak (br, es, eng so).
- Auto Healer (100%).
- Outfit (100%).
- Light (100%).
- Scripter (50% Needed Scripting Component).
- Load/Save Settings (100% .INI Configuration).
- Language Configuration (100% .XML Configuration - English & Spanish).
- Anti-Idle (100%).
- Alerts (0%).
- License Component and 3 days trial (100%).
- Safe List (0%).
- Player Safe (0%).
- GM Safe (0%).
- Auto Fishing (0%).
- Cure Poison (0%).
- Mana Trainning (100%).
- Responder (100% - Auto reply is done, need to finish scripting code).

The needed part is how to work with the Packets & Adresses.
If you would like to cooperate post in this thread. Your help will by appreciated, and credits will by given.

Using. Delphi 7.
Using VCL Business Skin Forms frmo http://www.almdev.com purchased success!.

King Regards,
Persian Entertainment ©.

[asta]

How this gonna be better than NG? Whats new? Which function is better?

[jeremic]

NG's scripting system is not a joke, copying the minor features of the bot is something a lot of us here can do, but managing a huge scripting system isn't so easy.

[DarkstaR]

jeremic Wrote:NG's scripting system is not a joke, copying the minor features of the bot is something a lot of us here can do, but managing a huge scripting system isn't so easy.

Honestly, I beg to differ.

At least in .NET, I'm able to import all the classes I work with strait to the scripter with LUA, and multi-threading it is as simple as 4 lines of code.

[CristoferMartins]

Study hook too...
If you want to send packets to client,use tibia internal functions or more,study my hook.dll(there are in open source board)...

[GattacaInt]

The part new, is that can use NG scripts, waypoints, and nbot waypoints.

Will allow, the npc trading, some of the ElfBot Functions, as the mw timers, the text drawing at tibia screen, the possibility of a lot of functions, that now i cant express, cuz i am working on the cave bot, but the shitty doesnt work when i put the global adress of;

gotox, gotoy, gotoz ¬¬

-
Also as the labels for making as Elf do.
For example;

in a listbox for the cave hunting;

startbot
00000:0000:7
checkcap -> into an scripting part has a memo1, if mychar.cap >= 50 goto dropthings
dropthings
script -> moveitem.frombackpack.totile (00000,0000,7) 100% done.

[megano0body]

jeremic Wrote:NG's scripting system is not a joke, copying the minor features of the bot is something a lot of us here can do, but managing a huge scripting system isn't so easy.

In the true making a scripting system in delphi cost only a good component, if a good programmer, the main problem is to make a database of the functions and classes, because the scripting system will not get every class and procedure in the project...


I still prefer to do my own scripting language, because you can make it easier and also the maintance is really faster / easier.

[jeremic]

DarkstaR Wrote:Honestly, I beg to differ.

At least in .NET, I'm able to import all the classes I work with strait to the scripter with LUA, and multi-threading it is as simple as 4 lines of code.

Its not necessarily hard to make, it is hard to organize and manage. As your system grows I am willing to bet money that you will run into organization problems, since managing a large project is never an easy thing to do.

[GattacaInt]

request.

i couldnt make the cave bot, i tryed the noob following code:

Code:

procedure TForm1.tmr1Timer(Sender: TObject);
var
  SL: TStringList;
begin
hook;
mycharX := readmemint(X);
mycharY := readmemint(Y);
mycharZ := readmemint(Z);
mapX.text := inttostr(mycharX);
mapY.text := inttostr(mycharY);
mapZ.text := inttostr(mycharZ);
if cavehunting1.Checked then
begin
  SL := TStringList.Create;
  try
    SL.Delimiter := ':';
    SL.DelimitedText := listbox1.Items.Text;
    listbox1.Selected[0] := true;
    gox := integer(Sl[0]);
    goy := integer(Sl[1]);
    goz := integer(Sl[2]);
    //if mycharx = integer(Sl[0]) then
   // begin
   //   if mychary = integer(Sl[1]) then
    //  begin
    //    if mycharz = integer(Sl[2]) then
     //   begin
        writemembyte(LEFT_CLICK_X, gox);
        writemembyte(LEFT_CLICK_Y, goy);
        writemembyte(LEFT_CLICK_Z, goz);
        label2.Caption := inttostr(LEFT_CLICK_X);
        label3.Caption := inttostr(LEFT_CLICK_Y);
        label4.Caption := inttostr(LEFT_CLICK_Z);
    //    end;
//     end;
//    end;
  finally
    SL.Free;
  end;
end;
end;

its writting the left click and all, but the player doesnt walk. If anyone knows how to, i'b grantfull. and apreciated the help to the project.

i speak: br, english and spanish.
both can by p.m to me, if want to help, thanks.

-About the Scripting Engine-

Its easy with: "Fast Script component" for Delphi 2,3,5 and 7. But i need the vclxvisual component or something like that, and doesnt work.
Also, there a few more, but are shareware, and i wasted my paypal account purchasing the VCL Business skin forms

[DarkstaR]

You need to write to the IsWalking offset in battlelist as well