I was looking at this persons script and i saw 2 main loops and i was like.. oh its not going to compile but i try to compile it and it worked? I thought you can only have one main loop?
SCAR Code:
{///////////////////////////////////////////////////////////////////////////////
/ My first scrip Logik's Auto Talker V 0.2 (Most credit goes to JAD) /
/ Any questions, comments, tips, ideas, please post. /
/ Type your message where is says 'Delete this and type your message here!!!' /
/ To use the chat effects type them in the same area where you type your message/
/ but type one of the chat effects before/infront of your message. /
/ Here are some chat effects: /
/ Color Chat Effects: /
/ glow1: then type ur message SETUP LINE 30-31 AND CHANGE /
/ glow2: then type ur message LINE 36-38 FOR SPEED /
/ flash1: then type ur message READ PARAGRAPH FOR MORE INFO /
/ flash2: then type ur message YOU CAN HAVE 2 MESSAGES /
/ flash3: then type ur message IF YOU ONLY WANT ONE MESSAGE /
/ red: then type ur message TYPE THE SAME MESSAGE IN BOTH /
/ green: then type ur message AREAS (LINES 30-31) WHERE IT SAYS /
/ cyan: then type ur message 'DELETE THIS AND TYPE YOU MESSAGE /
/ white: then type ur message HERE!!!' /
/ Moving Chat Effects: /
/ shake: then type ur message ALSO MUST HAVE PUBLIC CHAT ON HIDE /
/ wave: then type ur message OR OFF!!!!!!! /
/ scroll: then type ur message /
/ slide: then type ur message /
/And you can combine chat effects, but you have to first /
/type a moving chat effect then type a color effect. /
/For example: wave:glow1: "message here" /
///////////////////////////////////////////////////////////////////////////////}
program script;
{.include SRL/SRL.scar}
{-----Setup-----} {REMEMBER TURN PUBLIC CHAT ON HIDE OR OFF}
const
Message1='';
Message2='';
waittime=1000; //set wait time here.
DoTrades=true; // thanks to JAD :P
{-----End of Setup-----}
procedure talk;
begin
Writeln('{~~~~~~~~~~~~~~~~~~~~LOGIKS AUTO TALKER VERSION 0.2~~~~~~~~~~~~~~~~~~~~');
Writeln('++++++++++++++++++++GIVE CREDIT TO JAD FOR HELPING!++++++++++++++++++++');
wait((waittime)+random(200)); //Amt of time before next message typed in milliseconds
TypeSend(Message1);
wait((waittime)+random(200));
TypeSend(Message2);
end;
begin
repeat
talk;
until(false)
end.
{PROCEDURE TRADE ALL THANKS TO JAD}
procedure Trade;
begin
if(DoTrades=false)then
Exit;
if(FindColorSpiralTolerance(variable,color,coords,coords,coords,coords))then
begin
Mouse(variable,0,0,true);
TerminateScript;
end;
begin
Trade;
end.