Line 205: [Error] (471:1): Semicolon (';') expected in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar
Line 205: [Error] (471:1): Semicolon (';') expected in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar
fally cow cruncher is the script
and the line it says has a problem only has begin
in it =\
Well, if you can't post the script then nobody's ever gunna be able to help you. Copy the whole script and paste it into a post here, and wrap it in scar tags. If you can't do that then you really shouldn't be here..
I'm going to sleep now.
Goodnight.
simple find the line above it and add a semicolon after whatever is on that line
plus you should post all errors on the thread which you got the script from
also here is something you could look at http://www.villavu.com/forum/showthread.php?t=6413
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
SCAR Code:{
directions: fill out playerform, place Characters in falador
east bank, press play, and watch the ownage
Thanks loads to munk for his forefeathers script,
which i learned much from, and even stole some procedures off of }
program FallyCowCruncher;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/fighting.scar}
type
TPAStuff = Record
Col, Tol,Len: Integer;
W,H: Integer;
HM,SM: Extended;
end;
var
x,y,i,LDBA,CowsKilled,HidesPicked,
LoadsDone,Tl,Currhides : integer;
Player: boolean;
const
Debug = false;
YourSrlID = '';
YourSrlPassword = '';
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Pin := '';
Players[0].Integers[1] :=90; //desired attack
Players[0].Integers[2] :=93; //desired strength
Players[0].Integers[3] :=8-; //desired defense
Players[0].Integers[4] :=500; //How many loads before logging
Players[0].Integers[7] := 5; //avg seconds to kill a cow
Players[0].Active := True;
end;
{
===========================================================================================}
function ActivePlayers: integer;
var pf,l: integer;
begin
for l := 0 to (howmanyplayers - 1) do
if players[l].active then inc(pf);
Result := pf
end; {
============================================================================================}
function AttackMode:boolean;
var
b,att,str,def:integer;
begin
if not(loggedIn) then exit;
if (timefrommark(b)>60000)or(players[currentplayer].skill='') then
begin
Result := true;
GameTab(2);
wait(200);
att:=getskillinfo('attack',false);
str:=getskillinfo('strength',false);
def:=getskillinfo('defence',false);
if Debug then writeln(inttostr(att)+' attack');
if Debug then writeln(inttostr(str)+' strength');
if Debug then writeln(inttostr(def)+' defence');
marktime(b);
players[currentplayer].skill := '';
if players[currentplayer].Integers[1] > att then
if (players[currentplayer].integers[2] <= str) or (att <= str) then
if (players[currentplayer].integers[3] <= def) or (att <= def) then
players[CurrentPlayer].skill := 'attack';
if (players[currentplayer].Integers[2] > str) then
if (players[currentplayer].Integers[1] <= att)or (str <= att) then
if (players[currentplayer].integers[3] <= def) or (str <= def) then
Players[CurrentPlayer].skill := 'strength';
if (players[currentplayer].Integers[3] > def) then
if (players[currentplayer].Integers[1] <= att) or (def <= att) then
if (players[currentplayer].integers[2] <= str) or (def <= str) then
Players[CurrentPlayer].skill := 'defence';
end;
if debug then Writeln('attack style is ' + players[currentplayer].skill);
GameTab(1);
case lowercase(players[currentplayer].skill) of
'attack': setfightmode(1);
'strength': setfightmode(2);
'defence': setfightmode(4);
'' : Result := false;
end;
end;
{
==========================================================================================}
{
==============================================================================================}
Procedure Proggy;
begin
Writeln('=====================================================================');
Writeln('FallyCowCruncher has been running for ' + Timerunning);
Writeln('~~~~~~~~~~~~~~~~~~~~~~~~');
Writeln('Players have killed ' + inttostr(CowsKilled) + ' Cows');
Writeln('and picked up ' + inttostr(hidespicked) + ' Cowhides');
Writeln('in a total of ' + inttostr(LDBA) + ' Loads');
for i := 0 to (HowManyPlayers - 1) do
begin
if players[i].integers[5] > 0 then
begin
Writeln('');
Writeln('"' +Players[i].nick + '"' + '(' + BooltoStr(players[i].Active) + ')' +' has killed ' + inttostr(players[i].integers[5]) + ' Cows');
end;
if players[i].integers[6] > 0 then
begin
Writeln('and has picked ' + inttostr(players[i].integers[6]) + ' Hides');
end;
end;
Writeln('===========================FallyCowCruncher==========================');
end;
{
================================================================================}
Function GetFallyRoadColor: Integer;
var
cts,wi,TC:integer;
RoadC:TpointArray;
begin
cts := getcolortolerancespeed;
colortolerancespeed(2);
setcolorspeed2modifiers(0.52,0.22);
findcolorstolerance(RoadC,6321020,MMx1,mmy1,mmx2,mmy2,7);
for wi := 0 to high(RoadC) do
begin
if rs_Onminimap(RoadC[wi].x,RoadC[wi].y) then
begin
TC := GetColor(RoadC[wi].x,RoadC[wi].y);
if similarcolors(TC,6321020,7) then
if GetColor(RoadC[wi].x + 2,RoadC[wi].y) = TC then
if GetColor(RoadC[wi].x - 2, RoadC[wi].y) = TC then
begin
Result := TC;
break
end;
end;
end;
Writeln('Falador Roadcolor = ' + inttostr(Result));
ColorToleranceSpeed(cts);
end;
procedure FastFlag(ms:integer);
var
Time:integer;
begin
marktime(Time);
while (flagPresent) do
begin
if timefrommark(Time)>ms - 1000 + random(2000) then exit;
ftwait(1+random(2));
FindNormalRandoms;
end;
end;
{
==============================================================================================}
Function FindFallyBank: Boolean;
var
BankDTM: integer;
BP: TPoint;
begin
BankDTM := DTMFromString('78DA632C66626008654001FFFFFF67D061646' +
'06084B0FF33E602D5C442E418A1F8CF1F26381F4C1712A1A694B0' +
'1A0089E9105D');
try
if dtmrotated(BankDTM,BP.x,BP.y,MMx1,MMy1,MMx2,MMy2) then
begin
if distance(MMcx,MMcy,BP.x,BP.y) > 12 then
Mouse(BP.x,BP.y,0,0,True);
wait(200+random(300));
FFlag(Random(3));
OpenBankFast('feb');
if PinScreen then Inpin(Players[currentplayer].pin);
wait(300 + random(300));
FixBank;
Result := True;
FreeDTM(BankDTM);
end;
except Freedtm(BankDTM); end;
end;
//thank you Munk
function getMMgateColor:integer;
var
i,i2,c,col,lenTmp:integer;
p:TpointArray;
begin
for col:=210 to 254 do
begin
c:=0;
setArrayLength(p,0);
findColorsSpiralTolerance(mmcx,mmcy,p,col,mmx1,mmy1,mmx2,mmy2,0);
lenTmp:=length(p);
if lenTmp>0 then
begin
for i:=0 to lenTmp-1 do
for i2:=0 to lenTmp-1 do
begin
if i<>i2 then
if (abs(p[i].x-p[i2].x)<2) and (abs(p[i].y-p[i2].y)<2) then
inc(c);
if c>2 then
begin
result:=col;
if debug then writeln('doorColor = '+inttostr(col));
exit;
end;
end;
end;
end;
if debug then writeln('ERROR: doorColor not found!');
end;
{
=============================================================================================}
//Thank you Munk
procedure SetRetaliate(ret:boolean);
var
i:integer;
begin
if not(loggedIn) then exit;
gametab(1);
for i:=1 to 5 do
begin
case getColor(600,390) of
4540745: if ret=true then mouse(600+random(100),370+random(20),0,0,true) else exit;
1711220: if ret=false then mouse(600+random(100),370+random(20),0,0,true) else exit;
end;
wait(200);
end;
end;
Procedure AntiBan;
begin
case random(8) of
3: HoverSkill(players[currentplayer].skill,false);
5: PickupMouse;
1,4,7,2: IdleTime(2000,1000,rand);
end;
FindNormalRandoms;
end;
Function FindDtmSpiral(var x, y: integer; DTM, x1, y1, x2, y2: integer): Boolean;
var
ex1, wy1, ex2, wy2, lenx, leny : integer;
begin
lenx := (x2 - x1) div 20;
leny := (y2 - y1) div 20;
ex1 := x - lenx;
wy1 := y - leny;
ex2 := x + lenx;
wy2 := y + leny;
if not(finddtm(DTM,x,y,x1,y1,x2,y2)) then exit;
repeat
if finddtm(DTM,x,y,ex1,wy1,ex2,wy2) then Result := True;
if Result then break;
if ex1 < x1 then ex1 := ex1 - lenx;
if wy1 < y1 then wy1 := wy1 - leny;
if ex2 < x2 then ex2 := ex2 + lenx;
if wy2 < y2 then wy2 := wy2 + leny;
until(ex1 >= x1) and (ex2 >= x2) and (wy1 >= y1) and (wy2 >= y2);
end;
Function CountInvDTMs(DTM :integer) :integer;
var
n, r, m, g: integer;
slot: tbox;
begin
for n := 1 to 28 do
begin
if existsitem(n) then
begin
slot:= invbox(n);
if FindDTM(DTM,m,g,slot.x1,slot.y1,slot.x2,slot.y2) then inc(r);
end;
end;
Result := r ;
end;
function CountHides: integer;
var
tempcount, HDTM: integer;
begin
HDTM := DTMFromString('78DA637461626078C2800276AE5FC7C005A41' +
'981F83F1030FA63AA81C8C248206D4A841A0FA09A9B04D4B801D5' +
'7C22A0C60AA8E6360135D64035EFF1AB0100CD220E4B');
Result := Result xor Result;
GameTab(4);
wait(100 + random(200));
if finddtm(HDTM,x,y,MIx1,MIy1,MIx2,MIY2) then
begin
TempCount := CountInvDTMs(HDTM);
if debug then writeln(inttostr(tempcount) +' Hides in inv.');
Result := TempCount - CurrHides;
CurrHides := TempCount;
end;
freedtm(HDTM);
end;
Function FindObjCustomEx(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean;
var
a, b, c, i, x1, y1, x2, y2: Integer;
Start: Boolean;
begin
for b := 0 to (GetArrayLength(Color)-1) do
begin
if (FindColorSpiralTolerance(cx, cy, color[b], MSX1, MSY1, MSX2, MSY2, Tolerance)) then
begin
Start := True;
Break;
end;
end;
if(Start)then
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if not(LoggedIn)then break;
a := a + 1;
if (a = 1) then
c := c + 1
else if (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end else
if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end else
if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end else
if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
for b := 0 to (GetArrayLength(Color)-1) do
begin
if (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
begin
MMouse(cx, cy, 0, 0)
if (IsUpTextMultiCustom(Text)) then
begin
Result := True;
Exit;
end;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;
Procedure YellowDot;
var
thegatecolor : integer;
begin
if not(loggedin) then Exit;
makecompass('n');
x := 626;
y := 8;
TheGateColor := GetMMGateColor;
findcolorspiral(x,y,TheGateColor,MMx1,MMy1,MMx2,MMy2);
x := x + 3 - random(6);
y := y - (20 + random(30));
if FindColorSpiral(x,y,62965,MMX1,y - 10,MMX2,MMY2) then
begin
Mouse(x,y,3,3,true);
FastFlag(30000);
Wait(846 + random(1000));
end;
end;
{
============================================================================================}
Function CheckGateOpen(IntoPen:Boolean): Boolean;
var
GX, GY, K, P: Integer;
Color: array [0..2] of integer;
begin
MarkTime(k);
if IntoPen = true then
begin
Color[0] := 4610919;
Color[1] := 2636613;
Color[2] := 2373183
end else
begin
Color[0] := 4874349;
Color[1] := 2505028;
Color[2] := 2373183;
end;
MarkTime(p);
repeat
if FindObjCustomEx(GX, GY, ['ate','pen','ose'], [Color[0],color[1],color[2]],10) then
begin
if IsUpText('los') then
begin
Result := true;
end;
if IsUpText('pen') then
begin
Wait(100 + Random(100));
Mouse(GX, GY, 0, 0, False);
if chooseoption('pen') then
begin
FastFlag(4000);
Wait(1500);
Result := True;
end;
end;
end;
if TimeFromMark(p)> 30000 then
MakeCompass('w');
if TimeFromMark(k) > 60000 then
begin
Logout;
NextPlayer(false);
Exit;
end;
wait(100+random(600));
until(Result = true);
end;
{
================================================================================}
Procedure FightSetup;
begin
If not(loggedin) then Exit;
MakeCompass('n');
SetRun(true);
if not AttackMode then
begin
logout;
Player := false;
Exit;
end;
SetRetaliate(true);
GameTab(4);
end;
{
============================================================================================}
Procedure WhenToRun;
var
Hp: integer;
begin
if (not(loggedin)) then exit;
FindNormalRandoms;;
Antiban;
Hp:=HpPercent;
if (Hp > 0) and (Hp < 50) then
begin
runaway('n',true,2,random(5000));
logout;
Proggy;
player := false;
Exit;
end;
end;
{
============================================================================== }
procedure LogIn;
begin
if not(loggedin) then
begin
LoginPlayer;
Loadsdone := 0;
SymbolAccuracy := 0.8;
end;
Wait(500);
SetAngle(true);
Tl := 0;
MakeCompass('n');
GameTab(5);
SetRun(false);
SetBar('Brightness',4);
end;
{
============================================================================================}
Procedure CollectTheHide;
var
cts, ly, f1, f2, iv: integer;
CowHides: TPointArray;
Hide: T2dPointArray;
P:Tpoint;
found1: Boolean;
begin
if CurrHides = 0 then CountHides;
MarkTime(f1);
repeat
if invfull then Break;
cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.00,0.15);
GetMousePos(P.x,P.y);
FindColorsSpiralTolerance(P.x,P.y,CowHides,12303300,Msx1,Msy1,Msx2,Msy2,6);
Hide := SplitTPA(Cowhides,5);
for ly := 0 to high(Hide) do
begin
if length(hide[ly]) >= 45 then
begin
P := MiddleTPA(Hide[ly]);
MMouse(P.x,P.y,0,0);
wait(60 + random(50));
if isuptext('tion') then
begin
GetMousePos(P.x,P.y);
Mouse(P.x,P.y,0,0,False);
ftwait(1 + random(2));
if ChooseOption('owhi') then
begin
Found1 := True;
FFlag(random(3));
MarkTime(f2);
iv := iv xor iv;
findnormalrandoms;
ftwait(1 + random(2));
break;
end else inc(iv);
end;
end else inc(iv);
end;
if random(5) = 1 then findnormalrandoms;
if (found1) and (iv > 10) then break;
if (not found1) and
(TimefromMark(f1) >= Players[currentplayer].integers[7] * 500) then break;
until(found1) and (timefrommark(f2) >= 2000 + random(2000));
ColorToleranceSpeed(cts);
Ly := CountHides;
Hidespicked := Hidespicked + Ly;
ReportVars[1] := ReportVars[1] + Ly;
Players[CurrentPlayer].integers[6] := Players[CurrentPlayer].integers[6] + Ly;
if debug then writeln(inttostr(ly) + ' new hides');
if debug then writeln(inttostr(hidespicked) + ' hides so far.');
end;
{Procedure CollectHide;
var
l, NewH, mshide, tries, findtries: integer;
begin
mshide := DTMFromString('78DA635CC6C0C0B08B01052C501661D061646' +
'0002286FF40C0B80AC8D881AA66E7FA750CAC0C103520C0B808D3' +
'9CE3FBF7C1D58030002CFF0D8A');
if debug then writeln('now looking for some cowhides');
MarkTime(l);
if CurrHides = 0 then CountHides;
repeat
if invfull then Break;
x := MSCx;
y := MSCy;
if findDTMSpiral(x,y,MsHide,msx1,msy1,msx2,msy2) then
begin
MMouse(x - 6,y - 6,12,12);
wait(100 + random(300));
if isuptext('ake') then
begin
getmousepos(x,y);
Mouse(x,y,0,0,False);
if Chooseoption('owhi') then
begin
tries := 0;
findtries := 0;
FindNormalRandoms;
FFlag(2);
ftwait(4 + random(3));
end else inc(tries);
end else inc(tries);
end else inc(findtries);
if findtries > 20 then break;
if tries > 10 then break;
until(timefrommark(l) > (Players[currentplayer].integers[7] * 1000 + random(2000)));
FreeDTM(MsHide);
newH := CountHides;
Hidespicked := Hidespicked + NewH;
ReportVars[1] := ReportVars[1] + NewH;
Players[CurrentPlayer].integers[6] := Players[CurrentPlayer].integers[6] + NewH;
if debug then writeln(inttostr(newh) + ' new hides');
end; }
{
==============================================================================================}
procedure GetInPen;
var thegatecolor : integer;
begin
MakeCompass('n');
x := 626;
y := 8;
TheGateColor := GetMMGateColor;
if findcolorspiral(x,y,thegatecolor,mmx1,mmy1,mmx2,mmy2) then
if y > 85 then
begin
mouse(x,y - 2,1,1,true);
Fastflag(30000);
wait2(1500 + random (1000),true);
CheckGateOpen(true);
YellowDot;
end else
if y > 67 then
YellowDot;
end;
function FightCow:boolean;
var
i,z,len,w,cts:integer;
Coz : array [0..2] of TPAStuff;
P:Array of Tpoint;
PP:T2DpointArray;
c:Tpoint;
topbox: Tbox;
UTbool:boolean;
begin
Coz[0].Col := 3361619;
Coz[0].Tol := 4;
Coz[0].Len := 30;
Coz[0].W := 6;
Coz[0].H := 6;
Coz[0].HM := 0.11;
Coz[0].SM := 1.58;
Coz[1].Col := 6847377;
Coz[1].Tol := 4;
Coz[1].Len := 20;
Coz[1].W := 5;
Coz[1].H := 5;
Coz[1].HM := 0.07;
Coz[1].SM := 1.26;
Coz[2].Col := 5067873;
Coz[2].Tol := 3;
Coz[2].Len := 20;
Coz[2].W := 5;
Coz[2].H := 5;
Coz[2].HM := 0.11;
Coz[2].SM := 0.17;
if not(loggedin) then exit;
cts := GetcolortoleranceSpeed;
ColorToleranceSpeed(2);
for w := 0 to 2 do
begin
SetColorSpeed2Modifiers(Coz[w].HM,Coz[w].SM);
FindColorsSpiralTolerance(mscx,mscy,p,Coz[w].Col,msx1,msy1,msx2,msy2,coz[w].tol);
pp:=TPAtoATPAex(p,Coz[w].W,Coz[w].H);
len:=length(pp)-1;
for i:=0 to len do
if length(pp[i]) > coz[w].len then
begin
c:=middleTPA(pp[i]);
if (c.x<>0) and (c.y<>0) then
if not pointinbox(c,TopBox) then
begin
mmouse(c.x - 5,c.y - 5,10,10);
for z:=0 to 6 do
begin
if isUpTextMultiCustom(['tta','tio']) then
begin
UTbool:=true;
GetMousePos(c.x,c.y);
break;
end;
wait(25);
end;
if UTbool then
begin
if (random(3) = 0 or 2) or not(isuptext('Att')) then
begin
mouse(c.x,c.y,0,0,false);
wait(50+random(100));
if chooseoption('Att') then
begin
result:=true;
wait(200+random(400));
ftwait(1);
ColorToleranceSpeed(cts);
exit;
end else break;
end else
begin
wait(100 + random(100));
if isuptext('Att') then
begin
Mouse(c.x,c.y,0,0,True);
result:=true;
ftwait(1);
ColorToleranceSpeed(cts);
exit;
end;
end;
end else break;
end;
end;
wait(15);
end;
ColorToleranceSpeed(cts);
end;
{
==============================================================================================}
Procedure KillDaCows;
var
z,m,d,f: integer;
begin
if not(loggedin) then exit;
Tl := 0;
FightSetup;
CurrHides := CountHides;
MarkTime(m);
MarkTime(f);
Marktime(d);
repeat
if not loggedin then Exit;
if TimeFromMark(m) >= 60000 then
begin
FightSetup;
MarkTime(m);
end;
FindNormalRandoms;
if FightCow Then
begin
ftwait(1);
MarkTime(z);
while TimeFromMark(z) < (Players[currentplayer].integers[7] * 500) + random(2000) do
begin
FindTalk;
WhenToRun;
wait(50 + random(100));
FindNormalRandoms;
wait(30);
end;
CollectThehide;
Tl := 0;
CowsKilled := CowsKilled + 1;
ReportVars[0] := ReportVars[0] + 1;
Players[currentplayer].integers[5] := Players[currentplayer].integers[5] + 1;
wait(100);
SrlRandomsReport;
MarkTime(d);
end else
begin
if Tl > 4 then
begin
Logout;
Player := false;
Exit;
end;
if TimeFromMark(d) >= 8000 + random(8000) then
begin
if debug then writeln('cant find cow, moving...');
YellowDot;
FtWait(2);
MarkTime(d);
MarkTime(f);
Tl := Tl + 1;
end;
if timefrommark(f) > 6000 + random(6000) then
begin
getinpen;
MarkTime(f);
end;
end;
Until(InvFull);
end;
{
============================================================================================}
Procedure Signature;
begin
Writeln('==================================');
Writeln('thank you for using...');
Writeln(' _____ ____ ____ ');
Writeln(' | ___| / ___| / ___|');
Writeln(' | |_ | | | |');
Writeln(' | _| | |___ | |___');
Writeln(' |_|alador \____|ow \____|runcher');
Writeln('============By Drizzt=============');
Writeln('');
end;
{
============================================================================================}
Procedure ScriptTerminate;
begin
if not(Debug) then ClearDebug;
Signature;
Proggy;
end;
{
============================================================================================}
procedure BankStuff;
begin
GameTab(4);
if not(loggedin) then exit;
if not bankscreen then Findfallybank;
if pinscreen then inpin(Players[currentplayer].pin);
Wait(300 + random(800));
DepositAll;
Wait(400 + random(800));
CloseBank;
wait(300 + random(900));
FindNormalRandoms;
end;
{
============================================================================================}
procedure ToPen;
var
z,u,rt,TheRoadColor,p,TheGateColor:integer;
begin
login;
Z:=0;
if invcount > 0 then BankStuff;
Makecompass('n');
marktime(rt);
Repeat
if timefrommark(rt) > 15000 then
begin
if debug then writeln('timefrommark(rt) too high, logging out');
Logout;
wait(1500);
LoginPlayer;
inc(p);
if p >= 3 then
begin
Logout;
Player := False;
end;
Exit;
end;
FindNormalRandoms;
TheRoadColor := GetFallyRoadColor;
ftWait(1);
until(TheRoadColor > 0);
if radialwalk(TheRoadColor,180,270,40,1,1) then
begin
ftwait(1);
end else Exit;
MarkTime(z);
for i := 0 to 3 do
begin
if radialroadwalk(TheRoadColor,165,200,50,1,1) then
ftwait(i);
end;
if TimeFromMark(z) > 120000 then
begin
if debug then writeln('timefrommark(z) too high, logging out');
Logout;
Player := false;
Exit;
end;
if (not(Findsymbolin(x,y,'tree',mmcx,mmy1,mmx2,mmy2))) then
begin
if debug then Writeln('darn kid is standing on the symbol');
if debug then Writeln('decreasing accuracy');
while (not(Findsymbolin(x,y,'tree',mmcx,mmy1,mmx2,mmy2))) do SymbolAccuracy := Symbolaccuracy -0.05;
end;
mouse(x + 7,y,10,5,true);
fastflag(30000);
ftwait(3 + random(2));
P := 674;
U := 90;
TheGateColor := GetMMGateColor
if findcolorspiral(p,u,TheGateColor,mmx1,mmy1,mmx2,mmy2) then
begin
mouse(p + 1,u - 2,0,0,true);
if debug then writeln('going infront of the gate');
fastflag(20000);
Antiban;
CheckGateOpen(True);
end;
if findcolorspiral(p,u,thegatecolor,mmx1,mmy1,mmx2,mmy2) then
begin
mouse(p,u + 15,10,10,true);
fastflag(30000);;
Setangle(True);
Z:= Z + 1;
end;
end;
{
============================================================================================}
procedure ToBank;
var
TheRoadColor,TheGateColor,bt,wi: Integer;
begin
if (not(loggedin)) then Exit;
if debug then writeln('have a full load, leaving for the bank');
FindNormalRandoms;
MakeCompass('n');
GameTab(5);
SetRun(false);
SetBar('Brightness',4);
x := 626;
y := 8;
MarkTime(bt);
TheGateColor := GetMMGateColor;
if findcolorSpiral(x,y,TheGateColor,mmx1,mmy1,mmx2,mmy2) then
begin
Mouse(x,y + 3,1,1,true);
FastFlag(30000);
CheckGateOpen(false);
repeat
SymbolAccuracy := SymbolAccuracy - 0.05;
MakeCompass('n');
ftwait(2 + random(3));
if timefrommark(bt) >= 90000 then
begin
if debug then writeln('timefrommark(bt) too high, logging out');
Logout;
Player := false;
Exit;
end;
until(findsymbolin(x,y,'tree',mmx1,mmy1,mmcx,mmy2));
if findsymbolin(x,y,'tree',mmx1,mmy1,mmcx,mmy2) then
begin
SymbolAccuracy := 0.8;
MarkTime(bt);
mouse(x - 5,y - 5,5,5,true);
fastflag(30000);
ftwait(2 + random(2));
end;
for wi := 0 to 9 do
begin
TheRoadColor := GetFallyRoadColor;
if TheRoadColor > 0 then break;
ftwait(1);
end;
if TheRoadColor = 0 then
begin
Logout;
Player := false;
Exit;
end;
if not(RadialWalk(TheRoadColor,360,270,55,2,2)) then
if not(RadialWalk(TheRoadColor,360,270,60,2,2)) then
RadialWalk(TheRoadColor,360,270,65,2,2);
ftWait(2 + random(3));
FindNormalRandoms;
RadialWalk(TheRoadColor,375,340,55,1,2);
repeat
RadialWalk(TheRoadColor,375,340,55,1,2);
FindNormalRandoms;
MakeCompass('n');
ftwait(1 + random(2));
if timefrommark(bt) >= 240000 then
begin
if debug then writeln('timefrommark(bt) too high, logging out');
Logout;
Player := false;
Exit;
end;
if not(loggedin) then exit;
until(Findfallybank);
if debug then writeln('i think i found the bank');
BankStuff;
LDBA := LDBA + 1;
LoadsDone := LoadsDone + 1;
if loadsdone >= Players[currentplayer].integers[4] then
begin
Logout;
LoadsDone := 0;
Player := true;
Exit;
end;
end;
end;
{
============================================================================================
Main Loop-----------------------------------------------------------------------------------
============================================================================================}
begin
Signature;
SmartSetupEx(16,False,True);
while not(smartready) do wait(1000);
SetTargetDC(SmartGetDC);
SetupSRL;
ScriptID := '665';
SRLID := YourSRLID;
SRLPassword := YourSRLPassword
ActivateClient;
DeclarePlayers;
CowsKilled := 0;
HidesPicked := 0;
repeat
currhides := currhides xor currhides
player := false;
if not loggedin then loginplayer;
ToPen;
KillDaCows;
ToBank;
proggy;
if not(loggedin) then
begin
if debug then Writeln('player = ' + booltostr(player));
if activeplayers = 1 then wait(random(60000));
NextPlayer(Player);
LoadsDone := 0;
end;
if activeplayers = 0 then
begin
proggy;
TerminateScript;
end;
until(False);
end.
ermmm... thats not scar tags
but i will have a look
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
The error is in Math.scar, not the user's script.
Try redownloading SRL and moving the plugins, you may not have done that correctly.
:-)
oh yeah i didnt notice thatlol
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
He probably didn't fill in his players, that is why I usually get a math error.
Writing an SRL Member Application | [Updated] Pascal Scripting Statements
My GitHub
Progress Report:13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you have serious physchological problems 13:46 <@BenLand100> HE GETS IT! 13:46 <@BenLand100> HE FINALLY GETS IT!!!!1
omg thank all of you i just learned a few more things![]()
There are currently 1 users browsing this thread. (0 members and 1 guests)