Results 1 to 8 of 8

Thread: help with my form

  1. #1
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help with my form

    well i need to know how to know what button is been checked and then eat what it says

    SCAR Code:
    program Rudeboiautofighter;
    {.include SRL/SRL.scar}
    {---------------------------------------------------------------------------------------------

       _____          __        ___________.__       .__     __
      /  _  \  __ ___/  |_  ____\_   _____/|__| ____ |  |___/  |_  ___________
     /  /_\  \|  |  \   __\/  _ \|    __)  |  |/ ___\|  |  \   __\/ __ \_  __ \
    /    |    \  |  /|  | (  <_> )     \   |  / /_/  >   Y  \  | \  ___/|  | \/
    \____|__  /____/ |__|  \____/\___  /   |__\___  /|___|  /__|  \___  >__|
            \/ A Poonage Production  \/      /_____/      \/          \/

    ----------------------------------------------------------------------------------------------}


    Const
    Loads = 10;//How Many Monsters To Kill Per Player.
    NumberOfUsers = 5;//How Many Players Are You Using.
    StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
    BuryBones = True;//Do You Want To Bury Bones.
    HpToEat = 30;//Hp to eat at.

    Procedure DeclarePlayers;
    //If Not Using Any Left Over Players Delete There Forms.


      Begin
         HowManyPlayers:= NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;


         Players[0].Name :='Username';
         Players[0].Pass :='Password';
         Players[0].Nick :='3 Leters Of Youre Name';
         Players[0].Integer1 := 5;//this is How many chickens to kill
         Players[0].Active:=True;


         Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='3 Leters Of Youre Name';
         Players[1].Integer1 := 5;//this is How many chickens to kill
         Players[1].Active:=True;


         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='3 Leters Of Youre Name';
         Players[2].Integer1 := 5;//this is the loads!!
         Players[2].Active:=True;


         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='3 Leters Of Youre Name';
         Players[3].Integer1 := 5;//this is How many chickens to kill
         Players[3].Active:=True;


         Players[4].Name :='Username';
         Players[4].Pass :='Password';
         Players[4].Nick :='3 Leters Of Youre Name';
         Players[4].Integer1 := 5;//this is How many chickens to kill
         Players[4].Active:=True;

    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    End;


    Procedure Start;
    Begin
    Writeln('----------------------------------------------------------')
    Writeln('                 _      _           _       _             ')
    Writeln('                | |    | |         (_)     | |            ')
    Writeln(' _ __ _   _  __ | | ___| |__   ___  _  __ _| | _____  __  ')
    Writeln(' |  __| | | |/ _` |/ _ \  _ \ / _ \| |/ _  | |/ _ \ \/ /  ')
    Writeln(' | |  | |_| | (_| |  __/ |_) | (_) | | (_| | |  __/>  <   ')
    Writeln(' |_|   \__,_|\__,_|\___|_.__/ \___/|_|\__,_|_|\___/_/\_\  ')
    Writeln('----------------------------------------------------------')
    Writeln('            You Are Using Rudebois AutoFighter            ')
    Writeln('                 "£$%^Please Enjoy^%$£"                   ')
    Writeln('               ---Post Proggies Please---                 ')
    Writeln('----------------------------------------------------------')
    if (not(Loggedin)) then LoginPlayer;
    SetChat('hide', 1);
    DeclarePlayers;
    End;


    Procedure SetupForm;
    var
      frmDesign : TForm;
      FoodToEat : TLabel;
      Image1 : TImage;
      FightStyle : TLabel;
      Lobsters : TCheckBox;
      Trout : TCheckBox;
      Shrimp : TCheckBox;
      Herring : TCheckBox;
      NotEating : TCheckBox;
      MonsterColor : TEdit;
      ASecondMonsterColor : TEdit;
      AThirdMonsterColor : TEdit;
      MonstersName : TEdit;
      StartFighting : TButton;
      Attack : TCheckBox;
      Strength : TCheckBox;
      Shared : TCheckBox;
      Defence : TCheckBox;
     Begin
    frmDesign := CreateForm;
    frmDesign.Left := 259;
    frmDesign.Top := 115;
    frmDesign.Width := 696;
    frmDesign.Height := 480;
    frmDesign.Caption := 'frmDesign';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := True;
    frmDesign.PixelsPerInch := 96;
    FoodToEat := TLabel.Create(frmDesign);
    FoodToEat.Parent := frmDesign;
    FoodToEat.Left := 554;
    FoodToEat.Top := 34;
    FoodToEat.Width := 85;
    FoodToEat.Height := 28;
    FoodToEat.Hint := 'Tick the food you want to eat';
    FoodToEat.Caption := 'FoodToEat';
    FoodToEat.Font.Color := clTeal;
    FoodToEat.Font.Height := -16;
    FoodToEat.Font.Name := 'Segoe Print';
    FoodToEat.Font.Style := [fsBold];
    FoodToEat.ParentFont := False;
    FoodToEat.ParentShowHint := False;
    FoodToEat.ShowHint := True;
    FoodToEat.WordWrap := True;
    Image1 := TImage.Create(frmDesign);
    Image1.Parent := frmDesign;
    Image1.Left := 235;
    Image1.Top := 49;
    Image1.Width := 151;
    Image1.Height := 133;
    FightStyle := TLabel.Create(frmDesign);
    FightStyle.Parent := frmDesign;
    FightStyle.Left := 277;
    FightStyle.Top := 188;
    FightStyle.Width := 77;
    FightStyle.Height := 13;
    FightStyle.Caption := 'FightStyle';
    FightStyle.Font.Color := clWindowText;
    FightStyle.Font.Height := -11;
    FightStyle.Font.Name := 'Copperplate Gothic Bold';
    FightStyle.Font.Style := [fsBold];
    FightStyle.ParentFont := False;
    Lobsters := TCheckBox.Create(frmDesign);
    Lobsters.Parent := frmDesign;
    Lobsters.Left := 559;
    Lobsters.Top := 79;
    Lobsters.Width := 97;
    Lobsters.Height := 17;
    Lobsters.Caption := 'Lobsters';
    Lobsters.TabOrder := 8;
    Trout := TCheckBox.Create(frmDesign);
    Trout.Parent := frmDesign;
    Trout.Left := 558;
    Trout.Top := 115;
    Trout.Width := 97;
    Trout.Height := 17;
    Trout.Caption := 'Trout';
    Trout.TabOrder := 9;
    Shrimp := TCheckBox.Create(frmDesign);
    Shrimp.Parent := frmDesign;
    Shrimp.Left := 558;
    Shrimp.Top := 151;
    Shrimp.Width := 97;
    Shrimp.Height := 17;
    Shrimp.Caption := 'Shrimp';
    Shrimp.TabOrder := 10;
    Herring := TCheckBox.Create(frmDesign);
    Herring.Parent := frmDesign;
    Herring.Left := 558;
    Herring.Top := 189;
    Herring.Width := 97;
    Herring.Height := 17;
    Herring.Caption := 'Herring';
    Herring.TabOrder := 11;
    NotEating := TCheckBox.Create(frmDesign);
    NotEating.Parent := frmDesign;
    NotEating.Left := 558;
    NotEating.Top := 224;
    NotEating.Width := 97;
    NotEating.Height := 17;
    NotEating.Caption := 'NotEating';
    NotEating.TabOrder := 12;
    MonsterColor := TEdit.Create(frmDesign);
    MonsterColor.Parent := frmDesign;
    MonsterColor.Left := 26;
    MonsterColor.Top := 57;
    MonsterColor.Width := 121;
    MonsterColor.Height := 21;
    MonsterColor.Font.Color := clTeal;
    MonsterColor.Font.Height := -11;
    MonsterColor.Font.Name := 'MS Sans Serif';
    MonsterColor.Font.Style := [];
    MonsterColor.ParentFont := False;
    MonsterColor.TabOrder := 13;
    MonsterColor.Text := 'MonsterColor';
    ASecondMonsterColor := TEdit.Create(frmDesign);
    ASecondMonsterColor.Parent := frmDesign;
    ASecondMonsterColor.Left := 27;
    ASecondMonsterColor.Top := 101;
    ASecondMonsterColor.Width := 121;
    ASecondMonsterColor.Height := 21;
    ASecondMonsterColor.Font.Color := clGreen;
    ASecondMonsterColor.Font.Height := -11;
    ASecondMonsterColor.Font.Name := 'MS Sans Serif';
    ASecondMonsterColor.Font.Style := [];
    ASecondMonsterColor.ParentFont := False;
    ASecondMonsterColor.TabOrder := 14;
    ASecondMonsterColor.Text := 'ASecondMonsterColor';
    AThirdMonsterColor := TEdit.Create(frmDesign);
    AThirdMonsterColor.Parent := frmDesign;
    AThirdMonsterColor.Left := 27;
    AThirdMonsterColor.Top := 141;
    AThirdMonsterColor.Width := 121;
    AThirdMonsterColor.Height := 21;
    AThirdMonsterColor.Font.Color := clGray;
    AThirdMonsterColor.Font.Height := -11;
    AThirdMonsterColor.Font.Name := 'MS Sans Serif';
    AThirdMonsterColor.Font.Style := [];
    AThirdMonsterColor.ParentFont := False;
    AThirdMonsterColor.TabOrder := 15;
    AThirdMonsterColor.Text := 'AThirdMonsterColor';
    MonstersName := TEdit.Create(frmDesign);
    MonstersName.Parent := frmDesign;
    MonstersName.Left := 27;
    MonstersName.Top := 185;
    MonstersName.Width := 121;
    MonstersName.Height := 23;
    MonstersName.Hint := 'Must include capital for first letter';
    MonstersName.Font.Color := clRed;
    MonstersName.Font.Height := -13;
    MonstersName.Font.Name := 'Times New Roman';
    MonstersName.Font.Style := [fsBold];
    MonstersName.ParentFont := False;
    MonstersName.ParentShowHint := False;
    MonstersName.ShowHint := True;
    MonstersName.TabOrder := 16;
    MonstersName.Text := 'MonstersName';
    StartFighting := TButton.Create(frmDesign);
    StartFighting.Parent := frmDesign;
    StartFighting.Left := 249;
    StartFighting.Top := 326;
    StartFighting.Width := 95;
    StartFighting.Height := 43;
    StartFighting.Caption := 'StartFighting';
    StartFighting.Font.Color := clWindowText;
    StartFighting.Font.Height := -13;
    StartFighting.Font.Name := 'Sylfaen';
    StartFighting.Font.Style := [fsBold];
    StartFighting.ParentFont := False;
    StartFighting.TabOrder := 17;
    Attack := TCheckBox.Create(frmDesign);
    Attack.Parent := frmDesign;
    Attack.Left := 276;
    Attack.Top := 207;
    Attack.Width := 97;
    Attack.Height := 17;
    Attack.Caption := 'Attack';
    Attack.TabOrder := 18;
    Strength := TCheckBox.Create(frmDesign);
    Strength.Parent := frmDesign;
    Strength.Left := 276;
    Strength.Top := 235;
    Strength.Width := 97;
    Strength.Height := 17;
    Strength.Caption := 'Strength';
    Strength.TabOrder := 19;
    Shared := TCheckBox.Create(frmDesign);
    Shared.Parent := frmDesign;
    Shared.Left := 276;
    Shared.Top := 269;
    Shared.Width := 97;
    Shared.Height := 17;
    Shared.Caption := 'Shared';
    Shared.TabOrder := 20;
    Defence := TCheckBox.Create(frmDesign);
    Defence.Parent := frmDesign;
    Defence.Left := 276;
    Defence.Top := 299;
    Defence.Width := 97;
    Defence.Height := 17;
    Defence.Caption := 'Defence';
    Defence.TabOrder := 21;
    End;



    begin
    SetupSRL;
    SetupForm;
    end.

    so if the lobbie box was checked i would need a procedure to eat the lobbie and find the color (i already have the colors) also this crashes my sccar :/

    Edit: its not meant to say how many chickens to fight in declare players


    Edit: Pics 1st one is what it looks like in form editor second 1 is what it looks like when i run it




  2. #2
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    crashes mine also btw you should add sky hes gd with forms

    and nice going with Membership! h):

  3. #3
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program Rudeboiautofighter;
    {.include SRL/SRL.scar}
    {---------------------------------------------------------------------------------------------

       _____          __        ___________.__       .__     __
      /  _  \  __ ___/  |_  ____\_   _____/|__| ____ |  |___/  |_  ___________
     /  /_\  \|  |  \   __\/  _ \|    __)  |  |/ ___\|  |  \   __\/ __ \_  __ \
    /    |    \  |  /|  | (  <_> )     \   |  / /_/  >   Y  \  | \  ___/|  | \/
    \____|__  /____/ |__|  \____/\___  /   |__\___  /|___|  /__|  \___  >__|
            \/ A Poonage Production  \/      /_____/      \/          \/

    ----------------------------------------------------------------------------------------------}


    Const
    Loads = 10;//How Many Monsters To Kill Per Player.
    NumberOfUsers = 5;//How Many Players Are You Using.
    StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
    BuryBones = True;//Do You Want To Bury Bones.
    HpToEat = 30;//Hp to eat at.

    var
      frmDesign : TForm;
      FoodToEat : TLabel;
      Image1 : TImage;
      FightStyle : TLabel;
      Lobsters : TCheckBox;
      Trout : TCheckBox;
      Shrimp : TCheckBox;
      Herring : TCheckBox;
      NotEating : TCheckBox;
      MonsterColor : TEdit;
      ASecondMonsterColor : TEdit;
      AThirdMonsterColor : TEdit;
      MonstersName : TEdit;
      StartFighting : TButton;
      Attack : TCheckBox;
      Strength : TCheckBox;
      Shared : TCheckBox;
      Defence : TCheckBox;
     
    Procedure DeclarePlayers;
    //If Not Using Any Left Over Players Delete There Forms.


      Begin
         HowManyPlayers:= NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;


         Players[0].Name :='Username';
         Players[0].Pass :='Password';
         Players[0].Nick :='3 Leters Of Youre Name';
         Players[0].Integer1 := 5;//this is How many chickens to kill
         Players[0].Active:=True;


         Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='3 Leters Of Youre Name';
         Players[1].Integer1 := 5;//this is How many chickens to kill
         Players[1].Active:=True;


         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='3 Leters Of Youre Name';
         Players[2].Integer1 := 5;//this is the loads!!
         Players[2].Active:=True;


         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='3 Leters Of Youre Name';
         Players[3].Integer1 := 5;//this is How many chickens to kill
         Players[3].Active:=True;


         Players[4].Name :='Username';
         Players[4].Pass :='Password';
         Players[4].Nick :='3 Leters Of Youre Name';
         Players[4].Integer1 := 5;//this is How many chickens to kill
         Players[4].Active:=True;

    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    End;


    Procedure Start;
    Begin
    Writeln('----------------------------------------------------------')
    Writeln('                 _      _           _       _             ')
    Writeln('                | |    | |         (_)     | |            ')
    Writeln(' _ __ _   _  __ | | ___| |__   ___  _  __ _| | _____  __  ')
    Writeln(' |  __| | | |/ _` |/ _ \  _ \ / _ \| |/ _  | |/ _ \ \/ /  ')
    Writeln(' | |  | |_| | (_| |  __/ |_) | (_) | | (_| | |  __/>  <   ')
    Writeln(' |_|   \__,_|\__,_|\___|_.__/ \___/|_|\__,_|_|\___/_/\_\  ')
    Writeln('----------------------------------------------------------')
    Writeln('            You Are Using Rudebois AutoFighter            ')
    Writeln('                 "£$%^Please Enjoy^%$£"                   ')
    Writeln('               ---Post Proggies Please---                 ')
    Writeln('----------------------------------------------------------')
    if (not(Loggedin)) then LoginPlayer;
    SetChat('hide', 1);
    DeclarePlayers;
    End;


    Procedure SetupForm;
    Begin
    frmDesign := CreateForm;
    frmDesign.Left := 259;
    frmDesign.Top := 115;
    frmDesign.Width := 696;
    frmDesign.Height := 480;
    frmDesign.Caption := 'frmDesign';
    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;
    FoodToEat := TLabel.Create(frmDesign);
    FoodToEat.Parent := frmDesign;
    FoodToEat.Left := 554;
    FoodToEat.Top := 34;
    FoodToEat.Width := 85;
    FoodToEat.Height := 28;
    FoodToEat.Hint := 'Tick the food you want to eat';
    FoodToEat.Caption := 'FoodToEat';
    FoodToEat.Font.Color := clTeal;
    FoodToEat.Font.Height := -16;
    FoodToEat.Font.Name := 'Segoe Print';
    FoodToEat.Font.Style := [fsBold];
    FoodToEat.ParentFont := False;
    FoodToEat.ParentShowHint := False;
    FoodToEat.ShowHint := True;
    FoodToEat.WordWrap := True;
    Image1 := TImage.Create(frmDesign);
    Image1.Parent := frmDesign;
    Image1.Left := 235;
    Image1.Top := 49;
    Image1.Width := 151;
    Image1.Height := 133;
    FightStyle := TLabel.Create(frmDesign);
    FightStyle.Parent := frmDesign;
    FightStyle.Left := 277;
    FightStyle.Top := 188;
    FightStyle.Width := 77;
    FightStyle.Height := 13;
    FightStyle.Caption := 'FightStyle';
    FightStyle.Font.Color := clWindowText;
    FightStyle.Font.Height := -11;
    FightStyle.Font.Name := 'Copperplate Gothic Bold';
    FightStyle.Font.Style := [fsBold];
    FightStyle.ParentFont := False;
    Lobsters := TCheckBox.Create(frmDesign);
    Lobsters.Parent := frmDesign;
    Lobsters.Left := 559;
    Lobsters.Top := 79;
    Lobsters.Width := 97;
    Lobsters.Height := 17;
    Lobsters.Caption := 'Lobsters';
    Lobsters.TabOrder := 8;
    Trout := TCheckBox.Create(frmDesign);
    Trout.Parent := frmDesign;
    Trout.Left := 558;
    Trout.Top := 115;
    Trout.Width := 97;
    Trout.Height := 17;
    Trout.Caption := 'Trout';
    Trout.TabOrder := 9;
    Shrimp := TCheckBox.Create(frmDesign);
    Shrimp.Parent := frmDesign;
    Shrimp.Left := 558;
    Shrimp.Top := 151;
    Shrimp.Width := 97;
    Shrimp.Height := 17;
    Shrimp.Caption := 'Shrimp';
    Shrimp.TabOrder := 10;
    Herring := TCheckBox.Create(frmDesign);
    Herring.Parent := frmDesign;
    Herring.Left := 558;
    Herring.Top := 189;
    Herring.Width := 97;
    Herring.Height := 17;
    Herring.Caption := 'Herring';
    Herring.TabOrder := 11;
    NotEating := TCheckBox.Create(frmDesign);
    NotEating.Parent := frmDesign;
    NotEating.Left := 558;
    NotEating.Top := 224;
    NotEating.Width := 97;
    NotEating.Height := 17;
    NotEating.Caption := 'NotEating';
    NotEating.TabOrder := 12;
    MonsterColor := TEdit.Create(frmDesign);
    MonsterColor.Parent := frmDesign;
    MonsterColor.Left := 26;
    MonsterColor.Top := 57;
    MonsterColor.Width := 121;
    MonsterColor.Height := 21;
    MonsterColor.Font.Color := clTeal;
    MonsterColor.Font.Height := -11;
    MonsterColor.Font.Name := 'MS Sans Serif';
    MonsterColor.Font.Style := [];
    MonsterColor.ParentFont := False;
    MonsterColor.TabOrder := 13;
    MonsterColor.Text := 'MonsterColor';
    ASecondMonsterColor := TEdit.Create(frmDesign);
    ASecondMonsterColor.Parent := frmDesign;
    ASecondMonsterColor.Left := 27;
    ASecondMonsterColor.Top := 101;
    ASecondMonsterColor.Width := 121;
    ASecondMonsterColor.Height := 21;
    ASecondMonsterColor.Font.Color := clGreen;
    ASecondMonsterColor.Font.Height := -11;
    ASecondMonsterColor.Font.Name := 'MS Sans Serif';
    ASecondMonsterColor.Font.Style := [];
    ASecondMonsterColor.ParentFont := False;
    ASecondMonsterColor.TabOrder := 14;
    ASecondMonsterColor.Text := 'ASecondMonsterColor';
    AThirdMonsterColor := TEdit.Create(frmDesign);
    AThirdMonsterColor.Parent := frmDesign;
    AThirdMonsterColor.Left := 27;
    AThirdMonsterColor.Top := 141;
    AThirdMonsterColor.Width := 121;
    AThirdMonsterColor.Height := 21;
    AThirdMonsterColor.Font.Color := clGray;
    AThirdMonsterColor.Font.Height := -11;
    AThirdMonsterColor.Font.Name := 'MS Sans Serif';
    AThirdMonsterColor.Font.Style := [];
    AThirdMonsterColor.ParentFont := False;
    AThirdMonsterColor.TabOrder := 15;
    AThirdMonsterColor.Text := 'AThirdMonsterColor';
    MonstersName := TEdit.Create(frmDesign);
    MonstersName.Parent := frmDesign;
    MonstersName.Left := 27;
    MonstersName.Top := 185;
    MonstersName.Width := 121;
    MonstersName.Height := 23;
    MonstersName.Hint := 'Must include capital for first letter';
    MonstersName.Font.Color := clRed;
    MonstersName.Font.Height := -13;
    MonstersName.Font.Name := 'Times New Roman';
    MonstersName.Font.Style := [fsBold];
    MonstersName.ParentFont := False;
    MonstersName.ParentShowHint := False;
    MonstersName.ShowHint := True;
    MonstersName.TabOrder := 16;
    MonstersName.Text := 'MonstersName';
    StartFighting := TButton.Create(frmDesign);
    StartFighting.Parent := frmDesign;
    StartFighting.Left := 249;
    StartFighting.Top := 326;
    StartFighting.Width := 95;
    StartFighting.Height := 43;
    StartFighting.Caption := 'StartFighting';
    StartFighting.Font.Color := clWindowText;
    StartFighting.Font.Height := -13;
    StartFighting.Font.Name := 'Sylfaen';
    StartFighting.Font.Style := [fsBold];
    StartFighting.ParentFont := False;
    StartFighting.TabOrder := 17;
    Attack := TCheckBox.Create(frmDesign);
    Attack.Parent := frmDesign;
    Attack.Left := 276;
    Attack.Top := 207;
    Attack.Width := 97;
    Attack.Height := 17;
    Attack.Caption := 'Attack';
    Attack.TabOrder := 18;
    Strength := TCheckBox.Create(frmDesign);
    Strength.Parent := frmDesign;
    Strength.Left := 276;
    Strength.Top := 235;
    Strength.Width := 97;
    Strength.Height := 17;
    Strength.Caption := 'Strength';
    Strength.TabOrder := 19;
    Shared := TCheckBox.Create(frmDesign);
    Shared.Parent := frmDesign;
    Shared.Left := 276;
    Shared.Top := 269;
    Shared.Width := 97;
    Shared.Height := 17;
    Shared.Caption := 'Shared';
    Shared.TabOrder := 20;
    Defence := TCheckBox.Create(frmDesign);
    Defence.Parent := frmDesign;
    Defence.Left := 276;
    Defence.Top := 299;
    Defence.Width := 97;
    Defence.Height := 17;
    Defence.Caption := 'Defence';
    Defence.TabOrder := 21;
    End;

    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('SetupForm', v);
    end;

    function ShowFormModal: Boolean;
    begin
      Result:= False;
      //good thing about showmodal is that it can return value
      if(frmDesign.ShowModal = mrOk)then
        Result:= True;
    end;

    function SafeShowFormModal: Boolean;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      result:= ThreadSafeCall('ShowFormModal', v);
    end;



    begin
      SetupSRL;
      SafeInitForm;
      SafeShowFormModal
    end.

  4. #4
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i know sky sick at forms but i wanna try and make my own 1 and thanks

    Edit:ty rs monkey but y dont the pic show and also could u help me out twith the eating bit plz

  5. #5
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Meh, I'll help you...use a bitmap to put the picture on the form...although it'll be pretty big.

    You have 4 checkboxes...what if someone checks them all...what're you gonna do?
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  6. #6
    Join Date
    Jun 2007
    Location
    Kentucky, United States of America
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Make the checkboxes the circular things, so that they can only check one. Can't remember the name. . . Solve's Santa's little problem ^^^

    Sorry I can't help more, just made my first form yesterday. And it's not as complicated as yours.

  7. #7
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

    all i did was the canvas... i tried to make the bmp as small as possible. did make it like a 200 lines shorter though... but the pic might have not came out as well as you wanted

    lol thats a big bitmap.....

    SCAR Code:
    program Rudeboiautofighter;
    {.include SRL/SRL.scar}
    {---------------------------------------------------------------------------------------------

       _____          __        ___________.__       .__     __
      /  _  \  __ ___/  |_  ____\_   _____/|__| ____ |  |___/  |_  ___________
     /  /_\  \|  |  \   __\/  _ \|    __)  |  |/ ___\|  |  \   __\/ __ \_  __ \
    /    |    \  |  /|  | (  <_> )     \   |  / /_/  >   Y  \  | \  ___/|  | \/
    \____|__  /____/ |__|  \____/\___  /   |__\___  /|___|  /__|  \___  >__|
            \/ A Poonage Production  \/      /_____/      \/          \/

    ----------------------------------------------------------------------------------------------}


    Const
    Loads = 10;//How Many Monsters To Kill Per Player.
    NumberOfUsers = 5;//How Many Players Are You Using.
    StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
    BuryBones = True;//Do You Want To Bury Bones.
    HpToEat = 30;//Hp to eat at.

    var
      frmDesign : TForm;
      FoodToEat : TLabel;
      Image1 : TImage;
      FightStyle : TLabel;
      Lobsters : TCheckBox;
      Trout : TCheckBox;
      Shrimp : TCheckBox;
      Herring : TCheckBox;
      NotEating : TCheckBox;
      MonsterColor : TEdit;
      ASecondMonsterColor : TEdit;
      AThirdMonsterColor : TEdit;
      MonstersName : TEdit;
      StartFighting : TButton;
      Attack : TCheckBox;
      Strength : TCheckBox;
      Shared : TCheckBox;
      Defence : TCheckBox;
      FightBmp : Integer;

    Procedure DeclarePlayers;
    //If Not Using Any Left Over Players Delete There Forms.


      Begin
         HowManyPlayers:= NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;


         Players[0].Name :='Username';
         Players[0].Pass :='Password';
         Players[0].Nick :='3 Leters Of Youre Name';
         Players[0].Integer1 := 5;//this is How many chickens to kill
         Players[0].Active:=True;


         Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='3 Leters Of Youre Name';
         Players[1].Integer1 := 5;//this is How many chickens to kill
         Players[1].Active:=True;


         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='3 Leters Of Youre Name';
         Players[2].Integer1 := 5;//this is the loads!!
         Players[2].Active:=True;


         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='3 Leters Of Youre Name';
         Players[3].Integer1 := 5;//this is How many chickens to kill
         Players[3].Active:=True;


         Players[4].Name :='Username';
         Players[4].Pass :='Password';
         Players[4].Nick :='3 Leters Of Youre Name';
         Players[4].Integer1 := 5;//this is How many chickens to kill
         Players[4].Active:=True;

    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    End;


    Procedure Start;
    Begin
    Writeln('----------------------------------------------------------')
    Writeln('                 _      _           _       _             ')
    Writeln('                | |    | |         (_)     | |            ')
    Writeln(' _ __ _   _  __ | | ___| |__   ___  _  __ _| | _____  __  ')
    Writeln(' |  __| | | |/ _` |/ _ \  _ \ / _ \| |/ _  | |/ _ \ \/ /  ')
    Writeln(' | |  | |_| | (_| |  __/ |_) | (_) | | (_| | |  __/>  <   ')
    Writeln(' |_|   \__,_|\__,_|\___|_.__/ \___/|_|\__,_|_|\___/_/\_\  ')
    Writeln('----------------------------------------------------------')
    Writeln('            You Are Using Rudebois AutoFighter            ')
    Writeln('                 "£$%^Please Enjoy^%$£"                   ')
    Writeln('               ---Post Proggies Please---                 ')
    Writeln('----------------------------------------------------------')
    if (not(Loggedin)) then LoginPlayer;
    SetChat('hide', 1);
    DeclarePlayers;
    End;





    Procedure SetupForm;
    var
       P : TPointArray;
       i, h : Integer;
    Begin
    frmDesign := CreateForm;
    frmDesign.Left := 259;
    frmDesign.Top := 115;
    frmDesign.Width := 696;
    frmDesign.Height := 480;
    frmDesign.Caption := 'frmDesign';
    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;
    FoodToEat := TLabel.Create(frmDesign);
    FoodToEat.Parent := frmDesign;
    FoodToEat.Left := 554;
    FoodToEat.Top := 34;
    FoodToEat.Width := 85;
    FoodToEat.Height := 28;
    FoodToEat.Hint := 'Tick the food you want to eat';
    FoodToEat.Caption := 'FoodToEat';
    FoodToEat.Font.Color := clTeal;
    FoodToEat.Font.Height := -16;
    FoodToEat.Font.Name := 'Segoe Print';
    FoodToEat.Font.Style := [fsBold];
    FoodToEat.ParentFont := False;
    FoodToEat.ParentShowHint := False;
    FoodToEat.ShowHint := True;
    FoodToEat.WordWrap := True;
    Image1 := TImage.Create(frmDesign);
    Image1.Parent := frmDesign;
    Image1.SetBounds(235 {Left}, 49 {Top}, 151 {Width}, 133 {height});
    h := GetClientWindowHandle;
    SetTargetBitmap(FightBmp);
    FindColorsTolerance(P, $FFFFFF, 0, 0, 127, 105, 0);
    for i := 0 to GetArrayLength(P)-1 do
    FastSetPixel(FightBmp, P[i].x, P[i].y, 7300978);
    SetClientWindowHandle(h);
    SafeCopyCanvas(GetBitmapCanvas(FightBmp), Image1.Canvas, 0, 0, 127, 105, 0, 0, Image1.width, Image1.height);

    FightStyle := TLabel.Create(frmDesign);
    FightStyle.Parent := frmDesign;
    FightStyle.Left := 277;
    FightStyle.Top := 188;
    FightStyle.Width := 77;
    FightStyle.Height := 13;
    FightStyle.Caption := 'FightStyle';
    FightStyle.Font.Color := clWindowText;
    FightStyle.Font.Height := -11;
    FightStyle.Font.Name := 'Copperplate Gothic Bold';
    FightStyle.Font.Style := [fsBold];
    FightStyle.ParentFont := False;
    Lobsters := TCheckBox.Create(frmDesign);
    Lobsters.Parent := frmDesign;
    Lobsters.Left := 559;
    Lobsters.Top := 79;
    Lobsters.Width := 97;
    Lobsters.Height := 17;
    Lobsters.Caption := 'Lobsters';
    Lobsters.TabOrder := 8;
    Trout := TCheckBox.Create(frmDesign);
    Trout.Parent := frmDesign;
    Trout.Left := 558;
    Trout.Top := 115;
    Trout.Width := 97;
    Trout.Height := 17;
    Trout.Caption := 'Trout';
    Trout.TabOrder := 9;
    Shrimp := TCheckBox.Create(frmDesign);
    Shrimp.Parent := frmDesign;
    Shrimp.Left := 558;
    Shrimp.Top := 151;
    Shrimp.Width := 97;
    Shrimp.Height := 17;
    Shrimp.Caption := 'Shrimp';
    Shrimp.TabOrder := 10;
    Herring := TCheckBox.Create(frmDesign);
    Herring.Parent := frmDesign;
    Herring.Left := 558;
    Herring.Top := 189;
    Herring.Width := 97;
    Herring.Height := 17;
    Herring.Caption := 'Herring';
    Herring.TabOrder := 11;
    NotEating := TCheckBox.Create(frmDesign);
    NotEating.Parent := frmDesign;
    NotEating.Left := 558;
    NotEating.Top := 224;
    NotEating.Width := 97;
    NotEating.Height := 17;
    NotEating.Caption := 'NotEating';
    NotEating.TabOrder := 12;
    MonsterColor := TEdit.Create(frmDesign);
    MonsterColor.Parent := frmDesign;
    MonsterColor.Left := 26;
    MonsterColor.Top := 57;
    MonsterColor.Width := 121;
    MonsterColor.Height := 21;
    MonsterColor.Font.Color := clTeal;
    MonsterColor.Font.Height := -11;
    MonsterColor.Font.Name := 'MS Sans Serif';
    MonsterColor.Font.Style := [];
    MonsterColor.ParentFont := False;
    MonsterColor.TabOrder := 13;
    MonsterColor.Text := 'MonsterColor';
    ASecondMonsterColor := TEdit.Create(frmDesign);
    ASecondMonsterColor.Parent := frmDesign;
    ASecondMonsterColor.Left := 27;
    ASecondMonsterColor.Top := 101;
    ASecondMonsterColor.Width := 121;
    ASecondMonsterColor.Height := 21;
    ASecondMonsterColor.Font.Color := clGreen;
    ASecondMonsterColor.Font.Height := -11;
    ASecondMonsterColor.Font.Name := 'MS Sans Serif';
    ASecondMonsterColor.Font.Style := [];
    ASecondMonsterColor.ParentFont := False;
    ASecondMonsterColor.TabOrder := 14;
    ASecondMonsterColor.Text := 'ASecondMonsterColor';
    AThirdMonsterColor := TEdit.Create(frmDesign);
    AThirdMonsterColor.Parent := frmDesign;
    AThirdMonsterColor.Left := 27;
    AThirdMonsterColor.Top := 141;
    AThirdMonsterColor.Width := 121;
    AThirdMonsterColor.Height := 21;
    AThirdMonsterColor.Font.Color := clGray;
    AThirdMonsterColor.Font.Height := -11;
    AThirdMonsterColor.Font.Name := 'MS Sans Serif';
    AThirdMonsterColor.Font.Style := [];
    AThirdMonsterColor.ParentFont := False;
    AThirdMonsterColor.TabOrder := 15;
    AThirdMonsterColor.Text := 'AThirdMonsterColor';
    MonstersName := TEdit.Create(frmDesign);
    MonstersName.Parent := frmDesign;
    MonstersName.Left := 27;
    MonstersName.Top := 185;
    MonstersName.Width := 121;
    MonstersName.Height := 23;
    MonstersName.Hint := 'Must include capital for first letter';
    MonstersName.Font.Color := clRed;
    MonstersName.Font.Height := -13;
    MonstersName.Font.Name := 'Times New Roman';
    MonstersName.Font.Style := [fsBold];
    MonstersName.ParentFont := False;
    MonstersName.ParentShowHint := False;
    MonstersName.ShowHint := True;
    MonstersName.TabOrder := 16;
    MonstersName.Text := 'MonstersName';
    StartFighting := TButton.Create(frmDesign);
    StartFighting.Parent := frmDesign;
    StartFighting.Left := 249;
    StartFighting.Top := 326;
    StartFighting.Width := 95;
    StartFighting.Height := 43;
    StartFighting.Caption := 'StartFighting';
    StartFighting.Font.Color := clWindowText;
    StartFighting.Font.Height := -13;
    StartFighting.Font.Name := 'Sylfaen';
    StartFighting.Font.Style := [fsBold];
    StartFighting.ParentFont := False;
    StartFighting.TabOrder := 17;
    Attack := TCheckBox.Create(frmDesign);
    Attack.Parent := frmDesign;
    Attack.Left := 276;
    Attack.Top := 207;
    Attack.Width := 97;
    Attack.Height := 17;
    Attack.Caption := 'Attack';
    Attack.TabOrder := 18;
    Strength := TCheckBox.Create(frmDesign);
    Strength.Parent := frmDesign;
    Strength.Left := 276;
    Strength.Top := 235;
    Strength.Width := 97;
    Strength.Height := 17;
    Strength.Caption := 'Strength';
    Strength.TabOrder := 19;
    Shared := TCheckBox.Create(frmDesign);
    Shared.Parent := frmDesign;
    Shared.Left := 276;
    Shared.Top := 269;
    Shared.Width := 97;
    Shared.Height := 17;
    Shared.Caption := 'Shared';
    Shared.TabOrder := 20;
    Defence := TCheckBox.Create(frmDesign);
    Defence.Parent := frmDesign;
    Defence.Left := 276;
    Defence.Top := 299;
    Defence.Width := 97;
    Defence.Height := 17;
    Defence.Caption := 'Defence';
    Defence.TabOrder := 21;
    End;

    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('SetupForm', v);
    end;

    function ShowFormModal: Boolean;
    begin
      Result:= False;
      //good thing about showmodal is that it can return value
      if(frmDesign.ShowModal = mrOk)then
        Result:= True;
    end;

    function SafeShowFormModal: Boolean;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      result:= ThreadSafeCall('ShowFormModal', v);
    end;

    procedure LoadBmp;
    begin
     FightBmp  := BitmapFromString(127, 105, 'z78DAED9D69BADCC6D1ACB754F3' +
           'F0B3C6FD2FE9C69B80746D7FCF1D288AB6650314A1660FE83EA7A' +
           '3B222A7C87BBFE33BBEE33BBEE33BBEE33BBEE33BBEE33BBEE33B' +
           'BEE33BBEE33BBEE33BBEE33BBEE33BBEE33BBEE33BBEE33BBEE33' +
           'BBEE33BBEE33BBEE33BBEE33BBEE33BBEE33BBEE33BBEE33BBEE3' +
           '3BBEE33BBEE33BBEE33BBEE33BBEE33BBEE33BBEE3AF7A94934FF' +
           '635E7994EDBA5E7DD624E69B49D7B3A3DE6917DCFB9FFC3B9E6F6' +
           '0FE796ABDDAE7AD573EEB9FC5FCE43E76DE7DE77CEA90F97A3CED' +
           'ECE29FB3447D0F9F493430E7A55CEA5F51C736C499F6A355F42A9' +
           '75945CD6F73D7EC70F23FFE695A650E4D2EDB70A4D4DB88CB7ED1' +
           '4631B35F9B8A78B2BAE19FEE61CE3D439C7F1FBB9BCB77BECEFB9' +
           'C4F637E71EEBDF9DF537E67905E4B0424C3AEBEF7B8E76E6D1A4D' +
           '7363D738DAD3B436F71EBECD3D03A1D99756AF8FFBEC7EFF8D1A3' +
           'FA3C526BB3949C46AFADE8BF2454B6115DC8630417DC9CBEF93D9' +
           '7AFFECCED8B6E5FCECBF9AC73F0E96FCEC12F9DA31FFFE3DCFEEE' +
           '1C752EAB7BEFE35AEEEABCDD79CF790DDDC37374B539F45E770CB' +
           'FF5795CD8DA126A3CC2BFD35EA0ED467BD6F7357EC70F1F2D9495' +
           'ABF8C3497376013FB6206BEF7B093714E1BCFAB9A39BBEECAC73D' +
           'FC32D9DA7DD5EAEF9BAB72B7AF4386D18C7BBEE9BCED5573BEBB2' +
           '6EE89EECF6EF67AFD7663DBF79815C570BEFD9E97EAFFBA70FBAF' +
           'ED23593F0DFB53AB2565CF7DA1A86D7B650474AFA8C6247238F36' +
           'B376ADEF7BFC8E1F46BE13B7AF2DE49DC60CF516F1E71484FC2C9' +
           'B5FE6F1D39F9DBCF36317D9E7B9876EAF2DB07A4ED7AF1375DEA7' +
           'E87C8473AD8B53ED7E21DB4FDD7F740F688FFB6A5DFC86EDABFBD' +
           '3DEB2EA59D7D48EB1A79E2FEAAF7749F65E6D5DED237355AF9D67' +
           '366D27A54FED41A1CFB8E3943791C479B2F01FBFEFF13B7E98ED1' +
           'C21BFD50DDB1FB956F98C27A558DA8C35EC1142F0778A7388E188' +
           'B5887BC88DF5438E41D319FE33C57984CDE5ED5C798E6E275FF4A' +
           '813E0B76ECB5CEBFEBA8AD74AD2A3B2E7E230CDC759B4B2CA14BE' +
           '7DD66D11789D9BDDD66E32B5DE7C17CF397EF72B37570C27ECD0F' +
           '4B414575BF28E57BDF8E0DFF7F81D3F8CFC515A1E75882DBBDEAA' +
           '2B49C85FC9B79CB2ECEA4E25EE21E31AA7BC5DD10D19D815CBA8F' +
           '267F358F273B3FCDF118B4C7A8D41DEE8D6EDA2FBD394771ABDCE' +
           '53644966594E714A2EC671E30967CC38B5B204FA98C6D0A35C4D1' +
           'C1E4F56D73F7A55D13DCBBC6CA74F72F5196E77FA54F2BEF58166' +
           '6B59FFFFBEC1EFF883C8CF42FE955B1BC47946592534477C5286B' +
           '7A4DB7AF1F2225721A2780A1EE512751702B5475CF18D9BC53D84' +
           'C0D05B6E69F5A1B3DCE222EF733479CD45B7A31E2DB9A7A2D7867' +
           '884DB1C8FC8BB9C0B5DE1E468E7ACD7CE9CFA960D4FFDE4FEFB79' +
           '6679227ACECE5A9A3CDAA23E95F6A992F2FEBEC1EFF8A3B19DD28' +
           'A17FE852261A91427AEEF74FB0AE7AB0CA12E96A347470D05A87A' +
           'A15D4B43E764CF194444459340A9D3B9A55DE524A4565B0E2957F' +
           '202BD25F0DFAA5619AF8AE9D40ABFD273AE30DC85EA5141F8A820' +
           'BF69F5692569F575A11D4FB6D765CF19C2FCAE5C6D95ABCF73BE6' +
           'FF03BFED821549702B6A32CBF93ED1D04DC0BA4BCEA1158D0D1EA' +
           '1066F5CFA6732CAE0490AFE79CE20BD8DE5A2FD0A352431AA2EA3' +
           'DC94B2E59EC65979BB0F64E081FB6A7A4D6A043EF2A4B25C9B3D0' +
           'BE20029574E55E8BAE5CB5168EAEFC9E0B1C8C4F996163FAD3F55' +
           '7EFAC73F8BEC1EFF883C81F055262682FC4499A1098856DC3B9FE' +
           '043DAE67552FCCCBE217A15CEBE08899DC9AEC1C72CCAD0C41B26' +
           '5176AD0B5C4F067F5A926A13CC52467208AA2E421F62E5F423BC2' +
           'D54E71F4DE0742A43F49B7C4B4F439B63EC714C29DDE937069D3B' +
           'B07615D16DE6E773D473C4A9F21F3E7FB06BFE3A7F0BF84A65EB0' +
           'F3C91028DCD9D932A4C29AD889EE0191C5ACEDC5E28A23B153C81' +
           '3C85E385FA994198FB0EDF1496B13F29D2C7F8B41C80F61A5157A' +
           '88F2A6C5F4B55F6CC36FD13BDE1ACDFAA717D178DA4B8F4FDDAE9' +
           '5CFB2B432DA8BFC6E2B253DE7EFBBFB8E9F42BEE14D481312C53D' +
           '645365DD97AD85AD7F83FE6DABA0E8FF62FF55E8C6FA6A8FD0EA4' +
           '835CA7AA711570B39A50AE6E5B6D614A39E2FCE6381CBA81D25B6' +
           'B02C8E148DAB8BC7C082CAD27B886FD93A60AFC986EF5AF02040B' +
           'C9EAB7F477124DEFF08FFC53E51FC90FF1D3F89FC2EB4C962C3F9' +
           '85E922B6138C4D5F6321112E24FF73662C7F918F5974AF6C31DE6' +
           'B49A9CBCEA774A3564912B9D1D947476258B733B0D565575859F7' +
           'FA2BDF76A6DD9C6C79CCB0A6549DDE6D9B6587CB2CDB65384779D' +
           '0C7D6637A3F1B21D36EBE4932E47F3CFF3B7E0EF9C62B1E2C0957' +
           '4E3EEB142A657D752EC6C83DAC23B30E446E845439B9E5E62DD7B' +
           '3A62D6CF794C3ADD4FCA43A64FF53DDBABFD699566C79E9C2510E' +
           '69F64157F191D81155A257C80F95C20710DDCCB673DEC6BF86A1D' +
           'D19B337E417623EB2F77ADD7E18D7F7DD7DC74FF27C3107614CCC' +
           'BD26B3B4D7305F724B531C7FE659E13D4EB717311C59FAA135908' +
           '4EA9352E832C29C778A6114F9B721E61DAEAF78BBC1A71386170F' +
           '0ACD6BF7D0EAF0B65FC843251740C18FD9752FE603BA1F2F361AD' +
           'AC37B0E625672A9C59D88B4263C0BD8D1F7DD7DC7CFD97C8B52C2' +
           '9E93C533C393DB229698C54464DB6D15446A1DA6FCD690C5E1B38' +
           'B3788FDA71956DBD509C3534B67128D8FA7BAD482AEACBDE0A410' +
           '829BB1F9E32A7B80BF38C81154CB3FAEDD7C0BA13EC36CF46AADC' +
           '15E9EF5E0EDFE4D57403A310579C95A703B0D7B4DADB64B7CDFE0' +
           '77FC41E40BF7427E37864F4655BEAD90263F57365F445DBC4500D' +
           '56680A51E61EB760B3DCDB8BC18925680FE21CFF58EDD6ECD2B0C' +
           'D7EAB86D55CAE1C498F47AEFA904F26EC807F0BE890FCD006FE96' +
           '9693771C2B0DE2E1FA24779559857325F83284F9495EFD9E9FD52' +
           'D881B4DB4D5DCFC417B67CC4F70D7EC71F3BAA45C79F0C6959B2A' +
           '862D362E6822D45CB427E8FC299EC3C1509397661314510D88278' +
           'BA184EC957B804FFABC81CB729CC27AEDA86760CED04C9E99931F' +
           '967D5C498A93AF3C23D5120AE3AB4BFA44CBEACE4AE35B8B51265' +
           'D5CDB308C2BDBC03560B569FEACC04CF7F3C5FF1A3EF1BFC8E3F8' +
           '8FC249FF158A4BD37B25B21C9463BF9BA71875EB1CC5E50BE7206' +
           '64B9FDC94B9C25D243283E2357375A67975C842172941A3178D79' +
           'D50DC63F4CB1D901F45F26D6F91EF9CC819C724DAAEEB5F5D1DF7' +
           '77EA7A8D7D479EB59385A77D8BBC59D7678BC6F0431C316A05B56' +
           'C459D5A0FE5B3F9DFF153C8B738A155E0CC36E1DB29F9E6665AC1' +
           '7B97878CF54D3B1C2FDB2BBB8D9D7781F866157AE5034779B5F02' +
           '0ED0E57F7A478B42E2238D53D23E956887E6A8D884109B1B2F75C' +
           '415B85613A2FF90BB7B0B9B0D7E8B6D640D06B87DE8D185348B09' +
           'CE849026CBDE0E87DA919D25AF990FF1D3F857CB24BB361F97B13' +
           'CF10F5D961F9532EB5C465C932EF8CBD0D70A138B3179641BE9C8' +
           '042BFF910A79FD436C80E8BA308FF13AF404E83F60B79CA41570C' +
           '7109BDF29F65CF65B563D795C1B2BCD878C22C878C807CE1EA593' +
           'B372CABA3237E3A1235FAD9954C5CE81003CAD418D58CFF1BBE12' +
           '86EFF821AFF6C99AE23BCE4A80511C5DB6F65834FEE42B048A5B6' +
           'B1B6869F9E012417CDF6275D745F302C4B9BD1E112749F249B73C' +
           '05988C00DA1C51C80A1F9F56C9967AA964C842D44A32B4DF42F9E' +
           '6CAF0F6989C1F4E8EB1D64296BFE084F940CC93EA88748D592DF9' +
           'C5CD7CDB93BCD97C6AF4B73EB659FEEFDBFC8E1FE1F6457E240DE' +
           '7222DE49456259E33F212219F69BAED5C0D610547538A90BA457C' +
           '0A95F9E462056F5766EAC9A5116668C2ABF7D41FFB14D81D22F59' +
           '9918C406C44E0759DD13D1EB4701EDDCE3B7AF9C55EBB80F8BE90' +
           '9FD2455441FC6A79ED22DA1F6A8B85DA677699215BCFBED3E0FFD' +
           '4E8A7261625EEA3DB5F7BCA77FCFFC730473956A5301EE437623B' +
           'B1E1E1D6E264ED57118E65F09BD8FE9E438C5B2B4388159F87712' +
           '7C03FB43B5C9973FCCE672FB8F2686FF2BA7FC956776472127DB5' +
           'A19C48110F1A233E5EB9BF2E4D6D0EBDD0995545EAABBC09A73DC' +
           '5A51AB42E64E5B50FC8FB684471B40A46AA7AE6A4D6413E02F5FF' +
           '55D84F717EC8FF8EFF07DA9F9A638A681A5532952CEAA536C0549' +
           'BC858DD1EE12D2505B1EA5A45EA63955FEAFDA28A3974FA135776' +
           '6E38F9A26E3A7125E1D9C96E6B95C4A97BA690DCE3EA5461CA17F' +
           '64724E9B8E36EB7E6C61CB43A7ADE7E78F17E3CE8269F37AE78BC' +
           'D30EA2A5E16FA726A2891D55F8BB3EAE0B4EAFA2B22D88E76C8AF' +
           '25F9B0FF23B11D3FC4535FF3339092EA450F69E2351EE4A154DB7' +
           '5ADEACBF0BEB6DE766E7F2545D5ABDE383F841BED36A1464E975C' +
           'D03FAB37CC56A95680DBE7C5AA58A26C9F28AD537DFDD48623C82' +
           '3AD1F7B29D0C7B17C275E42EF4CAEEEA9933793B3B9DC5C685F39' +
           'DAA98D212C2A7DFF9EA2DC44C7855419FC7A56E57F0F80BBA7DF4' +
           '66476C278B32C97F5EA1372D89DDBBDE8DDAB61C2E8F52091788E' +
           'A64219F4FD92D66F47523FE95ADF1CC64E98755ABC877ABA9F67C' +
           '658543AA557F233DAF9E489FECB2502BAE4BC67E9755A9A1CF564' +
           'F4F0D65B64E8F66F6BC592D7DB4AA62AA8C792675C5D6F164F7B5' +
           '3A6D9D5C54FB7AAF4D6B8A88BA0CBC6C3EBCA587B904FF26ABECA' +
           'A88BDECBD5C838C2A609EFE786D11C05D2B65781F037B81EC760D' +
           '47F77837C56A40B83EBECB75841EB4FED052C859686FCFA3DA3B9' +
           '25604F1D2BBA69EE23B9FD18BEDEB7A55EF23B857987F3A912B78' +
           '3E83FEE64416ECA6AF1BF1AFCDBA65EB2A7D50ADC993EC8E0A982' +
           '684C72E0FB3C99252E3DB88C1A427DB8A2E8E2C7AC586DB2BCBB6' +
           'AB8079EEA1E2B2EB9CAC7B502CBD16AD03BC59EA1BCFD3EBD4927' +
           '1FD9A661A154489D1102D4F4475E6A072678C434065366D1822FB' +
           'AC9F2A6F1397D4707B7D901720E7B7EEE5F873F577967E5961B2F' +
           '9726229621656BB8B7AFA1D771C39AE3E88C9BBEEBC28D565118A' +
           '0A21B18942670B5EBBC6F04B3E6FA3DA276BA107AD29223C058D1' +
           'D3A7B67A28357BFA30F3F7FD1B862B29A73E15228EEF5CABA056A' +
           '1B5D8CE447478942FED64E5F03A5C1B2C5DAE5851AED133D9F97F' +
           '7806CBA55B5067415EE692FF283D55F3E7D26C7F8FD797AAEE81F' +
           '6C950EC3C6EE213F170D58ADB510AAEC6D462D6D46D1898DB5EF7' +
           '896A11D629279925E2D62445EFB4172F19E22837E65C345C8C55E' +
           'B43FACDBB458D6ACB3AE87DB88DED73EEFDD658BDAEB9F3B51A02' +
           'FAAAFB5963B6C4AFC5E2B423FBDAEEFCAD05ACF6906ED0F6560EF' +
           '1FE46BED3759FBA0D5044BF35F3CF32F8D7C4F172A597B6A5ED22' +
           '8173B2FBF6F8825C7B0F530916E3CC6E6C920512BD6C28E62C979' +
           '8BF97B2C7BAD5A3DBD395D29D74D6F472DC6858E756BAF87E7C83' +
           'A7774D4841AFD4B6C018DB598B7788EB843F1F48FA4285EDD3A3A' +
           '096D8B9CB4A1E5A3A3A225A51D47C8D4A565C31BE2C97ED51DC45' +
           '6E4BD4EA79F21387FCE1E7CCCA5453DEA21C293C5699C17F2C7D6' +
           '3BA35E95835E1B08F5B8D12F7A0EDD2A1ABABC707DAA4175A838B' +
           'E97474C3CB315EAD588E324E1FF41FED1FAFDB464FF6A9827EF63' +
           '35BAE20FF0F15D09676C7DD73B634C5D30A68BEA520894C147614' +
           'E48DD55B4DC94A1262B25A381305F86B3E5211CEB15C7BF1DBAA7' +
           '999D5FEC298FB5C73F4CB39D3A2A1446AF6DDE6A15B4A788B70F9' +
           '11EB123EACA84C393C7BC4D60D7DD29E9CAB2D5478B4F2BB24C59' +
           'F8DA9CDFC13DF6BF35629B5BA65EC6DE3259B9F29CA21750FEEC8' +
           'BEFF7CE39975673D0EBCC778EB6A668CA32AFF97896138513FAB4' +
           'E9A413A6CC3A5E8EDEDDF2C5B0B26639E6B77FF1C3D25F06F34F7' +
           'FF7324BBC2D8B946126B2D34295D5C7087C41681005B8E470C210' +
           'CFE921A4253E2228C9BB3BE5C27665ED512880F193497D301F8CD' +
           'B987681E9722CAB72BFD67582074D3C87783E75C82E11CFA41ED2' +
           '99B53F748E7458FFA334A8CF29986A6BD19AABE352704C095A14C' +
           'B926FABFD4476FE543403F79E62386358DC3F2FF9B0A774B407CB' +
           'D24A39658524E724CE3E89DE6FD1F66ED9811333A80E338831155' +
           'D5EF48870E7E9514C4894CB89CC8BE555743F89DEEBB7100DF95F' +
           '10FFAFE4C9A612AC93283FECDB90FFF4764F3DEAF0493312C222B' +
           'E1655ECD488393161616B44D0EE6B8A932E91F474031E02DFF4A4' +
           '9A1ECD301D10E63FAC3C4C9523D895B3F56DB3265879F270E9E9A' +
           'BA6CED7E9B8A5373C8718AFDE4D08A4427F54AB47307B9B9365B5' +
           '60324D3CBF89E72F597227B633FD10E6472BE8FEC1FA2D7A1950C' +
           '594AB205E5367107F4F49F63F9E33F7EC5ADD28CE5EE242C8EBE4' +
           'D3A85B9B25C9CBD1EF88EAA086A5970B1E8ADE970E777ECC44542' +
           '99E582DAAF3C533FF12DC064B687C430EA46917B8476526A3D847' +
           '0D4AB1AC7C920F491673CABDA4F1154E3F834F51E79146389170D' +
           'E9675EE994E12B9A0098E2C2413F1D47B30B9846E72340B88F76B' +
           '2DD0E551D959D81BE8EAA61E18C51B629AC4F37D0AF21BA290AC7' +
           'D256619F2D6CFBC7D3437A8DFD44AF3CBE9538713B424DD10C8B7' +
           'F09FA7A99488C39CD9075A3D69ADA6DD4B045FA4451EF18AE7C17' +
           'F3FD4F03CF19F49A4B49332D6F50E2BA53D3538D16DA79FD5275D' +
           'DFEB77D0E4E14E5F32FD8C681752C919A856D64FF7D9FCBF4636C' +
           'AD40C9E7ADA4A1C26C826379426934FA875F78872B70CB6D5EF96' +
           'E843A223C4B74845A2B87A0C51D8608E82BCC6968874E42C440BB' +
           '3F097407447B480EA499FD1C091FB5AAFC5E8C71BBD8F8F9A99AE' +
           '874FF15423EF829D3FEE6ACD79BFA72C77ED7B4E319EE4882BCA3' +
           '247F9B63533BCE4324BA88877F9959621D651B1734DF078C973A8' +
           '8566AA1ACEA6B5A4B152E53D1BB45D3D8DF2CD5B03020B5D9F355' +
           'C1A597C7027D8D5A80B8D4EBECE8D374FEB589FDA05F4D36A1308' +
           'A66A08CF49890BF84F57F02F817C1432E8B6BB9673150B8FD4E33' +
           '283071561219D3A44D9C681352B5EFB7DD3BD218CD89F6EF078B4' +
           '2314FDBBCAF20FA21B76D61564FDC56D4C25A70B57E23662FB8F2' +
           '68EE890D6416BA3DEF6C4CAA790BFF33235CBD1D1FA6849BEA63F' +
           '223D85B261F901ADDB2C89A495203A1385C09482F99EF24D93BC0' +
           'AFA01E54A88ED3C195E8BDBB81CFEF7590BA88BC36F47360A5E34' +
           '65ACE9C6D26E21EE66763E3EAFF2D648DE538A677853CA9CD42B6' +
           '8558AF0D0DFAE5DA64180746E515E8CFE7FBFCAE47F6BB43FFDD1' +
           '8F4218D952FFA8C730658A3A75797C0D5F11C98394D2D4977B4C9' +
           '6A3E747E1A6CC39F3A41F492C49D6BE0B0303DB1D6A1CB286B2F7' +
           '997B46ED99D5410F87A88A6C6B107B40EB929C97B3A86791312E1' +
           '6EF31AFF741BE16574147533E3436565E74434D2156E287F299A9' +
           'C30F5B3E2C35992E76C04B45994538B51FF95E86CCBE0CB8F84F6' +
           'BFC44A12DF1B3D62E46BA8BA785D58FCEB70AF3A2EBCD1DAF55CA' +
           '3C94D282D39ABAD4B3352A2EE908A0168EBA4DAA4667D25E47E78' +
           'B79F9588084B8A675A39816E287B17F3BCCA37A5A1E4D8CF228D6' +
           '8044399389DD9D8A97A53F17A4842CDB2DCB1EA965948B69F557F' +
           '4350D94FA50DE100804831EFAE88B5ADD74C871599451174BE6CF' +
           '8AC7CF56E65A45D059E2FE74BEBE3A1E5433A0C1FAF07CA1FDCAC' +
           '37DFA6DB5D044A92778AB9025D17B7D5AD45C73AA7D91C3ADBCD3' +
           '8296A13712299BD8222D576C1F8B5DDE5540315072DA82EAD6CFD' +
           '71B3F5D68A4005CA562A755F259A7461709717A6D0DB65F68ED91' +
           '9D604F8B5DFCCA6B1D3974D822FEBDD89CDEDDD1AF8B7B4C9409D' +
           'D1F563BBEFB87B47F4FE45BDC924C5216AFAE954821B194EE6DE6' +
           '9AAC7DC1D646F6F325ECDD5003795A9F4EC2572C693011279C463' +
           '30818F46544663AE095A27320FFB5B688885980F9E7D81962D5C3' +
           '8E74C55AFF2A753A659B7E41369D5834E765A9AB7D363C66F813B' +
           '34B2AAB9352B61C278903A682926DD0FBA06C5359B50D9DCC29EA' +
           '91D9730CF3C470C43CE499EAF35081F3AC05DB0B72B1EC6DDDCCC' +
           '3D22A38161CE251EF8A9B75B2E3A5E369392147AC158732A7DEEE' +
           'FA40BE2275F496730A7822471EB08FE87916CB607C1D88FF3EDCA' +
           '6507E521E8C66D3C7C31F43135EE014F2C591C54664FFBC4D0B14' +
           '07A8C29D280C39CEC0BFE5398ADB628943BC418C5B70256283C99' +
           '5E58D2850520D4F1CFE66F7D46556B116B187C3C0075D175DB420' +
           '76A2E73CAA95A8066A1D084B44F30B9A66CB74C2B5B3C41805D71' +
           '03D995CAA010828CE4A1379676D65519627DDF0D405A1931C9BA1' +
           '7731AFAAF25F92013F4EDB84970D17E7BF569349826BEA7EB9BA9' +
           'E2283F3BC4A3FBB5814750E0C3C94273EF49389C768FF7356EDDF' +
           '2AAB3FA3342EAAA7752683A09F826A7FB05FADFBF0D15EFB50F72' +
           'F8CCFFFA6E85E7E67388FF66F325B8B5E593115251E97BDB45ED4' +
           '9E285577309C64D929B8037534D4C61413F5A0733531116ACBD9B' +
           'DA89691BD8A5358C60B90E5D62EC06A22FB959BAC3CABCA78FFD6' +
           '3263CEA74BD6ABA7F3A8D4338CB726998EAA536D2283FC47F1AC6' +
           'CB957383FB53E6259A8D60F919E6B75CBC45FE90D4F54090BD2AD' +
           '35966A957F22984F6F15659481CA2396CD174B2F587E7F9DEC32F' +
           'D56456C5F8F1EABC6213EAF4F456F5766A5336F7A69AD1E711959' +
           '08F2759DFC9EB61212767D300AD7F4ACE849EF71D7C85EFA61EF5' +
           'F6CE7E962355C976279A260F143F77BC66AD80A10C7C1B60B2E97' +
           'B9515649C36405980553A590CFA65F0FED02F4B85D645A4F08039' +
           'E2E4F137DEE29E61E23DEDE13E50969D660631C08F05F7F05313A' +
           'F6A86B74918A17AB3FD327A1B693F922F15DA77098A92D44AC499' +
           'EA36C7C618D3003226434ED4D39DF669450CD5C51D16175EA93B7' +
           '48367636342D6F786AECF5F3C8DF968F4AAD9AD6295A54E236A98' +
           '5ECE4AB785810B50A31D1DBA5DF02DD58D916A937BE4435A6BF9D' +
           '2840B52EDDDE8801E352E85D69F4D2BDCDBA237B5C11899FF5552' +
           'CFC4BE3F3C1A29430E78ABA1DF596E4FA858AFACED629851C93F8' +
           'B338323265BC265BC646168E3626627A425F22B64EC36A5E819A7' +
           'AAD112AF63D3ADDA213CC5608A82C9D6011F9B42A5A682710D9EF' +
           'A2CA3E2C525104FE08AF441892979F4BC3E0D50ADBAC230652590' +
           '722BAAD7213E457C8B3D567D856C3A03D844F4AD6AA3033886796' +
           '37F345E59AF9172D98CE2B1124AFD78AD71060F168ECD4D033FA0' +
           '957BE0BBF1CE33CE2E7CDD19FABAD469F54EC5DEBE204908CEB00' +
           '5BD7B2313D376D1BCC0FB2CC1EFD85E05EEB17451ED6B1D65DB42' +
           'AA4643FC55799FCAF6038C7D846233FFAC409E11F62CECEB4B58F' +
           '56C3C02E11354733861E0BF182431C530823F32E5E4CC6260C4F5' +
           '4BF7AE2D5B2A67DB54D154D157C856CD94CBDD772F05DA18C387F' +
           '601741DF866E71EFAD72123903FA3682752C45DC45AA183D05C67' +
           'A9F6DC88FB486BC5DB70BE4F0389B851015CCCEFB87FFC8C54609' +
           '4AD7B7FC807E0E2D6C3A58C8415FD3D1B7AA7D7494DF2C5C130F6' +
           '15DCF84C7BEEC1EED60E1F863B5D568E8EBAC9F37787276624322' +
           '34D33BAAAAC506BB554FD74739196565FD0EB53F997AED41DF213' +
           '04B887A0FAD78CB87B84F51ED9F8C79EA7ABB55146FE339D3BE85' +
           '80ADCEE39DB3D6ED11B0E9647D613951968F1999D5DB844B7FE9D' +
           '90E4CB89C7EC9F246FA3B1225F06D64D1E8C5A6DF75A520A35FAE' +
           'B79A620FEAA2E9DBB0769CE99C2126AC2709F9F221B1F7C1C1740' +
           '23932E13A32C9A1EADCCC1FCE3697074F8499CF0D7DCA424FDF6C' +
           '54796AE5CACB6856014445E736FDFC62B3AB9A557D56D327615F7' +
           '0F21A7CB11985513F89DC537AC32F5C446B0F4505597F0899DEC5' +
           '6A9E89C6A3ADE36F406F0773D0DD7EF433ADF6CC990A44B6587D6' +
           'DB751BABFF16CD1AB8ADED605AAB2E8876756E887C67F969D373D' +
           '5F3BE329D219CB7C28380D59516C607D744F454C9890A36F0CDEB' +
           'D847C27EB877D1487918517F3A5B3C25041EBC78EC4B4B50FF83E' +
           '5D6FE9F45E4FA8439E1F63975B0CB3EF267BDE433D11CF423B3F3' +
           '147210EF6BB888C634D83756AEB5DA7503652121732C53EAD0273' +
           'A8856A22824448E4C3064A67F05B57A26EB31587B5CFB35968D53' +
           'C02D0E60D8D5A07EF5C366CF27E584731FD03A6D886F9E09FB9D1' +
           '81ECB37C0176027FE8EFA20A8E049E7EDE1B999B2BBF964A244F6' +
           '7654F56419AA9D92617F7D41E577C5EB2D8A1D8BBD827C94FAD29' +
           'BFAB99E787C95F6FE7512AB03AF06EBFF95E8BD53E8AD99035357' +
           'F5098B2C772A68E908C142858F20CF5DDC389E5BDBA24FB0EDFD7' +
           'EE5F49C8A214F30CF7F3B9F56A12326DC42DFCFB5871E7A2E0DDC' +
           '491B50A8424DDAFF5411B959E5AA93508444E1C953CE20EB2A3D4' +
           '20581504EFBF03853644CC57A2BAAB8AC9D09118CD4F341226DF9' +
           '35DE15A250F0A0C4CE75C36018E4AE7589EE987D9F6B6FBD63BE3' +
           'BF9365669E5BD66FE06003B496CCBB20FB40256560EDF7C0CA9B5' +
           'A1717FE63CFC9914CB55811FE3E2A0FDAB6B6F50F18DA5F6C076A' +
           'A1F90D06223BEC43D3B8964D107AD6E087CC3F19E7DBF6F469D5B' +
           'DD3B250C36643594CDCAA1198E7E16C4A26BD83C5ECA3CDF8806E' +
           '581451B62D0DEB922E4427E807A4024B58C4F8A640ACFEB1F6C99' +
           '9768C17AB91237BE578F630476B25EC719A38B3D6821CDCC950B5' +
           '3B760FF243891452B3AF7D447767B784FD29DE8325EDBECBD2077' +
           'F6330FCC74875C48A444D4D039F95CA27D33E208F332CD32EA6FA' +
           '37C3F02D0274ACDEA1599C6A9A6EC3DF4CA4AAD880FD229F0A1A6' +
           '64924C3A5FC6E54EFB5DA0DED2FF24D21539F805F0EEB0D1D13FA' +
           'CC1C1538B59845E17A748879A6E83299A892739EEFED629354D88' +
           '322F56A365DAB7D1EEE4FDBF36AB3698A55C733A1E3B77B98CB5A' +
           'ADAE9888C7B2EFDDBF73A3B2CD23CEEFECBEC5A49C740CEF6216D' +
           '487590609134E16CB2526E3C88F151E92A9857922E3814EEFE60E' +
           'EAAB8EECD2F0559EA6DEA4E9FBF6519C47FC4734FD863AD9120A2' +
           '1F7249C64662E789A96CC6BD055C9FE9AB5A7BEDEBC4C3200162B' +
           '45B7600BF71E2B8ADDCCD534CAF23B09C5AAA7AB05E66DF22131F' +
           '4FD4CC2B23C0593D8F829E6B30BD46CFBC1D34D967F9F2594CCAF' +
           'E1B783B6B2A393863988F26BB6F9B6D5983F6C4C1F10B66F58771' +
           '69F8CE6BD46638FFD6F6DFE83F0425B4A7AE3C67431F82736FBA1' +
           'F787B24ED962DAD9A61E3FB38F6B79E6FF39BED16C9331AD0A26D' +
           '877CAECEF6267F4AA61F23C0A9B87F3C379A9193FB2AC132BABEF' +
           'B918DA0950EA391693EBE2B6D49655B231DAF4E52BEABB94BF476' +
           '74540BF553CFD6937D5D73DDD699457BA260BE75805D3576CBE1C' +
           '8AD1BD58B13E6364A660B3DC163B08D50E29A29FA09540450DD5C' +
           'BD9A44198C3504C1DEDA90FB519530186F3CC6B204B4A2D04F5F9' +
           'C66ABC29B526DBC58AA17CBD13391FCB1F6C5A6E25C25283ED8D8' +
           'E492636398BFA032A93D089A0EE9EA20BFAD98963C9E6DB8A58C4' +
           'EB0356067D59D3C67CBC5A8B3B25A23A684798272B4EA7FBAB651' +
           'F1ABBC2EB6B70FBAB4FFE11E4A37A7A9EEC52259A61752AC9BA57' +
           '4DBD6BC555AFFCD7DABDF0D9F4E59F3A7B6DEBA96F978D6A4C40A' +
           '8CC40DE7060616C515B939CB15C2A78C55E6CE7A75794FA19EDF3' +
           'C9DEC7ACA6CDF7D6BB8F964C016A99EFE9FD2266E22F4DDD66F94' +
           '97289883B57AFEEF795470B319F38108B42B5324771E98B9117B3' +
           '9E964D227AA24D41E8471BB6B139A1CB83A5974F2D464FE63551F' +
           '1E6319AEC1B15A407F3D76D5A8F7991DD3C9B6A6BC597DFB271DD' +
           '26E352157FDF3E4A9BE0433C2BA3DD60534EC860A36EAC1D276B2' +
           '7F286FC649DC4CDA2B8C776C7F5FBF39DCD7D73569BEAAC43D399' +
           '15F2D6A7E9CD2EFD767F78E619D98CBA2FAAF963F956B4C77EB35' +
           '191DA95FA7CC75EFB7EAFF1F906D318708D2307B5F73DCB98ED8E' +
           'D647359DF730B50E8ECD35A066BC59ECCE32B0369798E8A110169' +
           '989B9E4DBC933B5EAB260B1703C03530669DEAAC6C484F8D603FC' +
           '410891D5D52AD0E7A86E23A7E6561364FCA4F555AEC0A2E1036C4' +
           '518C68CCEF68E19884F8E40E74AF047AB4D0C3B999E7DE2CFB62A' +
           '05F8432CEF3436B3F9D16634807CB884AE64D9B7DF26713E13C69' +
           'FB9CCCFCC4463422FFE9F69E9D61B62AA3AD55641B79FD03DCC27' +
           'A1178EB7DBC2D343DFA8E9F7CCC49DE1F22D588D3D559786FC0F9' +
           'FBFD0E63FD6490C276F8B4B2C9B65EC65E7B1788D9AF4369ABE8B' +
           'C108634FFBC670B79FC16620124A6F378A4CDA8893E999D2454DE' +
           '195EC9818ADEDFFD4951DCBEAD414137E9BB0D49CAEBA2D0B536A' +
           '33FCD7A78B0A135D62F458404FC471797994A23FABEAED7D45DFD' +
           '8A38020CE4FEC25D89490609E6702F9C33C5DE79B1C5C948CB5C4' +
           'B4122A7E36795C8B666E983895CFF827B607E4A4056D7195602C2' +
           'ED86F06D633CD93F9E1BA77568465AE612E4C47C1C3451585DA06' +
           'A8FC7DBD91657EAE3D3B9D0FF9FF349E2F6FB565CBB25A5492AC9' +
           '00CFBECDA47C725E943F916468E14E59499AF752C546746ED96CF' +
           '14EAC4D5B546C8ACBB4056FE5284220EBFE116695BC43AD027429' +
           'C44EF452FAC3C49A67CBF36FF102542C35598E7BBBFC1B239BE99' +
           'F79AA9CE9585D7EB65FF09DA24613E7B6ACCAE594B9AF9B476C56' +
           '6E48D44D418CC67955F4D55D9352FC35B4472582E16D5C2F0321D' +
           '2DA1825A329928479396C567F029E73B03D762593FFCBB7D306C1' +
           'E10D5FC895C067D0786F9F73CADCFCCEEC7FFC8D9B4DFE287FC7F' +
           '42C4126E99ACB2EC892467145CE4730552FB45364A38170AC7E5D' +
           'C5B0BA991454A5364E88868FB21FE3F42DB6235C415C9C86787FD' +
           '3F91C965E01E6E6BBA5154C56BE9344C1E3563141A547293495E1' +
           'C39222D8088BF205F902A0561BBA1316C0CE76A094CF1FF9BA6A7' +
           '96CC05D42F4700258D69B3DA2FB0F9332E9B90064F41F012248DF' +
           '7CC2E77C9B63D79A7D7433525C36CEA835659146D9A395D27DEE6' +
           '9C13C3F9E17A30A293B693A2FB804F6179BA98DE3C17933C51BFA' +
           '7EB92CCDEDB5765911CFFC4EABFE3A7B04DCCE3986DA5EB751754' +
           'C7B229AF4EC341C8C42BAA655DB1FFF421B107A37114292E1789A' +
           '7D450DE2F3AED29A0A15A5DB83D5759D77567AE6BFA3E0A53ED83' +
           '6BA8A03A478E264CB11B1F2D579A43A1F31BAD9A697EDA10DAE84' +
           'DA1504C96B16ADF28B278DA3B0CA15A1870783440BA3CD9638903' +
           '5951B9CD255DDDA34D4837E5837B7EAA60C31832DB5366B5114DD' +
           '50E60D539F0708243AC28AC37B5F5A33CD3C50F9A9A95CEDB68EA' +
           '26CE90EF617DA6F3460EC3B418CA0FD706986AC97D27185A4C5FB' +
           'F13477F8C3CDC6E682FEC926476E5BAF3BC0CCF276BFC21FF4F40' +
           '7E30CB6393E1CB31858F0ECE8B4D9C7C91FF449E97DDEE623BD8E' +
           '3120EE310521FA3CBC20F046126132DA36F621961AE3C740D3B83' +
           '7CE14536CD23124C8B11919D4057474BF80E780244E70A1595686' +
           '5A2D75DA9A82756287FB3A1E3011D9F16598A7A50CF8FAEA2344F' +
           '7069C6DAB566C2AD3D696711F2F570D6FAF2410E49B7FC0231A52' +
           'D96E5D19E225B6C35FDDB6A6E1AF5458FBAA075E366CB5860F1B5' +
           'B6ACBE343CB50A5627F96810525E9CDE8A851F47BE75B598C64FB' +
           '2A851A36396EE03597BF9DA81F82DA935A6A130153D518B6DB982' +
           'F321FF4F413E162CA167F3CC0DCEE8D4CD11FAE97189ADC8A65F6' +
           '11C31303708EECC11857392A70C36283A2788433FF9C070F219B1' +
           '8D441565D2A3B1EE94C4853A7635454F64E538AA53C4C3B1AB793' +
           '58FAA301DE325B5D67677309E3A1AED55CC5D9367D12A1E2F82D8' +
           '1945E41956972740C339BDDD533B4CDA0FFEAB6CA7DB0DDFB6DBA' +
           'C42B7B4B9B06628F84C2E79D429333962FA145946646761FFD56A' +
           'F1BD298D275B8BD96ABD3695C0E669C80740492D9385753FD7D36' +
           'A956C70AE9AD1B2ED2843C3E4F13CE4ED6B6B437541EB33B14BCA' +
           'A341159AEF89ACCA87FC3F83C9D303653A4EE6CFD527F2DC96507' +
           '7579E6BD647E9E8F9D384B7EA293296891DDA147C4769D2A454D3' +
           'CA9B7998D1534B296620CB6C585DFBE84B3CD4DED063ED8F8BE18' +
           '4ED99DF41FC2ED9DE0EC7B59EABF874972734AFD12E4833A2831A' +
           '024A203339AB43ABF21D8457344264BE5DBBF1D092253E3CD3765' +
           '5DCA8872E8454BFB44E9F491139303FAA5A37EF8CA4F5A9BF34E4' +
           'EB0F792CCBD83D4A53964BA006789AB53FA6BA73615CBAADCBB25' +
           '3FE6436DC5B559B711ECB145738E0C370CCFE5F633E4F4DDF53DD' +
           '4DD5C3CEEBAB3AFE13907F4CA392CE6F594F2A259F3A9339A7BCD' +
           '6369BB7FE3AACCD2657D8AFB03CA6D38E8068C6A983784EC7F3CD' +
           '69695D8853EBB5A073230135CEE86DEEAB0B1ED2938C50206B250' +
           'E4FB5577F34AD891C9A86CE642E5A649A4E3275858C7040DCDE2A' +
           '1243EBBE791AAE5AD2B6E2E8AD426143365F3B4C4253D9B92D7FE' +
           '2B864980FE60583FC6B99687D34CAEBFD8A512B4B0B5376BEE9F6' +
           'A42A34914BBE96677A9496AF29D6463B3BABB57ECEAC826E0A857' +
           'F42258C69E51C9BDA4C791B0A10E46CA9A9D6E7A24E2850C97453' +
           '7F7C0D8B267DF5F67F1EF261B4EDC17CDE56A965DD468F0688B88' +
           '84D44A3DBEEAD92A2E27B939D4D57DC445692B87D9EA6E585323D' +
           'B5BB9799DE338CD545B0FB69A3753A48A8A9A25EBD39EB5FAAE6C' +
           'DAE471FB9E0D3DD742CFBCEBF99CBB088F8B76052DED6AE2E8750' +
           '1E2B6C2A1C14319D5F75502F3110F560DAA6C74B09CE5437FD1D7' +
           '378531DA71E7E467AB1A8E7DD013D122C3FF5A078BBD52235D41F' +
           '90B5E8E6E10F8B715E6A927ED1EF3FE6A7EA7E5B84275BB725FBD' +
           'C898DA9CF362DBDFEC673E83EFB2D4BFBA1F7E791FFD4CCBFEADC' +
           'DDA219CF2A88CC557A57C1D0BDFEAD8332AAD0E80122222717D75' +
           '828CAC4E4BBA8BA94474AFD4877ADD9E4D7637DE2B2D0E635C2A8' +
           '9E4878B38C8EBE7F5A4E1B79D06C711DAA66F0B5E1FC1EBD7A79A' +
           'E9949247215989CC0B841CF0087BA835F7BA2119851A3D1BA900F' +
           'ABCFE98C1B23E1374628E423C4A96CAE5AB11A891A88F14CDD77A' +
           '84EA01B376F4315ADBAE455A9BBE1BAC1FA6BCA2FF9FD5B2E0C0D' +
           'CF921EE413E7450D94CA35EBD4A1D2583CC7FA37CB53ED6FDFD48' +
           '7FC3FC3E647AB0CA8A61D4CBC6398E54FB2DAAB39AB30279B19F4' +
           '15D0F5532CD6B14C9720D7A39592CC475B86FAF6F41F599578B29' +
           '964C9EA07892E36C3F513297716476DA6E89151D2A8A93D959DF3' +
           'A919E079891AE0C1E4AB82F7AAF710E7994D4C481CA6C6335060F' +
           '5EB4C3A95A2217F34262FC85A07F44BB400C5B89AE119C47B197F' +
           '6F556A423E8A9C214754FA02EA5139588C3F5ACF4CB6DA8A6675A' +
           '844397F0DF259F76FFD0F79633E17950B398BF32753FFA6632D5B' +
           'D5B7B7F8EB7E6DD487FC3F0DF9B6BF3F1D6DE5ED2D7ACE55A872F' +
           '45F10E9B7BA939650BD60CF5DCDDBE4856691C06CD1417BBE5930' +
           '627705DFD056164AF5E94111AA22B5DB3708D36117AFE6B9A127D' +
           '871F64CBB9ED8B56CB5D53FDCB8213CD1C6A6A5C45CB4D0D18B0F' +
           '49C8B7EA78D80E8351229D19DA209E3EF499A637DD1CB400C5729' +
           'CB680C83C15B44966A866F9A7F59C2F538568A6BD00AF6EF9519F' +
           '8293FD12A51ACBCCD6B7FE075EF3588FF4E6B9AC82E28D0235D37' +
           '608EF0C47FFA9A5FD09C88F6FFF88F5921886FDAB244C8CBD3FDD' +
           '55E4108B3118CAD56B17B85805E7D1EA65F2654B8F460E552E62F' +
           '2AD5E9BB24306689A85BF6645ADFED7665539CB964DEA39C58872' +
           '269E6EF31ACCEE62E17C267BB46CC73FA2E7F262E315DB8911C29' +
           'F9818DB6AB8537E34B928B48AE5FFCA8BE5CA216AB5E6E447439C' +
           '8395944A109370D7531B405DE415ABC0D6B3FCA93B73A6D090E99' +
           '3CFF69985366A2688DEFF1AE41753697B3A562CB3FCF418BEDDE5' +
           '4F4DE6A3CA82AA0979B4618AA31FF2FF14E43F7CE6F173DF2EC26' +
           'C6AF54E187E9069FA151683EB4F4F906929E177C1DDC9AA178B84' +
           '732DF68E4A6C872956D84CABEF5CEF0C65F68E6AD39ABA7558980' +
           '24FB58CBCF5AAC334B63DFFC92C13F980E1CB26336B3051353142' +
           'CA0BAD3EB9CD329023B48B621442C3E2422858120565FF2A69B4D' +
           '586218A393A0E856DBA7B93B1E98CE6C8C91D9DE54C9E8B1D0D7B' +
           'CFFA0F56693C5EC5C35F837C3A1AB2ED2DED395B67CE32CC2FFB2' +
           'E7C7DEAB3996BDA3E9EF31FBE1E1FEFD2BA9C60FD745B5089A6ED' +
           '9EAE526131DCCCFCC024DF56BB0ABE48A083AB326ABC3BCB3D8D4' +
           '45D8DA88E553CE33FA050366209234C9BFA3052CB317A31B71A9C' +
           '9636DA53FA3F31F54C7ED51754FA6CF408BEEE2FE2F9C16A2F99A' +
           '2FEDB39980FFB9CB1F9239FE74CB7028CF443C87FEA01622DA211' +
           'AC8AE266AAD84EA61694FAE5C34CB812D2757B326F96390F848E3' +
           'A9351482AB4292F3B666F6A67CD9499594B3EA7C0D486EA63A868' +
           'DBC8D3CD3A1734F9A9DF0C1D951F53F26CEFBC67D8CEB3023F45C' +
           'AEFF8F5367FA1F56DB544E351C6C3EFCE6BD6F1780F2EA2F5777C' +
           '981771849AC5EA73A33E21AE3B77A79EEDE01BD2E56E4A370F6FC' +
           '9BE071FE2ABB7D0E1F99E0269B892CB3C36B407502B2F0E46C40A' +
           '85ABFC28867CC8FF8E5F8FFC4255969DFBA3E96151A5D86F23823' +
           '44C390D75E1B3C644EB6664066C4E2B39DA035F3BD3E56EC87F62' +
           'A74F4C04F5D5F34C55919DA7B1912A78B4D3BA380E975AE2FD360' +
           '314CDA6FA28C6468BED7C3317BEE3D7B39D476DB0D91C87637D4F' +
           '19BAD1909732151066C58AED2CF17C5331915947557598E3EB5B6' +
           'FE85CE2950F53055FF9ED93B5BE2E2C7FD01AE8318AE530BE13FD' +
           '05B08F14311EE6CCFE5D2DD7768B8F5D7FC73F07F9C1EA077ED3A' +
           'A32DD867C1279CC1C2B1AF61E5531B9B3BB2D87AE52DE7E8AE194' +
           'B027F33993ECFF3265B3698C9D9E597A53280B2B14BB310B3DD8B' +
           'C087AD2333A105ED8A782C7AA64B45F3CD1DD9E77B6196FF99BA7' +
           'F91DBF9EED0CB295A6AB4F968DF60F930F676E73A45A787B347BA' +
           'ECB3BCE25562253CF0CA98C7CAC6FD7F470E4CE1295357541304C' +
           '9EC1E223163BEC686D12CF3151592A466B44912145667FB6744C1' +
           '5961AE990B375E01263745633163EBDB2EFF865361FCD98671E6E' +
           '4289B21DD9F0D2533D32DFB5DE88FEC8754EDEEC49CB7A61E8772' +
           'F316A17F06D8AF9AC4CAE21C5DE82F5B76CCBBC9161B8B69FF448' +
           'B7F7D3F354E84C48A6A91C8C2125E4FFA8230AE968AD7991A84A4' +
           'F567A34A68A71B04FB5EC3BFE6CE49B0A3176DBBA8063A24F4B0E' +
           'EEAC7DE6314D2467F6AED3DAA3A4BEDA70A9EF36F50A9406EDF9D' +
           '4AD09E511AF21A5C747C66BDE6975E2400CA9423765CBCB75D629' +
           'E9D04B7659882F711DA76D802255F9C24D9B0EC9AD225684966CC' +
           '4EBF6C9AA681259269FB3C5FC9F5CA0D5D97CECE83B7E08F38F56' +
           '9E296F57AB11AE875E13DDA63ED3B794DCA05667CD897EEC5E537' +
           'C64B721BF745D39B859AB2014AF4522A3DD12D56E8D3A7DBA895D' +
           '26AB2B7FB91D01BCF7D1A61CDA347CBEAB4C5FC23C434C476B6AC' +
           '5B6D6982C1806AAC867BE7239B49EA213F27340E1E144AB9F6476' +
           '03D96E534A46B1C127AA1DBC55FABB0FFFDFF143C8A75E0BFDB48' +
           'EDA8FC8FC656CBD3F6D941B466F027396735B429FA7531031FB4D' +
           '4DC867B0CFA475718D211F57E6D8143E455DF0758F50AA1D809E1' +
           '2F9B49EF9E6615A07BD58D310F77F902F673965A72B9FD885FF91' +
           '9A085528533717129C4DCC88D6DF48677E8FC49F5C3AA6A8199E5' +
           'ABB0FF9DFF1C7906F99273A57C89F0A91D158854716E27838BC0B' +
           '4E56BDFA3B6C5A8430E9D3DD65BA52A76B1B11624173F42CE4A34' +
           '459239D30C954464E6A4DA8B78957C7D14C1F8317556A625349FF' +
           '79ED26371EC246616E9204DA50BAFC65AD02AD99DD976BE3899D7' +
           '6FA23A99168994AA4C12CC22CF7F743FE73985E57C853FBE0B52A' +
           '7767D5EF1EF5A2FC55DCFD7D54E751AFA576AB50259A516143EE8' +
           'C2953DE7A4F7613B3F043DCA3D9B40884C8F3B84576B933A341FB' +
           '84387993074CFF7A4BA8899414DB16DED146165FD20B53A23A287' +
           'AAA4063204726EB3D967C87A3C536C5AC4EF711EE34B2AE3C42AE' +
           '73597FFDECAEF8C6FB589FC2AB7B663337F334D5F1F822DFCEFFE' +
           '5C88FE93E3578DA777722764075C887FCFF13F2E7AB60C6602922' +
           '932889EF1032D506B41A6E719E5D6FEC63B691A2CE35753AD0E36' +
           '152A73CD047510A9E4397B1D84D7DD4FD9FACEED0A34CBF5A719A' +
           'D272200B162BF334235EADEE97376D0A127A17BD4DDD72A963CD9' +
           '149888D5A38B4CD6163894C81B34AE3F4E99EDDDF706E5DABA6A6' +
           '421C19E374327D6F4CEFED360DEDFB55FD4FE427ABE86FA6C68FE' +
           'CB75C59FDF6E848B5207DA3F6D809875D672FB42FB3F3CCB975B1' +
           '7594C55B450B9471CC31338DD13A4BD05DA0D7D29A56A8DED40E1' +
           '1E932A04926122F95072D24D3FCA28BAFE6E3415C256E267E068B' +
           'EE47268CCB17D0CAA25F78A17F6E7D52FDD14CFE2FFDD6BCCDD31' +
           'B09E5F7A0ADF4BE679BB294997800F3F366ED998EC0F48FCF4AFC' +
           'FDEFD026B2BDCAF3A6F1F670898AFD6602CE243E2F2613B1BDA8E' +
           'B3325B72EA2978D6E6087962CB177F2550DAF73591E8B6C56A2B6' +
           '0D8D1FD343A6C32C25D6C8B2F3942597CFCAD0C5B2ED5D5ACC448' +
           '584F9AEEBA38CEE12D57178CACEEAEAB7A9523DD7B7FEB5FF3A0B' +
           'FFD8F627EF7D518366BE51B8C9D1E39FD08FC476E578AC5F3B98B' +
           '20A3130ED021FDAFFC1E63F5595365DF09D8A9E4CA39E193D9129' +
           '4286583A6DB1BDE49A0691467A84995E42C5B2CDE8C9D65FA3D73' +
           'FFD2FACA3C71B352D91941F0589FC94DEE3E8DA35D18EC8B2ED0B' +
           '8447F4C9A74DC5EA624D816F186B9F99C8132DBF9C4C0D1105FD4' +
           '6EFD67F29B7F1A6D6986CD2CB0ECE8FD0FDF2F2AE9826C9D7C1DC' +
           '313B3F7B01F38DEBFF0251C953E1');
    end;


    begin
    try
      SetupSRL;
      LoadBmp;
      SafeInitForm;
      SafeShowFormModal;
    finally
      FreeForm(frmDesign);
      FreeBitmap(FightBmp);
    except
     Writeln('Form ERROR!');
    end;
       // Can Have Your Auto Stuff Ect.. Here


    end.

  8. #8
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    well make a combo box for the attack style because if all of them are checked as santa said you would have a problem.

    you can use combo boxes easily incase you dont know them.
    SCAR Code:
    procedure attackstyle;
    begin
      case attackstyle.text of
        'attack': setfightmode(1);
        'strength': setdightmode(2);
        'controlled': setfightmode(3);
        'defence': setfightmode(4);
      end;
    end;

Thread Information

Users Browsing this Thread

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

Posting Permissions

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