hi,
Global Player
Global snd
Graphics 800,600,16
SetBuffer BackBuffer()
Player= LoadImage("player.jpg")
intropic = LoadImage ("yakuza logo 2.jpg")
music = PlayMusic("dragonforce.mp3")
timer = CreateTimer(20)
ship = LoadAnimImage ("player.jpg", 113,113,0,36)
startframe = 27
frame = 27
Repeat
If speed# < 0 Then speed# = speed + .01
If speed# > 0 Then speed# = speed - .01
If KeyDown(200) Then ;UP Arrow
speed# = speed + .05
If speed# > 2 Then Speed# = 2
End If
If KeyDown(208) Then ;Down Arrow
speed# = speed - .05
If speed# < -2 Then Speed# = -2
End If
If timer+50 < MilliSecs() Then
timer = MilliSecs()
If KeyDown(203) Then ;Left Arrow
frame = frame - 1
If frame < 0 Then frame = 35
End If
If KeyDown(205) Then ;Right Arrow
frame = frame + 1
If frame > 35 Then frame = 0
End If
End If
angle = (frame-startframe)*10
x# = x# + Cos(angle)*speed#
y# = y# + Sin(angle)*speed#
DrawImage player, x#, y#, frame
Flip
Cls
Until KeyHit(1)
DrawImage intropic, 1,1
Flip
While Not KeyDown(57)
Wend
While Not KeyHit(1)
Cls
If KeyDown (200) y=y-2
If KeyDown (203) x=x-2
If KeyDown (205) x=x+2
If KeyDown (208) y=y+2
If KeyHit (31) PlaySound snd
DrawImage Player,x,y
Flip
Wend
i get: "not enough frames in bitmap" but uhm...what bitmap? i have taken the rotation code from a other topic. because i am a real beginner in this :) (crtl+v ctrl+c) :(
Global Player
Global snd
Graphics 800,600,16
SetBuffer BackBuffer()
Player= LoadImage("player.jpg")
intropic = LoadImage ("yakuza logo 2.jpg")
music = PlayMusic("dragonforce.mp3")
timer = CreateTimer(20)
ship = LoadAnimImage ("player.jpg", 113,113,0,36)
startframe = 27
frame = 27
Repeat
If speed# < 0 Then speed# = speed + .01
If speed# > 0 Then speed# = speed - .01
If KeyDown(200) Then ;UP Arrow
speed# = speed + .05
If speed# > 2 Then Speed# = 2
End If
If KeyDown(208) Then ;Down Arrow
speed# = speed - .05
If speed# < -2 Then Speed# = -2
End If
If timer+50 < MilliSecs() Then
timer = MilliSecs()
If KeyDown(203) Then ;Left Arrow
frame = frame - 1
If frame < 0 Then frame = 35
End If
If KeyDown(205) Then ;Right Arrow
frame = frame + 1
If frame > 35 Then frame = 0
End If
End If
angle = (frame-startframe)*10
x# = x# + Cos(angle)*speed#
y# = y# + Sin(angle)*speed#
DrawImage player, x#, y#, frame
Flip
Cls
Until KeyHit(1)
DrawImage intropic, 1,1
Flip
While Not KeyDown(57)
Wend
While Not KeyHit(1)
Cls
If KeyDown (200) y=y-2
If KeyDown (203) x=x-2
If KeyDown (205) x=x+2
If KeyDown (208) y=y+2
If KeyHit (31) PlaySound snd
DrawImage Player,x,y
Flip
Wend
i get: "not enough frames in bitmap" but uhm...what bitmap? i have taken the rotation code from a other topic. because i am a real beginner in this :) (crtl+v ctrl+c) :(