GoF
2007-02-05 07:00:49
Dead.
2007-02-05 07:00:49
2007-02-05 07:15:29
2007-02-08 16:44:51
Const
FDoorColor = 2508905; //Door Color
Var
FDX, FDY, FRandomNum: Integer;
Function FDoorOpen : Boolean; //By Fours
//Will check if a door is open or closed... will open if closed
Begin
Repeat
FRandomNum := Random(10)
If (FindObjMultiText(FDX, FDY, 'oor', 'Doo', 'Door', FDoorColor, 3)) then
Begin
Wait(100)
If (IsUpText('lose')) then
Begin
WriteLn('Door Was Open.')
Result := True;
end;
end else
Wait(100)
If (IsUpText('pen')) then
Begin
If (FRandomNum<8) then
Begin
Mouse(FDX, FDY, 1, 1, True)
end;
WriteLn('Door Wasn''t Open, Opened It.')
Result := True;
end else
If (FRandomNum>7) then
Begin
Mouse(FDX, FDY, 1, 1, False)
Wait(105+Random(100))
ChooseOption(x, y, 'Open')
WriteLn('Door Wasn''t Open, Opened It. (Chose Option)')
Result := True;
end;
Until Result = True;
end;2007-02-08 16:50:41
2007-02-08 22:00:46
2007-02-09 00:05:04
2007-02-09 01:50:20
2007-02-20 16:36:40
2007-02-21 07:00:12