NiCbaZ
2008-07-13 06:56:38
I have not really made many things like this so it is kinda very simple :p but if any one wants to use in there script feel free :)
Gets if they are turned on
a simple
im sure there are mush faster/better ways to do this but use if you want
Function FightingStyleOnStyle(Style:String) : Boolean;
begin
case LowerCase(Style) of
'att','1': Result := (GetColor(634, 281) =2369440) and LoggedIn;
'str','2': Result := (GetColor(718, 277) =2369440) and LoggedIn;
'def','3': Result := (GetColor(717, 315) =2369440) and LoggedIn;
end;
end;Gets if they are turned on
procedure FightingStyle(Style: string; on_off: Boolean);
begin
GameTab(1);
case LowerCase(Style) of
'att','1':
begin
case (on_off) of
True: if not FightingStyleOnStyle('att') then
MouseBox(575, 289,627,287,1);
False: if FightingStyleOnStyle('att') then
Writeln('att is already on')
end;
end;
'str','2':
begin
case (on_off) of
True: if not FightingStyleOnStyle('str') then
MouseBox(659,286,712,292,1);
False: if FightingStyleOnStyle('str') then
Writeln('str is already on')
end;
end;
'def','3':
begin
case (on_off) of
True: if not FightingStyleOnStyle('def') then
MouseBox(657,338,708,338,1);
False: if FightingStyleOnStyle('def') then
Writeln('def is already on')
end;
end;
end;
end;a simple
FightingStyle('att',true); to use ignore the true/false on the end im going do something with that laterim sure there are mush faster/better ways to do this but use if you want