SRL Archive - SRL Archives

i kinda made this out of nesesity, because my antirandoms uses the inventory gametab and the RealEatIfNeeded uses the stats gametab… This will check hp, eat if needed, and logout if out of food

[PHP]{*******************************************************************************
RealEatIfNeededTime(foodcolor, Eathp, minutes: Integer; foodlogout: boolean);
By: 1337_Macro
Description: Will check hp, eat if needed, and logout if out of food
*******************************************************************************}


procedure RealEatIfNeededTime(foodcolor, Eathp, minutes: Integer; foodlogout: boolean);
var
RealEatIfNeededMark:integer;
begin
if ((TimeFromMark(RealEatIfNeededMark) / 1000) / 60 >= minutes) then
begin
MarkTime(RealEatIfNeededMark);
Writeln('Checking Hp');
begin
if(GetHp<= EatHp)and(FoodColor>= 0)then
begin
GameTab(4);
wait(10 + random(20));
if(FindColorSpiraltolerance(x, y, foodcolor, 560, 210, 730, 460, 2))then
begin
MMouse(x + 2, y - 2, 6, 5)
if(IsUpText('Eat'))then
begin
GetMousePos(x, y);
mouse(x, y, 3, 2, true);
end;
end
Else
begin
if(FoodLogout)then
begin
logout;
Players[CurrentPlayer].Active:= false;
end;
end;
end;
end;
end;
end;[/PHP]


put this in the main loop before the repeat…

MarkTime(RealEatIfNeededMark);

[php]procedure RealEatIfNeededTime(foodcolor, Eathp, minutes: Integer; foodlogout: boolean);
var
RealEatIfNeededMark:integer;
begin
if ((TimeFromMark(RealEatIfNeededMark) / 1000) / 60 >= minutes) then
begin
MarkTime(RealEatIfNeededMark);
Writeln('Checking Hp');
begin
if(GetHp<= EatHp)and(FoodColor>= 0)then
begin
GameTab(4);
wait(10 + random(20));
if(FindColorSpiraltolerance(x, y, foodcolor, 560, 210, 730, 460, 2))then
begin
MMouse(x + 2, y - 2, 6, 5)
if(IsUpText('Eat'))then
begin
GetMousePos(x, y);
mouse(x, y, 3, 2, true);
end;
end
Else
begin
if(FoodLogout)then
begin
logout;
Players[CurrentPlayer].Active:= false;
end;
end;
end;
end;
end;
end;[/php]
Use that. It now has standards.

EDIT: :S i'm not sure if it is proper standards

my bad i forgot to put it in code bracket… i used standereds in it

Looks great. ub3r that's very Dirty coding.

Thanks for the comment… I just tested it and it works wonderfuly…

From: WhiteShadow
Looks great. ub3r that's very Dirty coding.

thats how i use standards….unless SRL changed them i think thats how you do it… mabye he screwed up somewhere i didnt see.

From: WhiteShadow
Looks great. ub3r that's very Dirty coding.

Ok then, how do the 'proper' standards go? if thats not how it is?

Hm.. just an idea, try using a foodbitmap instead of foodcolor. :)

i might try that thanks…

From: ub3r |<1||3r*1337*
Ok then, how do the 'proper' standards go? if thats not how it is?

Here you go:

{*******************************************************************************
RealEatIfNeededTime(foodcolor, Eathp, minutes: Integer; foodlogout: boolean);
By: 1337_Macro
Description: Will check hp, eat if needed, and logout if out of food
*******************************************************************************}
procedure RealEatIfNeededTime(foodcolor, Eathp, minutes: Integer; foodlogout: boolean);
var
  RealEatIfNeededMark:integer;
begin
  MarkTime(RealEatIfNeededMark);
 if((TimeFromMark(RealEatIfNeededMark) / 1000) / 60 >= minutes)then
  begin
    MarkTime(RealEatIfNeededMark);
    Writeln('Checking Hp');
  begin
   if(GetHp<= EatHp)and(FoodColor>= 0)then
    begin
     GameTab(4);
     wait(10 + random(20));
   if(FindColorSpiraltolerance(x, y, foodcolor, 560, 210, 730, 460, 2))then
    begin
      MMouse(x + 2, y - 2, 6, 5)
    if(IsUpText('Eat'))then
     begin
      GetMousePos(x, y);
      mouse(x, y, 3, 2, true);
     end;
    end Else
     begin
    if(FoodLogout)then
     begin
      logout;
      Players[CurrentPlayer].Active:= false;
     end;
    end;
   end;
  end;
 end;
end;

or even better:

{*******************************************************************************
RealEatIfNeededTime(foodcolor, Eathp, minutes: Integer; foodlogout: boolean);
By: 1337_Macro
Description: Will check hp, eat if needed, and logout if out of food
*******************************************************************************}
procedure RealEatIfNeededTime(foodcolor, Eathp, minutes: Integer; foodlogout: boolean);
var
  RealEatIfNeededMark:integer;
begin
  MarkTime(RealEatIfNeededMark);
 if((TimeFromMark(RealEatIfNeededMark) / 1000) / 60 >= minutes)then
  begin
    MarkTime(RealEatIfNeededMark);
    Writeln('Checking Hp');
  begin
   if(GetHp<= EatHp)and(FoodColor>= 0)then
    begin
     GameTab(4);
     wait(10 + random(20));
   if(FindColorSpiraltolerance(x, y, foodcolor, 560, 210, 730, 460, 2))then
    begin
      MMouse(x + 2, y - 2, 6, 5)
    if(IsUpText('Eat'))then
     begin
      GetMousePos(x, y);
      mouse(x, y, 3, 2, true);
     end;
    end Else
     begin
      if(FoodLogout)then
       begin
        logout;
        Players[CurrentPlayer].Active:= false;
      end;
     end;
    end;
   end;
  end;
end;

Mine is close

bebe i learned it was double spaces…

were id the guide :D

gah everyone is posting about the standereds but come on guys post about the code lol….it works wonderfuly

I think about 5 or 6 of those Begin/End statements could be elimated stream-lining this procedure.

From: 1337_macro
gah everyone is posting about the standereds but come on guys post about the code lol….it works wonderfuly

I posted something nice. (: Very useful for all fighters!

[php]{*******************************************************************************
RealEatIfNeededTime(foodcolor, Eathp, minutes: Integer; foodlogout: boolean);
By: 1337_Macro
Description: Will check hp, eat if needed, and logout if out of food
*******************************************************************************}
procedure RealEatIfNeededTime(foodcolor, Eathp, minutes: Integer; foodlogout: boolean);
var
RealEatIfNeededMark:integer;
begin
if ((TimeFromMark(RealEatIfNeededMark) / 1000) / 60 >= minutes) then
begin
MarkTime(RealEatIfNeededMark);
Writeln('Checking Hp');
begin
if(GetHp<= EatHp)and(FoodColor>= 0)then
begin
GameTab(4);
wait(10 + random(20));
if(FindColorSpiraltolerance(x, y, foodcolor, 560, 210, 730, 460, 2))then
begin
MMouse(x + 2, y - 2, 6, 5)
if(IsUpText('Eat'))then
begin
GetMousePos(x, y);
mouse(x, y, 3, 2, true);
end;
end else
begin
if(FoodLogout)then
begin
logout;
Players[CurrentPlayer].Active:= false;
end;
end;
end;
end;
end;
end;[/php]

I know 100% scripting standards and that is it, and thats a fact.

EDIT: I once made a tutorial for 100% standards… here it is:

[php]//////100% Standard Scripting Tutorial////
////// BY BEGO ////

program TestPlease; {All BOLD printed words must be lower case and titles with multiple words will be CamelCapped for readability.}

var {You will space out your script and when writing variables you will hit enter and hit space twice and type your variables.}
TestVar, TestVar2 : string; {When using mathamatical, and other specific signs (+, -, *comma*, :, =) you will have a space before and after them.}
{When declaring global variables, you are supposed to mark them by going GBL*variable name*, but its really not necessary.}
procedure FindColors;
var
x, y : integer;
begin
if(findcolor(x, y, 298398, 887, 989, 985, 983))and
(findcolor(x, y, 294989, 549, 943, 489, 989))then {If there is multiple things like here for neatness stack them like this.}
begin
exit;
end;
end;

procedure randomize;
var
RandNum : integer; {Variables will be used in procedures, global variables aren't good practice, but are acceptable if needed.}
begin
RandNum := Random(2);
case (randnum) of {You will use parenthesis to surround the object of the procedure}
0 : TestVar2 := 'Test';
1 : TestVar2 := 'Test.'; {You shall NOT write multiple procedures on one line, each procedure and command will be on a seperate line.}
end;
end;

procedure TestProc;
begin {With every begin, there will be two spaces added to the indent of the code, then with every end, there will be an indent decreased to match up.}
if(TestVar2 = TestVar)then {If the constant, procedure, function, or variable is CamelCapped, the declaration of it will be too.}
begin
Writeln('They are equal!'); {With every procedure or function you will put a semicolon at the end.}
end else
begin
Writeln('They are not equal!');
end;
end;

begin
TestVar := 'Test.';
randomize;
TestProc;
end.[/php]