RShiney Help Scripting

[hansgunter123]

Hallo,

bei meinem R Shiney kratzt der Flash manchmal ab und ich habe den weißen Bildschirm mit dem Ausrufezeichen in der Mitte.

Weiß hier jmd. wie man dieses Teil skript zum Refresh in das R shiney Script einfügen muss sodass es funktioniert ?

procedure Refresh;
begin
Keydown(116);
wait(20+(randomwait));
Keyup(116);
wait(5000);
end;

procedure FlashCrash;
begin
if (((GetColor(mmx1,mmy1) = mmfc1)=false) and ((GetColor(mmx2,mmy1) = mmfc2)=false)) then
begin
wait(100);
CrashCounter:=CrashCounter + 1;
if (CrashCounter > 250) then
begin
CrashCounter:=0;
Refresh;
end;
end else
begin
CrashCounter:=0;
end;
end;