DopeyBiach
-
Posts
81 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by DopeyBiach
-
-
Here you go, cheers for the help Wabbit ^^
```
Sub PetDisband(ByVal index As Long, ByVal MapNum As Long)
Dim i As Long, j As Long
If TempPlayer(index).TempPetSlot < 1 Then Exit Sub
'Cache the Pets for players logging on [Remove Number from array]
'THIS IS KINDA SLOW (EVEN WITHOUT TESTING, LOL), MAY HAVE TO CONVERT TO LINKED LIST FOR SPEED
For i = 1 To PetMapCache(MapNum).UpperBound
If PetMapCache(MapNum).Pet(i) = TempPlayer(index).TempPetSlot Then
If PetMapCache(MapNum).UpperBound > 1 Then
For j = PetMapCache(MapNum).UpperBound To i Step -1
PetMapCache(MapNum).Pet(j - 1) = PetMapCache(MapNum).Pet(j)
Next
Else
PetMapCache(MapNum).Pet(1) = 0
End If
PetMapCache(MapNum).UpperBound = PetMapCache(MapNum).UpperBound - 1
Exit For
End If
Next
Call ClearSingleMapNpc(TempPlayer(index).TempPetSlot, MapNum)
Map(GetPlayerMap(index)).NPC(TempPlayer(index).TempPetSlot) = 0
TempPlayer(index).TempPetSlot = 0
're-warp the players on the map
For i = 1 To Player_HighIndex
If IsPlaying(i) Then
If GetPlayerMap(i) = GetPlayerMap(index) Then
Call PlayerWarp(i, GetPlayerMap(i), GetPlayerX(i), GetPlayerY(i))
SendPlayerData index
End If
End If
Next
End Sub
Public Type PetCache
Pet(1 To MAX_MAP_NPCS) As Long
UpperBound As Long
End Type
Public PetMapCache(1 To MAX_MAPS) As PetCache
```
Btw, Lightning (I saw you reading my post), I know that you had trouble with a few inconsiderate/ungrateful people who wished to use this system, I'm not one, I admit it's my mistake entirely, and any help would be appreciated, and I wont flame or anything like that, I'm desperate to use this D: -
@GoldSide:
> will you add this
> ```
> Public Type PetCache
> Pet(1 To MAX_MAP_NPCS) As Long
> UpperBound As Long
> End Type
>
> Public PetMapCache(1 To MAX_MAPS) As PetCache
>
> ```
Already have it :[ (And just tried re-adding it in a load of places)
THanks though :] -
I've been wanting to use this amazing system in my game for a LONG time now, however I always run into the same problem, I've given up, re-tried, given up, re-tried, and so on.. I'm not just whimpering and whining over the first error, I know it's going to be an obvious mistake somewhere, but I ALWAYS run into this error..
"Compile Error"
"Sub or Function not defined"
On this line:
```
For i = 1 To PetMapCache(MapNum).UpperBound
```
In the Sub PetDisband in modGameLogic..
Can someone PLEASE help, I've tried all I can think of, which isn't much seeing as I'm an amateur in VB6\.
All help will be HUGELY appreciated in aiding me to use this amazing system. Thanks again.
EDIT: This is Server-Side. -
Sorry for the necro but…
I love them tiger sprites. -
Cheers for all the ideas/criticisms and such, will take it all into consideration, remember this is my first, meaning there will be a second. Which will have all your improvement ideas and such implemented into it..
Once again thanks, main point atm I think would be to add a sort of theme to it. -
@Scootaloo:
> Try looking for "HandleKeyPresses" ..
@DopeyBiach:
> Ugh still no luck, theres nothing in modinput to do with the F1-12 buttons :/ Any ideas?? PLEASE D: -
Ugh still no luck, theres nothing in modinput to do with the F1-12 buttons :/ Any ideas?? PLEASE D:
-
Willdo thankyou :DDD
-
Oops sorreh, :sad:
Your apparently a phat coder.. You have any ideas D:? -
-
How would I go about making it so that when I hold down a specific key, it doesn't rapidly use it..
Example:
So that if you hold down CTRL you attack ONCE, rather than repeatedly
However I want it so it's not as irritating focusing on the chatbox using enter.
PLEASE HELP MEH D: -
@ZoSo:
> Looks kinda oldschool, like in the stuff people did back in 2005 for mirage based games. I like it a bit..
Think think it looks oldsschool? I thought it was.. Idk wtf it is tbh. Cheers :D -
@Draconix:
> For the chatbox, either don't use shading or make it a smooth gradient, not an abrupt transition between two shades.
> I also strongly dislike the bar at the top with your game's name, unless that's not part of the GUI itself :p
> The buttons could be shifted down a bit so there's even space between the Ping bar and the Inventory window.
> Overall, though, for your first GUI, that's actually pretty decent :)
Thanks :D.. Didnt notice the buttons were so high cheers ^__^.
And the bar at the top is my xp theme lool :D -
I've remade conversations, quests, maps, buttons, shops, etc the lot in the same style. :D
Wha you think?
How could I improve it?
Would you use it?
Preview:
(Has been sized down to avoid it getting robbed)
>! 
EDIT: This is old, view my new one here :D…
```
http://www.touchofdeathforums.com/smf/index.php/topic,78103.0.html
``` -
@Boko:
> Well I play WoW so I'm use to it :P
>
> For those interested in the return key toggle chat method, here's the code:
> (Full Client Side, it's not too different to the OP's method)
> **(Updated with fix from 2nd page)**
> **In modGlobals:**
> _Add:_
> ```
> ' Chat Focus
> Public ChatFocus As Boolean
> Public KeyDown As Boolean
> ```
> **In modGeneral:**
> _Replace entire_ **Public Sub SetFocusOnChat** _with:_
> ```
> Public Sub SetFocusOnChat()
> On Error Resume Next 'prevent RTE5, no way to handle error
> If ChatFocus = False Then
> ChatFocus = True
> frmMain.txtMyChat.SetFocus
> ElseIf ChatFocus = True Then
> ChatFocus = False
> frmMain.picScreen.SetFocus
> End If
> End Sub
> ```
> **In modGeneral:**
> _In_ **Sub GameInit**_, just before_ **Call SetFocusOnChat**_, Add:_
> ```
> ChatFocus = True ' Default to screen focus
> ```_Also, move the following above the_ **Call SetFocusChat** _instead of below it (because it's not possible to set focus on picScreen if it's not visible yet)_
> ```
> frmMain.picScreen.Visible = True
> ```
> **In modInput:**
> _Replace:_
> ```
> If GetKeyState(vbKeyReturn) < 0 Then
> CheckMapGetItem
> End If
> ```_With: (Replace_ **NEWKEY** _with which ever key you'd prefer to have for picking up items)_
> _(If you're going the route of WASD movement, a key like Q wouldn't be a bad choice, replace with_ **vbKeyQ** _for example)_
> ```
> If GetKeyState(vbKeyNEWKEY) < 0 Then
> CheckMapGetItem
> End If
> ```
> _Just under or above that add:_
> ```
> If GetKeyState(vbKeyReturn) < 0 And KeyDown = False Then
> KeyDown = True
> ElseIf Not GetKeyState(vbKeyReturn) < 0 And KeyDown = True Then
> KeyDown = False
> Call SetFocusOnChat
> End If
> ```
> You may now also add OP's WASD movement config to this **modInput** _file._
> _But I recommend just adding Or statements to the arrow key ones instead of making new individual statements, for example:_
> _Replace:_
> ```
> If GetKeyState(vbKeyUp) < 0 Then
> ```_With:_
> ```
> If GetKeyState(vbKeyUp) < 0 Or GetKeyState(vbKeyW) < 0 Then
> ```
> _You will still need the_ **ChatFocus** _if statement around them to ensure you're not moving when typing w/a/s/d.
> You may also prefer to wrap it around all the key presses to ensure when you're typing, you're only typing. (If you were to attempt to paste something in to the chat for example and you're standing next to someone, you're going to end up accidentally hitting them by the control key press.)_
>
> **Optional Step:**
>
> **In frmMain (Code):**
> _In_ **Private Sub picScreen_MouseDown** _Remove/Comment:_
> ```
> Call SetFocusOnChat
> ```_(This causes the return key to be the only method of switching focus, but it's not required.. personally preference)_
>
> I might be forgetting something, I patched this up in just a couple minutes by looking at OP's code.
I tried using this, and when chat was focused I could still move. This is a better way of doing the keys I personally think, when chat isnt focused you can use up, down, left, right, w, a, s & d to move. When it IS focused you cant move.
This is my method (Also first code ive ever changed personally OMG :DDDD lmfao:
DISABLE MOVEMENT WHILE CHAT IS FOCUSED
```
'Move Right
If ChatFocus = False Then
If GetKeyState(vbKeyRight) < 0 Or GetKeyState(vbKeyD) < 0 Then
DirUp = False
DirDown = False
DirLeft = False
DirRight = True
Exit Sub
Else
DirRight = False
End If
End If
If ChatFocus = True Then
If GetKeyState(vbKeyD) < 0 Then
DirUp = False
DirDown = False
DirLeft = False
DirRight = False
End If
End If
```
Then rinse and repeat :D
EDIT:
To stop focusing on the chat box whenever you equip/use something:
Find:
```
If x > picInventory.width - 10 Then
```Then null out the line above it with a ' like so..
```
'SetFocusOnChat
If x > picInventory.width - 10 Then
``` -
Hey I replied :P :D
-
@Justn:
> Driving home ill help in a few ur using the one I posted right?
Yea :D.. Cheers lol. I was so excited when it all looked like it was perfect, til I logged back in -_-.. Meh :P -
I see Justn!!!! Omg you MUST know the answer x3 :DDDDDDD
-
@Soul:
> Can you post the tutorial (if any) you used to do this? It may help with the support process.
This one :]
```
http://www.touchofdeathforums.com/smf/index.php/topic,75028.0.html
```
I'm using [EO] 2.0
I know the tut isn't for 2.0 specifically, buh it worked perfectly, APART from the fact whenever I log the items aren't in my inv?? Theyre fine til then. Oh, also they all equip perfectly except 'accessory', dont really care too much bout that though lol..
Thanks again :D -
I've got extra item slots in EO.. And the 'new' items, such as accessories and rings etc disappear on log out, and I don't know why, they equip fine, draw fine, etc, but when I log out and back in they're gone?
Any help would be HUGELY appreciated :cheesy: -
@game_heaven:
> chek ur inbox lol
> would you prefer (im asking advise)
> -AF with hamachi (easy to install and use ,no lag at all)
> -AF with server normal (no Portfowarding because its a modem) (allot of lag)
Hamachi lol, read your own pros and cons :L -
Ill be glad to help, you can use my resources from here, and if you want anything, pm me and ill do my best, will consider your offer though, cheers :]
-
Merging into one thread.
-
Glad you like them :].. I went to take a peek but..
"Sorry, this page was not found"
Whats the link again..? :P
Also, sorry, but Im only making them for my localhost game, and sharing them, dont want to dive into a live project just yet, will consider it in the future though :]
Lightning's Pet System "Sub or Function not defined" [SOLVED]
in Source
Posted
"Compile Error:"
"Only comments may appear after End Sub, End Function or End Property"
Here:
```
Public PetMapCache(1 To MAX_MAPS) As PetCache
Public Type PetCache
Pet(1 To MAX_MAP_NPCS) As Long
UpperBound As Long
End Type
```
Ugh sorry for being such a pain, I really should've learnt more VB before I starting piling my porblems onto other people, am learning though, slowly.