SRL Archive - General Botting Help

Const
nickname = 'bob_dole'; // Your nickname or in-game handle.
item = 'holy symbols'; // The name of the item for sale.
price = 5000; // The price of EACH item.
// ****************************
// * Message to type. *
// * [amount] [price] *
// * [item] [name] *
// ****************************
text = 'Selling [amount] [item], [price] ea. - [name] '; // Message to send
chat_speed = 5; // Speed of chat. Fastest (1) to Slowest (10)
minimum = 0; // Amount to stop at.
paint = true; // Paint?






Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
End;


So i need help to know where to put my login info how to make it sell the item i want to get sold,for how much etc.
Ive been on this forum for 3 days and i cant even start this script others have been working fine so it would be nice if someone could help me out here.

well it kinda says beside each line what to do with it -.- anyway

nickname = 'bob_dole'; // <—— put your username here
item = 'holy symbols'; // <——- name of the item your selling
price = 5000; // <———- how much you want to tell it for
// ****************************
// * Message to type. *
// * [amount] [price] *
// * [item] [name] *
// ****************************
text = 'Selling [amount] [item], [price] ea. - [name] '; // <—– message to send use the text above as a reference
chat_speed = 5; // Speed of chat. Fastest (1) to Slowest (10)
minimum = 0; // <—- stop when you reach this many of the item
paint = true; // <—– do you want the script to paint on the screen what it's doing?

Procedure DeclarePlayers; <—- ignore
Begin <—- ignore
HowManyPlayers := 1; <—- ignore
NumberOfPlayers(HowManyPlayers); <—- ignore
CurrentPlayer := 0; <—- ignore

Players[0].Name := ''; <—- login username
Players[0].Pass := ''; <—- your password
Players[0].Nick := ''; <—- in-game name
Players[0].Active := True; <—- ignore
End;


So if my username was Barbrady, my login-name was [email]Barbrady@Yahoo.com[/email] and password was iamcool54 and I was selling 500 Rune bars and 13,000 each, wanted meduim chat speed, wanted to stop at 0 bars and want to paint on the screen it would look like this:

nickname = 'Barbrady'; // <------ put your username here
item = 'Rune bars'; // <------- name of the item your selling
price = 13000; // <---------- how much you want to tell it for
// ****************************
// * Message to type. *
// * [amount] [price] *
// * [item] [name] *
// ****************************
text = 'Selling [500] [Rune bars], [13,000] ea. - [Barbrady] '; // <----- message to send use the text above as a reference
chat_speed = 5; // Speed of chat. Fastest (1) to Slowest (10)
minimum = 0; // <---- stop when you reach this many of the item 
paint = true; // <----- do you want the script to paint on the screen what it's doing?

Procedure DeclarePlayers; <---- ignore
Begin <---- ignore
HowManyPlayers := 1; <---- ignore
NumberOfPlayers(HowManyPlayers); <---- ignore
CurrentPlayer := 0; <---- ignore

Players[0].Name := 'Barbrady@Yahoo.com'; <---- login username
Players[0].Pass := 'iamcool54'; <---- your password
Players[0].Nick := 'Barbrady'; <---- in-game name
Players[0].Active := True; <---- ignore
End;  

allright but then when i start it i get this

The following DTMs were not freed: [2, 3, 4, 5]

what does that mean? is there any fix for that?

why wont anyone on this forum help ? worthless

From: bubba007
allright but then when i start it i get this

The following DTMs were not freed: [2, 3, 4, 5]

what does that mean? is there any fix for that?

That actually isn't a problem, it should run anyway it just means the author has forgotten to free the DTMs after using them but this will not stop the script from running.

(Some more experienced person should correct me if I'm wrong, and I'm probably wrong somewhere; Tough, the idea is, on average, right)

From: bubba007
allright but then when i start it i get this

The following DTMs were not freed: [2, 3, 4, 5]

what does that mean? is there any fix for that?

Relax, that isn't a problem, for you. Eventually, in your scripts, some DTM's will be called, by yourself or even by some includes. Calling a DTM is something like this:

dtmRandomThingy := DTMFromString('mGQAAAHicY2RgYKhkYmBoZWRg2F3EzwACjCACACKtAkA=');

When you do this(or it is on some include), SIMBA is obligated to keep it on the computer's memory, so it can be rapidly used along the script, improving it's average speed. So, imagine a long script, with like 1000 DTM's being called; if you don't free them right when you used them and don't need anymore, they would pile up in the memory and, to keep them in there, some lag would be caused. That's why SIMBA is obligated to say what DTM's weren't fred: this way, the scripter can have a round-up on if he let too many dtms or bitmaps on the memory and then fix his script, if it's needed. It worths noticing that, when the script is stopped, SIMBA auto-frees everything; which is why you might not care about DTM's if your script is short (I'd call short a script with less than 800 lines, it's very subjective, tough).

Read this: http://docs.villavu.com/simba/scriptref/dtm.html#freedtm
Also, it's important that you read some documentation, it will, certainly, get many doubts off you :)

Oh, I see you want an explanation on how to free them. Well, if you didn't call any DTM, just ignore it; I would not recommend you editting includes now. But, if you called some, do:

Procedure ClickRandomThingy;
begin
  dmtRandomThingy := DTMFromString('mGQAAAHicY2RgYKhkYmBoZWRg2F3EzwACjCACACKtAkA=');  (*the variable is an integer, since it transforms a string in an integer*)
  FindDTM(dtmRandomThingy, x, y, xs, ys, xe, ye);
  MMouse(x, y, 6, 6);
  Wait(RandomRange(100, 400));
  ClickMouse2(Mouse_Left);
  FreeDTM(dtmRandomThingy);
end;

(2 bosses of programming reading what I've written is scary :whistling:)

allright ya'll told me too ignore it. still the script will just start then get to where you login and wont write in any information, what to do now? this bot feels really complicated, but i have to get used too it :)

Well, with the information you put on your thread, I can't seem to find any problem :( It would be better if you posted the script so I could try to see what you are doing wrong…
For a tutorial declaring players: http://villavu.com/forum/showthread.php?t=58935
If you didn't find what you needed, just go to the tutorials forum http://villavu.com/forum/forumdisplay.php?f=492

This is the script i use Autoseller v1.0

program AutoSeller;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/misc/SmartGraphics.Simba}
{$I SRL-OSR/SRL/misc/trade.Simba}
Const
nickname = 'bob_dole'; // Your nickname or in-game handle.
item = 'holy symbols'; // The name of the item for sale.
price = 5000; // The price of EACH item.
// ****************************
// * Message to type. *
// * [amount] [price] *
// * [item] [name] *
// ****************************
text = 'Selling [amount] [item], [price] ea. - [name] '; // Message to send
chat_speed = 5; // Speed of chat. Fastest (1) to Slowest (10)
minimum = 0; // Amount to stop at.
paint = true; // Paint?

var
message: string;
left, sold, total, last: integer;
BList, Events: TStringArray;
BListTime, CoinDTMs: TIntegerArray;

Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
End;

Function qty (amount: integer): string;
var
i, remainder: integer;
begin

if (amount < 1000) then
begin
Result := inttostr (amount);
Exit;
end;

if (amount < 1000000) then
begin
Remainder := amount - (floor (amount / 100) * 100);

if (Remainder > 0) then
begin
Result := GroupDigits(amount, ',');
Exit;
end;

Result := tostr (0.1 * (amount / 100)) + 'k';
Exit;

end;

Remainder := amount - (floor (amount / 10000) * 10000);


if (Remainder > 0) then
begin
Result := GroupDigits(amount, ',');
Exit;
end;

Result := tostr((0.01 * (amount / 10000))) + 'm';
Exit;

end;
function MSG(): string;
var
message: string;
begin
message := Replace (text, '[amount]', qty(left));
message := Replace (message, '[price]', qty(price));
message := Replace (message, '[item]', item);
Result := Replace (message, '[name]', nickname);
end;

Procedure Report;
var
i: integer;
begin

if (Last = Length(Events)) then
exit;

if (not (paint)) then
exit;


SMART_DrawBoxEx(true, true, inttobox (7, 345, 498, 458), 65536);
SMART_DrawBoxEx(false, true, inttobox (17, 355, 488, 448), clRed);
SMART_DrawTextEx (false, 22, 315, 'BigChars07', 'Bob Dole' + chr(39) + 's AutoSeller', clred);



for i := 0 to Length (events) - 1 do
begin
SMART_DrawTextEx (false, 22, 360 + (i * 15), 'SmallChars07', events, 65536);
end;

last := Length(events);

end;

Procedure Log (event: string);
var
i: integer;
begin

if (Length (events) > 4) then
begin

for i := 0 to 3 do
begin
events := events;
end;

events[4] := event;
end else

setLength (events, Length (events) + 1);
events[Length(events) - 1] := event;

Report;

end;


Procedure AddItem (q: integer);
begin

MMouseItem(1);
ClickMouse2(mouse_right);
WaitOption('Offer-X', 500);
wait(500);
SendKeys(inttostr(q), 15, 15);

TypeByte(VK_RETURN);
TypeByte(VK_RETURN);


end;




Procedure CheckStuff;
begin

SetLength (CoinDTMs, 4);
CoinDTMs[0] := DTMFromString('mwQAAAHic42RgYOAGYjYGCGAGYk4gFodiMSDmA2IOIOYHYi4ktYxQNi8QCwLxy30yDGt7RRiub5BiMNViALPzo3gZ5jUIgtkbJogwsALVEcKMRGA4AADhvAwB');
CoinDTMs[1] := DTMFromString('mbQAAAHicY2VgYHgOxB+B+A4QfwDiR0BsxcTAYM8Eoc2B2AGIH+2QYji1RJzhyHxxhuOLxBm2TRFhYAWqRceMWDAYAADIHw1v');
CoinDTMs[2] := DTMFromString('mggAAAHicY2NgYKhnZGBoBeIOIG4G4lIoFmZiYOAGYhEgFgdiQSDmAOJvJ2QYNvSLMDzaIcXQVSDI8O4ghM8KNAsbZsSBIQAA8voMog==');
CoinDTMs[3] := DTMFromString('mbQAAAHicY2VgYJjGyMAwC4hnAvFkIJ4ExD+A+CcQfwXiX0D8DYg39Isw9BYLgunfl3zANCtQPzpmxILBAAApcw8V');

last := -1;

GameTab(tab_Inv);

if (GetAmountBox(InvBox(1)) = 0) then
begin
writeln('You need the item you want to sell in inventory slot #1 .');
terminatescript;
end;

if (price = 0) then
begin
writeLn('You did not price the item you want to sell.');
terminatescript;
end;

end;

Procedure TradeOn;
begin

Mmouse(0,0,0,0);

repeat

if (GetColor(346, 489) <> 1715514) then
begin
MMouse(364, 490, 15, 10);
ClickMouse2(mouse_left);
Mmouse(0,0,0,0);
end;

wait(500);
until (GetColor(346, 489) = 1715514);

end;

Procedure AddName (player: string; level: integer);
var
i, index: integer;
begin

for i := 1 to level do
begin

index := Length(BList);
setLength(BList, Length(BList) + 1);
setLength(BListTime, Length(BListTime) + 1);

BList[index] := player;
BListTime[index] := GetTimeRunning + 90000;
end;

end;

function CheckName(player: string): boolean;
var
i, score: integer;
begin

score := 0;

if (Length(BList) = 0) then
begin
Result := True;
Exit;
end;

for i := 0 to Length(Blist) - 1 do
begin

if (player = Blist) then
begin

if (BListTime > GetTimeRunning) then
score := score + 1;

end;


end;

if (score > 2) then
begin
Result := false;
Exit;
end;

Result := True;

end;
function Cash: Integer;
var
i, cur: integer;
begin
Result := 0;

for i := 0 to (length(CoinDTMs) - 1) do
begin

cur := CoinDTMs;

Result := ItemAmount('trade', 'dtm', CoinDTMs, []);

if ((i = 0) AND (Result < 10000)) then
begin
Result := Result * 10;
end;

if (Result > 0) then
break;

end;

end;
Procedure Trade;
var
Trader: String;
amount, gold, timeout, pre: integer;
begin

if (SomeoneTrades) then
begin

writeLn('Someone has traded…');

if (CheckName(GetTradersName)) then
begin

writeln('Accepting trade…');

Trader := GetTradersName;
AcceptTrade;
MarkTime(timeout);

repeat
wait(500);
writeLn('Trade open, waiting for cash…');

if ((TradeScreen = 0) OR (TimeFromMark(timeout) > 30000)) then
begin
writeln('Timed out, declining…');
AddName(Trader, 1);

if (TradeScreen > 0) then
Decline;

Exit;
end;

until ((Cash > 0));

gold := Cash;

amount := Floor (Cash / Price);
pre := GetAmountBox(InvBox(1));

writeLn('Adding items to trade…');
AddItem (amount);

MarkTime (timeout);

repeat
wait(100);

if ((TradeScreen = 0) OR (TimeFromMark(timeout) > 30000)) then
begin
writeln('Timed out, declining…');
AddName(Trader, 1);

if (TradeScreen > 0) then
Decline;

Exit;
end;

if (Cash < Gold) then
begin
AddName(Trader, 1);
writeln('Player changed offer, declining…');
Decline;
Exit;
end;

until (PlayerAccepted);

if ((TradeScreen > 0) AND PlayerAccepted) then
begin

writeln ('Other player accepted, checking deal…');
writeLn (inttostr(Cash));
writeLn (inttostr(Pre - GetAmountBox(InvBox(1))));

if (Cash >= ((Pre - GetAmountBox(InvBox(1))) * price)) then
begin
writeln ('All checks out, accepting trade…');

Accept;
wait (500);
Accept;

MarkTime(timeout);

repeat
wait(500);
writeLn('Waiting for player to accept…');

if (TimeFromMark(timeout) > 30000) then
begin
writeLn ('Trade has timed out, declining…');
AddName(Trader, 1);
Decline;
Exit;
end;

until (TradeScreen = 0);

if (FindBlackChatMessage('ccept')) then
begin
writeLn ('Trade accepted!');
AddName(Trader, 3);
Sold := Sold + (Pre - GetAmountBox(InvBox(1)));
Total := Sold * Price;
Log ('Sold ' + GroupDigits(Pre - GetAmountBox(InvBox(1)), ',') + ' for ' + GroupDigits((price * (Pre - GetAmountBox(InvBox(1)))), ',') + ' to ' + Trader + '.');
end;

end else
begin
writeLn ('Trade does not add up, declining…');
Decline;
Exit;
end;

end;

end;

end;

end;

Procedure Wait2(time: integer);
var
i:integer;
begin

for i := 0 to (time / 500) do
begin
wait(500);
Trade;
end;

end;

var
x, y, coinDTM: integer;
begin

Smart_World := 1;
SetupSRL;
DeclarePlayers;
CheckStuff;
TradeOn;

repeat

if not (LoggedIn) then
begin
LoginPlayer;
CheckStuff;
TradeOn;
end;

Report;

Left := GetAmountBox(InvBox(1));

sendkeys(MSG, 15, 15);
TypeByte(VK_RETURN);
Trade;
wait2(1500 + (chat_speed * 500));

//FindNormalRandoms;

until (GetAmountBox(InvBox(1)) < minimum);

end.









This is how i put my info in.



program AutoSeller;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/misc/SmartGraphics.Simba}
{$I SRL-OSR/SRL/misc/trade.Simba}
Const
nickname = 'Beast mode'; // Your nickname or in-game handle.
item = 'chocolate dusts'; // The name of the item for sale.
price = 270; // The price of EACH item.
// ****************************
// * Message to type. *
// * [amount] [price] *
// * [item] [name] *
// ****************************
text = 'Selling [9500] [chocolate dusts], [270] ea. - [Beast mode] '; // Message to send
chat_speed = 5; // Speed of chat. Fastest (1) to Slowest (10)
minimum = 0; // Amount to stop at.
paint = true; // Paint?

var
message: string;
left, sold, total, last: integer;
BList, Events: TStringArray;
BListTime, CoinDTMs: TIntegerArray;

Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := 'iamthebest@hotmail.com';
Players[0].Pass := 'nonecanstopme123';
Players[0].Nick := 'Beast mode';
Players[0].Active := True;
End;

Function qty (amount: integer): string;
var
i, remainder: integer;
begin

if (amount < 1000) then
begin
Result := inttostr (amount);
Exit;
end;

if (amount < 1000000) then
begin
Remainder := amount - (floor (amount / 100) * 100);

if (Remainder > 0) then
begin
Result := GroupDigits(amount, ',');
Exit;
end;

Result := tostr (0.1 * (amount / 100)) + 'k';
Exit;

end;

Remainder := amount - (floor (amount / 10000) * 10000);


if (Remainder > 0) then
begin
Result := GroupDigits(amount, ',');
Exit;
end;

Result := tostr((0.01 * (amount / 10000))) + 'm';
Exit;

end;
function MSG(): string;
var
message: string;
begin
message := Replace (text, '[amount]', qty(left));
message := Replace (message, '[price]', qty(price));
message := Replace (message, '[item]', item);
Result := Replace (message, '[name]', nickname);
end;

Procedure Report;
var
i: integer;
begin

if (Last = Length(Events)) then
exit;

if (not (paint)) then
exit;


SMART_DrawBoxEx(true, true, inttobox (7, 345, 498, 458), 65536);
SMART_DrawBoxEx(false, true, inttobox (17, 355, 488, 448), clRed);
SMART_DrawTextEx (false, 22, 315, 'BigChars07', 'Bob Dole' + chr(39) + 's AutoSeller', clred);



for i := 0 to Length (events) - 1 do
begin
SMART_DrawTextEx (false, 22, 360 + (i * 15), 'SmallChars07', events, 65536);
end;

last := Length(events);

end;

Procedure Log (event: string);
var
i: integer;
begin

if (Length (events) > 4) then
begin

for i := 0 to 3 do
begin
events := events;
end;

events[4] := event;
end else

setLength (events, Length (events) + 1);
events[Length(events) - 1] := event;

Report;

end;


Procedure AddItem (q: integer);
begin

MMouseItem(1);
ClickMouse2(mouse_right);
WaitOption('Offer-X', 500);
wait(500);
SendKeys(inttostr(q), 15, 15);

TypeByte(VK_RETURN);
TypeByte(VK_RETURN);


end;




Procedure CheckStuff;
begin

SetLength (CoinDTMs, 4);
CoinDTMs[0] := DTMFromString('mwQAAAHic42RgYOAGYjYGCGAGYk4gFodiMSDmA2IOIOYHYi4ktYxQNi8QCwLxy30yDGt7RRiub5BiMNViALPzo3gZ5jUIgtkbJogwsALVEcKMRGA4AADhvAwB');
CoinDTMs[1] := DTMFromString('mbQAAAHicY2VgYHgOxB+B+A4QfwDiR0BsxcTAYM8Eoc2B2AGIH+2QYji1RJzhyHxxhuOLxBm2TRFhYAWqRceMWDAYAADIHw1v');
CoinDTMs[2] := DTMFromString('mggAAAHicY2NgYKhnZGBoBeIOIG4G4lIoFmZiYOAGYhEgFgdiQSDmAOJvJ2QYNvSLMDzaIcXQVSDI8O4ghM8KNAsbZsSBIQAA8voMog==');
CoinDTMs[3] := DTMFromString('mbQAAAHicY2VgYJjGyMAwC4hnAvFkIJ4ExD+A+CcQfwXiX0D8DYg39Isw9BYLgunfl3zANCtQPzpmxILBAAApcw8V');

last := -1;

GameTab(tab_Inv);

if (GetAmountBox(InvBox(1)) = 0) then
begin
writeln('You need the item you want to sell in inventory slot #1 .');
terminatescript;
end;

if (price = 0) then
begin
writeLn('You did not price the item you want to sell.');
terminatescript;
end;

end;

Procedure TradeOn;
begin

Mmouse(0,0,0,0);

repeat

if (GetColor(346, 489) <> 1715514) then
begin
MMouse(364, 490, 15, 10);
ClickMouse2(mouse_left);
Mmouse(0,0,0,0);
end;

wait(500);
until (GetColor(346, 489) = 1715514);

end;

Procedure AddName (player: string; level: integer);
var
i, index: integer;
begin

for i := 1 to level do
begin

index := Length(BList);
setLength(BList, Length(BList) + 1);
setLength(BListTime, Length(BListTime) + 1);

BList[index] := player;
BListTime[index] := GetTimeRunning + 90000;
end;

end;

function CheckName(player: string): boolean;
var
i, score: integer;
begin

score := 0;

if (Length(BList) = 0) then
begin
Result := True;
Exit;
end;

for i := 0 to Length(Blist) - 1 do
begin

if (player = Blist) then
begin

if (BListTime > GetTimeRunning) then
score := score + 1;

end;


end;

if (score > 2) then
begin
Result := false;
Exit;
end;

Result := True;

end;
function Cash: Integer;
var
i, cur: integer;
begin
Result := 0;

for i := 0 to (length(CoinDTMs) - 1) do
begin

cur := CoinDTMs;

Result := ItemAmount('trade', 'dtm', CoinDTMs, []);

if ((i = 0) AND (Result < 10000)) then
begin
Result := Result * 10;
end;

if (Result > 0) then
break;

end;

end;
Procedure Trade;
var
Trader: String;
amount, gold, timeout, pre: integer;
begin

if (SomeoneTrades) then
begin

writeLn('Someone has traded…');

if (CheckName(GetTradersName)) then
begin

writeln('Accepting trade…');

Trader := GetTradersName;
AcceptTrade;
MarkTime(timeout);

repeat
wait(500);
writeLn('Trade open, waiting for cash…');

if ((TradeScreen = 0) OR (TimeFromMark(timeout) > 30000)) then
begin
writeln('Timed out, declining…');
AddName(Trader, 1);

if (TradeScreen > 0) then
Decline;

Exit;
end;

until ((Cash > 0));

gold := Cash;

amount := Floor (Cash / Price);
pre := GetAmountBox(InvBox(1));

writeLn('Adding items to trade…');
AddItem (amount);

MarkTime (timeout);

repeat
wait(100);

if ((TradeScreen = 0) OR (TimeFromMark(timeout) > 30000)) then
begin
writeln('Timed out, declining…');
AddName(Trader, 1);

if (TradeScreen > 0) then
Decline;

Exit;
end;

if (Cash < Gold) then
begin
AddName(Trader, 1);
writeln('Player changed offer, declining…');
Decline;
Exit;
end;

until (PlayerAccepted);

if ((TradeScreen > 0) AND PlayerAccepted) then
begin

writeln ('Other player accepted, checking deal…');
writeLn (inttostr(Cash));
writeLn (inttostr(Pre - GetAmountBox(InvBox(1))));

if (Cash >= ((Pre - GetAmountBox(InvBox(1))) * price)) then
begin
writeln ('All checks out, accepting trade…');

Accept;
wait (500);
Accept;

MarkTime(timeout);

repeat
wait(500);
writeLn('Waiting for player to accept…');

if (TimeFromMark(timeout) > 30000) then
begin
writeLn ('Trade has timed out, declining…');
AddName(Trader, 1);
Decline;
Exit;
end;

until (TradeScreen = 0);

if (FindBlackChatMessage('ccept')) then
begin
writeLn ('Trade accepted!');
AddName(Trader, 3);
Sold := Sold + (Pre - GetAmountBox(InvBox(1)));
Total := Sold * Price;
Log ('Sold ' + GroupDigits(Pre - GetAmountBox(InvBox(1)), ',') + ' for ' + GroupDigits((price * (Pre - GetAmountBox(InvBox(1)))), ',') + ' to ' + Trader + '.');
end;

end else
begin
writeLn ('Trade does not add up, declining…');
Decline;
Exit;
end;

end;

end;

end;

end;

Procedure Wait2(time: integer);
var
i:integer;
begin

for i := 0 to (time / 500) do
begin
wait(500);
Trade;
end;

end;

var
x, y, coinDTM: integer;
begin

Smart_World := 1;
SetupSRL;
DeclarePlayers;
CheckStuff;
TradeOn;

repeat

if not (LoggedIn) then
begin
LoginPlayer;
CheckStuff;
TradeOn;
end;

Report;

Left := GetAmountBox(InvBox(1));

sendkeys(MSG, 15, 15);
TypeByte(VK_RETURN);
Trade;
wait2(1500 + (chat_speed * 500));

//FindNormalRandoms;

until (GetAmountBox(InvBox(1)) < minimum);

end.

@bubba007

We already know what script your trying to run you don't need to paste the whole thing…twice.. without tags..
Just had to post the top part were to fill in the stuff lol

aight sorry, didnt really know what to post and how so just posted what i thought u guys wanted to see, i apologize :)



EDIT: u want me to delete that long reply?

Just use after the copied script and start it with

I'm seeing script now...

Yeah man, I'm really sorry I couldn't help you… I can't find the problem on my own =( Could you please run that script again and copy the last 10 lines of the debug so I can see where the problem is? Also, erase the 'Players[0].Nick' line completely, since it says your username.

First problem I see: minimum can't be 0, or it will keep selling stuff even if you ran out of items to sell.
A possible problem: you MUST put the item to sell on the first slot on the backpack.