XProfan

sleepWell(long ms){

    long t=getTickCount+ms

    while getTickCount<t {waitInput 30}

}

sleepWell(long ms){

    float SchaltZeit= dt("incMilliSec",!now,ms)// gibts die Fnk eig. schon?

    while dt("Compare",!now,SchaltZeit) < 0 {waitInput 30}

}

sleepWell(long ms){

    casenot hWnd : return ~sleep(ms)
    ~setTimer(hWnd,$FFFFFFFE,ms,0)
    bool uMsgAlrdySet=isUserMessage(wm_timer)
    userMessages wm_timer

    do {

        waitinput
        case (uMessage==wm_timer) and (uwParam==$FFFFFFFE) : break

    }

    ~killTimer(hWnd,$FFFFFFFE)
    casenot uMsgAlrdySet : userMessages -wm_timer

0FF>}