Tickyy
2012-01-30 16:36:53
Function CloseAllScreens: boolean;
var
I: Integer;
begin
for I := 0 to 4 do
begin
case I of
0: Result := BankScreen;
1: Result := DepositScreen;
2: Result := ShopScreen;
3: Result := ToolBeltScreen;
4: Result := PinScreen;
end;
if Result then
CloseWindow;
end;
end; Just a small function … Didn't test it with everything though, it should work i guess…
Made this because when i use Closewindow sometimes if there are some similar colors that closewindow uses… and it Keep'd moving the mouse.