Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Pet System script (No Longer Beign Worked On)


Dennys
 Share

Recommended Posts

  • Replies 417
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Each of us is handling one part at a time.
This is the stuff we're doing

> NpcvsNpc
> A script which makes the pet follow the user
> Using the weapon levelling script to make the pet level up.
> Making the pet attack when you attack.
> Check How many npc's are on map before summoning and if there are 15 don't allow the warp or summon continue.
> On map load sub to do the above ^
> Check if you have already gotten a pet out and if so then don't allow it to come.
> A /unsummon command to make the pet go away
> The pet to have stats which determine what it attacks.
> A different coloured attack bubble for the pet's attacks.

I'm doing the pet's stats and stuff.
Link to comment
Share on other sites

Ok. I'm working on the Pet Sub.

EDIT: Would this work? Or is there a way to get the player's account folder?
```
GetVar(App.Path & "Accounts\"Function GetPlayerLogin(ByVal index As Long) As String"\Pets.ini", "PET", "LEVEL")
```
Link to comment
Share on other sites

Mcnugget do you read posts or just simply post? i already posted a source for the pet level up and it's Petstats.ini

EDIT: Also there's lots of client side changes, like i'm working on a complete window for pet creation just like npc creation.
Link to comment
Share on other sites

CLIENT SIDE EDIT:

```
' :::::::::::::::::::::::::
    ' :: Npc movement packet ::
    ' :::::::::::::::::::::::::
    If (casestring = "npcmove") Then
        i = Val(parse(1))
        X = Val(parse(2))
        y = Val(parse(3))
        Dir = Val(parse(4))
        n = Val(parse(5))

        MapNpc(i).X = X
        MapNpc(i).y = y
        MapNpc(i).Dir = Dir
        MapNpc(i).xOffset = 0
        MapNpc(i).yOffset = 0
        MapNpc(i).Moving = 1

        If n <> 1 Then
            Select Case MapNpc(i).Dir
                Case DIR_UP
                    MapNpc(i).yOffset = PIC_Y * Val(n - 1)
                Case DIR_DOWN
                    MapNpc(i).yOffset = PIC_Y * -n
                Case DIR_LEFT
                    MapNpc(i).xOffset = PIC_X * Val(n - 1)
                Case DIR_RIGHT
                    MapNpc(i).xOffset = PIC_X * -n
            End Select
        Else
            Select Case MapNpc(i).Dir
                Case DIR_UP
                    MapNpc(i).yOffset = PIC_Y
                Case DIR_DOWN
                    MapNpc(i).yOffset = PIC_Y * -1
                Case DIR_LEFT
                    MapNpc(i).xOffset = PIC_X
                Case DIR_RIGHT
                    MapNpc(i).xOffset = PIC_X * -1
            End Select
        End If

        Exit Sub
    End If
```
This is in client side, need to make a new one just like this, but for pet.

EDIT: Ugh there's so much to do. Well imma start in a few hours, at the end of the day i'll post a READY client side, if i actually finish. but lots of work needs to be done. ALOT. It's easy but alot :(
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share


×
×
  • Create New...