-----------------------------------

Jesse Kazemi

Tue Jun 17, 2014 11:23 am


Try this game guys its a helicopter game

-----------------------------------

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% If Controls selected %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
if xmouse > 270 and xmouse < 390 and ymouse > 100 and ymouse < 150 and button = 1 then 
Draw.Cls 
View.Update 

loop 
drawfillbox (0, 0, maxx, maxy, 100) 

% Cloud 1 
drawfilloval (90, 350, 130, 80, white) 
drawfilloval (70, 280, 80, 40, white) 
drawfilloval (200, 310, 60, 50, white) 
drawfilloval (230, 380, 60, 50, white) 

% Cloud 2 
drawfilloval (400, 150, 130, 80, white) 
drawfilloval (380, 80, 80, 40, white) 
drawfilloval (410, 220, 80, 40, white) 
drawfilloval (520, 110, 70, 50, white) 
drawfilloval (520, 190, 80, 50, white) 
drawfilloval (300, 180, 60, 50, white) 
drawfilloval (300, 120, 40, 30, white) 
Draw.Text ("CInsturctions", 265, 335, font1, black) 
Draw.Text ("Press d to go Back", 15, 360, font2, black) 
Draw.Text ("Welcome to the black guy-Heli, the better game than Harry Li's games!", 70, 285, font2, black) 
Draw.Text ("The controls of this game are pretty boss, to raise your helicopter,", 80, 255, font2, black) 
Draw.Text ("simply click your mouse to ascend your helicopter upward,", 77, 225, font2, black) 
Draw.Text ("to land your helicopter, let go of the mouse button.", 100, 195, font2, black) 
Draw.Text ("Just don't touch the white sections or it's game over and it sucks for you!", 70, 165, font2, black) 
Draw.Text ("Peace my hitta!", 230, 125, font2, black) 
Draw.Text ("Trademark to the IJC (International Jesse Corporation)Please copy this game.", 115, 15, font3, black) 

View.Update 
getch (ch) 
if ch = "b" then 
exit 
else 
end if 

end loop 


else 
end if 


%drawfillbox (290,170,370,220,41) 
%drawfillbox (270,100,390,150,41) 




icolor := icolor + 1 
if icolor = 62 then 
icolor := 1 
end if 
icolor2 := icolor2 + 1 
if icolor2 = 31 then 
icolor2 := 21 
end if 
iXposition := iXposition + xdirection 
iYposition := iYposition + ydirection 

if iXposition > 455 or iXposition < 0 then 
xdirection := -xdirection 
end if 

if iYposition > 215 or iYposition < 0 then 
ydirection := -ydirection 
end if 


delay (5) 
View.Update 

end loop 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% GAME OVER SCREEN %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
cls 
drawfillbox (0, 0, maxx, maxy, 100) 

% Cloud 1 
drawfilloval (90, 350, 130, 80, white) 
drawfilloval (70, 280, 80, 40, white) 
drawfilloval (200, 310, 60, 50, white) 
drawfilloval (230, 380, 60, 50, white) 

% Cloud 2 
drawfilloval (400, 150, 130, 80, white) 
drawfilloval (380, 80, 80, 40, white) 
drawfilloval (410, 220, 80, 40, white) 
drawfilloval (520, 110, 70, 50, white) 
drawfilloval (520, 190, 80, 50, white) 
drawfilloval (300, 180, 60, 50, white) 
drawfilloval (300, 120, 40, 30, white) 
Draw.Text ("Game Over", 190, 200, font, black) 
View.Update 
delay (2000) 
end loop


-----------------------------------

jesse kazomi

Tue Jun 17, 2014 12:09 pm


Re: Try this game guys its a helicopter game

-----------------------------------

This is pretty good


-----------------------------------

jesse kazomi

Tue Jun 17, 2014 12:13 pm


Re: Try this game guys its a helicopter game

-----------------------------------

Howd u do it