Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Space Ship
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
indianstorm




PostPosted: Mon Jun 07, 2004 9:34 am   Post subject: Space Ship

code:
%Indianstorm
%ICE 3M1
%Mrs. Batista
%Date: May,12/04
%Turing
%Program: Space Exploration

drawfillbox (-2, -2, 650, 550, 7) %background

drawfillbox (-1, 0, 650, 100, 2)
drawline (-1, 0, -1, 100, 0)
drawline (0, 100, 650, 100, 0)
drawline (650, 100, 650, 0, 0)

randomize
var x, v, clr : int
for i : 1 .. 200
    randint (x, 0, 639)
    randint (v, 61, 479)
    randint (clr, 1, 15)
    drawdot (x, v, clr)
end for
drawline (-1, 0, 650, 0, 0)
drawfillbox (0, 100, 185, 120, 8)

drawoval (125, 200, 100, 100, 3)
drawfill (125, 200, 8, 3)
drawfill (120, 110, 8, 3)
drawfilloval (150, 200, 15, 15, 7)
drawline(150,200,25,200,7)
drawline(150,200,220,380,7)
drawline(150,200,110,110,7)

for s : 1 .. 2
for y : 1 .. 15
    drawline (50 * y, 35 * y, 150, 200, 0*s)
    delay (100)
    drawline (50 * y, 35 * y, 150, 200, 12)
    delay (30)
end for
end for


drawfilloval (655, 250, 50, 20, 0)
drawfilloval (655, 250, 20, 20, 0)
delay (30)
drawfilloval (655, 250, 50, 20, 7)
drawfilloval (655, 250, 20, 20, 7)
delay (0)
drawfilloval (650, 245, 50, 20, 0)
drawfilloval (650, 250, 20, 20, 0)
delay (30)
drawfilloval (650, 245, 50, 20, 7)
drawfilloval (650, 250, 20, 20, 7)
delay (0)
drawfilloval (645, 240, 50, 20, 0)
drawfilloval (645, 250, 20, 20, 0)
delay (30)
drawfilloval (645, 240, 50, 20, 7)
drawfilloval (645, 250, 20, 20, 7)
delay (0)
drawfilloval (640, 235, 50, 20, 0)
drawfilloval (640, 250, 20, 20, 0)
delay (30)
drawfilloval (640, 235, 50, 20, 7)
drawfilloval (640, 250, 20, 20, 7)
delay (0)
drawfilloval (635, 230, 50, 20, 0)
drawfilloval (635, 250, 20, 20, 0)
delay (30)
drawfilloval (635, 230, 50, 20, 7)
drawfilloval (635, 250, 20, 20, 7)
delay (0)
drawfilloval (630, 225, 50, 20, 0)
drawfilloval (630, 250, 20, 20, 0)
delay (30)
drawfilloval (630, 225, 50, 20, 7)
drawfilloval (630, 250, 20, 20, 7)
delay (0)
drawfilloval (625, 220, 50, 20, 0)
drawfilloval (625, 250, 20, 20, 0)
delay (30)
drawfilloval (625, 220, 50, 20, 7)
drawfilloval (625, 250, 20, 20, 7)
delay (0)
drawfilloval (620, 220, 50, 20, 0)
drawfilloval (620, 250, 20, 20, 0)
delay (30)
drawfilloval (620, 220, 50, 20, 7)
drawfilloval (620, 250, 20, 20, 7)
delay (0)
drawfilloval (615, 220, 50, 20, 0)
drawfilloval (615, 250, 20, 20, 0)
delay (30)
drawfilloval (615, 220, 50, 20, 7)
drawfilloval (615, 250, 20, 20, 7)
delay (0)
drawfilloval (610, 220, 50, 20, 0)
drawfilloval (610, 250, 20, 20, 0)
delay (30)
drawfilloval (610, 220, 50, 20, 7)
drawfilloval (610, 250, 20, 20, 7)
delay (0)
drawfilloval (605, 220, 50, 20, 0)
drawfilloval (605, 250, 20, 20, 0)
delay (30)
drawfilloval (605, 220, 50, 20, 7)
drawfilloval (605, 250, 20, 20, 7)
delay (0)
drawfilloval (600, 220, 50, 20, 0)
drawfilloval (600, 250, 20, 20, 0)
delay (30)
drawfilloval (600, 220, 50, 20, 7)
drawfilloval (600, 250, 20, 20, 7)
delay (0)
drawfilloval (595, 220, 50, 20, 0)
drawfilloval (595, 250, 20, 20, 0)
delay (30)
drawfilloval (595, 220, 50, 20, 7)
drawfilloval (595, 250, 20, 20, 7)
delay (0)
drawfilloval (590, 220, 50, 20, 0)
drawfilloval (590, 250, 20, 20, 0)
delay (30)
drawfilloval (590, 220, 50, 20, 7)
drawfilloval (590, 250, 20, 20, 7)
delay (0)
drawfilloval (585, 220, 50, 20, 0)
drawfilloval (585, 250, 20, 20, 0)
delay (30)
drawfilloval (585, 220, 50, 20, 7)
drawfilloval (585, 250, 20, 20, 7)
delay (0)
drawfilloval (580, 220, 50, 20, 0)
drawfilloval (580, 250, 20, 20, 0)
delay (30)
drawfilloval (580, 220, 50, 20, 7)
drawfilloval (580, 250, 20, 20, 7)
delay (0)
drawfilloval (575, 220, 50, 20, 0)
drawfilloval (575, 250, 20, 20, 0)
delay (30)
drawfilloval (575, 220, 50, 20, 7)
drawfilloval (575, 250, 20, 20, 7)
delay (0)
drawfilloval (570, 220, 50, 20, 0)
drawfilloval (570, 250, 20, 20, 0)
delay (30)
drawfilloval (570, 220, 50, 20, 7)
drawfilloval (570, 250, 20, 20, 7)
delay (0)
drawfilloval (565, 220, 50, 20, 0)
drawfilloval (565, 250, 20, 20, 0)
delay (30)
drawfilloval (565, 220, 50, 20, 7)
drawfilloval (565, 250, 20, 20, 7)
delay (0)
drawfilloval (560, 220, 50, 20, 0)
drawfilloval (560, 250, 20, 20, 0)
delay (30)
drawfilloval (560, 220, 50, 20, 7)
drawfilloval (560, 250, 20, 20, 7)
delay (0)
drawfilloval (555, 220, 50, 20, 0)
drawfilloval (555, 250, 20, 20, 0)
delay (30)
drawfilloval (555, 220, 50, 20, 7)
drawfilloval (555, 250, 20, 20, 7)
delay (0)
drawfilloval (550, 220, 50, 20, 0)
drawfilloval (550, 250, 20, 20, 0)
delay (30)
drawfilloval (550, 220, 50, 20, 7)
drawfilloval (550, 250, 20, 20, 7)
delay (0)
drawfilloval (545, 220, 50, 20, 0)
drawfilloval (545, 250, 20, 20, 0)
delay (30)
drawfilloval (545, 220, 50, 20, 7)
drawfilloval (545, 250, 20, 20, 7)
delay (0)
drawfilloval (540, 220, 50, 20, 0)
drawfilloval (540, 250, 20, 20, 0)
delay (30)
drawfilloval (540, 220, 50, 20, 7)
drawfilloval (540, 250, 20, 20, 7)
delay (0)
drawfilloval (535, 220, 50, 20, 0)
drawfilloval (535, 250, 20, 20, 0)
delay (30)
drawfilloval (535, 220, 50, 20, 7)
drawfilloval (535, 250, 20, 20, 7)
delay (0)
drawfilloval (530, 220, 50, 20, 0)
drawfilloval (530, 250, 20, 20, 0)
delay (30)
drawfilloval (530, 220, 50, 20, 7)
drawfilloval (530, 250, 20, 20, 7)
delay (0)
drawfilloval (525, 220, 50, 20, 0)
drawfilloval (525, 250, 20, 20, 0)
delay (30)
drawfilloval (525, 220, 50, 20, 7)
drawfilloval (525, 250, 20, 20, 7)
delay (0)
drawfilloval (520, 220, 50, 20, 0)
drawfilloval (520, 250, 20, 20, 0)
delay (30)
drawfilloval (520, 220, 50, 20, 7)
drawfilloval (520, 250, 20, 20, 7)
delay (0)
drawfilloval (515, 220, 50, 20, 0)
drawfilloval (515, 250, 20, 20, 0)
delay (30)
drawfilloval (515, 220, 50, 20, 7)
drawfilloval (515, 250, 20, 20, 7)
delay (0)
drawfilloval (510, 220, 50, 20, 0)
drawfilloval (510, 250, 20, 20, 0)
delay (30)
drawfilloval (510, 220, 50, 20, 7)
drawfilloval (510, 250, 20, 20, 7)
delay (0)
drawfilloval (505, 220, 50, 20, 0)
drawfilloval (505, 250, 20, 20, 0)
delay (30)
drawfilloval (505, 220, 50, 20, 7)
drawfilloval (505, 250, 20, 20, 7)
delay (0)
drawfilloval (500, 220, 50, 20, 0)
drawfilloval (500, 250, 20, 20, 0)
delay (30)
drawfilloval (500, 220, 50, 20, 7)
drawfilloval (500, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (485, 220, 50, 20, 0)
drawfilloval (485, 250, 20, 20, 0)
delay (30)
drawfilloval (485, 220, 50, 20, 7)
drawfilloval (485, 250, 20, 20, 7)
delay (0)
drawfilloval (480, 220, 50, 20, 0)
drawfilloval (480, 250, 20, 20, 0)
delay (30)
drawfilloval (480, 220, 50, 20, 7)
drawfilloval (480, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)
drawfilloval (495, 220, 50, 20, 0)
drawfilloval (495, 250, 20, 20, 0)
delay (30)
drawfilloval (495, 220, 50, 20, 7)
drawfilloval (495, 250, 20, 20, 7)
delay (0)
drawfilloval (490, 220, 50, 20, 0)
drawfilloval (490, 250, 20, 20, 0)
delay (30)
drawfilloval (490, 220, 50, 20, 7)
drawfilloval (490, 250, 20, 20, 7)
delay (0)



drawfilloval (355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay (30)
drawfilloval (355, 200, 50, 20, 7)
drawfilloval (355, 230, 20, 20, 7)
delay (30)
drawfilloval (355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay (30)
drawfilloval (355, 200, 50, 20, 7)
drawfilloval (355, 230, 20, 20, 7)
delay (30)
drawfilloval (355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay (30)
drawfilloval (355, 200, 50, 20, 7)
drawfilloval (355, 230, 20, 20, 7)
delay (30)
drawfilloval (355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay (30)
drawfilloval (355, 200, 50, 20, 7)
drawfilloval (355, 230, 20, 20, 7)
delay (20)
drawfilloval (355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay (20)
drawfilloval (355, 200, 50, 20, 7)
drawfilloval (355, 230, 20, 20, 7)
delay (10)
drawfilloval (355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay (0)
drawfilloval (355, 200, 50, 20, 7)
drawfilloval (355, 230, 20, 20, 7)
delay (0)
drawfilloval (355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay (0)

var exp1,exp2:int
put "Choose Yes=1 0r No=2"
get exp1
if exp1=1 then
put "Yes, Good Job"     
drawline(355,230,355,200,0)
delay(0)
drawline(355,235,355,200,0)
delay(0)
drawline(355,240,355,200,0)
delay(700)
drawline(355,245,355,200,0)
delay(700)
drawline(355,250,355,200,0)
delay(700)
drawline(355,255,355,200,0)
delay(700)
drawline(355,260,355,200,0)
delay(700)
drawline(355,265,355,200,0)
delay(700)

drawfilloval(355,265,3,3,0)



randomize
var clrr : int

loop
for zv : 1 .. 15

randint(clrr,1,15)
drawline(355,275,355,270,clrr)
delay(0)
drawline(360,265,365,265,clrr)
delay(50)
drawline(350,265,345,265,clrr)
delay(100)

drawfilloval (355, 200, 50, 20, 12)
drawfilloval (355, 230, 20, 20, 12)
delay(100)
drawfilloval(355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay(0)


drawline (50 * zv, 35 * zv, 150, 200, 0)
    delay (25)
drawline (50 * zv, 35 * zv, 150, 200, 12)
    delay (25)
end for
end loop


else
loop
drawfilloval (355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay (0)
drawfilloval (355, 200, 50, 20, 7)
drawfilloval (355, 230, 20, 20, 7)
delay (100)
put "You Lose"
end loop

end if


I have just started using turing!!!
Edit it if need be!!!
Sponsor
Sponsor
Sponsor
sponsor
ssr




PostPosted: Thu Jan 13, 2005 10:14 pm   Post subject: (No subject)

Well, what is that supposed to be?
If it's just like an animation then, u sure can use these codes:

View.Set("offscreenonly")
View.Update
loop
for

you can go look at Turing help and learn them, it's really easy! 8) Very Happy GL
Neo




PostPosted: Thu Jan 13, 2005 10:24 pm   Post subject: (No subject)

ssr wrote:
Well, what is that supposed to be?
If it's just like an animation then, u sure can use these codes:

View.Set("offscreenonly")
View.Update
loop
for

you can go look at Turing help and learn them, it's really easy! 8) Very Happy GL


Did u realize this was posted back in june7 2004? He has probably already finished the course (unless he failed, which it looks like he did), so there is no use in commenting on his program.
cool dude




PostPosted: Fri Jan 14, 2005 2:36 pm   Post subject: (No subject)

he did post this before and on top of it u should have attached that because it is so big and wasting a lot of room.
sport




PostPosted: Fri Jan 14, 2005 3:18 pm   Post subject: (No subject)

The exact same code 700 lines shorter
code:

%Indianstorm
%ICE 3M1
%Mrs. Batista
%Date: May,12/04
%Turing
%Program: Space Exploration

drawfillbox (-2, -2, 650, 550, 7) %background

drawfillbox (-1, 0, 650, 100, 2)
drawline (-1, 0, -1, 100, 0)
drawline (0, 100, 650, 100, 0)
drawline (650, 100, 650, 0, 0)

randomize
var x, v, clr : int
for i : 1 .. 200
    randint (x, 0, 639)
    randint (v, 61, 479)
    randint (clr, 1, 15)
    drawdot (x, v, clr)
end for
drawline (-1, 0, 650, 0, 0)
drawfillbox (0, 100, 185, 120, 8)

drawoval (125, 200, 100, 100, 3)
drawfill (125, 200, 8, 3)
drawfill (120, 110, 8, 3)
drawfilloval (150, 200, 15, 15, 7)
drawline (150, 200, 25, 200, 7)
drawline (150, 200, 220, 380, 7)
drawline (150, 200, 110, 110, 7)

for s : 1 .. 2
    for y : 1 .. 15
        drawline (50 * y, 35 * y, 150, 200, 0 * s)
        delay (100)
        drawline (50 * y, 35 * y, 150, 200, 12)
        delay (30)
    end for
end for

proc draw (x1, y1 : int)
    const x := 655
    const y := 250
    drawfilloval (x - x1, y - y1, 50, 20, 0)
    drawfilloval (x - x1, y, 20, 20, 0)
    delay (30)
    drawfilloval (x - x1, y - y1, 50, 20, 7)
    drawfilloval (x - x1, y, 20, 20, 7)
    delay (0)
end draw

proc draw1 (x1 : int)
    const x := 625
    const y := 250
    const y1 := 220
    drawfilloval (x - x1, y1, 50, 20, 0)
    drawfilloval (x - x1, y, 20, 20, 0)
    delay (30)
    drawfilloval (x - x1, y1, 50, 20, 7)
    drawfilloval (x - x1, y, 20, 20, 7)
    delay (0)
end draw1

for i : 1 .. (655 - 620) by 5
    draw (i, i)
end for

for i : 1 .. (625 - 480) by 5
    draw1 (i)
end for

for i : 1 .. 36
    for j : 0 .. 1
        drawfilloval (495 - j * 5, 220, 50, 20, 0)
        drawfilloval (495 - j * 5, 250, 20, 20, 0)
        delay (30)
        drawfilloval (495 - j * 5, 220, 50, 20, 7)
        drawfilloval (495 - j * 5, 250, 20, 20, 7)
    end for
end for

for i : 1 .. 3
    drawfilloval (355, 200, 50, 20, 0)
    drawfilloval (355, 230, 20, 20, 0)
    delay (30)
    drawfilloval (355, 200, 50, 20, 7)
    drawfilloval (355, 230, 20, 20, 7)
    delay (30)
end for

drawfilloval (355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay (30)
drawfilloval (355, 200, 50, 20, 7)
drawfilloval (355, 230, 20, 20, 7)
delay (20)
drawfilloval (355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay (20)
drawfilloval (355, 200, 50, 20, 7)
drawfilloval (355, 230, 20, 20, 7)
delay (10)
drawfilloval (355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay (0)
drawfilloval (355, 200, 50, 20, 7)
drawfilloval (355, 230, 20, 20, 7)
delay (0)
drawfilloval (355, 200, 50, 20, 0)
drawfilloval (355, 230, 20, 20, 0)
delay (0)

var exp1, exp2 : int
put "Choose Yes=1 0r No=2"
get exp1
if exp1 = 1 then
    put "Yes, Good Job"
    drawline (355, 230, 355, 200, 0)
    delay (0)
    drawline (355, 235, 355, 200, 0)
    delay (0)

    for i : 0 .. 5 by 5
        drawline (355, 240 - i, 355, 200, 0)
        delay (700)
    end for

    drawfilloval (355, 265, 3, 3, 0)
    randomize
    var clrr : int

    loop
        for zv : 1 .. 15
            randint (clrr, 1, 15)
            drawline (355, 275, 355, 270, clrr)
            delay (0)
            drawline (360, 265, 365, 265, clrr)
            delay (50)
            drawline (350, 265, 345, 265, clrr)
            delay (100)

            drawfilloval (355, 200, 50, 20, 12)
            drawfilloval (355, 230, 20, 20, 12)
            delay (100)
            drawfilloval (355, 200, 50, 20, 0)
            drawfilloval (355, 230, 20, 20, 0)
            delay (0)

            drawline (50 * zv, 35 * zv, 150, 200, 0)
            delay (25)
            drawline (50 * zv, 35 * zv, 150, 200, 12)
            delay (25)
        end for
    end loop

else
    loop
        drawfilloval (355, 200, 50, 20, 0)
        drawfilloval (355, 230, 20, 20, 0)
        delay (0)
        drawfilloval (355, 200, 50, 20, 7)
        drawfilloval (355, 230, 20, 20, 7)
        delay (100)
        put "You Lose"
    end loop

end if
ste_louis26




PostPosted: Mon Jan 24, 2005 3:01 pm   Post subject: (No subject)

WHat is this supposed to be ? A game??????? do u win if you press 1?
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 6 Posts ]
Jump to:   


Style:  
Search: