Sythe.org — A Virtual Goods Trading Hub

dgameman1 *BANNED* · #1 12-08-2009, 03:14 AM

Problem here. I did everything.
Everything works except...
When I click start I get

Code:

Starting Script
YourIngredient = 
TheirIngredient =

In the debug area.
Which I don't understand because my Procedure Buttonclick looks like this

Code:

procedure ButtonClick(sender: TObject);
begin
  WriteLn('Starting Script');
  SaveSetting('TestForm','User',Edit1.Text);
  SaveSetting('TestForm','Pass',Edit2.Text);
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;

Also, whenever I fill in the stuff and click start, it only does part of the script and then then i get a popup again.

My end looks like this

Code:

Begin
Cleardebug
repeat
ClickIngred;
Wait(speed);
until(false);
End.

So i don't understand why it's repeating stuff before the Procedure ClickIngred.

WHOLE CODE

Code:

//////////////////////////////////////////////////////////////////////
////////////////////////By Dgameman1//////////////////////////////////
////////////////////////////Demoss////////////////////////////////////

//Start at the trade window at someone's house

program RCIngredTrader;

var
x, y: Integer;
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  label3 : TLabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Button1 : TButton;
  YourIngredient, TheirIngredient : String;
const
onion= 2126255;
mushroom= 9940906;
salad= 3462807;
tomato= 3618741;
bayleaf= 4891501;
beans= 9356246;
coriander= 2334292;
garlic= 10210496;
lemon= 2935525;
checkplus= 2221736;
flour= 11455182;
speed= 5000;         //Speed in Miliseconds

procedure ButtonClick(sender: TObject);
begin
  WriteLn('Starting Script');
  SaveSetting('TestForm','User',Edit1.Text);
  SaveSetting('TestForm','Pass',Edit2.Text);
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 365;
frmDesign.Height := 171;
frmDesign.Caption := 'Restaurant City - Ingredient Trader';
frmDesign.Color := clWhite;
frmDesign.Font.Color := clDefault;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 24;
Label1.Top := 16;
Label1.Width := 72;
Label1.Height := 13;
Label1.Caption := 'YourIngredient';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 24;
Label2.Top := 48;
Label2.Width := 74;
Label2.Height := 13;
Label2.Caption := 'TheirIngredient';
Label2.Color := 8388863;
Label2.ParentColor := False;
label3 := TLabel.Create(frmDesign);
label3.Parent := frmDesign;
label3.Left := 256;
label3.Top := 112;
label3.Width := 88;
label3.Height := 13;
label3.Caption := 'By Dgameman1';
label3.Font.Color := 16711808;
label3.Font.Height := -11;
label3.Font.Name := 'MS Sans Serif';
label3.Font.Style := [fsBold, fsUnderline];
label3.ParentFont := False;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 104;
Edit1.Top := 16;
Edit1.Width := 136;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 104;
Edit2.Top := 48;
Edit2.Width := 137;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick := @ButtonClick;
Button1.Left := 128;
Button1.Top := 80;
Button1.Width := 89;
Button1.Height := 32;
Button1.Caption := 'Start!';
Button1.TabOrder := 10;
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;

procedure SetupAll;
begin
  YourIngredient := Edit1.Text;
  TheirIngredient := Edit2.Text;
end;

Procedure ClickIngred;
  begin
  WriteLn('YourIngredient = ' + YourIngredient);
  Writeln('TheirIngredient = ' + TheirIngredient);
  SafeInitForm;
  SafeShowFormModal;
  FreeForm(frmDesign); // Frees the form from memory.
  if(FindColor(x, y, mushroom,117,118,536,224)=true)then //change mushroom to their ingred from above.
  Clickmouse(x, y, true);
  if(FindColor(x, y, garlic,50,489,583,579)=true)then //change beans to your ingred from above.
  Clickmouse(x, y, true);
  if(FindColor(x, y, checkplus,542,309,573,349)=true)then
  wait(40);
  Clickmouse(x, y, true);
  if(FindColor(x, y, checkplus,264,351,284,388)=true)then
  wait(40);
  Clickmouse(x, y, true);
  end;

Begin
Cleardebug
repeat
ClickIngred;
Wait(speed);
until(false);
End.

A box

Sythe.org — A Virtual Goods Trading Hub

Take me to

Runescape Markets

Other Game Markets

Support Center

Register an Account