Results 1 to 9 of 9

Thread: Form Problems.

  1. #1
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Form Problems.

    Ok, NVM, we got that, the problem we have now is constants, how do we get this to say LeatherToTan:=Edit1 or something?

  2. #2
    Join Date
    Jan 2007
    Location
    Toronto.
    Posts
    150
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    LeatherToTan := Edit1.Text;

  3. #3
    Join Date
    Dec 2006
    Posts
    354
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks ninja but how would i incorporate that before hand of the procedure in my script?

    i also have this..


    Code:
     Procedure SetupFormValues;
    begin
     Case ComboBox1.Text Of
       'Gloves'             : Option2:=1
       'Boots'              : Option2:=2
       'Cowl'               : Option2:=3
       'Vambraces'          : Option2:=4
       'Body'               : Option2:=5
       'Chaps'              : Option2:=6
       'Leather Body'       : Option2:=7
       'Hard Leather Body'  : Option2:=8
    end;
    
    
    Procedure SetUpFormOptions;
    begin
     case  of
      1 : Option2:= True
      2 : Option2:= True
      3 : Option2:= True
      4 : Option2:= True
      5 : Option2:= True
      6 : Option2:= True
      7 : Option2:= True
      8 : Option2:= False
     end;
    end;

    where would i call these out in my loop?


    here's the loop..

    Code:
    procedure MainLoop(sender: TObject);
    begin
     SetUpSRL;
     ClearReport;
     Credits;
     DeclarePlayers;
     MouseSpeed:=15;
     SetupFormValues;
     SetFormOption2;
     if (not(LoggedIn)) Then
     LoginPlayer;
     SetChat('friends',1);
     repeat
      repeat
      Walk1;
      ToTanShop;
      TanHidez;
      Walk2;
      FindBSymbol;
      OpenBanky;
      DepositLeatha;
      WithdrawHidez;
      until(LeatherToTan=(TannedLeather));
       repeat
         Crafty;
         SelectArmor;
         Wait(2500);
         MouseSpeed:=15;
         AntiBanz;
         OpenBanky;
         Wait(1500);
         DepositGoods;
         Progress;
         LeatherSelection;
         until(LeatherToCraft=(CraftedLeather));
       until(false);
    end;
    Thick As Blood

  4. #4
    Join Date
    Jul 2006
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just put it in the main loop at the beggining
    "your always where you supposed to be"

  5. #5
    Join Date
    Dec 2006
    Posts
    354
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    procedure MainLoop(sender: TObject);
    begin
    SetUpSRL;
    ClearReport;
    Credits;
    DeclarePlayers;
    MouseSpeed:=15;
    SetupFormValues;
    if (not(LoggedIn)) Then
    LoginPlayer;
    SetChat('friends',1);
    LeatherToTan: = Edit1.Text
    repeat
    repeat
    Walk1;
    ToTanShop;
    TanHidez;
    Walk2;
    FindBSymbol;
    OpenBanky;
    DepositLeatha;
    WithdrawHidez;
    until (TannedLeather = (LeatherToTan));
    repeat
    Crafty;
    SelectArmor;
    Wait(2500);
    MouseSpeed:=15;
    AntiBanz;
    OpenBanky;
    Wait(1500);
    DepositGoods;
    Progress;
    LeatherSelection;
    until(LeatherToCraft=(CraftedLeather));
    until(false);
    end;

    i get this error...




    Failed when compiling
    Line 497: [Error] (18158:13): Assignment expected in script
    Thick As Blood

  6. #6
    Join Date
    Oct 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this man doesnt know what is telling...u have to do a new procedure like this at the very beginning below vars....

    procedure ClickButton(Sender: TObject);
    Begin
    Write := Edit1.Text;
    Delay := StrToInt(Edit1.Text);
    End;

  7. #7
    Join Date
    Jan 2007
    Location
    USA
    Posts
    1,782
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try my Tut

    Join the fastest growing merchanting clan on the the net!

  8. #8
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Cherry_65 View Post
    this man doesnt know what is telling...u have to do a new procedure like this at the very beginning below vars....

    procedure ClickButton(Sender: TObject);
    Begin
    Write := Edit1.Text;
    Delay := StrToInt(Edit1.Text);
    End;

    We've done that... We're having problems with const using. Read the whole thread first please?

    Quote Originally Posted by pwnaz0r View Post
    Try my Tut


    I looked there, it doesn't help me sorry.

  9. #9
    Join Date
    Dec 2006
    Posts
    354
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    help, anyoneee?
    Thick As Blood

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. form problems
    By in_jeopardy in forum OSR Help
    Replies: 2
    Last Post: 12-15-2007, 07:33 PM
  2. AutoTalker Form Problems.
    By Daniel in forum OSR Help
    Replies: 4
    Last Post: 11-07-2007, 05:13 AM
  3. form problems
    By Drakan in forum OSR Help
    Replies: 6
    Last Post: 10-31-2007, 05:44 PM
  4. Form problems...
    By Jason2gs in forum OSR Help
    Replies: 4
    Last Post: 05-17-2007, 02:23 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •