Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Exxsamuari

Members
  • Posts

    24
  • Joined

  • Last visited

    Never

Exxsamuari's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. 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
  2. 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
  3. 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
  4. 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
  5. 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.
  6. **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
  7. **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)
  8. ya jpeg and bmp share the same dpi so bmp works. png has a larger dpi thats why
  9. 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
  10. 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:
  11. 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
  12. 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.
×
×
  • Create New...