give time for the image to load
give time for the image to load
OMFG, Thank you so much. I always wondered how to do this.
really nice tut!! nice and colourful! thats way cool!
SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
Programming Projects: NotePad | Tetris | Chess
Thanks for this was wondering how to do this!
a question: i register SRL Stats but i forgot my ID key. How can i recover it?
ill try ask my friend if hell add srl stats for the monk killer
Thank you so much rs moneky i always wanted to put this in one of my scripts but i never knew how.
ok i did that, but its not working... http://www.stats.srl-forums.com/inde..._script&id=190
and afterSCAR Code:ReportVars[5] := ReportVars[5] + 1; // talks
EDIT: when i try setupsrl.scar, for user ID i type gsquare567 and i get this error...SCAR Code:SRLRandomsReport; // send ReportVars to SRL
am i using the right user id, if not, how do i get it if i have... misplaced it?SCAR Code:[Runtime Error] : Exception: Access violation at address 00000000. Read of address 00000000 in line 755 in script C:\Program Files\SCAR 3.06\includes\SRL\SetupSRL.scar
edit again: i got this when i ran my script "Invalid Script ID"
SCAR Code:SetupSRL;
ScriptID := '190';
SRL ID # not SRL username on these forums. "p
EDIT:
I think the Rs Monkey forgot a few things.
Here this is taken from my script.
Code:SetupSRL; SRLID := dSRLID; //const SRLPassword:= dSRLPASS; //const for i:= 0 to 19 do //<--- ReportVars[i]:= 0; ScriptID := ''; SetUpSRLReport; // <---
hey i get this Assignment expected in script after
ScriptId :='192';
SrlRandomsReport;
ReportVars[0]= Varname1(Rocks);
can anyone help me?
SCAR Code:ReportVars[0] := ReportVars[0] + CountItemBmpMaskTol(OreMask, 15);
i stole this oremask from Wizzups VEM lol.
hopefully he won't mind
SCAR Code:OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
'2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
'B599CC1');
Great tut but i think one of the like dosent open for me.
Can Some One Please Add In The Thing That Updates Srl Stats For Me Every Time It Does Procedure ReportProgress;?
P.S. This Is Just Some Of My Script You Might Need To Use To Add Stats &
The Thing To Report To SRL Stats Is
CoalMined
SCAR Code:Procedure ReportProgress;
Begin;
ClearReport;
AddToReport('Progress Report')
AddToReport('Auto CoalMiner')
AddToReport('By: Timer150')
AddToReport('')
AddToReport('Averaged Coal/Exp')
AddToReport('Mined ' + inttostr(CoalMined) + ' Coal')
AddToReport('Exp Gained ' + inttostr(CoalMined*50))
End;
Procedure AttackCheck;
Begin
If(Findcolor(x,y,Blood,201,113,327,220))Then
RunFarAway;
end;
Procedure Drop_Coal(Color:Integer);
var
x, y, Drop:Integer;
begin
Drop:= DTMFromString('78DA63B4636260E064644006FFFFFF07D3305' +
'1465BA01A5E5435300057E30A542344408D07500D0F01BBF48854' +
'C346408D19A69B31D480FCCE875F0D00B9181450');
while(FindColor(x,y,Color,548,168,761,496))do
begin
Mouse(x+5,y,1,1,false);
Wait(900);
if(FindDtm(Drop,x,y,548,168,761,496))then
begin
Mouse(x,y,1,1,true)
Wait(450);
end;
end;
FreeDtm(Drop);
end;
Var Z:integer;
Procedure MineOre;
Begin;
Repeat;
Mine_Coal;
Attackcheck;
Z:=z+1;
CoalMined:=CoalMined+1;
ReportProgress;
Until(Z=Ore);
End;
Procedure DoItAll;
Begin;
MineOre;
Speak('Droping')
Say('Feel Free To Take ^.^')
Drop_Coal(Coal2);
End;
Begin;
SetupTimersInclude;
ReportProgress;
Setup;
Setup2;
SetupSRL;
ScriptID := '199';
Repeat;
DoItAll;
Until(CoalMined>OreToMine);
End.
Any 1 Here?
what about this?
SCAR Code:Procedure ReportProgress;
Begin;
ClearReport;
AddToReport('Progress Report')
AddToReport('Auto CoalMiner')
AddToReport('By: Timer150')
AddToReport('')
AddToReport('Averaged Coal/Exp')
AddToReport('Mined ' + inttostr(CoalMined) + ' Coal')
AddToReport('Exp Gained ' + inttostr(CoalMined*50))
SrlRandomsReport;
End;
Procedure AttackCheck;
Begin
If(Findcolor(x,y,Blood,201,113,327,220))Then
RunFarAway;
end;
Procedure Drop_Coal(Color:Integer);
var
x, y, Drop:Integer;
begin
Drop:= DTMFromString('78DA63B4636260E064644006FFFFFF07D3305' +
'1465BA01A5E5435300057E30A542344408D07500D0F01BBF48854' +
'C346408D19A69B31D480FCCE875F0D00B9181450');
while(FindColor(x,y,Color,548,168,761,496))do
begin
Mouse(x+5,y,1,1,false);
Wait(900);
if(FindDtm(Drop,x,y,548,168,761,496))then
begin
Mouse(x,y,1,1,true)
Wait(450);
end;
end;
FreeDtm(Drop);
end;
Var Z:integer;
Procedure MineOre;
Begin;
Repeat;
Mine_Coal;
Attackcheck;
Z:=z+1;
CoalMined:=CoalMined+1;
ReportVars[0] := ReportVars[0] + 1;
ReportProgress;
Until(Z=Ore);
End;
Procedure DoItAll;
Begin;
MineOre;
Speak('Droping')
Say('Feel Free To Take ^.^')
Drop_Coal(Coal2);
End;
Begin;
SetupTimersInclude;
ReportProgress;
Setup;
Setup2;
SetupSRL;
ScriptID := '199';
Repeat;
DoItAll;
Until(CoalMined>OreToMine);
End.
Hugolord, everytime you do something like that with vars, you need to have := there instead of only = because, the ":" is the assigner or whats it called
Timer, what do you mean by that?
Thanks Rs Monkey
Does it record the time spent running automatically?
There are currently 1 users browsing this thread. (0 members and 1 guests)