RyokuHasu
-
Posts
1938 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by RyokuHasu
-
-
O.o There IS already one of these currently too… and its better labled and kept nice and need, and updated reguarly.
-
I was thinking that too lol i might find i way to do that… Maby
-
@Lightning:
> You haven't seen what I've done with mine yet… xD
O.o you ever gona share? or do i have to become the leading person for pet modifications? lol -
you go in and remove it from the map at this point…. or kill it (if you can)
GO NEWS!!! Coming soon: Pet Stats scaling!!!! based on your level and STR the pet you summon will be stronger too =D
WIP: Pet armor, give your pet paperdoll armor and get it back when it dies or is disbanded.
;D im making your pets better... -
EDITED MULTI PET TUTORIAL!!!
Pets can now change maps again using the multiple pets tutorial.
(p.s. The pets don't Disband after death… i fixed it on mine... but i dont fell like sharing, too tired, good night =P)
| Link in my sig.
|
V -
**IMPORTANT EDIT**
I ADDED back in the ability to take pets with you when you change maps
Added:
```
SpawnPet index, MapNum, Trim$(Player(index).Pet.SpriteNum)
```
Find " 'switch maps" In modPlayer Add it under
```
PetDisband index, OldMap
```
if you already completed this tutorial before
(yes it was as simple as using Trim$…. if only i figued that out 2 days ago when this was released >.<) -
26\. Because the mods are forgiving when conditional things happen.
-
You know your a geek when you DO KNOW what programming language the universe is coded in.
-
Flerp derp dee doo. Flop weeeez nerk chefz. FLEEDLE DEEDLE!!!
-Proceeds to get naked and streaks across the forum- -
=P i know its not the exact same
BUT somtimes code breaks for an instant, its like that. One time while working on Bleach: Bladed's mirror people kept saying that thier kido spells were not calling the animations but still working (this is in a 3d combat MMO i made) I the code for some reason had a 1 in a 1000 chance of skiping the animation sequence, there was nothing i could do, i poured over it for 3 days looking for the problem, and cam back and said sorry, it looks fine. -
=P the animation is lost dut it still functions and attacks… be happy... also i found befor i changed systems that changing maps helps to....
Eddit: and as for spells on pets, I just did it and it worked, do you not have the hotbar fix? (to whoever said somthing about spells and pets) -
it shouldent, i have a Clucky in my game and i had it attack other clucky O.o (clucky = a chicken)
let me check this with pitting scrolled pets aginst thier wild selves more…
Edit nope: My FF7 person kill his own kind witout hesitation.... O.o that sounds messed up lol -
it dose that somtimes for me, i just respawn the pet XD … O.o witch wastes a scroll in my system XD
-
ya, but for more NPC's mat once you'd have to do a few mods… not shure how though yet XD lol
my best work comes from saying i cant do it, then doing it anyway lol -
Can you Pm me how to do that >.< sorry
-
Can you help me add it then? i dont know how to call the NPC number again in the map cahnge so it will fit the ner parameters of
sub callpet( index, mapnum, npcnum)
=/ i did add that last one… and i couldnt fighure out how to call the number of the pet -
I dont recomend "at once", less room for regular NPC and other pets, just use my system, only down side i had to get rid of the map thransfer of pets… and fsp would most likey be lost if one person was controling to much... MABY 2 at once , maby
-
Never mind… =X sorry i didnt relize yours was a better fix *bows* thank you =D
-
HEy did you add in my combat fix? you left it so if your pet dies there is an error, i fixed that…. you just have to disband still befor respawning... please take a look at the npc combat mod i posted on last page
-
Item GFX'ng
in Q & A
And use a universal sprite size with all the Player sprites so it matches all the charaters -
Got an slightly old computer lieing around? gathering dust? for the cost of a few FPS just run it off an old computer and leave it RUNING 24/7 … only closing it for updates and edits and sceduled down time.
-
nope i guess McAdams
-
if adding Mp3's are possible, im sure adding other inage types is possible, BUT
if you want to change image types easily use FREE and OPEN SOURCED GIMP
http://www.gimp.org/
The alternitive to ($500) Photoshop -
Sorry for tripple post but….
I FIXED IT =D your pet will now die ... and not cause error
basicly i made it check if the victim had an owner, if it did, its a pet, if it has no owner its a Regular NPC
i just took the victim commands from Player attacking NPC and addapted them to the "if-then-else" i made
and i added the loop remove target from all others for pet and NPC for mor complex battle conditions... i hope i helped... =D
* * *
Replace Sub NpcAttackNpc with:
```
Sub NpcAttackNpc(ByVal MapNum As Long, ByVal attacker As Long, ByVal Victim As Long, ByVal Damage As Long)
Dim i As Long
Dim Buffer As clsBuffer
Dim aNpcNum As Long
Dim vNpcNum As Long
Dim n As Long
Dim PetOwner As Long
If attacker <= 0 Or attacker > MAX_MAP_NPCS Then Exit Sub
If Victim <= 0 Or Victim > MAX_MAP_NPCS Then Exit Sub
If Damage <= 0 Then Exit Sub
aNpcNum = MapNpc(MapNum).Npc(attacker).Num
vNpcNum = MapNpc(MapNum).Npc(Victim).Num
If aNpcNum <= 0 Then Exit Sub
If vNpcNum <= 0 Then Exit Sub
'set the victim's target to the pet attacking it
MapNpc(MapNum).Npc(Victim).targetType = 2 'Npc
MapNpc(MapNum).Npc(Victim).target = attacker
' Send this packet so they can see the person attacking
Set Buffer = New clsBuffer
Buffer.WriteLong SNpcAttack
Buffer.WriteLong attacker
SendDataToMap MapNum, Buffer.ToArray()
Set Buffer = Nothing
If Damage >= MapNpc(MapNum).Npc(Victim).Vital(Vitals.HP) Then
SendActionMsg MapNum, "-" & Damage, BrightRed, 1, (MapNpc(MapNum).Npc(Victim).x * 32), (MapNpc(MapNum).Npc(Victim).y * 32)
SendBlood MapNum, MapNpc(MapNum).Npc(Victim).x, MapNpc(MapNum).Npc(Victim).y
' npc is dead.
'Call GlobalMsg(CheckGrammar(Trim$(Npc(vNpcNum).Name), 1) & " has been killed by " & CheckGrammar(Trim$(Npc(aNpcNum).Name)) & "!", BrightRed)
' Set NPC target to 0
'Check if the Attacker has an owner, if it dose its a pet
If MapNpc(MapNum).Npc(attacker).PetData.Owner <> 0 Then
'If the NPC died, follow this
MapNpc(MapNum).Npc(attacker).target = 0
MapNpc(MapNum).Npc(attacker).targetType = 0
'reset the targetter for the player
TempPlayer(MapNpc(MapNum).Npc(attacker).PetData.Owner).target = 0
TempPlayer(MapNpc(MapNum).Npc(attacker).PetData.Owner).targetType = TARGET_TYPE_NONE
PetOwner = MapNpc(MapNum).Npc(attacker).PetData.Owner
SendTarget PetOwner
' Drop the goods if they get it
'For n = 1 To MAX_NPC_DROPS
If Npc(vNpcNum).DropItem <> 0 Then
If Rnd <= Npc(vNpcNum).DropChance Then
Call SpawnItem(Npc(vNpcNum).DropItem, Npc(vNpcNum).DropItemValue, MapNum, MapNpc(MapNum).Npc(Victim).x, MapNpc(MapNum).Npc(Victim).y)
End If
End If
'Next
'Give the player the pet owner some experience from the kill
Call SetPlayerExp(PetOwner, GetPlayerExp(PetOwner) + Npc(MapNpc(MapNum).Npc(Victim).Num).exp)
CheckPlayerLevelUp PetOwner
SendActionMsg MapNum, "+" & Npc(MapNpc(MapNum).Npc(Victim).Num).exp & "EXP", Green, 1, GetPlayerX(PetOwner) * 32, GetPlayerY(PetOwner) * 32
SendEXP PetOwner
' Reset victim's stuff so it dies in loop
MapNpc(MapNum).Npc(Victim).Num = 0
MapNpc(MapNum).Npc(Victim).SpawnWait = GetTickCount
MapNpc(MapNum).Npc(Victim).Vital(Vitals.HP) = 0
'Loop through entire map and purge NPC from targets
For i = 1 To Player_HighIndex
If IsPlaying(i) And IsConnected(i) Then
If Player(i).Map = MapNum Then
If TempPlayer(i).targetType = TARGET_TYPE_NPC Then
If TempPlayer(i).target = Victim Then
TempPlayer(i).target = 0
TempPlayer(i).targetType = TARGET_TYPE_NONE
SendTarget i
End If
End If
End If
End If
Next
' send npc death packet to map
Set Buffer = New clsBuffer
Buffer.WriteLong SNpcDead
Buffer.WriteLong Victim
SendDataToMap MapNum, Buffer.ToArray()
Set Buffer = Nothing
PetFollowOwner PetOwner
Else
'If the Pet died Follow this
MapNpc(MapNum).Npc(Victim).Num = 0
' send death to the map
Set Buffer = New clsBuffer
Buffer.WriteLong SNpcDead
Buffer.WriteLong Victim
SendDataToMap MapNum, Buffer.ToArray()
Set Buffer = Nothing
'Loop through entire map and purge NPC from targets
For i = 1 To Player_HighIndex
If IsPlaying(i) And IsConnected(i) Then
If Player(i).Map = MapNum Then
If TempPlayer(i).targetType = TARGET_TYPE_NPC Then
If TempPlayer(i).target = Victim Then
TempPlayer(i).target = 0
TempPlayer(i).targetType = TARGET_TYPE_NONE
SendTarget i
End If
End If
End If
End If
Next
End If
Else
' npc not dead, just do the damage
MapNpc(MapNum).Npc(Victim).Vital(Vitals.HP) = MapNpc(MapNum).Npc(Victim).Vital(Vitals.HP) - Damage
' Say damage
SendActionMsg MapNum, "-" & Damage, BrightRed, 1, (MapNpc(MapNum).Npc(Victim).x * 32), (MapNpc(MapNum).Npc(Victim).y * 32)
SendBlood MapNum, MapNpc(MapNum).Npc(Victim).x, MapNpc(MapNum).Npc(Victim).y
End If
'Send both Npc's Vitals to the client
SendMapNpcVitals MapNum, attacker
SendMapNpcVitals MapNum, Victim
End Sub
```
[EO] Lightning's Pet System [Completely Bug-Free!]
in Source
Posted
Ill be lucky if i can ever pruduce 1/10th the stuff i want to make... lol