RudeBoiAlex
2007-06-17 13:33:16
Now i have it working i wanna know how to use the boxes ticked for example if the lobster box was ticked how would i tell scar to eat the lobster i have the colors and i know how to make it scan the inventory for the lobbie color
program Rudeboiautofighter;
{.include SRL/SRL.scar}
{---------------------------------------------------------------------------------------------
_____ __ ___________.__ .__ __
/ _ \ __ ___/ |_ ____\_ _____/|__| ____ | |___/ |_ ___________
/ /_\ \| | \ __\/ _ \| __) | |/ ___\| | \ __\/ __ \_ __ \
/ | \ | /| | ( <_> ) \ | / /_/ > Y \ | \ ___/| | \/
\____|__ /____/ |__| \____/\___ / |__\___ /|___| /__| \___ >__|
\/ A Poonage Production \/ /_____/ \/ \/
Thanks The_Rs_Monkey For Makeing My Forms Work.
----------------------------------------------------------------------------------------------}
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;
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.