xinez
2007-12-01 02:42:32
<!– BEGIN TEMPLATE: formanswers –>
xinez - SRL Member Application Form
xinez
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Other Communitys
www.moparisthebest.com
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I always liked to try to help other people, especially in communitys. This is why i decided to join this site, so that i can help other people to improve their scripts and also to give out some of my own scripts for the use of other people. The script I made was made 100% by me.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
xinez - SRL Member Application Form
xinez
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Other Communitys
www.moparisthebest.com
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I always liked to try to help other people, especially in communitys. This is why i decided to join this site, so that i can help other people to improve their scripts and also to give out some of my own scripts for the use of other people. The script I made was made 100% by me.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program XinexAutoTyper;
{.include srl\srl.scar}
{.include srl/srl/skill/Fighting.scar}
Const
WaitTime= 5000;
//==Fast Find Randoms===================================================================\\
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i, x, y: Integer;
begin
for i := 1 to 9 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7:
begin
if NoGameTab then
begin
Result := True;
//Players[CurrentPlayer].loc := 'No GameTab';
//Logout;
WriteLN('Not found game tabs...');
Exit;
end;
end;
7:
begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
9:
begin
;
if (not (InFight)) then
Exit;
if (GetHp < GetSkillLevel('hitpoints')) then
begin
;
Setrun(true);
MakeCompass('N');
RunAwayDirection('N');
Wait(5000);
RunBack;
Mouse(x, y, 2, 2, true);
end;
end;
end;
wait(1);
end;
end;
//==Version Number - DO NOT TOUCH======================================================\\
Const
VersionNumber= 'V1.0';
//==Form=================================================================================\\
Var
frmDesign : TForm;
Label1 : TLabel;
Message : TEdit;
StartButton : TButton;
Button1 : TButton;
procedure StartClick(sender: TObject);
begin
frmDesign.ModalResult:= mrOk; // Closes the form
end;
Procedure CancelClick(sender: TObject);
Begin
frmDesign.ModalResult:= mrOk; // Closes the form.
TerminateScript;
End;
Procedure InitForm;
Begin
frmDesign := CreateForm;
frmDesign.Left := 150;
frmDesign.Top := 114;
frmDesign.Width := 440;
frmDesign.Height := 150;
frmDesign.Caption := 'Auto Typer ' + VersionNumber + ' by Xinex';
frmDesign.Color := 20;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := '@Comic Sans MS';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 300;
Label1.Top := 5;
Label1.Width := 136;
Label1.Height := 18;
Label1.Caption := 'Message To Type';
Label1.Font.Color := 15312773;
Label1.Font.Height := -13;
Label1.Font.Name := 'Comic Sans MS';
Label1.Font.Style := [];
Label1.ParentColor := False;
Label1.ParentFont := False;
Message := TEdit.Create(frmDesign);
Message.Parent := frmDesign;
Message.Left := 16;
Message.Top := 5;
Message.Width := 225;
Message.Height := 19;
Message.TabOrder := 8;
Message.Text := 'Put Your Message Here';
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.Left := 152;
StartButton.Top := 50;
StartButton.Width := 129;
StartButton.Height := 57;
StartButton.Caption := 'Start';
StartButton.TabOrder := 11;
StartButton.OnClick := @StartClick;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 8;
Button1.Top := 50;
Button1.Width := 121;
Button1.Height := 57;
Button1.Caption := 'Cancel';
Button1.TabOrder := 14;
Button1.OnClick := @CancelClick;
End;
Procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
Procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
Procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
//==AntiBan============================================================================\\
Procedure AntiBan;
var
Anti: Integer;
begin
Anti := Random(3);
case Anti of
0: MakeCompass('S');
1: MakeCompass('S');
2: MakeCompass('S');
end;
end;
//==Main AutoTalk=======================================================================\\
Procedure AutoTalk;
Begin
TypeSend (message.text);
Wait (WaitTime+Random(WaitTime));
FindFastRandoms;
End;
//==Change Chats========================================================================\\
Procedure Chats;
Begin
If Not LoggedIn Then Exit;
SetChat('friends', 1); // Public
SetChat('friends', 2); // Private
SetChat('friends', 3); // Clan
SetChat('on', 4); // Trade
End;
//==Progress Report=====================================================================\\
var
TimesT : Integer;
Procedure ProgressReport;
Begin
WriteLn('/=========== Auto Typer ' + VersionNumber + ' by Xinex ===========\');
WriteLn('');
WriteLn(' Auto Typed: ' + IntToStr(TimesT) + ' time(s).');
WriteLn(' Msg: ' + message.text);
WriteLn('');
WriteLn('\================================================/');
End;
//==Main Loop===========================================================================\\
begin
SetupSrl;
ActivateClient;
ClearDebug;
Disguise('RuneScape - the massive online adventure game by Jagex Ltd');
SafeInitForm;
SafeShowFormModal;
FindFastRandoms;
Chats;
AntiBan;
repeat;
AutoTalk;
ProgressReport;
TimesT := TimesT + 1;
Until(IsFKeyDown(10))
end.
——————————————————
<!– END TEMPLATE: formanswers –>