Exxsamuari

HI i have a few questions on how to do some things in vb6, im not entirely new to vb6 just got stuck on a few things. if your alot of help i can make it worth your while $ 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

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)

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 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