Dennys Posted July 23, 2009 Author Share Posted July 23, 2009 I even added Custom Packets For SPAWNPET for if we have to Change somethign in it Link to comment Share on other sites More sharing options...
Ridrik Posted July 23, 2009 Share Posted July 23, 2009 Where did you added that code? Link to comment Share on other sites More sharing options...
Dennys Posted July 23, 2009 Author Share Posted July 23, 2009 ModGameLogicOr better yet CTRL+F "SpawnPet" Link to comment Share on other sites More sharing options...
Ridrik Posted July 23, 2009 Share Posted July 23, 2009 Blood, got it, ~~does this also has to go in client side?~~Just checked, it doesn't. Link to comment Share on other sites More sharing options...
Dennys Posted July 23, 2009 Author Share Posted July 23, 2009 no Its a server side Command. Only thing that goes to Client is the Packet. Link to comment Share on other sites More sharing options...
Ridrik Posted July 24, 2009 Share Posted July 24, 2009 Alright, so now what are we going to do? WE NEED TO FIND A WAY TO SPAWN, remember the time i told you about pet folder? maybe that's where we are going to get the pets? Link to comment Share on other sites More sharing options...
Dennys Posted July 24, 2009 Author Share Posted July 24, 2009 Umm How about we make a ScriptSpawnPet? Use sadscript? And then We make it Have an owner Upon Spawning, and make it follow owner? Link to comment Share on other sites More sharing options...
Ridrik Posted July 24, 2009 Share Posted July 24, 2009 Yeah let's try that, but also i had this idea, what if we take somebody's basic regular npc spawn, and change into PET, it should work. How about you try your idea and i'll try mine? Link to comment Share on other sites More sharing options...
Dennys Posted July 24, 2009 Author Share Posted July 24, 2009 No im tired of scripting for today my brain might pop again and it hurts *sniff*, Anyways like hell i know how to make it follow you lol Link to comment Share on other sites More sharing options...
Ridrik Posted July 24, 2009 Share Posted July 24, 2009 YOU DO??? lol i was thinking modifying this code:```If LCase(Mid(TextSay, 1, 6)) = "/spawn" ThenCount = 0q = 8a = 11If Len(Textsay) < 28 Then Exit SubEnd IfDo While q <= Len(TextSay)Select Case CountCase 0If LCase(Mid(TextSay, Int(q), 1)) = " " ThenNPC = Int(Mid(TextSay, a, Int(q) - a))Count = Count + 1a = q + 5End IfCase 1If LCase(Mid(TextSay, Int(q), 1)) = " " ThenSlot = Int(Mid(TextSay, a, Int(q) - a))Count = Count + 1a = q + 4End IfCase 2If LCase(Mid(TextSay, Int(q), 1)) = " " ThenMap = Int(Mid(TextSay, a, Int(q) - a))Count = Count + 1a = q + 2End IfCase 3If LCase(Mid(TextSay, Int(q), 1)) = " " ThenX = Int(Mid(TextSay, a, Int(q) - a))Count = Count + 1a = q + 2End IfCase 4If q = Len(TextSay) ThenY = Int(Mid(TextSay, a, Int(q) - a + 1))End If End Selectq = q +1LoopCall ScriptSpawnNPC(Int(NPC), Int(Map), Int(X), Int(Y), Int(Slot))Exit SubEnd If```modify it to the pet thing… you think it will work? Link to comment Share on other sites More sharing options...
Dennys Posted July 24, 2009 Author Share Posted July 24, 2009 I think i can make it work but it wont work without the ScriptSpawnPet >.> Link to comment Share on other sites More sharing options...
Ridrik Posted July 24, 2009 Share Posted July 24, 2009 Well get to work! Come on we need to finish!!! ;) I'm trying to get some other script done for the pets. Link to comment Share on other sites More sharing options...
Dennys Posted July 24, 2009 Author Share Posted July 24, 2009 How about this When you fiinish doign what your doing send it to me and ill do some stuff, taht way well both be up to date… Link to comment Share on other sites More sharing options...
Ridrik Posted July 24, 2009 Share Posted July 24, 2009 That's what i just said, i am working on getting some scriptes worked up too. Link to comment Share on other sites More sharing options...
Dennys Posted July 24, 2009 Author Share Posted July 24, 2009 Alright im prety sure these 2 Commands Work, POut them in ClsCommands On server:~~W8 NVM~~```Sub ScriptRemovePet(ByVal MapPetNum As Long, ByVal MapNum As Long)  ' NPC_index       map_number     X spawn     Y spawn      NPC_number  Dim packet As String  Dim I As Long  ' Check for subscript out of range  If MapPetNum < 0 Or MapPetNum > MAX_MAP_PETS Or MapNum <= 0 Or MapNum > MAX_MAPS Then    Exit Sub  End If  Map(MapNum).Revision = Map(MapNum).Revision + 1  MapPET(MapNum, MapPetNum).num = 0  Map(MapNum).NPC(MapPetNum) = 0  MapPET(MapNum, MapPetNum).Target = 0  MapPET(MapNum, MapPetNum).HP = 0  MapPET(MapNum, MapPetNum).MP = 0  MapPET(MapNum, MapPetNum).SP = 0  MapPET(MapNum, MapPetNum).Dir = 0  MapPET(MapNum, MapPetNum).X = 0  MapPET(MapNum, MapPetNum).Y = 0  packet = "SPAWNPET" & SEP_CHAR & MapPetNum & SEP_CHAR & MapPET(MapNum, MapPetNum).num & SEP_CHAR & MapPET(MapNum, MapPetNum).X & SEP_CHAR & MapPET(MapNum, MapPetNum).Y & SEP_CHAR & MapPET(MapNum, MapPetNum).Dir & SEP_CHAR & PETS(MapPET(MapNum, MapPetNum).num).Big & END_CHAR  Call SendDataToMap(MapNum, packet)  Call SaveMap(MapNum)  For I = 1 To MAX_PLAYERS    If IsPlaying(I) And GetPlayerMap(I) = MapNum Then      Call SendDataTo(I, "CHECKFORMAP" & SEP_CHAR & GetPlayerMap(I) & SEP_CHAR & Map(GetPlayerMap(I)).Revision & END_CHAR)    End If  Next IEnd SubSub ScriptSpawnPet(ByVal MapPetNum As Long, ByVal MapNum As Long, ByVal spawn_X As Long, ByVal spawn_Y As Long, ByVal PETnum As Long)  ' NPC_index       map_number     X spawn     Y spawn      NPC_number  Dim packet As String  Dim I As Long  ' Check for subscript out of range  If MapPetNum < 0 Or MapPetNum > MAX_MAP_PETS Or MapNum <= 0 Or MapNum > MAX_MAPS Then    Exit Sub  End If  If PETnum = 0 Then    Map(MapNum).Revision = Map(MapNum).Revision + 1    MapPET(MapNum, MapPetNum).num = 0    Map(MapNum).NPC(MapPetNum) = 0    MapPET(MapNum, MapPetNum).Target = 0    MapPET(MapNum, MapPetNum).HP = 0    MapPET(MapNum, MapPetNum).MP = 0    MapPET(MapNum, MapPetNum).SP = 0    MapPET(MapNum, MapPetNum).Dir = 0    MapPET(MapNum, MapPetNum).X = 0    MapPET(MapNum, MapPetNum).Y = 0    ' Packet = "SPAWNNPC" & SEP_CHAR & MapNpcNum & SEP_CHAR & MapNpc(mapnum, MapNpcNum).num & SEP_CHAR & MapNpc(mapnum, MapNpcNum).X & SEP_CHAR & MapNpc(mapnum, MapNpcNum).Y & SEP_CHAR & MapNpc(mapnum, MapNpcNum).Dir & SEP_CHAR & Npc(MapNpc(mapnum, MapNpcNum).num).Big & END_CHAR    ' Call SendDataToMap(mapnum, Packet)    Call SaveMap(MapNum)  End If' MapNpc(mapnum, MapNpcNum).num = 0' MapNpc(mapnum, MapNpcNum).SpawnWait = GetTickCount' MapNpc(mapnum, MapNpcNum).HP = 0' Call SendDataToMap(mapnum, "NPCDEAD" & SEP_CHAR & MapNpcNum & END_CHAR)  Map(MapNum).Revision = Map(MapNum).Revision + 1  MapPET(MapNum, MapPetNum).num = PETnum  Map(MapNum).PET(MapPetNum) = PETnum  MapPET(MapNum, MapPetNum).Target = 0  MapPET(MapNum, MapPetNum).HP = GetNpcMaxHP(PETnum)  MapPET(MapNum, MapPetNum).MP = GetNpcMaxMP(PETnum)  MapPET(MapNum, MapPetNum).SP = GetNpcMaxSP(PETnum)  MapPET(MapNum, MapPetNum).Dir = Int(Rnd * 4)  MapPET(MapNum, MapPetNum).X = spawn_X  MapPET(MapNum, MapPetNum).Y = spawn_Y  packet = "SPAWNPET" & SEP_CHAR & MapPetNum & SEP_CHAR & MapPET(MapNum, MapPetNum).num & SEP_CHAR & MapPET(MapNum, MapPetNum).X & SEP_CHAR & MapPET(MapNum, MapPetNum).Y & SEP_CHAR & MapPET(MapNum, MapPetNum).Dir & SEP_CHAR & PETS(MapPET(MapNum, MapPetNum).num).Big & END_CHAR  Call SendDataToMap(MapNum, packet)  Call SaveMap(MapNum)  For I = 1 To MAX_PLAYERS    If IsPlaying(I) And GetPlayerMap(I) = MapNum Then      Call SendDataTo(I, "CHECKFORMAP" & SEP_CHAR & GetPlayerMap(I) & SEP_CHAR & Map(GetPlayerMap(I)).Revision & END_CHAR)    End If  Next IEnd Sub```Sorry i had to Fix Somethign On them Heres the New Ones Link to comment Share on other sites More sharing options...
Ridrik Posted July 24, 2009 Share Posted July 24, 2009 Okay, are you going to post them? Link to comment Share on other sites More sharing options...
Dennys Posted July 24, 2009 Author Share Posted July 24, 2009 They areScriptSpawnPet(PetMapNum, Map, X, Y, PetNum)andScriptRemovePet(PetMapNum, Map) Link to comment Share on other sites More sharing options...
Ridrik Posted July 24, 2009 Share Posted July 24, 2009 WOOOOOOOOOOOOOOHHHHHHHHHHHOOOOOOOO!!! did u test it? Link to comment Share on other sites More sharing options...
Dennys Posted July 24, 2009 Author Share Posted July 24, 2009 No but im 80% sure it will Work, you need to Sadscript the command for it to workI tested AND IT COMPILED IF THATS WHAT YOU WERE ASKING Link to comment Share on other sites More sharing options...
Patrick Posted July 24, 2009 Share Posted July 24, 2009 MY god you did alot whileI was away! Link to comment Share on other sites More sharing options...
Ridrik Posted July 24, 2009 Share Posted July 24, 2009 ugh pm that guy that wanted to help. but he is offline Link to comment Share on other sites More sharing options...
Patrick Posted July 24, 2009 Share Posted July 24, 2009 INH?Anyway what have you done? In a list. Link to comment Share on other sites More sharing options...
Dennys Posted July 24, 2009 Author Share Posted July 24, 2009 We have Debugged everythign weve done lol, all that needs left to do is Test Before we can start Stafge 2, Ill write a script for you ridrik Link to comment Share on other sites More sharing options...
Patrick Posted July 24, 2009 Share Posted July 24, 2009 Has the checking for attack if you have a pet been done? Like if you have a pet the pet attacks too? Link to comment Share on other sites More sharing options...
Ridrik Posted July 24, 2009 Share Posted July 24, 2009 Alright, pm it to me.EDIT: Mcnugget, first of all we need to SPAWN pet + move it, than attack and all that crap that everyone wants. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now