Ok, NVM, we got that, the problem we have now is constants, how do we get this to say LeatherToTan:=Edit1 or something?
Ok, NVM, we got that, the problem we have now is constants, how do we get this to say LeatherToTan:=Edit1 or something?
SCAR Code:LeatherToTan := Edit1.Text;
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
just put it in the main loop at the beggining
"your always where you supposed to be"
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
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;
help, anyoneee?![]()
Thick As Blood
There are currently 1 users browsing this thread. (0 members and 1 guests)