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.
Code: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.


Reply With Quote




.
