http://www2.webng.com/libertybasic/ball.zip
Here is only the Source code. You need the picture in the zip to run it ::)
Code:console.off()
set.height ("420")
set.width ("390")
window.graphic {
_GW_NORMAL
("Magical 8-Ball")
}
declare {
vtab ("12")
htab ("37")
}
pen.color : white
pen.back : black
//new\\
blank(window.graphic)
embe.bmp {
("\ball.bmp")
("ball")
}
stick()
declare {
numm rnd( 5 )
}
prompt.user {
("Ask a question.")
void
}
goto.label : @ numm
break()
//1\\
embe ("Yes")
break()
//2\\
embe ("Maybe")
break()
//3\\
embe ("No")
break()
//4\\
embe ("Ask Again")
goto.label : //end\\
break()
//5\\
embe ("Not a chance!")
break()