shaunthasheep
2006-08-03 08:06:12
More Usless/Helpful Scripts:
Form Helper
just give it a script name, vars, form design stuff, and name, hit generate, and a pre-made script is sitting in front of ur face:P
Computer Locker
me likey makeing pepoles scripts better :P
Color Picker
Fun? lol idk, picks color, almost as good as the real one
Paint Ron
had to make somceones script better :P
Form Helper
just give it a script name, vars, form design stuff, and name, hit generate, and a pre-made script is sitting in front of ur face:P
//=================================================//
//Form Helper v1.0 //
//Will Put Together A Whole Script //
//Just Give It Ur Program Name, Ur Form Vars, //
//And The Stuff That Goes In InitForm Procedure //
// //
//It Will Put It All Together, And Change The //
//Visible := True To Visible := False So You //
//Wont Get That Error. :) //
//=================================================//
//How To Test????????? //
//Go To Tools -> Form editor. make a script. then //
//Tools -> Load Dfm Form. then //
//Give It Ur Vars And Init Stuff And Program Name //
//You Desire And Hit Generate! Walaha, Forms Have //
//Never Been So Easy! //
//=================================================//
program Formhelper;
var
//Form Vars
frmDesign : TForm;
GroupBox1 : TGroupBox;
Edit1 : TEdit;
GroupBox2 : TGroupBox;
Memo1 : TMemo;
GroupBox3 : TGroupBox;
Memo2 : TMemo;
GroupBox4 : TGroupBox;
Edit2 : TEdit;
Button1 : TButton;
//Second Part Of Form 1 Vars (Loaded Once Script Is Generated)
GroupBox5 : TGroupBox;
Memo3 : TMemo;
//Script Vars
function Replace(dastring,s1,s2 : string) : string;
var // This Is Made By The_Rs_Monkey
i : integer;
begin
i := Pos(s1,dastring);
if i = 0 then begin Result := dastring; Exit; end;
delete(dastring,i,Length(s1));
insert(s2,dastring,i);
Result := dastring;
end;
procedure Generate(sender : TObject);
var
EndPartScript : Array Of String;
i : integer;
begin
//Generates Second Part Of frmDesign
frmDesign.Height := 638;
GroupBox5 := TGroupBox.Create(frmDesign);
GroupBox5.Parent := frmDesign;
GroupBox5.Left := 17;
GroupBox5.Top := 317;
GroupBox5.Width := 586;
GroupBox5.Height := 277;
GroupBox5.Caption := 'Generated Script.';
GroupBox5.TabOrder := 5;
Memo3 := TMemo.Create(GroupBox5);
Memo3.Parent := GroupBox5;
Memo3.Left := 11;
Memo3.Top := 18;
Memo3.Width := 565;
Memo3.Height := 250;
Memo3.TabOrder := 0;
Memo3.WordWrap := False;
//Loads Last Very Very Big Part Of Script.
EndPartScript := ['end;','','procedure SafeInitForm;','var',' v: TVariantArray;','begin',' setarraylength(V, 0);',
' ThreadSafeCall(''InitForm'', v);','end;','','function ShowFormModal: Boolean;','begin',
' Result:= False;',' if(frmDesign.ShowModal = mrOk)then',' Result:= True;','end;','',
'function SafeShowFormModal: Boolean;','var',' v: TVariantArray;','begin',' setarraylength(V, 0);',
' result:= ThreadSafeCall(''ShowFormModal'', v);','end;','','begin',' SafeInitForm;',' SafeShowFormModal;',
'end.']
Memo3.Lines.Clear
Memo3.Lines.Add('program ' + Edit1.Text + ';');
Memo3.Lines.Add('var');
Memo3.Lines.Add(Memo1.Lines.Text);
Memo3.Lines.Add('');
Memo3.Lines.Add('procedure InitForm;');
Memo3.Lines.Add('begin');
Memo3.Lines.Add('//Form Base Generated By The_Rs_Monkey''s FormHelper!.');
Memo3.Lines.Add(Memo2.Lines.Text);
for i := 0 to GetArrayLength(EndPartScript) - 1 do
Memo3.Lines.Add(EndPartScript[i])
Memo3.Lines.Text := Replace(Memo3.Lines.Text,Edit2.Text + '.Visible := True',Edit2.TEXT + '.Visible := False');
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 199;
frmDesign.Top := 92;
frmDesign.Width := 621;
frmDesign.Height := 350;
frmDesign.Caption := 'Basic Form Helper';
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;
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 18;
GroupBox1.Top := 11;
GroupBox1.Width := 284;
GroupBox1.Height := 51;
GroupBox1.Caption := 'Program Name';
GroupBox1.TabOrder := 0;
Edit1 := TEdit.Create(GroupBox1);
Edit1.Parent := GroupBox1;
Edit1.Left := 10;
Edit1.Top := 17;
Edit1.Width := 265;
Edit1.Height := 21;
Edit1.TabOrder := 0;
Edit1.Text := 'New';
GroupBox2 := TGroupBox.Create(frmDesign);
GroupBox2.Parent := frmDesign;
GroupBox2.Left := 18;
GroupBox2.Top := 69;
GroupBox2.Width := 284;
GroupBox2.Height := 200;
GroupBox2.Caption := 'Variables From Debug Box ';
GroupBox2.TabOrder := 1;
Memo1 := TMemo.Create(GroupBox2);
Memo1.Parent := GroupBox2;
Memo1.Left := 9;
Memo1.Top := 17;
Memo1.Width := 265;
Memo1.Height := 173;
Memo1.Lines.Add('//Example, Dont Put Var');
Memo1.Lines.Add('frmDesign : TForm');
Memo1.Lines.Add('Button1 : TButton');
Memo1.TabOrder := 0;
Memo1.WordWrap := False;
GroupBox3 := TGroupBox.Create(frmDesign);
GroupBox3.Parent := frmDesign;
GroupBox3.Left := 315;
GroupBox3.Top := 69;
GroupBox3.Width := 284;
GroupBox3.Height := 200;
GroupBox3.Caption := 'Stuff To Go In Init Form Procedure';
GroupBox3.TabOrder := 2;
Memo2 := TMemo.Create(GroupBox3);
Memo2.Parent := GroupBox3;
Memo2.Left := 10;
Memo2.Top := 15;
Memo2.Width := 265;
Memo2.Height := 176;
Memo2.Lines.Add('//Example');
Memo2.Lines.Add('frmDesign.Create');
Memo2.Lines.Add('frmDesign.Width := 50');
Memo2.TabOrder := 0;
Memo2.WordWrap := False;
GroupBox4 := TGroupBox.Create(frmDesign);
GroupBox4.Parent := frmDesign;
GroupBox4.Left := 315;
GroupBox4.Top := 11;
GroupBox4.Width := 286;
GroupBox4.Height := 51;
GroupBox4.Caption := 'Form Name (So It Change Visible To False)';
GroupBox4.TabOrder := 3;
Edit2 := TEdit.Create(GroupBox4);
Edit2.Parent := GroupBox4;
Edit2.Left := 7;
Edit2.Top := 18;
Edit2.Width := 270;
Edit2.Height := 21;
Edit2.TabOrder := 0;
Edit2.Text := 'frmDesign';
Button1 := TButton.Create(frmDesign);
Button1.OnClick := @Generate;
Button1.Parent := frmDesign;
Button1.Left := 509;
Button1.Top := 279;
Button1.Width := 93;
Button1.Height := 25;
Button1.Caption := 'Generate';
Button1.TabOrder := 12;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
function ShowFormModal: Boolean;
begin
Result:= False;
if(frmDesign.ShowModal = mrOk)then
Result:= True;
end;
function SafeShowFormModal: Boolean;
var
v: TVariantArray;
begin
setarraylength(V, 0);
result:= ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.Computer Locker
me likey makeing pepoles scripts better :P
program Lock_Computer;
var
Coords : TPoint;
begin
GetSelf.Hide
GetMousePos(Coords.x,Coords.y);
repeat
MoveMouse(Coords.x,Coords.y);
until(IsFKeyDown(9))
GetSelf.Show
end.
Color Picker
Fun? lol idk, picks color, almost as good as the real one
{========READ ME=========}
{To Stop Click Some Where}
{Dont Click Ctrl + S !! }
{You Can Also Use }
{PickColor(Color, x, y) }
{^^^^^^^^^^ Lol :) :) :) }
{========================}
program Colorpicker;
var
frmDesign : TForm;
Shape1 : TShape;
Shape2 : TShape;
Label1 : TLabel;
Label2 : TLabel;
Timer1 : TTimer;
Procedure Timer1OnTimer(sender: TObject);
Var
x, y : integer;
Begin
GetMousePos(x, y);
frmDesign.Left := x + 7;
frmDesign.Top := y + 17;
Label1.Caption := 'X = ' + IntToStr(x);
Label2.Caption := 'Y = ' + IntToStr(y);
Shape2.Brush.Color := GetColor(x, y);
If IsMouseButtonDown(True) and IsMouseButtonDown(True) Then
Begin //^^^ If U Put 1 And Not ^^2nd one SomeReason It Wont Work. :(
Writeln('Color Picked: ' + IntToStr(Shape2.Brush.Color) + ' at (' + IntToStr(x) + ', ' + IntToStr(y) + ')');
frmDesign.ModalResult := MrOk;
End;
End;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 377;
frmDesign.Top := 216;
frmDesign.BorderStyle := bsNone;
frmDesign.Caption := 'frmDesign';
frmDesign.ClientHeight := 52;
frmDesign.ClientWidth := 111;
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;
Shape1 := TShape.Create(frmDesign);
Shape1.Parent := frmDesign;
Shape1.Left := 0;
Shape1.Top := 0;
Shape1.Width := 111;
Shape1.Height := 52;
Shape1.Brush.Color := clGray;
Shape2 := TShape.Create(frmDesign);
Shape2.Parent := frmDesign;
Shape2.Left := 58;
Shape2.Top := 10;
Shape2.Width := 44;
Shape2.Height := 32;
Shape2.Brush.Color := clBlack;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 11;
Label1.Top := 11;
Label1.Width := 43;
Label1.Height := 13;
Label1.Caption := 'X = 9999';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 11;
Label2.Top := 26;
Label2.Width := 43;
Label2.Height := 13;
Label2.Caption := 'Y = 9999';
Timer1 := TTimer.Create(frmDesign);
Timer1.Enabled := True;
Timer1.Interval:= 1;
Timer1.OnTimer:= @Timer1OnTimer;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
function ShowFormModal: Boolean;
begin
Result:= False;
if(frmDesign.ShowModal = mrOk)then
Result:= True;
end;
function SafeShowFormModal: Boolean;
var
v: TVariantArray;
begin
setarraylength(V, 0);
result:= ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.Paint Ron
had to make somceones script better :P
program PaintRon;
var
i : integer;
begin
for i := 1 to 100 do
begin
ClickMouse(50, 50 + i, True);
ClickMouse(50, 150 + i, True);
ClickMouse(50 + i, 50, True);
ClickMouse(50 + i, 150, True);
ClickMouse(150, 50 + i, True);
ClickMouse(50 + i, 150 + i, True);
ClickMouse(200, 150 + i, True);
ClickMouse(200 + i, 150, True);
ClickMouse(200 + i, 250, True);
ClickMouse(300, 150 + i, True);
ClickMouse(350, 150 + i, True);
ClickMouse(450, 150 + i, True);
ClickMouse(350 + i, 150, True);
end;
end.