b-rog

win := kart (die) - 7003             % Common # that kart(die) was close to : (kart (die) := 7004..7009)
process winVoice
    if win = 1 then
        Music.PlayFile ("mk64_mario07.wav")
    elsif win = 2 then
        Music.PlayFile ("mk64_luigi07.wav")
    elsif win = 3 then
        Music.PlayFile ("mk64_yoshi07.wav")
    elsif win = 4 then
        Music.PlayFile ("mk64_dk04.wav")
    elsif win = 5 then
        Music.PlayFile ("mk64_bowser01.wav")
    elsif win = 6 then
        Music.PlayFile ("mk64_peach06.wav")
    end if
end winVoice
%%%%%%%%%%%%Winner%%%%%%%%%%%%%%%%%%%

if win = 1 then
    winner := "Mario"
    col := 12
    fontWin := Font.New ("Cuckoo:48:bold")
elsif win = 2 then
    winner := "Luigi"
    col := 10
    fontWin := Font.New ("BlizzardD:48:bold")
elsif win = 3 then
    winner := "Koopa Troopa"
    col := 76
    fontWin := Font.New ("IceAgeD:48:bold")
elsif win = 4 then
    winner := "Donkey Kong"
    col := 4
    fontWin := Font.New ("MandarinSCD:60:bold")
elsif win = 5 then
    winner := "Bowser"
    col := 43
    fontWin := Font.New ("GothicE:48:bold")
elsif win = 6 then
    winner := "Peach"
    col := 63
    fontWin := Font.New ("EnglischeSchT:48:bold")
end if
Font.Draw ("The winner is", 200, 300, font, 31)
delay (500)
Font.Draw (".", 520, 300, font, 31)
delay (500)
Font.Draw (".", 540, 300, font, 31)
delay (500)
Font.Draw (".", 560, 300, font, 31)
delay (1000)
Font.Draw (winner, 250, 150, fontWin, col)