SCAR Code:
// // ///// ////// /////
// // // // // // //
// // ///// ////// /////
// // // // // // //
////// ///// ////// // //
////// ////// // // // ////// /////
// // // // // // // // //
// ////// // //// ////// /////
// // // // // // // // //
// // // ///// // // ////// // //
//start with pub chat on private
//setup lines 22-25
// V1.0 By MrHams
// Will stop auto talking if traded until trade closed
// This script is for educational purposes only
program AutoTalker;
{.include SRL/SRL.scar}
var
h,j,a,b,Bitmap:integer;
const Text1 = 'trade me for 100k';//Put the text here you want it to say
//If you need to type an apostrophe, type two.
TC = '8388736';//Put the purpley colour of when someone trades you in chat box
WT = '1';//Put the amount of time for the text to repeat in seconds (It won't be exact)
procedure DeclareBMPS;
begin
Bitmap := BitmapFromString(32, 9, 'z78DAA593410AC0300804BF6' +
'40B85E468A0FFFF52697B896CD6287A9020A2A359455E1BAAA369' +
'DA0FBDFB69FC1C0F54904AF74A05469B9CC274EF7AB5C3BC7D1FE' +
'7C73D1776BEE17769312E608BFA1FDBFC9EBD5F81319BFC0815CE' +
'E2EF1FD818398D07B68D6CFE44F817860194603A12FD08B105B94' +
'F15E1673B71D9B2B75FE7DF6812EFB7CEEFEAAA3E29E3C79B8A28' +
'3CAB1F76B995CC3FF2007F598B9E');
end;
procedure FindTradeClosure;
begin
if(FindBitmap(Bitmap,a,b)=False)then
Wait(12000+random(1000))
if(FindBitmap(Bitmap,a,b)=True)then
end;
begin
Wait(StrToInt(WT)*1000+random(1000));
TypeSend(Text1);
repeat
Wait(StrToInt(WT)*1000+random(1000));
TypeSend(Text1);
until(findcolor(h,j,strtoint(TC),25,467,237,476)=True)end.
begin
repeat
FindTradeClosure;
until
if(FindBitmap(Bitmap,a,b)=False)
end;
begin
TalkyTalky;
end.
Can someone post where I went wrong? It won't recognize that the trading colour was found or something.