Exxsamuari
-
Posts
24 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by Exxsamuari
-
-
Ok so like before this have it call a sub like
Sub paperdoll
For i = 1 To Max_players
Call getplayerdirection(i)
Select case
Case up
Case down
Case left
Case right
Exit sub
I'll try it once I get home thanks for the help -
well the engine is setup to set paperdoll order for everyone not just the player, i was wondering if anyone knows how to make paperdoll order separate between different players and what direction there facing
-
ok this is what i have so far but not sure where to go from here =( i need to have it get a players direction and set it to there direction but i thing this would apply to everyone depending on your direction =P when i need it to change for each person
im using 3.0 btw
' set the paperdoll order
ReDim PaperdollOrder(1 To Equipment.Equipment_Count - 1) As Long
Select Case GetPlayerDir()
Case DIR_UP
PaperdollOrder(1) = Equipment.Boots
PaperdollOrder(2) = Equipment.Legs
PaperdollOrder(3) = Equipment.Armor
PaperdollOrder(4) = Equipment.Helmet
PaperdollOrder(5) = Equipment.Ring
PaperdollOrder(6) = Equipment.Cape
PaperdollOrder(7) = Equipment.Enchant
PaperdollOrder(8) = Equipment.Shield
PaperdollOrder(9) = Equipment.Weapon
Case DIR_DOWN
PaperdollOrder(1) = Equipment.Shield
PaperdollOrder(2) = Equipment.Weapon
PaperdollOrder(3) = Equipment.Boots
PaperdollOrder(4) = Equipment.Legs
PaperdollOrder(5) = Equipment.Armor
PaperdollOrder(6) = Equipment.Helmet
PaperdollOrder(7) = Equipment.Ring
PaperdollOrder(8) = Equipment.Enchant
PaperdollOrder(9) = Equipment.Cape
Case DIR_LEFT
PaperdollOrder(1) = Equipment.Weapon
PaperdollOrder(2) = Equipment.Boots
PaperdollOrder(3) = Equipment.Legs
PaperdollOrder(4) = Equipment.Armor
PaperdollOrder(5) = Equipment.Helmet
PaperdollOrder(6) = Equipment.Ring
PaperdollOrder(7) = Equipment.Enchant
PaperdollOrder(8) = Equipment.Cape
PaperdollOrder(9) = Equipment.Shield
Case DIR_RIGHT
PaperdollOrder(1) = Equipment.Shield
PaperdollOrder(2) = Equipment.Boots
PaperdollOrder(3) = Equipment.Legs
PaperdollOrder(4) = Equipment.Armor
PaperdollOrder(5) = Equipment.Helmet
PaperdollOrder(6) = Equipment.Ring
PaperdollOrder(7) = Equipment.Enchant
PaperdollOrder(8) = Equipment.Cape
PaperdollOrder(9) = Equipment.Weapon
End Select -
i fixed it lol sorry bout that.
-
10 seemed to do the best rendering wise, for some reason 25 and up wouldn't show the arrow at times when you shoot but 10 seemed to do the trick.
-
**Here is a simple fix for **wabbits range system [3.0]** **where it killed your cps, this checks for the arrows every tenth of a second instead of every loop.****
In ModServerLoop
Find Sub Server Loop
ADD
> Dim PT10 As Long
UNDER
> Sub ServerLoop()
>
> Dim i As Long, x As Long
>
> Dim Tick As Long, TickCPS As Long, CPS As Long, FrameTime As Long
>
> Dim tmr25 As Long, tmr500 As Long, tmr1000 As Long, tmr20000 As Long
>
> Dim LastUpdateSavePlayers, LastUpdateMapSpawnItems As Long, LastUpdatePlayerVitals As Long
Find
> For i = 1 To Player_HighIndex
>
> If IsPlaying(i) Then
>
> For x = 1 To MAX_PLAYER_PROJECTILES
>
> If TempPlayer(i).ProjecTile(x).Pic > 0 Then
>
> ' handle the projec tile
>
> HandleProjecTile i, x
>
> End If
>
> Next
>
> End If
>
> Next
Replace With This
> If Tick > PT100 Then
>
> For i = 1 To Player_HighIndex
>
> If IsPlaying(i) Then
>
> For x = 1 To MAX_PLAYER_PROJECTILES
>
> If TempPlayer(i).ProjecTile(x).Pic > 0 Then
>
> ' handle the projec tile
>
> HandleProjecTile i, x
>
> End If
>
> Next
>
> End If
>
> PT10 = GetTickCount + 10
>
> Next
>
> End If -
**CHECK OUT** [oÇɹo](http://www.touchofdeathforums.com/community/index.php?/user/67363-o%C7%9D%C9%B9o/) **VERSION FOR NON HARD CODED VERSION OF THIS SCRIPT [HERE](http://www.touchofdeathforums.com/community/index.php?/topic/129037-ammo-for-range-projectiles-30-not-hardcoded/)**
ok i made a easy script to make your projectiles take ammunition like arrows and spells to have runes
THIS IS ALL DONE SERVER SIDE
Make Sure Item 2 Is Projectile Ammunition
Make Sure Item 3 Is Spell Ammunition
Make sure the Ammunition is Currency so you can stack it
–-Projectile---
In Private Sub HandleProjecTileAttack
Under
Dim curProjecTile As Long, i As Long, CurEquipment As Long
Add
If HasItem(Index, 2) <= 0 Then
Call PlayerMsg(Index, "You Dont Have Any Arrows!", BrightRed)
Exit Sub
End If
Call TakeInvItem(Index, 2, 1)
---Spell---
In Public Sub BufferSpell
Under
' make sure the classreq > 0
If ClassReq > 0 Then ' 0 = no req
If ClassReq <> GetPlayerClass(Index) Then
Call PlayerMsg(Index, "Only " & CheckGrammar(Trim$(Class(ClassReq).Name)) & " can use this spell.", BrightRed)
Exit Sub
End If
End If
Add
If HasItem(Index, 3) <= 0 Then
Call PlayerMsg(Index, "you Dont Have Any Runes!", BrightRed)
Exit Sub
End If
Call TakeInvItem(Index, 3, 1)
And Easy as that you have Ammo For spells Or Projectiles =) -
lol not ready, ill make a fix and make a new guide
-
ya jpeg and bmp share the same dpi so bmp works. png has a larger dpi thats why
-
THIS DOES NO WORK FOR 3.0
-
well if i have 10 of currency 1 and 10 of currency 2 i go to buy somthing tha costs 1 currency and 1 currency 2 and says "you do not have enough o buy this item" even though i do and it dosnt take items
-
Can you fix this guide it dosn't work and i would really like to add it. i have been trying for 4 hours now to get it to work its driving me mad :mad:
-
ok this guides all messed up i have tried to do this 6 times now and still not working, does anyone know the correct way to add this guide? i have read the comments on what needs to be changed and still good.
[EO + 3.0] [Updated 1.1] Shop improvements - multiple item cost value
http://www.touchofdeathforums.com/smf2/index.php/topic,81143.0.html
* or a better way than this because zerohero obvesly dosn't have his stuff organized and made sure it works himself -
how would you make somones charactor stay logied in 10 seconds after they exit?
i need this because in pvp if someone just decides to logout before they die and get away, or fighting a mob. thats crap lol
i have no idea where i might start this please let me know if you have any idea thanks. -
so i can use .bmp as forms instead? jpg just seems to blur the image and dont want to use it
-
Ok, i changed all the file extensions to be .png instead of .Jpg and it keeps coming up error.
i have main - main3 in the folder saved as .png but keeps saying invalid image error 481 and points to this, would the dpi difference be the cause of this? -
armor is not working, i know that to set dmg as the armor which is Item(armor).data2\. script looks good and cant figure out why it is not adding the armor up :sad:
i made some random armor with damage 255 and made a npc with 10 dmg atk me and it always did damage when it shouldn't have done any.
Function GetPlayerProtection
>! Function GetPlayerProtection(ByVal index As Long) As Long
Dim Armor As Long
Dim Helm As Long
GetPlayerProtection = 0
>! ' Check for subscript out of range
If IsPlaying(index) = False Or index <= 0 Or index > Player_HighIndex Then
Exit Function
End If
>! Armor = GetPlayerEquipment(index, Armor)
Helm = GetPlayerEquipment(index, Helmet)
GetPlayerProtection = (GetPlayerStat(index, Stats.Endurance) \ 5)
>! If Armor > 0 Then
GetPlayerProtection = GetPlayerProtection + Item(Armor).Data2
End If
>! If Helm > 0 Then
GetPlayerProtection = GetPlayerProtection + Item(Helm).Data2
End If
>! End Function
i changed these for both situations
' take away Armour (pvp)
Damage = Damage - GetPlayerProtection(Victim)
' take away Armour (npc atk player)
Damage = Damage - GetPlayerProtection(Index)
did i do this right? and to verify i checked armor in your client/server and it didn't work to begun with -
ya i have a amd 8 core 3.2ghz server with 16gb ram, used to use it with minecraft. ill keep testing out what might cause this weird lag
-
i noticed something odd, when i have 2 games open an have a character shoot, the player shooting cannot see the arrow sometimes but the other character can see it fine. anyone aware of this?
also it seems the pic screen dosnt load actions done by the player fast enough, like droping and picking up items
*edit: I have been testing and it seems the lastplayer to login dosnt get the weird slow loading lag, but anyone before the last person to login gets the lag, i havent tested yet using multiple computers -
figured it out i was missing Sub HandleProjectile, i feel stupid lol
-
Forget i posted fixed the problem, =) :P
-
damn thats gona take forever one at a time =/ is there a way to make it transparent like how it used to be?
-
im having an issue with transparency. will i have to set each images transparency or whats the default color? please see the picture i attached to understand
Looking for Vb6 help Via Skype
in Q & A
Posted
Example
how the client getting info from server, like exp and such, there are a few ill just have to ask in person.
my skype is Exxsamuari ill be on usually all the time