SCAR Code:
procedure offerMoney;
begin
if (tradeScreen = true) then
begin
if checkitems = true then
begin
if finditemname('Coins') then
begin
ClickItemName('Coins', false);
wait(30+random(30));
Popup('X');
wait(30+random(30));
typesend(price);
Wait(30+random(30));
end;
end;
end;
end;
begin
if (finditemname('Coins') = false) then
begin
decline;
case random(5) of
1: typesend('sorry, not enough cash');
2: typesend('Whoops, no money');
3: typesend('nvm my friend has one for me');
4: typesend('whoops wrong person');
5: typesend('nvm ill just get one myself');
end;
end;
begin
if checkitems = true then
begin
decline;
case random(5) of
1: typesend('dont need that');
2: typesend('No i need a'+item);
3: typesend('nub i need a'+item);
4: typesend('i need a'+item+' nub');
end;
end;
thats the whole procedure