i put in an outdated script that i made 2 years ago and i got 83%
i like it (Y)
i put in an outdated script that i made 2 years ago and i got 83%
i like it (Y)
INACTIVE
How-to: Make S.M.A.R.T. less laggy
Sell me your Maple Shieldbows (u)! Up to 95gp ea!
My Scripts:
Ivy Chopper Ultra [RS3] | Fantastic Fletcher [RS3]
99 x78 |
99 x10 |
99 x2 |
99 x12
Use the REPORT tags when posting progress reports to make life easier (:
[REPORT]Put progress report in here![/REPORT]
Super Savvy Smither V1.06Cool Classy Cooker V1.02 [EoC]
Something like this is exactly the reason codes get more advanced and bulky rather than going the opposite direction, which is simplicity.
A script should be as simple as possible, but not too simple.

Bump, I think this tool would give some clue for applicants, even if it's very rough.
I fixed the form up, somewhy simba manages positions a bit else, I guess.
Anyway here's the fixed tool:
Simba Code:program SRLMemberTool;
var
// InitForm variables.
EndInitForm: Boolean;
AppTool: TForm;
ResultL, TitleLabel, ResultDescriptionL, Label1, LastUpdated, LinesQL, LinesAL, CharsQ, CharsA, PostsL: TLabel;
AcutalResultL: TLabel;
ScriptB, ControlB, ScriptAnalyzeB, Debugb, UserinputGB: TGroupBox;
Memo1, DebugBox: TMemo;
HelpButton, GenerateButton, CopyToClipB, ResetB: TButton;
PostcountE: TEdit;
Attitude: TComboBox;
I: integer;
ScriptText: string;
function FindText(word: string): boolean;
begin
Scripttext := Lowercase(Memo1.Text);
Result := (Pos(lowercase(Word), LowerCase(ScriptText)) > 0);
end;
function FindTextMulti(Text: TStringArray): boolean;
var
i, n: Integer;
begin
Scripttext := Lowercase(Memo1.Text);
n := High(Text);
for i := 0 to n do
if (Pos(Text[i], ScriptText) <> 0) then
begin
Result := True;
Exit;
end;
end;
function CountAndFindText(Word: string; Worth: integer; plusminus: boolean): boolean;
//By Garret. Modded by me :)
var
N, tt: Integer;
s: string;
begin
Scripttext := Lowercase(Memo1.Text);
Result := (Pos(lowercase(Word), LowerCase(ScriptText)) > 0);
if Result then
begin
S := Lowercase(Memo1.Text);
repeat
TT := TT + 1;
if PlusMinus then
I := I + worth
else
I := I - worth;
N := Pos(LowerCase(Word), LowerCase(S));
Delete(S, N, Length(Word));
until ((N = 0) or (TT >= 2));
I := I - 1;
end;
end;
procedure MultiWordSolution;
begin
if FindTextMulti(['dtmrotated', 'finddtm']) and not FindText('freedtm') then
begin
I := I - 1;
DebugBox.Lines.Add('Make sure you free your DTMs!');
end
else
I := I + 2;
if FindText('tform') and not FindText('freeform') then
begin
I := I - 1;
DebugBox.Lines.Add('Make sure you free your form: Freeform(formname);');
end
else
I := I + 2;
if FindText('findbitmap') and not FindText('freebitmap') then
begin
I := I - 1;
DebugBox.Lines.Add('Make sure you free your Bitmaps!');
end
else
I := I + 2;
if FindTextMulti(['radial','linearwalk','walkpath']) then
begin
I := I + 5;
end
else if FindText('findsymbol') then
I := I + 3
else
DebugBox.Lines.Add('Make sure include walking in your script!');
end;
procedure GenerateMark;
var
AcceptedWords: TStringArray;
DeclinedWords: TStringArray;
WordsWorth: TIntegerArray;
PlusOrMinus: Array of Boolean;
z, PC: integer;
att: string;
d: extended;
begin
Scripttext := Lowercase(Memo1.Text);
DebugBox.Clear;
if ((memo1.Lines.Count) < 200) then
LinesAL.Font.Color := clRed
else
LinesAL.Font.Color := clLime;
if ((Length(memo1.Text)) < 10000) then
CharsA.Font.Color := clRed
else
CharsA.Font.Color := clLime;
LinesAL.caption := IntToStr(memo1.Lines.Count);
CharsA.caption := IntToStr(Length(memo1.Text));
AcceptedWords := ['exit;', 'fflag', 'players', '$i srl', 'loggedin', 'tdtmpointdef', 'tpa', 'tpointarray', 'while', 'repeat', 'tpoint'];
DeclinedWords := ['', '', '', '', '', '', '', '', '', '', '', '', 'clickmouse', 'findfastrandoms', 'sendkeys'];
WordsWorth := [1, 2, 8, 5, 2, 3, 3, 3, 1, 1, 2, 3, 10, 10];
//declinded Words after gap or (1,3).
ScriptText := Lowercase(Memo1.Text);
for Z := 0 to High(AcceptedWords) do
if not CountAndFindText(AcceptedWords[Z], WordsWorth[Z], true) then
DebugBox.Lines.Add('Add ' + AcceptedWords[Z]);
for Z := 12 to High(WordsWorth) do
if CountAndFindText(DeclinedWords[Z], WordsWorth[Z], false) then
DebugBox.Lines.Add('GET RID OF ' + DeclinedWords[Z]);
MultiWordSolution;
if Memo1.Lines.Count < 200 then
begin
I := I - 10;
DebugBox.Lines.Add('For a good Application you need 200+ Lines!');
end;
if ((Length(memo1.Text)) < 10000) then
begin
I := I - 10;
DebugBox.Lines.Add('For a good Application you need 10,000+ Characters!!');
end;
PC := StrToInt(PostcountE.text);
if (PC < 50) then
begin
I := I - 5;
DebugBox.Lines.Add('Getting a high post count will increase your chances');
end;
if (PC > 150) then
I := I + 3;
att := Lowercase(Attitude.Text);
case Att of
'bad(0 marks)': DebugBox.Lines.Add('Improve the attitude to increase your chances.');
'attitude': DebugBox.Lines.Add('Please select a attitude to increase your score');
'great(2 marks)': incEx(I, 2);
'unknown(1 marks)': Inc(I);
end;
D := I / 65.0 * 100.0;
D := Round(d);
if (D < 0) then
D := 0;
if (D > 100) then
D := 100;
if (D > 75) then
begin
AcutalResultL.Font.Color := clLime;
DebugBox.Lines.Add('You should Apply for members if you havent cheated!');
ResultDescriptionL.Caption := 'You should Apply for members if you havent cheated!';
end
else
begin
AcutalResultL.Font.Color := clRed;
DebugBox.Lines.Add('Sorry not good enough yet, or ethier you do not use SRL stuff.');
ResultDescriptionL.Caption := 'Sorry not good enough yet, or ethier you do not use SRL stuff.';
end;
with DebugBox do
with Lines do
begin
Add('[==================================]');
Add('[= Result: ' + FloatToStr(D) + '%');
Add('[==================================]');
end;
AcutalResultL.Caption := FloatToStr(D) + '%';
end;
procedure CopyToClip(Sender: TObject);
begin
if (DebugBox.Lines.Count >= 1) then
begin
DebugBox.SelectAll;
DebugBox.CopyToClipBoard;
Messagebox('You sucessfully copied the debug box', 'Successful', 0);
end
else
Messagebox('You cant copy nothing', 'Error!', 0);
end;
procedure HandleButtons(Sender: TObject);
begin
case Sender of
generateButton:
begin
GenerateMark;
I := 0;
end;
HelpButton: Messagebox('All you need to do is copy and paste your script in the box!', 'Help Eh?', 0);
ResetB:
begin
DebugBox.Clear;
memo1.Clear;
PostcountE.text := '';
Attitude.Text := 'Attitude';
end;
end;
end;
// When the InitForm is closed, this code will be executed.
procedure InitFormOnClose(Sender: TObject; var Action: TCloseAction);
begin
if (not (AppTool.ModalResult = 1)) then
EndInitForm := True;
end;
// This form was parsed using DFM Form Parser v.26c Beta by Ron.
// Generated from APP TOOL.dfm.
procedure InitForm;
var
TimeInitForm: Integer;
begin
TimeInitForm := GetSystemTime;
AppTool := TForm.Create(nil);
with AppTool do
begin
OnClose := @ InitFormOnClose;
Position := poScreenCenter;
BorderStyle := bsSingle;
BorderIcons := [biMinimize, biSystemMenu];
ClientWidth := 669;
ClientHeight := 465;
Caption := 'BobboHobbo' #39 's SRL Member Application Decider Tool 2010';
Color := clBtnFace;
Font.Color := clWindowText;
Font.Height := - 11;
Font.Name := 'MS Sans Serif';
Font.Style := [];
PixelsPerInch := 96;
end;
ResultL := TLabel.Create(AppTool);
with ResultL do
begin
Parent := AppTool;
Left := 40;
Top := 264;
Width := 71;
Height := 13;
Caption := 'Your Result:';
Font.Color := clWindowText;
Font.Height := - 11;
Font.Name := 'MS Sans Serif';
Font.Style := [fsBold];
end;
AcutalResultL := TLabel.Create(AppTool);
with AcutalResultL do
begin
Parent := AppTool;
Left := 112;
Top := 264;
Width := 31;
Height := 13;
Caption := '';
Font.Color := clLime;
Font.Height := - 11;
Font.Name := 'MS Sans Serif';
Font.Style := [fsBold];
end;
TitleLabel := TLabel.Create(AppTool);
with TitleLabel do
begin
Parent := AppTool;
Left := 56;
Top := 8;
Width := 557;
Height := 20;
Caption := 'BobboHobbo' #39 's SRL Member Application Decider Tool 2010';
Font.Color := clWindowText;
Font.Height := - 17;
Font.Name := 'Verdana';
Font.Style := [fsBold, fsItalic];
end;
ResultDescriptionL := TLabel.Create(AppTool);
with ResultDescriptionL do
begin
Parent := AppTool;
Left := 152;
Top := 264;
Width := 136;
Height := 13;
Caption := 'No result has been taken yet';
end;
Label1 := TLabel.Create(AppTool);
with Label1 do
begin
Parent := AppTool;
Left := 24;
Top := 440;
Width := 178;
Height := 13;
Caption := 'Made by BobboHobbo @ Villavu.com';
end;
LastUpdated := TLabel.Create(AppTool);
with LastUpdated do
begin
Parent := AppTool;
Left := 536;
Top := 264;
Width := 113;
Height := 13;
Caption := 'Last Updated 27/12/09';
end;
ScriptB := TGroupBox.Create(AppTool);
with ScriptB do
begin
Parent := AppTool;
Left := 24;
Top := 40;
Width := 513;
Height := 217;
Caption := 'The Script Box';
TabOrder := 0;
end;
Memo1 := TMemo.Create(ScriptB);
with Memo1 do
begin
Parent := ScriptB;
Left := 16;
Top := 0;
Width := 481;
Height := 177;
Font.Name := 'Courier New';
with Memo1.Lines do
begin
Add('Paste your script into this box and hit the generate button!');
end;
ScrollBars := ssBoth;
TabOrder := 0;
end;
ControlB := TGroupBox.Create(AppTool);
with ControlB do
begin
Parent := AppTool;
Left := 24;
Top := 288;
Width := 185;
Height := 145;
Caption := 'The Controls';
TabOrder := 1;
end;
HelpButton := TButton.Create(ControlB);
with HelpButton do
begin
Parent := ControlB;
Left := 16;
Top := 4;
Width := 152;
Height := 33;
Caption := 'Help';
TabOrder := 0;
Onclick := @ handlebuttons;
end;
GenerateButton := TButton.Create(ControlB);
with GenerateButton do
begin
Parent := ControlB;
Left := 16;
Top := 44;
Width := 152;
Height := 32;
Caption := 'Generate Mark';
TabOrder := 1;
Onclick := @ HandleButtons;
end;
CopyToClipB := TButton.Create(ControlB);
with CopyToClipB do
begin
Parent := ControlB;
Left := 16;
Top := 84;
Width := 152;
Height := 32;
OnClick := @CopyToClip;
Caption := 'Copy Debug to Clipboard';
TabOrder := 2;
end;
ScriptAnalyzeB := TGroupBox.Create(AppTool);
with ScriptAnalyzeB do
begin
Parent := AppTool;
Left := 544;
Top := 48;
Width := 112;
Height := 57;
Caption := 'Script Details';
TabOrder := 2;
end;
LinesQL := TLabel.Create(ScriptAnalyzeB);
with LinesQL do
begin
Parent := ScriptAnalyzeB;
Left := 8;
Top := 0;
Width := 35;
Height := 13;
Caption := 'Lines:';
Font.Color := clWindowText;
Font.Height := - 11;
Font.Name := 'MS Sans Serif';
Font.Style := [fsBold];
end;
LinesAL := TLabel.Create(ScriptAnalyzeB);
with LinesAL do
begin
Parent := ScriptAnalyzeB;
Left := 48;
Top := 0;
Width := 25;
Height := 13;
Caption := '0';
end;
CharsQ := TLabel.Create(ScriptAnalyzeB);
with CharsQ do
begin
Parent := ScriptAnalyzeB;
Left := 8;
Top := 20;
Width := 37;
Height := 13;
Caption := 'Chars:';
Font.Color := clWindowText;
Font.Height := - 11;
Font.Name := 'MS Sans Serif';
Font.Style := [fsBold];
end;
CharsA := TLabel.Create(ScriptAnalyzeB);
with CharsA do
begin
Parent := ScriptAnalyzeB;
Left := 48;
Top := 20;
Width := 6;
Height := 13;
Caption := '0';
end;
Debugb := TGroupBox.Create(AppTool);
with Debugb do
begin
Parent := AppTool;
Left := 224;
Top := 280;
Width := 433;
Height := 177;
Caption := 'The Debug Box';
TabOrder := 3;
end;
DebugBox := TMemo.Create(Debugb);
with DebugBox do
begin
Parent := Debugb;
Left := 16;
Top := 0;
Width := 401;
Height := 153;
with DebugBox.Lines do
begin
Add('Nothing has been generated yet!');
end;
ScrollBars := ssVertical;
TabOrder := 0;
end;
UserinputGB := TGroupBox.Create(AppTool);
with UserinputGB do
begin
Parent := AppTool;
Left := 544;
Top := 112;
Width := 112;
Height := 88;
Caption := 'User Input';
TabOrder := 4;
end;
PostsL := TLabel.Create(UserinputGB);
with PostsL do
begin
Parent := UserinputGB;
Left := 16;
Top := 0;
Width := 82;
Height := 13;
Caption := 'Users Post Count';
end;
PostcountE := TEdit.Create(UserinputGB);
with PostcountE do
begin
Parent := UserinputGB;
Left := 40;
Top := 20;
Width := 33;
Height := 21;
MaxLength := 4;
TabOrder := 0;
Text := '0';
end;
Attitude := TComboBox.Create(UserinputGB);
with Attitude do
begin
Parent := UserinputGB;
Left := 8;
Top := 45;
Width := 96;
Height := 21;
ItemHeight := 13;
TabOrder := 1;
Text := 'Attitude';
with Attitude.Items do
begin
Add('Great(2 marks)');
Add('Unknown(1 marks)');
Add('Bad(0 marks)');
end;
ResetB := TButton.Create(AppTool);
with ResetB do
begin
Parent := AppTool;
Left := 552;
Top := 230;
Width := 96;
onclick := @ HandleButtons;
Height := 25;
Caption := 'Reset';
TabOrder := 5;
end;
WriteLn('InitForm compiled in ' + IntToStr(GetSystemTime - TimeInitForm) + ' milliseconds!');
end;
WriteLn('InitForm compiled in ' + IntToStr(GetSystemTime - TimeInitForm) + ' milliseconds!');
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
SetArrayLength(v, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowInitFormModal;
begin
AppTool.ShowModal;
end;
procedure SafeShowInitFormModal;
var
v: TVariantArray;
begin
SetArrayLength(v, 0);
ThreadSafeCall('ShowInitFormModal', v);
end;
procedure MainInitForm;
begin
try
SafeInitForm;
SafeShowInitFormModal;
finally
AppTool.Free;
except
WriteLn('An error seems to have occurred in: InitForm');
end;
end;
begin
ClearDebug;
MainInitForm;
if (EndInitForm) then
TerminateScript;
end.
I have fixed up some form elements position that were somewhy below their planned position, made it to compile in simba(createform, messagebox), changed ".include srl" to "$i srl"(in the checking function).
So I have not changed anything(except .include -> $i) in the scoring system so that may not suffice for today, but I think it's good enough.
TL;DR: Made it to look good and compile.
Last edited by Sabzi; 01-04-2012 at 11:31 AM.
Nice work![]()
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
Looks good, needs updating to simba, srl-5 though I would imagine.
Add $i srl - ?
Add repeat - while loops do the same thing?
Got 89% on it with my R4_ManThief3 (+ Attitude/Post count) :P
Tempting to apply now, but I think I should wait haha.
Add fflag
Add tdtmpointdef
You should Apply for members if you havent cheated!
[==================================]
[= Result: 89%
[==================================]
Last edited by [XoL]; 01-05-2012 at 05:50 PM.
Anti-Leech Movement Prevent Leeching Spread the word
Insanity 60 Days (Killer workout)
XoL Blog (Workouts/RS/Misc)
LOL
dont need any whilesAdd while
GET RID OF clickmouse
Make sure you free your form: Freeform(formname);
Make sure include walking in your script!
Getting a high post count will increase your chances
Please select a attitude to increase your score
Sorry not good enough yet, or ethier you do not use SRL stuff.
[==================================]
[= Result: 18%
[==================================]
i dont use ClickMouse, i use ClickMouse2
my form does get freed
dont need walking
this is VV btw
~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
There are currently 1 users browsing this thread. (0 members and 1 guests)