CephaXz
2012-04-15 11:36:09
I have totally no knowledge of scripting. I wanted to have my own script for everything I wanted to bot, so I started to learn scripting 3 days ago by reading many of the tutorials and followed some videos and made a woodcutting script with Yohojo's video tut and I thought scripting isn't that hard, I was wrong.
I am trying to make a construction bot that builds and remove wooden crude chair. I used DTM instead of colors because the colors of the chair is very similar to the walls of the house. TPA mind fucked me, kinda too advance for me now. But I just cant get the script to find the built chair and remove it. Need some advises and guidance from experts here.
I am trying to make a construction bot that builds and remove wooden crude chair. I used DTM instead of colors because the colors of the chair is very similar to the walls of the house. TPA mind fucked me, kinda too advance for me now. But I just cant get the script to find the built chair and remove it. Need some advises and guidance from experts here.
program crudechair;
//{$DEFINE SMART}
{$i SRL/SRL.simba}
Const
SRLStats_Username = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
NumbOfPlayers= 1; //How many players are you using
StartPlayer= 0; //Player to start auoting with! (0 means first char)
BreakEvery = '' ;
BreakFor = '' ;
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Active := True;
end;
end;
Function FindChair: Boolean;
var
ChairDTM, x, y:Integer;
Begin
ChairDTM := DTMFromString('mlwAAAHicY2dgYGBjZGBgBWJhIBYBYg4g/g0U/w/EZ4D4CBAfB+JrQPwIiC8D8Wkg9nOUYDDXE2TIDTdg6C92YFjQ6MEwu9aVwcdegoELKI8LM+LBUAAAkTEO9w==');
If FindDTM(ChairDTM, x, y, MSX1, MSY1, MSX2, MSY2) Then
begin
GetMousePos(x, y);
IsUpText('Sit');
Result:= True
end;
FreeDTM(ChairDTM);
End;
Procedure RemoveChair;
var
x, y:Integer;
Begin
If FindChair Then
Begin
writeln('Found Chair!');
Mouse(x, y, 2, 2, False);
WaitOption('Remove', 500);
End;
End;
begin
SetupSRL;
ActivateClient;
//Repeat
RemoveChair;
//Until
end.