really need some help i'm really close to done with my fletching program plz help me finish. I am just stuckcan't figure out what else to put in the script make some suggestions.
![]()
really need some help i'm really close to done with my fletching program plz help me finish. I am just stuckcan't figure out what else to put in the script make some suggestions.
![]()
i dont really want to download to tell you so..antirandoms, andtiban,...and thats it...as long as its just gonna stayin the bank
SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
Programming Projects: NotePad | Tetris | Chess
ok well maybe more specific. I mean there's like 2 errors. If u can just look at it maybe and post it back to me that would be great. Thanks for any help u can give me
what are errors?
yeah dude comon errors. LMAO. What do you do here? anyways still no help pretty sad![]()
he is asking for the errors, not the meaning of the word errors lol
Infractions, reputation, reflection, the dark side of scripting, they are.
My god stupid leechers flaming SRL Member god...
He is asking WHAT ERRORS you are getting, give us some details.
Anyways...
Here:
SCAR Code:program autofletcher;
{.include SRL\SRL.scar}
///////////////////////////////////////////////////////////////
// /////// ////// ////// // // ////// //
// // /// // // // // //
// // // ////// ///// // // ///// //
// // // /// // // // // //
// ///// /////// ////// //// ////// //
///////////////////////////////////////////////////////////////
const
BankBooth = 12344; // The color of the bank booth
LogColor = 5767; //The color of the log you want to fletch
BowToMake = 324234; //The color of the bow in the make screen
LogsToCut = 68442; // how many logs you want to cut
Var
LogsDone:Integer;
LogsCut:Integer;
{**********************************************************
* *
* Don't change below here *
* *
***********************************************************}
Procedure UberBright;
Begin
GameTab(11);
Wait(400+random(12));
If GetColor(712, 226) <> 16777215 Then
Begin
Mouse(712, 226, 2, 2, True);
Wait(200+random(12));
End;
End;
////////////////////////////////////////////////////
///////////////////////////////////////////////////
Procedure Bank;
var bx,by:Integer;
begin
repeat
FindObj(bx,by,'Bank',BankBooth,10);
Wait(100 + Random(200));
until (IsUpText('Use Bank'));
if(IsUpText('Use Bank'))then
begin
GetMousePos(bx, by);
Mouse(bx,by,10,10,false);
wait(100);
if(ClickOption('quickly', 1))then
begin
repeat
Wait(500);
until(BankScreen);
end
else
begin
Bank;
end;
FixBank;
Deposit(2,28,2);
Withdraw(1, 1, 0);
repeat
CloseBank;
Wait(500);
until(BankScreen = False);
end;
end;
//////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
Procedure Fletching;
var Number:Integer;
begin
begin
UseItem(1);
Wait(100 + Random(800));
UseItem(2);
Wait(random(500));
end;
begin
MMouse(244,407,10,10);
if (IsUpText('Make')) then
begin
Mouse(244,407,10,10,false);
ClickOption('Make X', 3);
Wait(700+Random(500));
Number:=27+Random(11);
TypeSend(IntToStr(number));
Wait(100 + Random(250));
TypeSend(Chr(13));
end
else Fletching;
end;
repeat
wait(500);
if (FindNpcChatText('continue')) then //Fix to the level-up Bug
begin
begin
UseItem(1);
Wait(100 + Random(800));
UseItem(28);
Wait(random(500));
end;
begin
Mouse(244,407,10,10,false);
wait(300);
ClickOption('Make X', 3);
Wait(700+Random(500));
Number:=27+Random(11);
TypeSend(IntToStr(number));
Wait(100 + Random(250));
TypeSend(Chr(13));
end;
end;
until(GetColor(717,447)=65536);
if (GetColor(717,447)=65536) then
LogsCut:= LogsCut+27;
end;
///////////////////////////////////////////////////////////
procedure Report;
begin
ClearDebug;
SRLRandomsReport;
WriteLn('////////////////////////////////////////////')
WriteLn(' Jesus45 kick ass fletcher :) ')
WriteLn(' ')
WriteLn(' Running Time: ' + (TimeRunning) + '')
WriteLn(' Total logs cut: ' + IntToStr (LogsCut) + '')
WriteLn(' Exp Gained: ' + IntToStr (LogsCut*41) + '')
WriteLn('//////////////////////////////////////////// ')
end;
////////////////////////////////////////////////////////////
procedure Jesus;
var
x, y, fs, fs2: Integer;
begin
if not BankScreen then
repeat
if (FindObj3(x, y, 'Use Bank', 4481658, 10)) then
Mouse(x, y, 4, 4, False)
else
if (FindObj3(x, y, 'Use Bank', 2842230, 10)) then
Mouse(x, y, 4, 4, False)
else
if (FindObj3(x, y, 'Use Bank', 12611, 10)) then
Mouse(x, y, 4, 4, False);
Wait(250+random(250));
if (ClickOption('quickly', 1)) then
begin
Flag;
repeat
Wait(100);
fs := fs + 1;
until (BankScreen) or (fs >= 50);
end;
fs2 := fs2 + 1;
until (BankScreen) or (fs2 > 5);
end;
////////////////////////////////////////////////////////////
procedure Deposit1(slot,toslot, thetype: Integer);
var
slotnumber, col, row: Integer;
begin
if (BankScreen) then
begin
slotnumber := slot;
while (slotnumber < toslot) do
begin
if ((slotnumber mod 4) = 0) then
col := 3
else
col := (slotnumber mod 4) - 1;
row := (slotnumber - 1) / 4;
if (FindColor(x, y, 65536, (571 + 47 * col), (215 + 36 * row), (601 + 47 *
col), (245 + 36 * row))) then
begin
if (thetype = 1) then
Mouse(x, y, 5, 5, True);
if (thetype = 2) then
begin
Mouse(x, y, 5, 5, False);
if (ChooseOption(x, y, 'All')) then
Wait(1000 + Random(100));
end;
end;
slotnumber := slotnumber + 1;
end;
end;
end;
///////////////////////////////////////////////////////////
//main loop///////////////////////////////////////////////
Begin
SetupSrl;
ActivateCLient;
UberBright;
end.
repeat
FindNormalRandoms;
Bank;
Fletching;
Report;
Jesus
until(LogsDone >= LogsToCut);
if (LogsDone >= LogsToCut)then
begin
TerminateScript;
Deposit1;
end;
end.
Problem was line 131 where you had:
LogsToCut:= LogsToCut+27;
But! LogsToCut is the name of a constant at top so they interfered, so i renamed it
You also had
end;
Instead of
end.
at the end of script.
You also had some incorrect variables in your progress report.
TIP: If you are making this to get into SRL members, you need to add multiplayer, antirandom, and failsafes.
There are currently 1 users browsing this thread. (0 members and 1 guests)