Code:
' Blit out players mid
For i = 1 To MAX_PLAYERS
If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
Call BltPlayermid(i)
End If
Next i
' Blit out players top
For i = 1 To MAX_PLAYERS
If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
Call BltPlayerTop(i)
End If
Next i
Code:
bltplayermid
Y = y – 32
If y <0 and y> -32 then
With rec
.top = .top – y
Y = 0
End with
End if
bltplayertop
y = y - 64
If y < 0 And y > -64 Then
With Rec
.top = .top - y
y = 0
End With
End If
Code:
.Top = GetPlayerSprite(Index) * PIC_Y + PIC_Y + pic_Y
I am not sure if this will work but I can't get it to work any idea's?