%Randy Phalla TIK 20 - Computer and Information Science Culminating Activity
setscreen ("graphics:1010;670")
View.Set ("offscreenonly")
var background : int;
% Background
drawfillbox (0, 0, maxx, maxy, black)
% Field
drawfillbox (1, 150, 1010, 1, red)
% City
drawfillbox (1000, 300, 950, 10, gray)
drawfillbox (880, 300, 830, 10, gray)
drawfillbox (950, 100, 880, 10, gray)
% Windows
drawfillbox (900, 70, 840, 100, yellow)
%Good Tranformer
drawfillbox (210, 400, 150, 500, gray) % body
drawfillbox (210, 550, 150, 500, blue) % head
drawfillbox (160, 550, 150, 500, red) % left ears
drawfillbox (210, 550, 200, 500, red) % right ears
drawfillbox (175, 295, 150, 400, blue) %left leg
drawfillbox (185, 295, 210, 400, blue) % right leg
drawfillbox (175, 295, 150, 300, gray) % left foot
drawfillbox (185, 295, 210, 300, gray)
drawfillbox (149, 480, 105, 500, red) %left arm
drawfillbox (211, 480, 270, 500, red) % right arm
% tank
drawfillbox (110, 20, 190, 5, green) % bottom body
drawfillbox (120, 50, 160, 21, green) % top
drawfillbox (120, 50, 200, 42, green) % cannon
% 2 tanks
drawfillbox (450, 83, 350, 100, green) % bottom body
drawfillbox (400, 100, 360, 140, green) % middle
drawfillbox (470, 130, 360, 140, green) % cannon
%Bad transformer
drawfillbox ( 700, 300, 570, 500,red)% body
drawfillbox ( 440,470, 570,500, blue) %left arm
drawfillbox (700,470, 820,500,blue) % right arm
drawfillbox (670, 570, 600,500, black) % head
drawfillbox (670,600, 690,500,blue) % right ear
drawfillbox (600,600,577,500,blue) % left ear
drawfillbox (630,170,570,300,blue) % left leg
drawfillbox (640,170,700,299,blue)% right leg
drawfillbox (670,575,600,571,gray) % top of the head
drawfillbox (670,505,600,500,gray)% 3
drawfillbox (670,510,600,515,gray) %2
drawfillbox (670,525,600,520,gray) %1
drawfillbox (570,180,630,170,gray)% left foot
drawfillbox (640,180,700,170,gray) % right foot
%bad transfomer blast
for i : 0 .. 50
drawfillbox(440 -i * 7,470,441,500, gray)
View.Update
delay(1)
end for
% explosion set 3 blast
for f : 1 .. 10
delay (1)
Draw.FillOval (200, 500, 0 + f, 0 + f, brightred)
delay (1)
Draw.FillOval (300, 500, 0 + f, 0 + f, brightred)
delay (1)
Draw.FillOval (400,500, 0 + f, 0 + f, brightred)
delay (1)
Draw.FillOval (350, 470, 0 +f, 0 +f, brightred)
delay (1)
Draw.FillOval (250, 470, 0+f, 0+f, brightred)
delay (1)
Draw.FillOval ( 150, 470, 0+f, 0+f, brightred)
delay (1)
Draw.FillOval (100, 500, 0+f, 0+f, brightred)
end for |