REMSTART
--------------------------
Megaman Desert Trial
--------------------------
REMEND
global dim y(enemynum)` if you want to track enemy position!!!
counta=250
countb=100
countd=200
Load Music "C:Documents and SettingsPreferred CustomerMy DocumentsMy MusicNarutoNaruto_-_Sarutobi.mp3",1
Loop Music 1
Load Bitmap "C:Documents and SettingsPreferred CustomerMy DocumentsMy PicturesPicsDB workBlast.bmp"
Get Image 3,0,0,50,100
Load Bitmap "C:Documents and SettingsPreferred CustomerMy DocumentsMy PicturesPicsDB workMEGAMANZERO_GOLEM_SHEET.bmp"
Get Image 1,270,0,360,100
Load Bitmap "C:Documents and SettingsPreferred CustomerMy DocumentsMy PicturesPicsDB workMEGAMANZERO_X-COPY_SHEET.bmp"
Get Image 2,300,50,360,100
CLS
Load Bitmap "C:Documents and SettingsPreferred CustomerMy DocumentsMy PicturesPicsDB workdesert.bmp"
sync on
do
if Blast>700 then spacekey=1
if Blast<700 then spacekey=0
if upkey()=1 then countb=countb-5
if downkey()=1 then countb=countb+5
if leftkey()=1 then counta=counta-5
if rightkey()=1 then counta=counta+5
if spacekey()=1 then Blast(counta,countb)
if shiftkey()=1 then end
Sprite 2,counta,countb,2
rem countd=countd+10
if countd>=400
countd=countd-20
else
if countd<=100
countd=countd+10
else
countd=countd+10
endif
endif
Sprite 1,500,countd,1
countc=0
rem if SPRITE HIT(1,0) then countc=countc+1
rem if countc=5 then Hide Sprite 1
`AI
for enemy=200 to enemynum
cho=rnd(20)
if cho=0 then direction=1
if cho=1 then direction=2
if direction=1
move sprite enemy,1
endif
if direction=2
move sprite enemy,-1
endif
next enemy
sync
loop
Function Blast(x,y)
FOR I= 1 to MAX
REPEAT
x=x+40
Sprite 3,x+40,y,3
LOAD 3DSOUND "C:Program FilesDark Basic SoftwareDark Basicmediasoundsweaponslasergun.wav",1
if x=MAX then EXIT
UNTIL INKEY$()="5"
NEXT I
Endfunction
srry, i made that last post from my psp!
PS: dont use direct file locations!!!
do, load image "whatever.format"
but first copy the media to your project folder
stargate sg-1 the one show that never gets old
