XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zufallszahlen bestimmen
declare a%,b%
def @Pause(1) !kernel32,Sleep
window 50,50-400,400
SetTrueColor 1
randomize

proc Zufall

    let b%=0
    let a%=@add(@rnd(2),20)

    while @lt(b%,a%)

        if @mod(b%,2)

            usebrush 1,rgb(255,0,0)
            ellipse 100,100-150,150
            usebrush 1,rgb(255,255,255)
            ellipse 200,100-250,150

        else

            usebrush 1,rgb(0,255,0)
            ellipse 200,100-250,150
            usebrush 1,rgb(255,255,255)
            ellipse 100,100-150,150

        endif

        inc b%
        playsound Click.wav,1
        @Pause(@mul(b%,20))

    endwhile

    if mod(b%,2)

        print Grün gewinnt

    else

        print Rot gewinnt

    endif

endproc

while 1

    print <Enter>
    waitkey
    cls
    Zufall

endwhile