I just tried munks flawless chicken killer and only gets a 49 lol
Result = 49
Sorry, Your script isnt SRL-Members Worthy.
Add Walking (RRW),DTMs, DDTM, Forms,Multiplayer
Or ethier UPDATE YOUR SCRIPT! No ClickMouse
and FindFastRandoms PLEASE.
I just tried munks flawless chicken killer and only gets a 49 lol
Result = 49
Sorry, Your script isnt SRL-Members Worthy.
Add Walking (RRW),DTMs, DDTM, Forms,Multiplayer
Or ethier UPDATE YOUR SCRIPT! No ClickMouse
and FindFastRandoms PLEASE.
http://www.fenjer.com/adnan/SRLStats/1035.png
If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly!
Let's run my Catherby Fisher through this... I believe that in an actual application should be worthy...
Output:
Just because I use a special, homemade and better version of RadialWalk...MainForm compiled in 47 milliseconds!
Result = 6
Sorry, Your script isnt SRL-Members Worthy.
Add Walking (RRW),DTMs, DDTM, Forms,Multiplayer
Or ethier UPDATE YOUR SCRIPT! No ClickMouse
and FindFastRandoms PLEASE.
But I guess that isn't very common either, so I wouldn't add it to this tool. Good job, though
-Knives
Ouch. my bone burrier, which i worked on for like an hour got a 21.
My powercutter, which i worked on for like 10 hours, got a -47.
there is no logic :P obviously i gotta work harder to become a member.
oh ya!thats with my smelter. good job on this BH!MainForm compiled in 32 milliseconds!
Result = 126
Apply for members, unless you have cheated this
Successfully executed
no i wasnt using my scripts i released
i used the script im currently working on :O
Wow, are you kidding me? I got -13. That's bs.
My Private Guildminer got 89%![]()
u should add a check for fail safes.. like
If
else
then
etc...
Code:
- Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
- Solarwind: Dude, you are like... t3h s3x.
- Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
- benjaa: woah.... Jukka is the man Guildminer pwns all
- NaumanAkhlaQ: And JuKKa Is my Her0!
*cries* why dont you post that before i update */cries* ;P
Code:
- Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
- Solarwind: Dude, you are like... t3h s3x.
- Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
- benjaa: woah.... Jukka is the man Guildminer pwns all
- NaumanAkhlaQ: And JuKKa Is my Her0!
Add bonus:
Label
GoTo
Here...i added a bunch of new things
SCAR Code:if Information('label') then
begin
CountTextInString(LowerCase(ScriptText), 'label', 1, true);
end else Writeln('Add labels!');
if Information('goto') then
begin
CountTextInString(LowerCase(ScriptText), 'goto', 1, true);
end else Writeln('Add goto commands!');
if Information('for') then
begin
CountTextInString(LowerCase(ScriptText), 'for', 1, true);
end else Writeln('Add for to do loops!');
if Information('while') then
begin
CountTextInString(LowerCase(ScriptText), 'while', 1, true);
end else Writeln('Add while loops!');
if Information('repeat') then
begin
CountTextInString(LowerCase(ScriptText), 'repeat', 1, true);
end else Writeln('Add repeat until loops!');
if Information('case') then
begin
CountTextInString(LowerCase(ScriptText), 'case', 1, true);
end else Writeln('Add case of!');
if Information('terminatescript') then
begin
CountTextInString(LowerCase(ScriptText), 'terminatescript', 1, false);
writeln('remove terminatescript. And add Logout!, if u use multiplayer!');
this is the whole script
SCAR Code:program New;
var
frmDesign: TForm;
LabelTop: TLabel;
Label1: TLabel;
MarkingL: TLabel;
AnswerL: TLabel;
PercentL: TLabel;
ScriptAreaE: TEdit;
GenerateB: TButton;
EndMainForm: boolean;
Memo1: TMemo;
var
Scripttext: string;
I: integer;
// When the form is closed, this code will be executed.
procedure MainFormOnClose(Sender: TObject; var Action: TCloseAction);
begin
if (not (frmDesign.ModalResult = 1)) then
EndMainForm := True;
end;
function CountTextInString(S, T: string; Worth: integer; plusminus: boolean): Integer; //By Garret. Modded by me :)
var
N, tt: Integer;
begin
repeat
TT := TT + 1;
if PlusMinus then
begin
I := I + worth;
end else
I := I - worth;
N := Pos(LowerCase(T), LowerCase(S));
Delete(S, N, Length(T));
if TT = 3 then
begin
break;
end;
until (N = 0);
end;
function Information(Word: string): boolean;
begin
if Pos(lowercase(Word), LowerCase(ScriptText)) > 0 then
begin
Result := true;
end;
end;
procedure Generate;
begin
ScriptText := Memo1.Text;
if Information('exit;') then
begin
CountTextInString(LowerCase(ScriptText), 'exit;', 1, true);
end else Writeln('Add exit!');
if Information('radial') then
begin
CountTextInString(LowerCase(ScriptText), 'radial', 7, true);
end else Writeln('Add radial!');
if Information('linearwalk') then
begin
CountTextInString(LowerCase(ScriptText), 'linear', 6, true);
end else Writeln('Add linearwalk!');
if Information('bitmapfromstring') then
begin
CountTextInString(LowerCase(ScriptText), 'bitmapfromstring', 5, true);
end else Writeln('Add bitmapfromstring!');
if Information('dtmfromstring') then
begin
CountTextInString(LowerCase(ScriptText), 'dtmfromstring', 5, true);
end else Writeln('Add dtmfromstring!');
if Information('dtmrotated') then
begin
CountTextInString(LowerCase(ScriptText), 'dtmrotated', 2, true);
end else Writeln('Add dtmrotated!');
if Information('finddtm') then
begin
CountTextInString(LowerCase(ScriptText), 'finddtm', 1, true);
end else Writeln('Add finddtm!');
if Information('tform') then
begin
CountTextInString(LowerCase(ScriptText), 'tform', 3, true);
end else Writeln('Add tform!');
if Information('fflag(') then
begin
CountTextInString(LowerCase(ScriptText), 'fflag(', 2, true);
end else Writeln('Add fflag!');
if Information('players') and Information('nextplayer(') then
begin
CountTextInString(LowerCase(ScriptText), 'players', 8, true);
end else Writeln('Add Players!');
if Information('findfastrandoms') then
begin
CountTextInString(LowerCase(ScriptText), 'findfastrandoms', 25, false);
Writeln('GET RID OF FINDFASTRANDOMS');
end;
if Information('{.include srl/srl.scar}') then
begin
CountTextInString(LowerCase(ScriptText), '{.include srl\srl.scar}', 5, true);
end else Writeln('Add SRL!');
if Information('if(not loggedin)then')then
begin
CountTextInString(LowerCase(ScriptText), 'if(not loggedin)then', 5, true);
end else Writeln('Add if not loggedin then exit!');
if Information('freedtm') then
begin
CountTextInString(LowerCase(ScriptText), 'freedtm', 5, true);
end else Writeln('Add freedtm!');
if Information('freebitmap') then
begin
CountTextInString(LowerCase(ScriptText), 'freebitmap', 5, true);
end else Writeln('Add freebitmap!');
if Information('freeform') then
begin
CountTextInString(LowerCase(ScriptText), 'freeform', 1, true);
end else Writeln('Add freeform!');
if Information('clickmouse') then
begin
CountTextInString(LowerCase(ScriptText), 'clickmouse', 25, false);
Writeln('Remove clickmouse!');
end;
if Information('movemouse') and not Information('sleepandmovemouse') then
begin
CountTextInString(LowerCase(ScriptText), 'movemouse', 25, false);
Writeln('Remove movemouse!');
end;
if Information('tdtmpointdef') then
begin
CountTextInString(LowerCase(ScriptText), 'tdtmpointdef', 5, true);
end else Writeln('Add tdtmpointdef!');
if Information('tpa') then
begin
CountTextInString(LowerCase(ScriptText), 'tpa', 5, true);
end else Writeln('Add tpa!');
if Information('walkpath(') then
begin
CountTextInString(LowerCase(ScriptText), 'walkpath(', 9, true);
end else Writeln('Add walkpath!');
if Information('tpointarray') then
begin
CountTextInString(LowerCase(ScriptText), 'tpointarray', 1, true);
end else Writeln('Add tpointarray!');
if Information('reportvars') then
begin
CountTextInString(LowerCase(ScriptText), 'reportvars', 1, true);
end else Writeln('Add reportvars!');
if Information('record') then //Bonus
begin
CountTextInString(LowerCase(ScriptText), 'record', 1, true);
end else Writeln('Add record!');
if Information('tpoint') then
begin
CountTextInString(LowerCase(ScriptText), 'tpoint', 3, true);
end else Writeln('Add tpoint!');
if Information('label') then
begin
CountTextInString(LowerCase(ScriptText), 'label', 1, true);
end else Writeln('Add labels!');
if Information('goto') then
begin
CountTextInString(LowerCase(ScriptText), 'goto', 1, true);
end else Writeln('Add goto commands!');
if Information('for') then
begin
CountTextInString(LowerCase(ScriptText), 'for', 1, true);
end else Writeln('Add for to do loops!');
if Information('while') then
begin
CountTextInString(LowerCase(ScriptText), 'while', 1, true);
end else Writeln('Add while loops!');
if Information('repeat') then
begin
CountTextInString(LowerCase(ScriptText), 'repeat', 1, true);
end else Writeln('Add repeat until loops!');
if Information('case') then
begin
CountTextInString(LowerCase(ScriptText), 'case', 1, true);
end else Writeln('Add case of!');
if Information('terminatescript') then
begin
CountTextInString(LowerCase(ScriptText), 'terminatescript', 1, false);
writeln('remove terminatescript. And add Logout!, if u use multiplayer!');
end;
AnswerL.Caption := IntToStr(I);
Writeln('Result = ' + IntToStr(I));
if I < 50 then
begin
writeln('Sorry, Your script isnt SRL-Members Worthy.');
{writeln('Add Walking (RRW),DTMs, DDTM, Forms,Multiplayer');
writeln('Or ethier UPDATE YOUR SCRIPT! No ClickMouse');
writeln('and FindFastRandoms PLEASE.');}
end else
Writeln('Apply for members, unless you have cheated this');
end;
procedure HandleButtons(Sender: TObject);
begin
case Sender of
generateB: begin
Generate;
frmDesign.ModalResult := 1
end;
end;
end;
// This form was parsed using: DFM Form Parser v.25 by Ron.
procedure MainForm;
var
TimeMainForm: Integer;
begin
TimeMainForm := GetSystemTime;
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 741;
frmDesign.Height := 480;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
LabelTop := TLabel.Create(frmDesign);
LabelTop.Parent := frmDesign;
LabelTop.Left := 32;
LabelTop.Top := 32;
LabelTop.Width := 543;
LabelTop.Height := 37;
LabelTop.Caption := 'SRL-Forums SRL Member Application';
LabelTop.Font.Color := clWindowText;
LabelTop.Font.Height := -33;
LabelTop.Font.Name := 'MS Sans Serif';
LabelTop.Font.Style := [];
LabelTop.ParentFont := False;
MarkingL := TLabel.Create(frmDesign);
MarkingL.Parent := frmDesign;
MarkingL.Left := 424;
MarkingL.Top := 424;
MarkingL.Width := 73;
MarkingL.Height := 13;
MarkingL.Caption := 'Score:';
AnswerL := TLabel.Create(frmDesign);
AnswerL.Parent := frmDesign;
AnswerL.Left := 505;
AnswerL.Top := 424;
AnswerL.Width := 16;
AnswerL.Height := 13;
AnswerL.Caption := '0';
PercentL := TLabel.Create(frmDesign);
PercentL.Parent := frmDesign;
PercentL.Left := 520;
PercentL.Top := 424;
PercentL.Width := 8;
PercentL.Height := 13;
PercentL.Caption := '%';
Memo1 := TMemo.Create(frmDesign);
Memo1.Parent := frmDesign;
Memo1.Left := 32;
Memo1.Top := 128;
Memo1.Width := 657;
Memo1.Height := 273;
Memo1.Lines.Add('Script Here!');
Memo1.ScrollBars := ssVertical;
Memo1.TabOrder := 9;
GenerateB := TButton.Create(frmDesign);
GenerateB.Parent := frmDesign;
GenerateB.Left := 536;
GenerateB.Top := 80;
GenerateB.Width := 145;
GenerateB.Height := 41;
GenerateB.Caption := 'Generate Mark';
GenerateB.TabOrder := 9;
generateB.OnClick := @HandleButtons;
WriteLn('MainForm compiled in ' + IntToStr(GetSystemTime - TimeMainForm) + ' milliseconds!');
end;
procedure SafeMainForm;
var
V: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('MainForm', V);
end;
procedure ShowMainFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowMainFormModal;
var
V: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowMainFormModal', V);
end;
procedure MainMainForm;
begin
try
SafeMainForm;
SafeShowMainFormModal;
finally
FreeForm(frmDesign);
except
WriteLn('An error seems to have occurred in: MainForm');
end;
end;
begin
ClearDebug;
MainMainForm;
if (EndMainForm) then
TerminateScript;
end.
Code:
- Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
- Solarwind: Dude, you are like... t3h s3x.
- Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
- benjaa: woah.... Jukka is the man Guildminer pwns all
- NaumanAkhlaQ: And JuKKa Is my Her0!
Ooo, thanks Jukka![]()
Nice
Code:MainForm compiled in 10 milliseconds! Result = 132 Apply for members, unless you have cheated this Successfully executed
My account unlocks: 92 mage 90 range lvl 80 | 94 mage 87 range lvl 91 | 85 mining lvl 41 | Rich lvl 65
MainForm compiled in 31 milliseconds!
Result = 85
Apply for members, unless you have cheated this
Successfully executed
I find that sad my caver only got an 85![]()
Send SMS messages using Simba
Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!
OH YEA! my WCer got an 80. OWNAGE! Better than the -13 I got last time.
EDIT: My forms for WC script I am working on got an 11 alone.
Nice, i accutally see this is working, havent got an appliance for members in like 2 days![]()
Yea I dont plan on applying for a while. I want to first get my awesome forms working and also my check for broken axe / get new one. Otherwise tbh I don't care too much anymore if I'm members or not. I just want to program. Members to me is now more like a certificate that I can decently script, allowing me to move on to VB then later Java.
Ill smack you aswell.
Wow my guildminer got this with jukka's one
SCAR Code:Result = 107
Apply for members, unless you have cheated this
Successfully executed
just a hint.. u should make it minus some points if u dont have stuff like findnormalrandoms, multiplayer etc.
Code:
- Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
- Solarwind: Dude, you are like... t3h s3x.
- Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
- benjaa: woah.... Jukka is the man Guildminer pwns all
- NaumanAkhlaQ: And JuKKa Is my Her0!
Nice idea, ill make a new version with your other stuff to in a sec, gotta do something.
EDIT** Done, now new version. ENJOY!
There are currently 1 users browsing this thread. (0 members and 1 guests)