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

TorenRenne

Members
  • Posts

    146
  • Joined

  • Last visited

    Never

TorenRenne's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. Similar to my PC build I did at the start of the year. My spec was: **CPU:** Intel Core i5-3570k 3.4GHz Quad-Core Processor **Motherboard:** Gigabyte GA-Z77-DS3H **Memory:** G.Skill Ripjaws Series 8GB (2 x 4GB) DDR3-1600 Memory **Storage:** OCZ 128GB SSD **Storage:** Western Digital Caviar Black 1TB 3.5" 7200RPM **Video Card:** Nvidia GeForce GTX480 1.5GB (Free) **Case:** Corsair Carbide 200R **Power Supply:** Corsair TX650 (Free) **Optical Drive:** LiteOn DVDRW It absolutely flies. So I expect yours will as well :) My only suggestion would be: If you want to save some money, check out the 200R case. It still has front mounted USB 3.0 ports and is almost identical size I believe.
  2. Name : Viper's Bite Class : Warrior (Axe) Player Level to equip : 32 Rarity : Rare Type : Weapon
  3. Ok I see your issue, your sub is expecting a "String" to be passed in. The reason to do this is to obviously use the string somewhere in the sub. In this situation your passing in the string, but then not using it. Your instead hard coding the other bit. You want to either: Change the sendannouncements sub: ``` Public Sub sendAnnouncements(ByVal content As String) Dim buffer As clsBuffer Set buffer = New clsBuffer buffer.WriteLong SAnnouncements buffer.WriteString content SendDataToAll buffer.ToArray() Set buffer = Nothing End Sub ``` That means you need to pass in a string. (Like you have done) As long as the button is on the frmServer you can use: **sendAnnouncements(txtAnnouncements.text)** Alternatively: ``` Public Sub sendAnnouncements() Dim buffer As clsBuffer Set buffer = New clsBuffer buffer.WriteLong SAnnouncements buffer.WriteString frmServer.txtAnnouncements.text SendDataToAll buffer.ToArray() Set buffer = Nothing End Sub ``` Which is hardcoded to send whatever is in that textbox. and then you would call it with: **sendAnnouncements**
  4. Asked in the shoutbox was how the packet system works. Its too much hassle doing it in the shoutbox so heres a quick demo: ModEnumerations (Client & Server) Under ServerPackets at the bottom add: ``` STest ``` ModServerTCP (Server) Paste at the bottom (Clone of SayMsg from the client) ``` Public Sub TestMsg() Dim buffer As clsBuffer Set buffer = New clsBuffer buffer.WriteLong STest buffer.WriteString "I Liek chocolate milk" SendDataToAll buffer.ToArray() Set buffer = Nothing End Sub ``` When you call this sub it will send a string to the client With the identifer of "STest" ModHandleData (Client) In Initmessages() you need to tell the program where to process "STest", add: ``` HandleDataSub(STest) = GetAddress(AddressOf HandleTestMsg) ``` Then at the bottom of ModHandleData (Client) ``` Private Sub HandleTestMsg(ByVal Index As Long, ByRef data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim buffer As clsBuffer Dim Msg As String Set buffer = New clsBuffer buffer.WriteBytes data() Msg = buffer.ReadString msgbox msg End Sub ``` Job done. Not 100% accurate, but close enough to work. Outcome of this, should be a Msgbox which says "I Liek Chocolate Milk" on all connected clients. ![](http://3.bp.blogspot.com/-dLxHcIqQ1_g/TyHiC2AcMRI/AAAAAAAAAAU/gmKSmCESN-s/s220/I%2BLIEK%2BCHOCOLATE%2BMILK.jpg)
  5. It seems you had the right tab with the Firewall configuration. Although it isn't requesting an internal IP address to forward to, which is odd but maybe there is a second page of config? You had it setup correctly, then hit Add to list. Once done screenshot the "list" or next page and upload that to see if we can spot where it maps to the local IP.
  6. What you have on deviantart is interesting. It might be more beneficial if you post some examples that could fit in to an Eclipse game. EG: Items (Potion/Sword/Axe)
  7. If this was a serious request, surely you would have sent it via PM to Amish? Why would you even be that bothered about Forum Points? They mean diddly squat.
  8. Press "Windows Key" + R together, it will open the Run dialogue. Type: CMD Then press enter. Once done, you get a black box. Then in the black box, type: IPconfig Press enter, and it will give you some details, one of the details will be: IPv4 Address. EG: ![](http://p1cs.me/a/AS.png)
  9. > its elysium diamond Ah man, brings back memories. Good times. I wonder what happened to Pingu?
  10. Very impressive, I love the style of these!
  11. Wouldn't have considered this "IMPORTANT" myself…
  12. Replace all: Player(index).Skills(i With: Player(index).Char(TempPlayer(index).CurChar).Skills(i) (Although not 100% sure the Player "index" and TempPlayer "index" will always match… depends on the rest of your code.
  13. Have you actually converted the files or just renamed the extension?
×
×
  • Create New...