Submitted Tutorials: Feature 32x64 NPCs

Print Page | Close Window

Feature 32x64 NPCs

Printed From: Mirage Source
Category: Tutorials
Forum Name: Submitted Tutorials
Forum Discription: Tutorial submissions for MSE are posted here, waiting for approval
URL: http://ms.shannaracorp.com/backup-forums/forum_posts.asp?TID=548
Printed Date: 20 December 2006 at 6:07pm
Software Version: Web Wiz Forums 8.01 - http://www.webwizforums.com

Topic: Feature 32x64 NPCs

Posted By: Sign
Subject: Feature 32x64 NPCs
Date Posted: 27 March 2006 at 9:16pm

Tutorial By Sign.
Easy and Simple Tutorial, Feature 32x64 NPCs.

This is All Client

First Find:

        ' Blit out the npcs
        For i = 1 To MAX_MAP_NPCS
              Call BltNpc(i)
        Next i

Below That Add:

        ' Blit out the npcs top
        For i = 1 To MAX_MAP_NPCS
              Call BltNpcTop(i)
        Next i

Next Find "Public Sub BltNpc(ByVal MapNpcNum As Long)"
COPY That Whole Sub! Then Paste Below and Rename it to "Public Sub BltNpcTop(ByVal MapNpcNum As Long)"

Next in the Sub BltNpcTop at the Very Bottom of the sub
Find:

    ' Check if its out of bounds because of the offset
    If y < 0 Then
        y = 0
        With rec
              .top = .top + (y * -1)
        End With
    End If

Replace That With:

    ' Check if its out of bounds because of the offset
    y = y - 32
    If y < 0 And y > -32 Then
        With rec
               .top = .top - y
               y = 0
        End With
    End If

Then go to the BltNpc sub then

Find:

.top = GetPlayerSprite(Index) * PIC_Y

Replace With:

.top = GetPlayerSprite(Index) * PIC_Y + PIC_Y

And... Your Done!