CA认证

开发平台：

Visual C++

cash.t：源码内容

							setscreen ("graphics:702;540,nobuttonbar")
%The BULLY CHASER PROGRAMMES BY ALAN ARONSHTAM
%the following are game issues:
%-Black Player Movement Freezes (ASK WHEELER)
%-No Collision (RESEARCH)
%-No Timer (need add delay before it quits.)
%702 * 540 instructions
%1205 * 861 img
var picID : int         
var picID2 : int                    
picID := Pic.FileNew ("intro.jpg")   
Pic.Draw (picID, 0, 0, picCopy)
delay (6000)
cls
%next img                         
picID := Pic.FileNew ("instrtuctions1.jpg")   
Pic.Draw (picID, 0, 0, picCopy)
delay (8000)
cls
%next img                        
picID := Pic.FileNew ("instructions2.jpg")   
Pic.Draw (picID, 0, 0, picCopy)
delay (4000)
cls
put "Loading Full Screen..."
delay (4000)
cls %possibly
var x : int := 51
var y : int := 51
var d : int := 1100
var f : int := 50
var rand1 : int
var xdist, ydist : int := 0
var Key : array char of boolean
%OLD VIEW SET COMMAND...
    xdist := 0
    ydist := 0
    setscreen ("graphics:1205;861,nobuttonbar")
       View.Set ("offscreenonly")
   picID2 := Pic.FileNew ("field.jpg")   
	loop
Pic.Draw (picID2, 0, 0, picCopy) %img
	randint (rand1, 1, 15)
	%movement 1
	Input.KeyDown (Key)
	if Key (KEY_LEFT_ARROW) and x > 10 then
	    x := x - 5
	end if
	if Key (KEY_RIGHT_ARROW) and x < maxx - 10 then
	    x := x + 5
	end if
	if Key (KEY_UP_ARROW) and y < maxy - 10 then
	    y := y + 5
	end if
	if Key (KEY_DOWN_ARROW) and y > 15 then
	    y := y - 5
	end if
	drawfilloval (x + 2, y + 2, 26, 26, red)
	%movment 2
	randint (rand1, 1, 15)
	if Key ('a') and x > 10 then
	    d := d - 3
	end if
	if Key ('d') and x < maxx - 10 then
	    d := d + 3
	end if
	if Key ('w') and y < maxy - 10 then
	    f := f + 3
	end if
	if Key ('s') and y > 15 then
	    f := f - 3
	end if
	drawfilloval (d + 2, f + 2, 26, 26, black)
	delay (1)
 
	delay (1)
	View.Update
	cls
	cls   
	
	 if x > d and x < d + 65 and y > f and y < f + 65 then 
	    setscreen ("graphics:702;540,nobuttonbar")
 picID := Pic.FileNew ("crash1.jpg")   
Pic.Draw (picID, 0, 0, picCopy)
		exit
	 end if
		
	if Time.Elapsed > 52000 then
	setscreen ("graphics:702;540,nobuttonbar")
	picID := Pic.FileNew ("bullyloss.jpg")  
	Pic.Draw (picID, 0, 0, picCopy)
	    exit
	end if
    end loop 

						