just trying to help you out..
Simba Code:
function IsEvenNumber(x:Integer):Boolean;
var
n:Extended;
begin
repeat
n := (x / 2);
writeLn((n));
until(n = 1) or (n = 0.5);
writeLn((n));
if (n = 1) then
Result := True else Result := False;
end;
This would never work since the loop uses x which never changes so unless x is 2, this will continue on and on and on and on and on forever and ever and ever and on and on and forever.
A better method would be this:
Simba Code:
{Full credit to Nebula for this, my original method was completely flawed}
function IsEvenNumber(x:Integer):Boolean;
var
n:Extended;
begin
n := x;
while n > 1.0 do
n := n / 2;
result := n = 1;
end;
Simba Code:
procedure rToW;
begin
MouseItem(1,1);
Wait(50 + Random(750));
if FindBlackChatMessage('full') then
begin
wUrn := False;
Exit;
end else
wUrn := True;
end;
Tbh what I am posting below seriously upsets me I'm not trying to shit talk you I'm just saying that you should know better than this.
Simba Code:
procedure rToW;
begin
MouseItem(1,1);
Wait(50 + Random(750));
if FindBlackChatMessage('full') then
begin
wUrn := False;
Exit;
end else
wUrn := True;
end;
Could be this..
Simba Code:
procedure rToW;
begin
MouseItem(1,1);
Wait(50 + Random(750));
result := not FindBlackChatMessage('full');
end;

Originally Posted by
Shay
Simba Code:
//Its going to stay like this Nebula, deal with it.
Lol- These actually made me laugh