Ok so this script works perfectly to me but I still cannot get the progress report to work and I have no idea why. I read the tutorials on them but I still cannot understand, anyone know why it isn't working? Thanks.
Ok so this script works perfectly to me but I still cannot get the progress report to work and I have no idea why. I read the tutorials on them but I still cannot understand, anyone know why it isn't working? Thanks.
uou call terminate script, before you cal proggy in your mainloop, thus the script ends before the proggie can be called. if you aren't catching my drift, im looking at,
SCAR Code:begin
SMARTSetUp('world124', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
SetTargetDC(SMARTGetDC);
SetUpSRL;
SRLID := YourSRLID;
SRLPassword := YourSRLPW;
DeclarePlayers;
SetupPlayers;
MainLoop;
SendSRLReport;
TerminateScript;
Report;
end.
just move the report above the terminate script, and i think it should work,
-Blumblebee
“Ignorance, the root and the stem of every evil.”
Ok thanks I'll try that. I would like it to show a new proggy every 5 minutes, so how would I do that?
Edit: Ok so it posts the proggy every 20 seconds or so, but it just counts the time and nothing else.
================================================== =
|| Chickenz Killed: 0 ||
|| Experience Gained: 0 ||
|| Featherz Gathered: 0 ||
|| AntiBanz: 0 ||
|| AntiRandumz: 0 ||
|| Ran For: 3 Minutes and 8 Seconds ||
================================================== =
You have to actually update the variables as the script goes through, such as you have to say Inc(ChickensKilled); every time the script kills a chicken. Same goes for everything else you want for your progress report (time being an exception)
For every 5 minutes you could do something like having a var to hold the time for next progress report, for example I will call it ProggyTimer
SCAR Code:if (GetSystemTime >= ProggyTimer) then
begin
Report;
ProggyTimer := GetSystemTime + 300000; // 300000 ms = 5 minutes
end;
Current Project: Catching up on what I missed, re-writing some old includes I done in the past.
Upcoming Project: Open For Suggestions
standards please? i haven't fixed em it'd take forever but erm this should work except for the feathers, you need to make it count them
and then inc(featherz) so somat like
SCAR Code:begin
if finddtm(x, y, feather, mix1, miy1, mix2, miy2) then
featherz:=getamount(x, y)
end;
SCAR Code:{
/////// // // //////// /////// // // /////// // //
// // // // // // // // //// //
// //////// // // //// ///// // // //
// // // // // // // // // ///
/////// // // //////// /////// // // /////// // //
/////// // // // // /////// ///////
// // // // //// // // // //
////// // // // // // // ///// ///////
// // // // // /// // // //
// /// /// // // /////// // //
-------------------------------------------------
/ \
/___________________________________________________\
/ Created by: d1s3l \
/ Anti-Randoms + Anti-Bans \
| Version 1.75 |
| Credits To i pro leechin' On The Tutorial |
| On AntiRandoms |
+========================================================+
}
program ChickenPwner;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL\SRL.SCAR}
{.include SRL/SRL/skill/Fighting.scar}
var X, Y, I , Mark , ExpGained , Clicked , AntiRandomz , FeathersPickedUp , AntiBanz , ChickensKilled : Integer;
const
YourSRLID = ''; //Your SRL ID, 4 digits long. (create one at [url]http://www.stats.srl-forums.com/[/url])
YourSRLPW = ''; //Your Srl Password
ColorOfChicken1 = 4168878; //Pick a main color
ColorOfChicken2 = 857705; //Pick a main color of a diff. type of chicken
//----------------------------->Line 204 to change worlds<-----------------------------//
// ^^^^^^^^^^^^^^^^^^^^^^^^^^^ //
//---------------------------->Line 89 to change fight mode<-------------------------- //
// (top right attack mode=1 , top left=2 , bottom left=3 , bottom right =4) //
procedure DeclarePlayers;
begin
HowManyPlayers :=1; //How many players to use in script
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0;
Players[0] .Name := '';
Players[0] .Pass := '';
Players[0] .Nick := ''; //3/4 of the characters name (bobbey = bob)
Players[0] .Active := True; // True=yes, False=no//
Players[0] .Booleans[1] := False; // False for brightness Check Once. Just leave at false.
end;
//*******Do not change below this point*******//
/////// // // //////// /////// // // /////// // //
// // // // // // // // //// //
// //////// // // //// ///// // // //
// // // // // // // // // ///
/////// // // //////// /////// // // /////// // //
/////// // // // // /////// ///////
// // // // //// // // // //
////// // // // // // // ///// ///////
// // // // // /// // // //
// /// /// // // /////// // //
procedure TiltScreen;
begin
if not(loggedIn) then exit;
keydown(VK_DOWN);
wait(200+random(125)+random(138));
keyup(VK_DOWN);
wait(random(232));
end;
Procedure SetupPlayers;
begin
if not LoggedIn then LoginPlayer;
MakeCompass('n');
SetAngle(true);
SetRun(true);
TiltScreen;
SetFightMode(i+4);
end;
procedure Report;
begin
WriteLn('===================================================');
WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled), 49) + '||');
WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained), 49) + '||');
WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp), 49) + '||');
WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz), 49) + '||');
WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz), 49) + '||');
WriteLn(Padr('|| Ran For: ' + TimeRunning, 49) + '||');
WriteLn('===================================================');
end;
procedure ClickTheMouse;
begin
Mouse(x,y,1,1,true)
Clicked := Clicked + 1;
GameTab(4);
end;
Function MobTPAs: TPointArray;
Var
TPA: TPointArray;
begin
FindColorsSpiralTolerance(MMCX, MMCY, TPA, 195836, MMX1, MMY1, MMX2, MMY2, 0);
If Length(TPA) < 1 Then
Exit;
RAaSTPA(TPA, 4);
SortTPAFrom(TPA, IntToPoint(MMCX, MMCY));
result := TPA;
end;
procedure AntiRandoms;
begin
if not LoggedIn then Exit;
if FindNormalRandoms then
in(antirandomz)
if FindFight then
RunAway('E', True, 1, 5000);
end;
Procedure AntiBan;
begin
if not LoggedIn then Exit;
case 6+random(10) of
0 : HoverSkill('Random', false);
1: PickUpMouse;
2: BoredHuman;
3,4: begin
MakeCompass('S');
wait(10+random(5));
MakeCompass('N');
wait(10+random(5));
MakeCompass('E');
end;
inc(antibanz
end;
end;
Procedure KillChicken;
begin
FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628,6916764,9155272,3627895,5928325], 3);
Mouse(x, y, 2, 2, False);
Wait(900 + Random(110));
if not ChooseOption('ttack') then Exit;
Flag;
MarkTime(Mark);
Wait(5 * 1000 + Random(1050));
if HPPercent < 25 then RunTo('N', true);
Wait(500);
GameTab(4);
inc(chickenzkilled);
end;
procedure FindFeathers;
begin
if (FindObjCustom(X, Y, ['ake', 'eat', 'ther'], [403205], 3)) then
begin
Mouse(x, y, 2, 2, False)
if not(ChooseOption('ake')) then
wait(500);
Exit;
end else
Exit;
end;
procedure EndScript;
begin
writeln('ChickensKilled' + IntToStr(ChickenzKilled) + 'Total');
begin
Report;
end;
end;
procedure MainLoop;
var Mark : Integer;
begin
repeat
repeat
KillChicken;
FindFeathers;
MobTPAs;
AntiRandoms;
AntiBan;
MarkTime(Mark);
if not LoggedIn then Exit;
KillChicken;
FindFeathers;
until((TimeFromMark(Mark) / 1000 * 60) >= 50);
until(false);
end;
begin
SMARTSetUp('world124', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
SetTargetDC(SMARTGetDC);
SetUpSRL;
SRLID := YourSRLID;
SRLPassword := YourSRLPW;
DeclarePlayers;
SetupPlayers;
MainLoop;
SendSRLReport;
Report;
end.
Ok I fixed up the script and now Im testing it. Thanks to everyone that helped. Ill post if I find other problems.
Edit: The script works good still but it does now post the proggy still so I still do not know what is wrong. Here is the script.
SCAR Code:{
/////// // // //////// /////// // // /////// // //
// // // // // // // // //// //
// //////// // // //// ///// // // //
// // // // // // // // // ///
/////// // // //////// /////// // // /////// // //
/////// // // // // /////// ///////
// // // // //// // // // //
////// // // // // // // ///// ///////
// // // // // /// // // //
// /// /// // // /////// // //
-------------------------------------------------
/ \
/___________________________________________________\
/ Created by: d1s3l \
/ Anti-Randoms + Anti-Bans \
| Version 1.75 |
| Credits To i pro leechin' On The Tutorial |
| On AntiRandoms |
+========================================================+
}
program ChickenPwner;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL\SRL.SCAR}
{.include SRL/SRL/skill/Fighting.scar}
var X, Y, I , Mark , ExpGained , Clicked , AntiRandomz , FeathersPickedUp , Feather, ProggyTimer , AntiBanz , ChickensKilled : Integer;
const
YourSRLID = ''; //Your SRL ID, 4 digits long. (create one at [url]http://www.stats.srl-forums.com/[/url])
YourSRLPW = ''; //Your Srl Password
ColorOfChicken1 = 4168878; //Pick a main color
ColorOfChicken2 = 857705; //Pick a main color of a diff. type of chicken
//----------------------------->Line 202 to change worlds<-----------------------------//
// ^^^^^^^^^^^^^^^^^^^^^^^^^^^ //
//---------------------------->Line 89 to change fight mode<-------------------------- //
// (top right attack mode=1 , top left=2 , bottom left=3 , bottom right =4) //
procedure DeclarePlayers;
begin
HowManyPlayers :=1; //How many players to use in script
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0;
Players[0] .Name := '';
Players[0] .Pass := '';
Players[0] .Nick := ''; //3/4 of the characters name (bobbey = bob)
Players[0] .Active := True; // True=yes, False=no//
Players[0] .Booleans[1] := False; // False for brightness Check Once. Just leave at false.
end;
//*******Do not change below this point*******//
/////// // // //////// /////// // // /////// // //
// // // // // // // // //// //
// //////// // // //// ///// // // //
// // // // // // // // // ///
/////// // // //////// /////// // // /////// // //
/////// // // // // /////// ///////
// // // // //// // // // //
////// // // // // // // ///// ///////
// // // // // /// // // //
// /// /// // // /////// // //
procedure TiltScreen;
begin
if not(loggedIn) then exit;
keydown(VK_DOWN);
wait(200+random(125)+random(138));
keyup(VK_DOWN);
wait(random(232));
end;
Procedure SetupPlayers;
begin
if not LoggedIn then LoginPlayer;
MakeCompass('n');
SetAngle(true);
SetRun(true);
TiltScreen;
SetFightMode(i+4);
end;
procedure Report;
begin
WriteLn('=============== skilld Spam Botter ================');
WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled), 49) + '||');
WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained), 49) + '||');
WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp), 49) + '||');
WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz), 49) + '||');
WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz), 49) + '||');
WriteLn(Padr('|| Ran For: ' + TimeRunning, 49) + '||');
WriteLn('===================================================');
end;
procedure ProggyTime;
begin
if (GetSystemTime >= ProggyTimer) then
begin
Report;
ProggyTimer := GetSystemTime + 300000;
repeat
until(false)
end;
end;
procedure ClickTheMouse;
begin
Mouse(x,y,1,1,true)
Clicked := Clicked + 1;
GameTab(4);
end;
Function MobTPAs: TPointArray;
Var
TPA: TPointArray;
begin
FindColorsSpiralTolerance(MMCX, MMCY, TPA, 195836, MMX1, MMY1, MMX2, MMY2, 0);
If Length(TPA) < 1 Then
Exit;
RAaSTPA(TPA, 4);
SortTPAFrom(TPA, IntToPoint(MMCX, MMCY));
result := TPA;
end;
procedure AntiRandoms;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
if FindFight then
SetRun(true);
end;
Procedure AntiBan;
begin
if not LoggedIn then Exit;
case 6+random(10) of
0 : HoverSkill('Random', false);
1: PickUpMouse;
2: BoredHuman;
3,4: begin
MakeCompass('S');
wait(10+random(5));
MakeCompass('N');
wait(10+random(5));
MakeCompass('E');
end;
end;
end;
Procedure KillChicken;
begin
FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628,6916764,9155272,3627895,5928325], 3);
Mouse(x, y, 2, 2, False);
Wait(900 + Random(110));
if not ChooseOption('ttack') then Exit;
Flag;
MarkTime(Mark);
Wait(5 * 1000 + Random(1050));
Wait(500);
GameTab(4);
end;
procedure FindFeathers;
begin
if (FindObjCustom(X, Y, ['take', 'feat', 'ther'], [403205], 3)) then
begin
Mouse(x, y, 2, 2, False)
if not(ChooseOption('ake')) then
wait(500);
Exit;
end else
Exit;
end;
Procedure CountFeathers;
begin
if finddtm(x, y, feather, mix1, miy1, mix2, miy2) then
FeathersPickedUp:=getamount(x, y)
end;
Procedure CountDeadChickens;
begin
ChickensKilled:=getamount(x, y)
end;
procedure EndScript;
begin
writeln('ChickensKilled' + IntToStr(ChickensKilled) + 'Total');
begin
Report;
end;
end;
procedure MainLoop;
var Mark : Integer;
begin
repeat
repeat
KillChicken;
FindFeathers;
MobTPAs;
AntiRandoms;
AntiBan;
MarkTime(Mark);
if not LoggedIn then Exit;
KillChicken;
FindFeathers;
until((TimeFromMark(Mark) / 1000 * 60) >= 50);
until(false);
end;
begin
SMARTSetUp('world124', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
SetTargetDC(SMARTGetDC);
SetUpSRL;
SRLID := YourSRLID;
SRLPassword := YourSRLPW;
DeclarePlayers;
SetupPlayers;
MainLoop;
SendSRLReport;
Report;
TerminateScript;
end.
you dont increase anything to add to the proggie, thus the only thing that gets increased is t he total time.
you need things like inc(X) (X meaning whatever you want to add to string, like chickenskilled for example). inc(x) will increase the number by one. So after every chicken kill, you can increase it on the porggie (if you need more help with this i can show you an example, but im lazy and i dont want to unless necessary).
I hope that helped, if not just pm me or something, and i can give you more help.
-Blumblebee
“Ignorance, the root and the stem of every evil.”
Dude. We've told you a thousand times.
In your main loop, move TerminateScript; below Report;...
ChickensKilled:=getamount(x, y)
Phale.
You need to have it increase ChickensKilled every time it attacks a chicken.
the one i posted dude?
I hate to diss you dude but 90+% of all posts i found by you are complete garbage usually just a random comment thats completely unneeded, most are rude and making you look like a postwhore. When someone doesnt understand and messes something up you dont make fun of them for it. you explain it. Please stop with these rude worthless posts.
Current Project: Catching up on what I missed, re-writing some old includes I done in the past.
Upcoming Project: Open For Suggestions
agreed, and @D1 - heres a fixed version (i didnt test/try to compie it so srry if it doesnt work)
SCAR Code:{
/////// // // //////// /////// // // /////// // //
// // // // // // // // //// //
// //////// // // //// ///// // // //
// // // // // // // // // ///
/////// // // //////// /////// // // /////// // //
/////// // // // // /////// ///////
// // // // //// // // // //
////// // // // // // // ///// ///////
// // // // // /// // // //
// /// /// // // /////// // //
-------------------------------------------------
/ \
/___________________________________________________\
/ Created by: d1s3l \
/ Anti-Randoms + Anti-Bans \
| Version 1.75 |
| Credits To i pro leechin' On The Tutorial |
| On AntiRandoms |
+========================================================+
}
program ChickenPwner;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL\SRL.SCAR}
{.include SRL/SRL/skill/Fighting.scar}
var X, Y, I , Mark , ExpGained , Clicked , AntiRandomz , FeathersPickedUp , AntiBanz , ChickensKilled : Integer;
const
YourSRLID = ''; //Your SRL ID, 4 digits long. (create one at <a href="http://www.stats.srl-forums.com/" target="_blank">http://www.stats.srl-forums.com/</a>)
YourSRLPW = ''; //Your Srl Password
ColorOfChicken1 = 4168878; //Pick a main color
ColorOfChicken2 = 857705; //Pick a main color of a diff. type of chicken
//----------------------------->Line 204 to change worlds<-----------------------------//
// ^^^^^^^^^^^^^^^^^^^^^^^^^^^ //
//---------------------------->Line 89 to change fight mode<-------------------------- //
// (top right attack mode=1 , top left=2 , bottom left=3 , bottom right =4) //
procedure DeclarePlayers;
begin
HowManyPlayers :=1; //How many players to use in script
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0;
Players[0] .Name := '';
Players[0] .Pass := '';
Players[0] .Nick := ''; //3/4 of the characters name (bobbey = bob)
Players[0] .Active := True; // True=yes, False=no//
Players[0] .Booleans[1] := False; // False for brightness Check Once. Just leave at false.
end;
//*******Do not change below this point*******//
/////// // // //////// /////// // // /////// // //
// // // // // // // // //// //
// //////// // // //// ///// // // //
// // // // // // // // // ///
/////// // // //////// /////// // // /////// // //
/////// // // // // /////// ///////
// // // // //// // // // //
////// // // // // // // ///// ///////
// // // // // /// // // //
// /// /// // // /////// // //
procedure TiltScreen;
begin
if not(loggedIn) then exit;
keydown(VK_DOWN);
wait(200+random(125)+random(138));
keyup(VK_DOWN);
wait(random(232));
end;
Procedure SetupPlayers;
begin
if not LoggedIn then LoginPlayer;
MakeCompass('n');
SetAngle(true);
SetRun(true);
TiltScreen;
SetFightMode(i+4);
end;
procedure Report;
begin
WriteLn('===================================================');
WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled)) + '||');
WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained)) + '||');
WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp)) + '||');
WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz)) + '||');
WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz)) + '||');
WriteLn(Padr('|| Ran For: ' + TimeRunning) + '||');
WriteLn('===================================================');
end;
procedure ClickTheMouse;
begin
Mouse(x,y,1,1,true)
Clicked := Clicked + 1;
GameTab(4);
end;
Function MobTPAs: TPointArray;
Var
TPA: TPointArray;
begin
FindColorsSpiralTolerance(MMCX, MMCY, TPA, 195836, MMX1, MMY1, MMX2, MMY2, 0);
If Length(TPA) < 1 Then
Exit;
RAaSTPA(TPA, 4);
SortTPAFrom(TPA, IntToPoint(MMCX, MMCY));
result := TPA;
end;
procedure AntiRandoms;
begin
if not LoggedIn then Exit;
if FindNormalRandoms then
in(antirandomz)
if FindFight then
RunAway('E', True, 1, 5000);
end;
Procedure AntiBan;
begin
if not LoggedIn then Exit;
case 6+random(10) of
0 : HoverSkill('Random', false);
1: PickUpMouse;
2: BoredHuman;
3,4: begin
MakeCompass('S');
wait(10+random(5));
MakeCompass('N');
wait(10+random(5));
MakeCompass('E');
end;
inc(antibanz);
end;
end;
Procedure KillChicken;
begin
FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628,6916764,9155272,3627895,5928325], 3);
Mouse(x, y, 2, 2, False);
Wait(900 + Random(110));
if not ChooseOption('ttack') then Exit;
Flag;
MarkTime(Mark);
Wait(5 * 1000 + Random(1050));
if HPPercent < 25 then RunTo('N', true);
Wait(500);
GameTab(4);
inc(chickenzkilled);
end;
procedure FindFeathers;
begin
if (FindObjCustom(X, Y, ['ake', 'eat', 'ther'], [403205], 3)) then
begin
Mouse(x, y, 2, 2, False)
if not(ChooseOption('ake')) then
wait(500);
Exit;
end else
Exit;
end;
procedure EndScript;
begin
writeln('ChickensKilled' + IntToStr(ChickenzKilled) + 'Total');
begin
Report;
end;
end;
procedure MainLoop;
var Mark : Integer;
begin
repeat
repeat
KillChicken;
FindFeathers;
MobTPAs;
AntiRandoms;
AntiBan;
MarkTime(Mark);
if not LoggedIn then Exit;
KillChicken;
FindFeathers;
until((TimeFromMark(Mark) / 1000 * 60) >= 50);
until(false);
end;
begin
SMARTSetUp('world124', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
SetTargetDC(SMARTGetDC);
SetUpSRL;
SRLID := YourSRLID;
SRLPassword := YourSRLPW;
DeclarePlayers;
SetupPlayers;
MainLoop;
SendSRLReport;
Report;
end.
“Ignorance, the root and the stem of every evil.”
yup yup i got that, if this didnt work, then ill send you my msn and ill give you some help![]()
“Ignorance, the root and the stem of every evil.”
Thanks for all the help too![]()
np, haha i love helping people get into scripting :P
“Ignorance, the root and the stem of every evil.”
yeah, scripting gets pretty confusing lol
Also I saw you attempted to implement what I said about putting your report on a timer, you would replace report in the main part of your script with what i had, or pit before and after your whole report function so every time it calls report if it wasn't time for a report it would just script it (also could just make an exit command. Examples of what I ment by this, all will have the same outcome so you can use one not all :P
SCAR Code:begin
SMARTSetUp('world124', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
SetTargetDC(SMARTGetDC);
SetUpSRL;
SRLID := YourSRLID;
SRLPassword := YourSRLPW;
DeclarePlayers;
SetupPlayers;
MainLoop;
SendSRLReport;
if (GetSystemTime >= ProggyTimer) then
begin
Report;
ProggyTimer := GetSystemTime + 300000; // 300000 ms = 5 minutes
end;
end.
or
SCAR Code:procedure Report;
begin
if (GetSystemTime >= ProggyTimer) then
begin
WriteLn('===================================================');
WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled)) + '||');
WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained)) + '||');
WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp)) + '||');
WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz)) + '||');
WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz)) + '||');
WriteLn(Padr('|| Ran For: ' + TimeRunning) + '||');
WriteLn('===================================================');
ProggyTimer := GetSystemTime + 300000; // 300000 ms = 5 minutes
end;
end;
and Finally
SCAR Code:procedure Report;
begin
if (GetSystemTime < ProggyTimer) then
Exit;
ProggyTimer := GetSystemTime + 300000; // 300000 ms = 5 minutes
WriteLn('===================================================');
WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled)) + '||');
WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained)) + '||');
WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp)) + '||');
WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz)) + '||');
WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz)) + '||');
WriteLn(Padr('|| Ran For: ' + TimeRunning) + '||');
WriteLn('===================================================');
end;
Current Project: Catching up on what I missed, re-writing some old includes I done in the past.
Upcoming Project: Open For Suggestions
Thanks seroko I used the first one
Change it to:
WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled), 49) + '||');
Ok now its like this:
SCAR Code:procedure Report;
begin
WriteLn('===================================================');
WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled), 49) + '||');
WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained), 49) + '||');
WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp), 49) + '||');
WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz), 49) + '||');
WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz), 49) + '||');
WriteLn(Padr('|| Ran For: ' + TimeRunning, 49) + '||');
WriteLn('===================================================');
end;
but now I get this error:
Line 127: [Error] (16748:1): Identifier expected in script
procedure AntiRandoms;
begin
if not LoggedIn then Exit;
if FindNormalRandoms then
in(antirandomz)<-----this one
if FindFight then
RunAway('E', True, 1, 5000);
end;
change it to Inc(antirandomz); instead of In(antirandomz);
================================================== =
|| Chickenz Killed: 12 ||
|| Experience Gained: 0 ||
|| Featherz Gathered: 0 ||
|| AntiBanz: 0 ||
|| AntiRandumz: 0 ||
|| Ran For: 3 Minutes and 27 Seconds ||
================================================== =
Good it finally works!
I dont knwo why the feathers didnt get counted though, Ill check it out.
There are currently 1 users browsing this thread. (0 members and 1 guests)