ne 15: [Error] (14939:1): Duplicate identifier 'bmpAdmin' in script C:\Program Files\

[dritar]

Thanks Line 541: [Error] (15421:4): Identifier expected in script C:\Documents and Settings\Krendzel\My Documents\DraynorCutta.scar
line 541
end. //Wtf?!
some lines before and after

begin
  SafeInitForm;
  SafeShowFormModal;
end.
writeLN('Version 2.0 - DraynorWillowCutta')
writeLN('Made by Dritar 2007 - MasterKill,JuKKa and ZephyrsFury helped alot')

btw i added fail safe to the script, now if it cant find bank it tries it 60 times.

[ZephyrsFury]

Semicolons... (last two lines in that example you posted).

[danrox2004]

Thanks Line 541: [Error] (15421:4): Identifier expected in script C:\Documents and Settings\Krendzel\My Documents\DraynorCutta.scar
line 541
end. //Wtf?!
some lines before and after

begin
  SafeInitForm;
  SafeShowFormModal;
end.
writeLN('Version 2.0 - DraynorWillowCutta')
writeLN('Made by Dritar 2007 - MasterKill,JuKKa and ZephyrsFury helped alot')

btw i added fail safe to the script, now if it cant find bank it tries it 60 times.

Because that ends in 'end.' I',m gussing that is the main procedure. You cannot put anything after the end. I think it should be

begin
  SafeInitForm;
  SafeShowFormModal;
  writeLN('Version 2.0 - DraynorWillowCutta');
  writeLN('Made by Dritar 2007 - MasterKill,JuKKa and ZephyrsFury helped alot');
end.

EDIT:
and you can also do isKeyDown(key: char);

[dritar]

Yay!! Kick my ass its working!! only problem the form.. is not working

[danrox2004]

Yay!! Kick my ass its working!! only problem the form.. is not working

Whats wrong with it? I might be able to help you

[BobboHobbo]

In your form thing change:

frmDesign.Visible := True;

To

frmDesign.Visible := False;

And wala, it will work

[dritar]

I dont know but it doesnt work still...

[dritar]

Please, just help and ill release it!

[ZephyrsFury]

Maybe if you post the procedures associated with the form we could help...

[dritar]

var
  frmDesign : TForm;
  username : TLabel;
  password : TLabel;
  Shape2 : TShape;
  Label1 : TLabel;
  UsernameFM : TEdit;
  passwordFM : TEdit;
  start : TButton;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 360;
frmDesign.Top := 95;
frmDesign.Width := 251;
frmDesign.Height := 351;
frmDesign.Caption := 'Fill';
frmDesign.Color := clSkyBlue;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
username := TLabel.Create(frmDesign);
username.Parent := frmDesign;
username.Left := 8;
username.Top := 8;
username.Width := 78;
username.Height := 20;
username.Caption := 'Username:';
username.Font.Color := clWindowText;
username.Font.Height := -16;
username.Font.Name := 'MS Sans Serif';
username.Font.Style := [];
username.ParentFont := False;
password := TLabel.Create(frmDesign);
password.Parent := frmDesign;
password.Left := 8;
password.Top := 40;
password.Width := 73;
password.Height := 20;
password.Caption := 'Password:';
password.Font.Color := clWindowText;
password.Font.Height := -16;
password.Font.Name := 'MS Sans Serif';
password.Font.Style := [];
password.ParentFont := False;
Shape2 := TShape.Create(frmDesign);
Shape2.Parent := frmDesign;
Shape2.Left := 0;
Shape2.Top := 112;
Shape2.Width := 241;
Shape2.Height := 201;
Shape2.Shape := stRoundRect;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 8;
Label1.Top := 88;
Label1.Width := 137;
Label1.Height := 33;
Label1.Caption := 'Instruction:';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -16;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
UsernameFM := TEdit.Create(frmDesign);
UsernameFM.Parent := frmDesign;
UsernameFM.Left := 88;
UsernameFM.Top := 8;
UsernameFM.Width := 137;
UsernameFM.Height := 24;
UsernameFM.Hint := 'username here';
UsernameFM.AutoSize := False;
UsernameFM.Font.Color := clWindowText;
UsernameFM.Font.Height := -16;
UsernameFM.Font.Name := 'MS Sans Serif';
UsernameFM.Font.Style := [];
UsernameFM.ParentFont := False;
UsernameFM.TabOrder := 8;
passwordFM := TEdit.Create(frmDesign);
passwordFM.Parent := frmDesign;
passwordFM.Left := 88;
passwordFM.Top := 40;
passwordFM.Width := 137;
passwordFM.Height := 24;
passwordFM.Hint := 'pass here';
passwordFM.AutoSize := False;
passwordFM.Font.Color := clWindowText;
passwordFM.Font.Height := -16;
passwordFM.Font.Name := 'MS Sans Serif';
passwordFM.Font.Style := [];
passwordFM.ParentFont := False;
passwordFM.TabOrder := 9;
start := TButton.Create(frmDesign);
start.Parent := frmDesign;
start.Tag := 1;
start.Left := 104;
start.Top := 72;
start.Width := 105;
start.Height := 25;
start.Caption := 'Go!';
start.DragCursor := crDefault;
start.TabOrder := 10;
start.OnClick := @StartClick

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;

[ZephyrsFury]

Whats actually wrong with it?

[dritar]

There arent any form There is form but its invisible :O