Widget
2007-04-04 17:53:59
<!– BEGIN TEMPLATE: formanswers –>
Widget - SRL Member Application Form
Widget
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Python, learning C++
Other Communitys
Fagex
How Long have You Played Runescape
2½ years?
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
EDIT: Forgot to put this in lol.
Anyway, my name is Bryan. I'm in the Gifted Acadamy (smart people in one building) in Rockford, IL. I've played Runescape for awhile. I'm a level 99 now. I play Magic: The Gathering (Classic geek, eh?). I'm good at European accents, and am horrid at learning French. I run out of RAM daily and keep my computer on for weeks at a time. I pride myself in my ability with forms and GUI things. I could post a crappy Python script I've done just for the hell of it, but it doesn't look like you guys want to see it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Hmm.. I'm not able to post attachments on here for some reason…
The next script was the first I put on here. It's a simplified player form that honestly looks better than the SRL player form (not trying to insult anyone), and it goes from [1] to [5] instead of [0] to [whatever]. This one isn't an array of objects like my talker, but it still disables, which does look cool :p
I hope thats enough to get in, but if not, I might try again. I dunno
- Widget
——————————————————
<!– END TEMPLATE: formanswers –>
Widget - SRL Member Application Form
Widget
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Python, learning C++
Other Communitys
Fagex
How Long have You Played Runescape
2½ years?
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
EDIT: Forgot to put this in lol.
Anyway, my name is Bryan. I'm in the Gifted Acadamy (smart people in one building) in Rockford, IL. I've played Runescape for awhile. I'm a level 99 now. I play Magic: The Gathering (Classic geek, eh?). I'm good at European accents, and am horrid at learning French. I run out of RAM daily and keep my computer on for weeks at a time. I pride myself in my ability with forms and GUI things. I could post a crappy Python script I've done just for the hell of it, but it doesn't look like you guys want to see it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Hmm.. I'm not able to post attachments on here for some reason…
Whatever, here's my autotalker. Now before you go phffff an autotalker, listen to me. I know mose use the sendtext or whatever, but that's easily detectable. It uses Sendkeys() one letter at a time, and I don't know many people who dont hold the keys down for more than 1/1000th of a second… Besides that, it's a real GUI. I simply invite you to paste it and run it, then you'll see why I'm even attempting to become a member.
Widget, you do not have permission to access this page. This could be due to one of several reasons:
- Your user account may not have sufficient privileges to access this page. Are you trying to edit someone else's post, access administrative features or some other privileged system?
- If you are trying to post, the administrator may have disabled your account, or it may be awaiting activation.
program Widget;
// Widget-Talker
// By Widget
//
// Version 1.1
//
// - Faster than SRL
// - More undetectable than SRL
// - Easy to use layout
// - No F keys, just click 'Type!'
// - Up to 20 lines to auto-type
//
// Just do this:
//
// Drag crosshairs to target first.
// (Don't target this box, you'll get like 12 errors
// or your computer will just crash (not fun).)
// Its a form, the scar box will vanish until you close it.
var WidgetForm:TForm;
TextToType:array of TEdit;
Button:array of TButton;
L:TLabel;
AddText,DestroyText:TButton;
text:string;
function number(letter:char):boolean;
var t:integer;
begin
t := getkeycode(letter)
result := true
if (t < 122) and (t > 97) then result := false;
if (t < 90) and (t > 65) then result := false;
end;
function Capital(letter:char):boolean;
var t:integer;
s:string;
begin
result := false;
t := getkeycode(letter);
s := letter;
if (Chr(t) = letter) then result := true;
if number(letter) then result := false;
if (s='<') or (s='>') or (s='?') or (s=':') or (s='"')
or (s='{') or (s='}') or (s='|') or (s='+') or (s='_')
or (s='~') or (s='!') or (s='@') or (s='#') or (s='$')
or (s='%') or (s='^') or (s='&') or (s='*') or (s='(')
or (s=')') then result := true;
end;
procedure Talk(row:integer);
var t:integer;
begin
text := TextToType[row].text + Chr(13);
for t := 1 to length(text) do begin
if capital(text[t]) then
begin keydown(16); sleep(20+random(20)) end;
keydown(getkeycode(text[t]))
sleep(20+random(20))
keyup(getkeycode(text[t]))
sleep(20+random(20))
if capital(text[t]) then
begin keyup(16); sleep(20+random(20)) end;
end;
end;
Procedure MakeRed(t:integer);
var t1:integer;
begin
for t1 := 0 to (GetArrayLength(TextToType)-1) do begin
TextToType[t1].Color := clBlack;
TextToType[t1].Font.Color := clRed;
end;
TextToType[t].Color := clRed;
TextToType[t].Font.Color := clBlack;
end;
procedure DoButton(WhichButton:integer);
begin
try
Button[WhichButton].Caption := 'Wait...';
MakeRed(WhichButton);
ActivateClient;
sleep(100+random(100));
Talk(WhichButton);
Button[WhichButton].Caption := 'Type!';
except TextToType[WhichButton].Text := 'Something went wrong'; end;
end;
Procedure Button0(Sender:TObject);
begin DoButton(0); end;
Procedure Button1(Sender:TObject);
begin DoButton(1); end;
Procedure Button2(Sender:TObject);
begin DoButton(2); end;
Procedure Button3(Sender:TObject);
begin DoButton(3); end;
Procedure Button4(Sender:TObject);
begin DoButton(4); end;
Procedure Button5(Sender:TObject);
begin DoButton(5); end;
Procedure Button6(Sender:TObject);
begin DoButton(6); end;
Procedure Button7(Sender:TObject);
begin DoButton(7); end;
Procedure Button8(Sender:TObject);
begin DoButton(8); end;
Procedure Button9(Sender:TObject);
begin DoButton(9); end;
Procedure Button10(Sender:TObject);
begin DoButton(10); end;
Procedure Button11(Sender:TObject);
begin DoButton(11); end;
Procedure Button12(Sender:TObject);
begin DoButton(12); end;
Procedure Button13(Sender:TObject);
begin DoButton(13); end;
Procedure Button14(Sender:TObject);
begin DoButton(14); end;
Procedure Button15(Sender:TObject);
begin DoButton(15); end;
Procedure Button16(Sender:TObject);
begin DoButton(16); end;
Procedure Button17(Sender:TObject);
begin DoButton(17); end;
Procedure Button18(Sender:TObject);
begin DoButton(18); end;
Procedure Button19(Sender:TObject);
begin DoButton(19); end;
Procedure MakeBlack(Sender:TObject);
var t:integer;
begin
for t := 0 to (GetArrayLength(TextToType)-1) do begin
TextToType[t].Color := clBlack;
TextToType[t].Font.Color := clRed;
end;
end;
Procedure MakeRed0(Sender:TObject);
begin MakeRed(0); end;
Procedure MakeRed1(Sender:TObject);
begin MakeRed(1); end;
Procedure MakeRed2(Sender:TObject);
begin MakeRed(2); end;
Procedure MakeRed3(Sender:TObject);
begin MakeRed(3); end;
Procedure MakeRed4(Sender:TObject);
begin MakeRed(4); end;
Procedure MakeRed5(Sender:TObject);
begin MakeRed(5); end;
Procedure MakeRed6(Sender:TObject);
begin MakeRed(6); end;
Procedure MakeRed7(Sender:TObject);
begin MakeRed(7); end;
Procedure MakeRed8(Sender:TObject);
begin MakeRed(8); end;
Procedure MakeRed9(Sender:TObject);
begin MakeRed(9); end;
Procedure MakeRed10(Sender:TObject);
begin MakeRed(10); end;
Procedure MakeRed11(Sender:TObject);
begin MakeRed(11); end;
Procedure MakeRed12(Sender:TObject);
begin MakeRed(12); end;
Procedure MakeRed13(Sender:TObject);
begin MakeRed(13); end;
Procedure MakeRed14(Sender:TObject);
begin MakeRed(14); end;
Procedure MakeRed15(Sender:TObject);
begin MakeRed(15); end;
Procedure MakeRed16(Sender:TObject);
begin MakeRed(16); end;
Procedure MakeRed17(Sender:TObject);
begin MakeRed(17); end;
Procedure MakeRed18(Sender:TObject);
begin MakeRed(18); end;
Procedure MakeRed19(Sender:TObject);
begin MakeRed(19); end;
Procedure CreateRow(Sender:TObject);
var currows,t:integer;
begin
currows := GetArrayLength(Button)
if currows < 20 then begin
t := currows + 1
SetArrayLength(TextToType,t)
SetArrayLength(Button,t)
t := t - 1
L.Caption := 'WidgetTalker - '+IntToStr(t+1)+' Lines Open'
WidgetForm.Height := WidgetForm.Height + 20
TextToType[t] := TEdit.Create(WidgetForm);
TextToType[t].Parent := WidgetForm;
TextToType[t].width := 180;
TextToType[t].height := 20;
TextToType[t].left := 5;
TextToType[t].top := 25+20*t;
TextToType[t].color := clBlack;
TextToType[t].font.color := clRed;
TextToType[t].text := TextToType[t-1].text
Button[t] := TButton.Create(WidgetForm);
Button[t].Parent := WidgetForm;
Button[t].width := 50;
Button[t].height := 20;
Button[t].left := 185;
Button[t].top := 25+20*t;
Button[t].caption := 'Type!';
Button[t].font.color := clRed;
if (t=0) then begin
TextToType[0].OnClick := @MakeRed0; end;
if (t=1) then begin
TextToType[1].OnClick := @MakeRed1; end;
if (t=2) then begin
TextToType[2].OnClick := @MakeRed2; end;
if (t=3) then begin
TextToType[3].OnClick := @MakeRed3; end;
if (t=4) then begin
TextToType[4].OnClick := @MakeRed4; end;
if (t=5) then begin
TextToType[5].OnClick := @MakeRed5; end;
if (t=6) then begin
TextToType[6].OnClick := @MakeRed6; end;
if (t=7) then begin
TextToType[7].OnClick := @MakeRed7; end;
if (t=8) then begin
TextToType[8].OnClick := @MakeRed8; end;
if (t=9) then begin
TextToType[9].OnClick := @MakeRed9; end;
if (t=10) then begin
TextToType[10].OnClick := @MakeRed10; end;
if (t=11) then begin
TextToType[11].OnClick := @MakeRed11; end;
if (t=12) then begin
TextToType[12].OnClick := @MakeRed12; end;
if (t=13) then begin
TextToType[13].OnClick := @MakeRed13; end;
if (t=14) then begin
TextToType[14].OnClick := @MakeRed14; end;
if (t=15) then begin
TextToType[15].OnClick := @MakeRed15; end;
if (t=16) then begin
TextToType[16].OnClick := @MakeRed16; end;
if (t=17) then begin
TextToType[17].OnClick := @MakeRed17; end;
if (t=18) then begin
TextToType[18].OnClick := @MakeRed18; end;
if (t=19) then begin
TextToType[19].OnClick := @MakeRed19; end;
if (t=0) then begin
Button[0].OnClick := @Button0; end;
if (t=1) then begin
Button[1].OnClick := @Button1; end;
if (t=2) then begin
Button[2].OnClick := @Button2; end;
if (t=3) then begin
Button[3].OnClick := @Button3; end;
if (t=4) then begin
Button[4].OnClick := @Button4; end;
if (t=5) then begin
Button[5].OnClick := @Button5; end;
if (t=6) then begin
Button[6].OnClick := @Button6; end;
if (t=7) then begin
Button[7].OnClick := @Button7; end;
if (t=8) then begin
Button[8].OnClick := @Button8; end;
if (t=9) then begin
Button[9].OnClick := @Button9; end;
if (t=10) then begin
Button[10].OnClick := @Button10; end;
if (t=11) then begin
Button[11].OnClick := @Button11; end;
if (t=12) then begin
Button[12].OnClick := @Button12; end;
if (t=13) then begin
Button[13].OnClick := @Button13; end;
if (t=14) then begin
Button[14].OnClick := @Button14; end;
if (t=15) then begin
Button[15].OnClick := @Button15; end;
if (t=16) then begin
Button[16].OnClick := @Button16; end;
if (t=17) then begin
Button[17].OnClick := @Button17; end;
if (t=18) then begin
Button[18].OnClick := @Button18; end;
if (t=19) then begin
Button[19].OnClick := @Button19; end;
end;
end;
Procedure DestroyRow(Sender:TObject);
var currows,t:integer;
begin
currows := GetArrayLength(Button)
t := currows -1
if t > 0 then begin
TextToType[t].Hide;
L.Caption := 'WidgetTalker - '+IntToStr(t)+' Lines Open'
if (t=1) then L.Caption := 'WidgetTalker - '+IntToStr(t)+' Line Open'
Button[t].Hide;
SetArrayLength(TextToType,t)
SetArrayLength(Button,t)
WidgetForm.Height := WidgetForm.Height - 20
t := t - 1
end;
end;
// ===========================
// ===== HERE'S THE FORM =====
// ===========================
procedure MakeForm;
begin
SetArrayLength(TextToType,1)
SetArrayLength(Button,1)
WidgetForm := CreateForm;
WidgetForm.Left := 286;
WidgetForm.Top := 212;
WidgetForm.Width := 250;
WidgetForm.Height := 80;
WidgetForm.Caption := 'WidgetTalker, by Widget';
WidgetForm.Color := clBlack;
WidgetForm.Font.Color := clRed;
WidgetForm.Font.Height := -11;
WidgetForm.Font.Name := 'MS Sans Serif';
WidgetForm.Font.Style := [];
WidgetForm.Visible := False;
WidgetForm.PixelsPerInch := 96;
WidgetForm.OnClick := @MakeBlack
WidgetForm.FormStyle := fsStayOnTop;
TextToType[0] := TEdit.Create(WidgetForm);
TextToType[0].Parent := WidgetForm;
TextToType[0].width := 180;
TextToType[0].height := 20;
TextToType[0].left := 5;
TextToType[0].top := 25;
TextToType[0].color := clBlack;
TextToType[0].font.color := clRed;
TextToType[0].text := 'Brought to you by Widget';
TextToType[0].OnClick := @MakeRed0;
Button[0] := TButton.Create(WidgetForm);
Button[0].Parent := WidgetForm;
Button[0].width := 50;
Button[0].height := 20;
Button[0].left := 185;
Button[0].top := 25;
Button[0].caption := 'Type!';
Button[0].OnClick := @Button0;
AddText := TButton.Create(WidgetForm);
AddText.Parent := WidgetForm;
AddText.width := 25;
AddText.height := 20;
AddText.left := 185;
AddText.top := 5;
AddText.caption := '+';
AddText.OnClick := @CreateRow;
DestroyText := TButton.Create(WidgetForm);
DestroyText.Parent := WidgetForm;
DestroyText.width := 25;
DestroyText.height := 20;
DestroyText.left := 210;
DestroyText.top := 5;
DestroyText.caption := '-';
DestroyText.OnClick := @DestroyRow;
L := TLabel.Create(WidgetForm);
L.Parent := WidgetForm;
L.width := 25;
L.height := 20;
L.left := 7;
L.top := 7;
L.caption := 'WidgetTalker - 1 Line Open';
end;
Procedure CallForm; // Load the form without crashing
var tva:TVariantArray;
begin
setarraylength(tva, 0);
ThreadSafeCall('MakeForm', tva);
end;
Function ShowWidget:Boolean; // Make it visible
begin
if (WidgetForm.ShowModal = mrOk) then
Result := True else Result := False;
end;
Function ShowWidgetForm:Boolean; // Makes it visible without crashing
var tva:TVariantArray;
begin
setarraylength(tva, 0);
Result := ThreadSafeCall('ShowWidget', tva) ;
end;
Procedure Form;
Begin
CallForm;
GetSelf.Visible := False;
if not ShowWidgetForm then begin
WriteLn('Script terminated by user.');
FreeForm(WidgetForm)
GetSelf.Visible := True;
TerminateScript;
end;
GetSelf.Visible := True;
end;
// Big main loop, eh?
begin
Form;
end.The next script was the first I put on here. It's a simplified player form that honestly looks better than the SRL player form (not trying to insult anyone), and it goes from [1] to [5] instead of [0] to [whatever]. This one isn't an array of objects like my talker, but it still disables, which does look cool :p
program Form;
// Outputs User[1] and Pass[1] to User[5] and Pass[5]
// instead of from [0] to [whatever] like the SRL one.
var WidgetForm:TForm;
enabled1,enabled2,enabled3,enabled4,enabled5:TCheckBox;
player1,player2,player3,player4,player5:TEdit;
playerpass1,playerpass2,playerpass3,playerpass4,playerpass5:TEdit;
var1,var2,var3:TEdit;
ok,cancel:TButton;
user,pass:array of string;
ulength:integer;
const // Set these to your liking
BackgroundColor = clBlack;
ForegroundColor = clRed;
procedure OnCheck1(Sender:TObject);
var Bool:Boolean;
begin Bool := Enabled1.Checked;
Player1.enabled := Bool;
PlayerPass1.enabled := Bool;
Enabled2.enabled := Bool;
if not Bool then begin
Enabled3.enabled := Bool;
Enabled4.enabled := Bool;
Enabled5.enabled := Bool;
Enabled2.state := cbUnchecked;
Enabled3.state := cbUnchecked;
Enabled4.state := cbUnchecked;
Enabled5.state := cbUnchecked;
end;
end;
procedure OnCheck2(Sender:TObject);
var Bool:Boolean;
begin Bool := Enabled2.Checked;
Enabled3.enabled := Bool;
if not Bool then begin
Enabled4.enabled := Bool;
Enabled5.enabled := Bool;
Enabled3.state := cbUnchecked;
Enabled4.state := cbUnchecked;
Enabled5.state := cbUnchecked;
end;
Player2.enabled := Bool;
PlayerPass2.enabled := Bool;
end;
procedure OnCheck3(Sender:TObject);
var Bool:Boolean;
begin Bool := Enabled3.Checked;
Enabled4.enabled := Bool;
if not Bool then begin
Enabled5.enabled := Bool;
Enabled4.state := cbUnchecked;
Enabled5.state := cbUnchecked;
end;
Player3.enabled := Bool;
PlayerPass3.enabled := Bool; end;
procedure OnCheck4(Sender:TObject);
var Bool:Boolean;
begin Bool := Enabled4.Checked;
Enabled5.enabled := Bool;
Player4.enabled := Bool;
PlayerPass4.enabled := Bool; end;
procedure OnCheck5(Sender:TObject);
var Bool:Boolean;
begin Bool := Enabled5.Checked; Player5.enabled := Bool; PlayerPass5.enabled := Bool; end;
procedure MakeForm;
begin
WidgetForm := CreateForm;
WidgetForm.Left := 286;
WidgetForm.Top := 212;
WidgetForm.Width := 500;
WidgetForm.Height := 155;
WidgetForm.Caption := 'Your Script Name - Form by ChaosSliver';
WidgetForm.Color := BackgroundColor;
WidgetForm.Font.Color := clWindowText;
WidgetForm.Font.Height := -11;
WidgetForm.Font.Name := 'MS Sans Serif';
WidgetForm.Font.Style := [];
WidgetForm.Visible := False;
WidgetForm.PixelsPerInch := 96;
Player1 := TEdit.Create(WidgetForm);
Player1.Parent := WidgetForm;
Player1.width := 200;
Player1.height := 20;
Player1.left := 25;
Player1.top := 10;
Player1.color := BackgroundColor;
Player1.font.color := ForegroundColor;
Player1.text := 'Username';
Player1.taborder := 1;
Player2 := TEdit.Create(WidgetForm);
Player2.Parent := WidgetForm;
Player2.width := 200;
Player2.height := 20;
Player2.left := 25;
Player2.top := 30;
Player2.color := BackgroundColor;
Player2.font.color := ForegroundColor;
Player2.text := 'Username';
Player2.enabled := False;
Player2.taborder := 3;
Player3 := TEdit.Create(WidgetForm);
Player3.Parent := WidgetForm;
Player3.width := 200;
Player3.height := 20;
Player3.left := 25;
Player3.top := 50;
Player3.color := BackgroundColor;
Player3.font.color := ForegroundColor;
Player3.text := 'Username';
Player3.enabled := False;
Player3.taborder := 5;
Player4 := TEdit.Create(WidgetForm);
Player4.Parent := WidgetForm;
Player4.width := 200;
Player4.height := 20;
Player4.left := 25;
Player4.top := 70;
Player4.color := BackgroundColor;
Player4.font.color := ForegroundColor;
Player4.text := 'Username';
Player4.enabled := False;
Player4.taborder := 7;
Player5 := TEdit.Create(WidgetForm);
Player5.Parent := WidgetForm;
Player5.width := 200;
Player5.height := 20;
Player5.left := 25;
Player5.top := 90;
Player5.color := BackgroundColor;
Player5.font.color := ForegroundColor;
Player5.text := 'Username';
Player5.enabled := False;
Player5.taborder := 9;
Enabled1 := TCheckBox.Create(WidgetForm);
Enabled1.Parent := WidgetForm;
Enabled1.width := 20;
Enabled1.left := 5;
Enabled1.top := 11;
Enabled1.color := BackgroundColor;
Enabled1.font.color := ForegroundColor;
Enabled1.state := cbChecked;
Enabled1.ONCLICK := @OnCheck1;
Enabled1.Tabstop := False;
Enabled2 := TCheckBox.Create(WidgetForm);
Enabled2.Parent := WidgetForm;
Enabled2.width := 20;
Enabled2.left := 5;
Enabled2.top := 31;
Enabled2.color := BackgroundColor;
Enabled2.font.color := ForegroundColor;
Enabled2.ONCLICK := @OnCheck2;
Enabled2.Tabstop := False;
Enabled3 := TCheckBox.Create(WidgetForm);
Enabled3.Parent := WidgetForm;
Enabled3.width := 20;
Enabled3.left := 5;
Enabled3.top := 51;
Enabled3.color := BackgroundColor;
Enabled3.font.color := ForegroundColor;
Enabled3.ONCLICK := @OnCheck3;
Enabled3.enabled := False;
Enabled3.Tabstop := False;
Enabled4 := TCheckBox.Create(WidgetForm);
Enabled4.Parent := WidgetForm;
Enabled4.width := 20;
Enabled4.left := 5;
Enabled4.top := 71;
Enabled4.color := BackgroundColor;
Enabled4.font.color := ForegroundColor;
Enabled4.ONCLICK := @OnCheck4;
Enabled4.enabled := False;
Enabled4.Tabstop := False;
Enabled5 := TCheckBox.Create(WidgetForm);
Enabled5.Parent := WidgetForm;
Enabled5.width := 20;
Enabled5.left := 5;
Enabled5.top := 91;
Enabled5.color := BackgroundColor;
Enabled5.font.color := ForegroundColor;
Enabled5.ONCLICK := @OnCheck5;
Enabled5.enabled := False;
Enabled5.Tabstop := False;
PlayerPass1 := TEdit.Create(WidgetForm);
PlayerPass1.Parent := WidgetForm;
PlayerPass1.width := 200;
PlayerPass1.left := 225;
PlayerPass1.top := 10;
PlayerPass1.color := BackgroundColor;
PlayerPass1.font.color := ForegroundColor;
PlayerPass1.text := 'Password';
PlayerPass1.taborder := 2;
PlayerPass2 := TEdit.Create(WidgetForm);
PlayerPass2.Parent := WidgetForm;
PlayerPass2.width := 200;
PlayerPass2.left := 225;
PlayerPass2.top := 30;
PlayerPass2.color := BackgroundColor;
PlayerPass2.font.color := ForegroundColor;
PlayerPass2.text := 'Password';
PlayerPass2.enabled := False;
PlayerPass2.taborder := 4;
PlayerPass3 := TEdit.Create(WidgetForm);
PlayerPass3.Parent := WidgetForm;
PlayerPass3.width := 200;
PlayerPass3.left := 225;
PlayerPass3.top := 50;
PlayerPass3.color := BackgroundColor;
PlayerPass3.font.color := ForegroundColor;
PlayerPass3.text := 'Password';
PlayerPass3.enabled := False;
PlayerPass3.taborder := 6;
PlayerPass4 := TEdit.Create(WidgetForm);
PlayerPass4.Parent := WidgetForm;
PlayerPass4.width := 200;
PlayerPass4.left := 225;
PlayerPass4.top := 70;
PlayerPass4.color := BackgroundColor;
PlayerPass4.font.color := ForegroundColor;
PlayerPass4.text := 'Password';
PlayerPass4.enabled := False;
PlayerPass4.taborder := 8;
PlayerPass5 := TEdit.Create(WidgetForm);
PlayerPass5.Parent := WidgetForm;
PlayerPass5.width := 200;
PlayerPass5.left := 225;
PlayerPass5.top := 90;
PlayerPass5.color := BackgroundColor;
PlayerPass5.font.color := ForegroundColor;
PlayerPass5.text := 'Password';
PlayerPass5.enabled := False;
PlayerPass5.taborder := 10;
Var1 := TEdit.Create(WidgetForm);
Var1.Parent := WidgetForm;
Var1.width := 60;
Var1.left := 425;
Var1.top := 10;
Var1.color := BackgroundColor;
Var1.font.color := ForegroundColor;
Var1.text := 'Var 1';
Var1.taborder := 11;
Var2 := TEdit.Create(WidgetForm);
Var2.Parent := WidgetForm;
Var2.width := 60;
Var2.left := 425;
Var2.top := 30;
Var2.color := BackgroundColor;
Var2.font.color := ForegroundColor;
Var2.text := 'Var 2';
Var2.taborder := 12;
Var3 := TEdit.Create(WidgetForm);
Var3.Parent := WidgetForm;
Var3.width := 60;
Var3.left := 425;
Var3.top := 50;
Var3.color := BackgroundColor;
Var3.font.color := ForegroundColor;
Var3.text := 'Var 3';
Var3.taborder := 13;
Cancel := TButton.Create(WidgetForm);
Cancel.Parent := WidgetForm;
Cancel.width := 60;
Cancel.height := 20;
Cancel.left := 425;
Cancel.top := 70;
Cancel.caption := 'Cancel';
Cancel.modalresult := MrCancel;
Cancel.taborder := 14;
Ok := TButton.Create(WidgetForm);
Ok.Parent := WidgetForm;
Ok.width := 60;
Ok.height := 20;
Ok.left := 425;
Ok.top := 90;
Ok.caption := 'Ok';
Ok.modalresult := MrOk;
Ok.taborder := 15;
end;
Procedure CallForm; // Load the form without crashing
var tva:TVariantArray;
begin
setarraylength(tva, 0);
ThreadSafeCall('MakeForm', tva);
end;
Function ShowWidget:Boolean; // Make it visable
begin
if (WidgetForm.ShowModal = mrOk) then
Result := True else Result := False;
end;
Function ShowWidgetForm:Boolean; // Makes it visible without crashing
var tva:TVariantArray;
begin
setarraylength(tva, 0);
Result := ThreadSafeCall('ShowWidget', tva) ;
end;
Procedure Form;
Begin
if not ShowWidgetForm then begin // Cancel Button
WriteLn('Script terminated by user.');
FreeForm(WidgetForm)
TerminateScript;
end;
end;
procedure FinishForm;
begin
if enabled1.checked then ulength := 1;
if enabled2.checked then ulength := 2;
if enabled3.checked then ulength := 3;
if enabled4.checked then ulength := 4;
if enabled5.checked then ulength := 5;
setarraylength(user,ulength+1)
setarraylength(pass,ulength+1)
if enabled1.checked then begin
user[1]:=Player1.Text; pass[1]:=PlayerPass1.Text; end;
if enabled2.checked then begin
user[2]:=Player2.Text; pass[2]:=PlayerPass2.Text; end;
if enabled3.checked then begin
user[3]:=Player3.Text; pass[3]:=PlayerPass3.Text; end;
if enabled4.checked then begin
user[4]:=Player4.Text; pass[4]:=PlayerPass4.Text; end;
if enabled5.checked then begin
user[5]:=Player5.Text; pass[5]:=PlayerPass5.Text; end;
end;
begin
CallForm;
Form;
FinishForm
// Just so you know what it put:
writeln(user[1])
if enabled1.checked then WriteLn('[1] User: '+User[1]+'. Pass: '+Pass[1]+'.')
if enabled2.checked then WriteLn('[2] User: '+User[2]+'. Pass: '+Pass[2]+'.')
if enabled3.checked then WriteLn('[3] User: '+User[3]+'. Pass: '+Pass[3]+'.')
if enabled4.checked then WriteLn('[4] User: '+User[4]+'. Pass: '+Pass[4]+'.')
if enabled5.checked then WriteLn('[5] User: '+User[5]+'. Pass: '+Pass[5]+'.')
WriteLn('Var 1: '+var1.text+'. Var 2: '+var2.text+'. Var 3: '+var3.text+'.')
FreeForm(WidgetForm)
end.I hope thats enough to get in, but if not, I might try again. I dunno
- Widget
——————————————————
<!– END TEMPLATE: formanswers –>