Mirage Source

' 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

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

.Top = GetPlayerSprite(Index) * PIC_Y + PIC_Y + pic_Y