setscreen ("graphicsv:16")
Pic.ScreenLoad ("untitled.bmp", 0, 0, picCopy)
delay (3000)
cls
colourback (7)
cls
drawfillbox (0, 0, 639, 100, 6)
drawfillbox (300, 50, 500, 200, 4)
drawfillbox (325, 125, 375, 175, 0)
drawfillbox (425, 50, 475, 175, 1)
var c : array 1 .. 3 of int := init (300, 400, 500)
var v : array 1 .. 3 of int := init (200, 300, 200)
drawfillpolygon (c, v, 3, 21)
var n : array 1 .. 4 of int := init (160, 210, 475, 425)
var m : array 1 .. 4 of int := init (0, 0, 50, 50)
drawfillpolygon (n, m, 4, 32)
var name, school : string
colour (60)
put "What is your name: " ..
get name
put "Where are you right now: " ..
get school
put "Hello" ..
put " and " ..
put "Welcome ", name ..
put " Today you will be leaving ", school ..
put " and entering a world of wizards and magic"
delay (3000)
cls
put "THIS IS MY STORY"
delay (3500)
cls
colourback (7)
cls
drawfillbox (0, 0, 639, 100, 6)
drawfillbox (300, 50, 500, 200, 4)
drawfillbox (325, 125, 375, 175, 0)
drawfillbox (425, 50, 475, 175, 1)
var a : array 1 .. 3 of int := init (300, 400, 500)
var s : array 1 .. 3 of int := init (200, 300, 200)
drawfillpolygon (a, s, 3, 21)
var d : array 1 .. 4 of int := init (160, 210, 475, 425)
var f : array 1 .. 4 of int := init (0, 0, 50, 50)
drawfillpolygon (d, f, 4, 32)
put "There was once a magical wizard that lived in a house."
delay (3000)
cls
colourback (7)
cls
drawfillbox (0, 0, 639, 100, 6)
drawfillbox (300, 50, 500, 200, 4)
drawfillbox (325, 125, 375, 175, 0)
drawfillbox (425, 50, 475, 175, 1)
var g : array 1 .. 3 of int := init (300, 400, 500)
var h : array 1 .. 3 of int := init (200, 300, 200)
drawfillpolygon (g, h, 3, 21)
var j : array 1 .. 4 of int := init (160, 210, 475, 425)
var k : array 1 .. 4 of int := init (0, 0, 50, 50)
drawfillpolygon (j, k, 4, 32)
put "One day a dragon decided to attack this wizard's house"
put "This evil dragon blew off the roof of the house"
delay (3000)
Pic.ScreenLoad ("dragon.bmp", 0, 0, picCopy)
drawfillbox (0, 0, 639, 100, 6)
drawfillbox (300, 50, 500, 200, 4)
drawfillbox (325, 125, 375, 175, 0)
drawfillbox (425, 50, 475, 175, 1)
var t : array 1 .. 3 of int := init (300, 400, 500)
var r : array 1 .. 3 of int := init (200, 300, 200)
drawfillpolygon (r, t, 3, 21)
var u : array 1 .. 4 of int := init (160, 210, 475, 425)
var i : array 1 .. 4 of int := init (0, 0, 50, 50)
drawfillpolygon (u, i, 4, 32)
delay (5000)
cls
put "The wizard got tired of putting his roof back over and over again"
put "The tired wizard then got angry " ..
put "so he decided to take care of this problem"
drawfillbox (0, 0, 639, 100, 6)
drawfillbox (300, 50, 500, 200, 4)
drawfillbox (325, 125, 375, 175, 0)
drawfillbox (425, 50, 475, 175, 1)
var e : array 1 .. 3 of int := init (300, 400, 500)
var l : array 1 .. 3 of int := init (200, 300, 200)
drawfillpolygon (e, l, 3, 21)
var q : array 1 .. 4 of int := init (160, 210, 475, 425)
var b : array 1 .. 4 of int := init (0, 0, 50, 50)
drawfillpolygon (q, b, 4, 32)
delay (5000)
drawfillbox (0, 0, 639, 100, 6)
drawfillbox (300, 50, 500, 200, 4)
drawfillbox (325, 125, 375, 175, 0)
drawfillbox (425, 50, 475, 175, 1)
var w : array 1 .. 3 of int := init (300, 400, 500)
var z : array 1 .. 3 of int := init (200, 300, 200)
drawfillpolygon (w, z, 3, 21)
var o : array 1 .. 4 of int := init (160, 210, 475, 425)
var p : array 1 .. 4 of int := init (0, 0, 50, 50)
drawfillpolygon (o, p, 4, 32)
Pic.ScreenLoad ("dragonnobreath.bmp", 0, 300, picCopy)
Pic.ScreenLoad ("wiz1.bmp", 225, 90, picCopy)
delay (300)
Pic.ScreenLoad ("wiz2.bmp", 100, 90, picCopy)
delay (300)
Pic.ScreenLoad ("wiz3.bmp", 0, 90, picCopy)
delay (500)
Pic.ScreenLoad ("boom.bmp", 0, 0, picCopy)
delay (3000)
Pic.ScreenLoad ("theend.bmp", 0, 0, picCopy) |