XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Icons nach dem Zufallsprinzip ins Hauptfenster setzen
Lauffähig ab Profan-Version 6.6
Erklärung:
----------
Dieses Beispiel demonstriert, wie man ein Icon nach dem Zufallsprinzip
ins Hauptfenster setzen kann und den Befehl SLEEP verwendet
Es bedeuten:
------------
declare i%,x%,y%,e%,zeit%
cls
AppendMenubar 99,Beenden
AppendMenuBar 200,schneller
AppendMenuBar 100,langsamer
randomize
zeit%=500
clear e%

whilenot e%

    case MenuItem(99)  :  e% =1

    if MenuItem(100)

        cls rnd(32000)
        zeit% = 100
        SetMenuItem 0

    endif

    if MenuItem(200)

        cls rnd(32000)
        zeit% = 0
        SetMenuItem 0

    endif

    let x%=rnd(600)
    let y%=rnd(440)
    DrawIcon GESICHT,x%,y%
    sleep zeit%

wend

end