Sythe.org — A Virtual Goods Trading Hub

#1 12-09-2009, 04:06 AM

This quick script contains no anti randoms or anti bans, as i am unsure of how they work. I will put these on before i use the script. I am getting an error for one of the SRL scripts Math.scar and i will post the error message after the script. It also has a line "\\logout" which I will replace with a logout function later. It withdraws the Tuna that was in the first slot, after depositing and walks to the range nearby and cooks the tuna. walks back and repeats until a variable is met, which is set up the top. Also need to get a way to drop fish, i figure use a find bitmap function to find it and drop.

Code:

//start in al karid bank
{.include SRL/SRL.scar}
const
trips=10 //how many trips you want to do

program Cooker;
Var cooksym, banksym, count, x, y:integer;
Tpoint:TPoint;

procedure bank;
begin
OpenBankFast('akb')
wait(500)
deposit(1, 28, true)
wait(500)
withdraw(1, 1, 28)
wait(500)
end;


procedure walktorange;
begin
findbitmap(cooksym, x, y)
mouse(x, y, 5, 5, true)
wait(6000)
end;

procedure cook;
begin
TPoint:=itemcoords(1)
mouse(TPoint.x, TPoint.y, 5, 5, True)
FindRange(x, y)
mouse(x, y, 5, 5, true)
wait(500)
mouse(256, 664, 5, 5, false)
wait(250)
mouse(236, 708, 5, 5, True)
wait(75000)
end;

procedure walktobank;
begin
findbitmap(banksym, x, y)
mouse(x, y, 5, 5, true)
wait(6000)

end;


begin
banksym:=LoadSymbolBitmapcolor('Bank')
cooksym:=LoadSymbolBitmapColor('Cook')
repeat
bank
walktorange
cook
walktobank
inc(count)
until(count=trips)
//LOGOUT
end.

error code was from math.scar

Quote:

Line 51: [Error] (330:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR 3.22\includes\SRL\SRL\Core\Math.scar

it is the most recent version i believe downloaded it the other day. Scar 3.22.