SRL Archive - First Scripts

its my first one so ya. credits to JAD for being an awesome teacher and itsChris917, thx guys.
-Simple Anti Randoms
-Proggy
-Working on MultiPlayer and Anti Ban

so ya here it is……



program PowerMiner;
{.include SRL/SRL.scar}

const
RockColor= 10948023;// color of the rock you are mining
PickWeilded= True;// is the pick weiled
MaxLoads= 5;// how many loads you want to do

var
loads: integer;


procedure AntiRandom;
begin
FindTalk;
FindNormalRandoms;
if (FindFight=True)then
begin
RunAwayDirection('N');
Wait(5000+random(10000));
RunBack;
end;
end;

procedure Proggy;
begin
ClearDebug;
Writeln('————————————');
Writeln('did' + IntToStr(Loads) + ' Loads ');
Writeln('====================================');
Writeln('did' + IntToStr(Loads) + ' Clicks ');
Writeln('————————————');
end;

procedure Mine;
begin
if(FindColorSpiralTolerance(x,y,RockColor,MSX1,MSY1,MSX2,MSY2,8)) then
begin
MMouse(x,y,3,3)
if(IsUpText('ine')) then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,True);
end;
end;
end;

procedure DropThatShit;
begin
If(InvFull)then
begin
Loads := Loads + 1;
if(PickWeilded=True) then
DropAll
if(PickWeilded=;False) then
DropTo(2,28);
end;
end;


begin
SetupSRL;
ActivateClient;
Wait(2000+random(500));
repeat
Mine;
DropThatShit;
until( Loads >= MaxLoads);
TypeSend('Bored…')
end.


and dont ever forget…:google: :f:

Umm, maybe properly format it then put it into

 tags and also attach it? Otherwise, thanks for trying.

From: Here
Umm, maybe properly format it then put it into

 tags and also attach it? Otherwise, thanks for trying.

It still works even if it's not in SCAR tags or not in a downloadable file.. :p Although it is much easier to copy it when it's in SCAR tags.

I'm teaching him right now (he's my friend in real life) to script, and he's catching on pretty good right now. He still has a lot to learn, but so far he's doing pretty well :) Keep it up tpm!

will do Here

ye teachers are great my teacher is ilikepie

Hey, good job for your first script tpm. I'm glad that you get variables now. :D