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

Username:   Password: 
 RegisterRegister   
 I really need this help please
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
andxdreamxixdo




PostPosted: Mon Jan 10, 2005 2:02 pm   Post subject: I really need this help please

I cant put anything in the talk bubbles!!!!! can someone help me????

This kinda was based on another persons snow thing

code:


% this sets the whole screen to a certain way
View.Set ("offscreenonly")
% this alows the computer to know what variables are being used
type snowIng :
record
        x : int
        y : int
        size : int
        speed : int
        dirx : int
end record
% this also tells the computer what variables to use.

%If you change them then you have to change the rest to match it.
var storm : array 1 .. 100 of snowIng

% this makes the first set of snowflakes

% this tells the computer how long and from where to where the snow falls
for b : 1 .. 100
% this tells you how big some of the snowflakes are
    storm (b) .x := Rand.Int (90, maxx)
    % this also tells you how big some of the snowflakes are
    storm (b) .y := Rand.Int (maxy, maxy + 100)
    %This is the size of the front snowflakes
    storm (b) .size := Rand.Int (2,9)
    % This controls the speed of when the screen pops up but it has to be 1 or 0
    storm (b) .speed := 0- storm (b).size
    % this controls which way the direction of the snow flows
    storm (b) .dirx := Rand.Int (-1-storm(b).size, 1+storm(b).size)
end for

%This loops the background black
loop
drawfill (7,7,7,7)

%This moves the snow around
 for i : 1 .. 100
% this makes all the snow             
        drawfilloval (storm (i).x, storm (i).y, storm (i).size, storm (i).size, 100)
           storm (i).x += storm (i).dirx
           storm (i).y += storm (i).speed
           
           % this is the same as the top one its controls the snowflakes
          if storm (i).y <= 0 then
            storm (i).x := Rand.Int (0, maxx)
            storm (i).y := Rand.Int (maxy, maxy + 0)
            storm (i).size := Rand.Int (-1,9)
            storm (i).speed :=0  - storm (i).size
% this keeps the screen black
cls
drawfill (7,7,7,7)
%this slows down the snow
delay (80)
% this also makes the aliens eyes when he blinks
drawfilloval (200,200,10,5,1)
drawfilloval (230,200,10,5,1)

% this makes the humans eyes blinks
drawfilloval (375,120,10,7,65)
drawfilloval (405,120,10,7,65)
 
% this makes the aliens talk bubble not blink by putting it the same colour
drawfilloval (110,260,50,35,31)

% this makes the humans talk bubble not blink by putting it the same colour
drawfilloval (480,180,50,35,31)

% This makes the snow also but thats how i got my eyes to blink
 for a : 1 .. 100
               
        drawfilloval (storm (a).x, storm (a).y, storm (a).size, storm (a).size, 100)
           storm (a).x += storm (a).dirx
           storm (a).y += storm (a).speed
          if storm (a).y <= 10 then
            storm (a).x := Rand.Int (0, maxx)
            storm (a).y := Rand.Int (maxy, maxy + 0)
            storm (a).size := Rand.Int (1,9)
            storm (a).speed := 0- storm (a).size

%This is my background also
drawfill (7,7,7,7)

%This is the aliens eyes (Left eye)
drawfilloval (200,200,10,5,10)
drawfilloval (200,200,2,5,14)
drawoval (200,200,2,5,7)

% Right eye
drawfilloval (230,200,10,5,10)
drawfilloval (230,200,2,5,14)
drawoval (230,200,2,5,1)

% this makes the human's eyes (left eye)
drawfilloval (375,120,10,7,31)
drawfilloval (375,120,4,7,114)
drawfilloval (375,120,2,2,7)

% this is the right eye
drawfilloval (405,120,10,7,31)
drawfilloval (405,120,4,7,114)
drawfilloval (405,120,2,2,7)

%this makes the aliens talk bubble
drawfilloval (110,260,50,35,31)

% this makes the humans talk bubble
drawfilloval (480,180,50,35,31)

%This ends the if statement
end if
% this ends the for statement
end for
% this alows you to see what you have created
View.Update
%This ends another if statement
end if
% this ends another for statement
end for
% this ends the loop statement
end loop
Sponsor
Sponsor
Sponsor
sponsor
Delos




PostPosted: Mon Jan 10, 2005 2:35 pm   Post subject: (No subject)

If you're going to use Font.() commands to put the text in, put them inside the 'for a: 1..100' loop, specifically, after the "this makes the aliens talk bubble" and "this makes the humans talk bubble" parts.

If you're going to use puts and locate()s, then do the same...Smile.
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 2 Posts ]
Jump to:   


Style:  
Search: