randint (s1, 1, 1)
if s1 = 1 then
Pic.ScreenLoad ("A:/treasure.bmp", 145, 155, 0)
elsif s1 = 2 then
Pic.ScreenLoad ("A:/crown.bmp", 145, 155, 0)
elsif s1 = 3 then
Pic.ScreenLoad ("A:/dragon.bmp", 145, 155, 0)
elsif s1 = 4 then
Pic.ScreenLoad ("A:/knight.bmp", 150, 155, 0)
elsif s1 = 5 then
Pic.ScreenLoad ("A:/sword.bmp", 155, 135, 0)
end if
%randomizing slot two
delay (500)
randint (s2, 1, 1)
if s2 = 1 then
Pic.ScreenLoad ("A:/treasure.bmp", 265, 155, 0)
elsif s2 = 2 then
Pic.ScreenLoad ("A:/crown.bmp", 265, 155, 0)
elsif s2 = 3 then
Pic.ScreenLoad ("A:/dragon.bmp", 265, 155, 0)
elsif s2 = 4 then
Pic.ScreenLoad ("A:/knight.bmp", 270, 155, 0)
elsif s2 = 5 then
Pic.ScreenLoad ("A:/sword.bmp", 275, 135, 0)
end if
%randomizing slot three
delay (500)
randint (s3, 1, 1)
if s3 = 1 then
Pic.ScreenLoad ("A:/treasure.bmp", 385, 155, 0)
elsif s3 = 2 then
Pic.ScreenLoad ("A:/crown.bmp", 385, 155, 0)
elsif s3 = 3 then
Pic.ScreenLoad ("A:/dragon.bmp", 385, 155, 0)
elsif s3 = 4 then
Pic.ScreenLoad ("A:/knight.bmp", 390, 155, 0)
elsif s3 = 5 then
Pic.ScreenLoad ("A:/sword.bmp", 395, 135, 0)
end if |