escfoe2
-
Posts
354 -
Joined
-
Last visited
Content Type
Profiles
Forums
Calendar
Posts posted by escfoe2
-
-
I might actually be able to figure this out lol thanks you very much.. the part about addin it at the top of ModHandleData is what really made me understand how this works.. Now I'm gonna finish my code, post it, and test it… Probably test it first but it will work or it won't so I'll post everything in a bit.. Thanks again this is a great community!!!
OK: It isn't working yet but It's close, I have this so far:
Client-Side In ModHandleData I added a new Case:
```
Case "getinivar"
Call Packet_GetIniVar(Val(Parse(1)), Val(Parse(2)), Val(Parse(3)))
Exit Sub
```And here is the Packet_GetIniVar:
```
Public Sub Packet_GetIniVar(ByRef Parse() As String)
If LenB(Parse(1)) > 0 And LenB(Parse(1)) = 1 Then
If LenB(Parse(2)) > 0 Then
If LenB(Parse(3)) > 0 Then
frmStable.shpEVNT.Visible = True
frmStable.lblEVNT.Visible = True
shpEVNT.Width = Val(Int(Parse(2)) / Int(Parse(3)) * 640)
lblEVNT.Caption = "~~ " & Int(Parse(3)) & " OUT OF " & Int(Parse(2)) & " ~~"
End If
End If
Else
frmStable.shpEVNT.Visible = False
frmStable.lblEVNT.Visible = False
End If
End Sub
```
Now this is Server-Side in ModHandleData… I made another new case at the top:
```
Case "getinivar"
Call Packet_GetIniVar(Index, Parse(1), Parse(2), Parse(3), Parse(4), Parse(5), Parse(6), Parse(7), Parse(8), Parse(9))
Exit Sub
```
Yea I know its big but I have 3 ini's i need to check and 3 filenames, headers, and footers, so tht makes 9 lol And here is the Packet_GetIniVar:
```
Public Sub Packet_GetIniVar(ByVal Index As Long, ByVal FileName1 As String, ByVal Header1 As String, ByVal Footer1 As String, ByVal FileName2 As String, ByVal Header2 As String, ByVal Footer2 As String, ByVal FileName3 As String, ByVal Header3 As String, ByVal Footer3 As String)
If FileName <> "" And Header <> "" And Footer <> "" Then
Call SendDataTo(Index, "GETINIVAR" & SEP_CHAR & GetVar(App.Path & FileName1, Header1, Footer1) & SEP_CHAR & GetVar(App.Path & FileName2, Header2, Footer2) & SEP_CHAR & GetVar(App.Path & FileName3, Header3, Footer3) & END_CHAR)
End If
End Sub
```
And there you have everything I've done in about 30mins lolz… I can almost feel the success coming soon! XD If you see anything wrong let me know please! Thanks for all help regarding my topic!!! -
My quota in a FPS is the STORY!! You need to have a good story behind the game itself… Of course it has to be fun but here needs to be a hint of unknown?!?! Think about Fable 2... If you've played it then you know it has an excellent story... Levels aren't grinding and the maps are fabulous! The only issue is with the fact that there are more "bad guys" in the first Fable... If you don't have a good story, then it's not worth playing more than a few seconds... Even if it's small it has to be enough to make you want to know whats meant to happen!! My thoughts anyway...
-
Ahh but the code looks good so far right so:
```
Public Sub Packet_GetIniVar(ByVal Index As Long, ByVal FileName As String, ByVal Header As String, ByVal Footer As String)
If FileName <> vbNullString And Header <> vbNullString And Footer <> vbNullString Then
Call SendDataTo(Index, "GETINIVAR" & SEP_CHAR & GetVar(App.Path & FileName, Header, Footer) & END_CHAR)
End If
End Sub
```
Not real sure on how to use LenB but I am guessing its If LenB(FileName) <> vbNullString or maybe something like that… Now I'm working on figuring out how to the force the client to recieve this data when I want it... I believe I'll use something like:
```
Public Sub Packet_GetIniVar(ByRef Parse() As String)
Dim KillEventActive As Long
Dim KillEventKillsNeeded As Long
Dim KillEventPlayerKills As Long
KillEventActive = GetVar("Kill Event.ini", "KILL EVENT", "kill_event_activated") 'Server Side
KillEventKillsNeeded = GetVar("Kill Event.ini", "KILL EVENT", "kills_needed") 'Server Side
KillEventPlayerKills = GetVar("Scripts\PlayerExtras\" & GetPlayerName(MyIndex) & ".ini", "KILL EVENT", "kill_event_activated") 'Server Side
'Now here it will take charge of the label and shape...
shpEVNT.Width = Val(Int(KillEventKillsNeeded) / Int(KillEventPlayerKills) * 640) 'Client Side
lblEVNT.Caption = "~~ " & Int(KillEventPlayerKills) & " OUT OF " & Int(KillEventKillsNeeded) & " ~~"
End Sub
```
See how simple this should be lolz…
Getting the vars is my problem this whole time... I know it will use Parses but can't point out how to make it...If someone were to finish this script for me or tell me a lil more... It will boost my learning stature up really high!! I need this so I can understand the real basis of the Eclipse Engine! -
Thanks for taking the time to explain that to me I really appreciate it! I'm gonna copy and paste it so I can reread it whenever… Have a good one! Ima post what I come up with here in a bit.
Ok I've got this in ModHandleData Server-Side:
```
Public Sub Packet_GetIniVar(ByVal Index As Long, ByVal FileName As String, ByVal Header As String, ByVal Footer As String)
If FileName <> "" And Header <> "" And Footer <> "" Then
Call SendDataTo(Index, "GETINIVAR" & SEP_CHAR & GetVar(App.Path & FileName, Header, Footer) & END_CHAR)
End If
End Sub
```
Now I'm trying to figure out how to make it get the variable client-side lol… Let me know if that's not right please -
Oh sorry I haven;t messed with that much… I'm mainly source for the game bud... Code & SadScript but I will check out what I can find...
-
It is 100% possible! You could could code it so it adds the /script to the txtbox an then sends the text to the server… It would be so quick you wouldnt see the txt in the and it would do what you wanted
-
From what I see you'll need to go Client-Side>modDirectX>Sub BltWeather try that and tell me if its what you needed…
-
Hmmm sorry but I can't seem to find the EO updater to even help you figure this out… Tell me where it is I'll get it and check
-
I agree with YamYam bud… If you want help your welcome to recieve help from anyone but you gotta help yourself too... Learn some code.. ask for little things here and there and we'll help you!
-
I read a sticky somewhere that said not to give a response like "Have you tried restarting your computer?" or "Try restarting your computer" lol just teasing it might be a correction this time…
-
Actually you can make enter goto a new line I believe… I'll look into the code and tell you when I find something!
EDIT: Ok I figured it out:
Nvm... srry I was testing it all as I edited this msg... Actually just making the textbox Multi-Line property set to True and stretching the textbox bigger... testing showed that the enter key does indeed create a new line for me... no need for coding... The ways I tried I do not want you to try.. I had an epic failure lol
```
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Text1.Text & vbNewLine
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Text1.Text & "\r\n"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Text1.Text & vbcrlf
End If
End Sub
```
I don't see why the enter button doesn't create a new line for you and also don't see why I spent time trying to figure out :huh: -
I figured I'd also need something from the server… I was just overlooking the client sending packets so I'll see what I can figure out and post if/when I get the correct response thanks... I just needed a push in the right direction that's all lol
I can't seem to figure it out.. I observe the packets to and from but as I rework them it doesnt work.. I'm not understanding how they work... I didn't think it would be so damn hard (XD) to get a variable from an .ini Server-Side! I'ma keep trying Ballie... I usually don't ask for things unless I need them... -
So the X is like GetVar(what I want to get) but what else do I have to do?? anything server-side? Also what goes in the quotation marks?
EDIT: If the GetVar is all I have to change then thts pretty nifty… Thanks for the help!
EDIT2: From looking at the clients code it looks like I might need to put getvar in the quotations idk something along those lines to tell the server what I'm doing.. I'm not exactly sure lol I'd appreciate a lil more help! -
I love AlienWare / AlienGUIse It's awesome I can tell you're using it or something like it… Kewl
-
I know someone made a topic like this but no one explained what I needed… I made a Kill Event on my server that has basically everything needed for a kill event! (First person to so many kills) On the client... I need it to get data from an .ini server-side! The server has GetVar and PutVar but the only thing the Client has is WriteINI or ReadINI and they don't get values server-side just on the users PC..
The idea: I've made a label and a shape just like the HP and MP bars.. It will show the number of kills (ex. 2/5) and the progress till completion... All I need is the client to get .ini variables from the server-side folders.. Ugh I hope its not as difficult as it sounds... Thanks for any help given! -
-
Wow… who shit in his cereal??? That's what I wanna know! lol
-
-
A few of those parts there were actually kinda funny… I went to the website but didn't get very many funny things just confusion lol...
-
hot apple pie with vanilla ice cream is delicious but for most of my birthdays I get an ice cream CAKE from dairy queen so yummy they are both good to me!!! I do prefer pie though I think… Except on my birthdays haha
EDIT: Did anyone else know that pizza is considered a pie??? I LOVE ME SOME PIZZA! -
-
Wow that is a LOT of choices to choose from and I like them all… Although, some I find disturbing but no matter lol! Mad Dog 20-20 definitely is a poor drunk's dream but I think I want something that doesn't go off with a bang... Something that will get me drunk for sure but not knock my ass on the floor from a little sip if you know what I mean haha... Once again I love all those ideas.. DUCKING GREAT!!!
-
Well you can in fact reach the end of the universe because our universe is a bunch of galaxies(ours being The Milky Way).. There are an infinite ammount of universes in space but you cannot reach the end of space because there is no end… Also, the only way to reach the end of our galaxy we would either have to live forever or indeed travel as fast or faster than the speed of light which is equal to 186,000 miles per second... A jet traveling at 500 mph would cross the continental U.S. once in 4 hours... A person traveling at the speed of light would cross the equator 7.5 times in one second!
-
My sweet 16 was in February… the 24th to be exact... I made a deal with my father to get me drunk and my mother too! She got me drunk a week after my birthday with Mad Dog 20-20... Now my dad wants to know what I want.. The choices are Beer(If so what kind), keg, or another type of alcoholic drink of my choice but the thing is... I'm hard to get drunk.. I'm 6'3" tall and 235lbs. So I need something strong and I'd like your ideas on something to help my present be EXTRA ~~WOOSY~~ errm SPECIAL!! You know, something to get me rocked lolz don't hold back!
P.S. He's taking me up to a camp ground called "Big Bear Lake" in West Virginia to do it and it's awesome there ppl like to party so yea whats your thoughts?
Client receiving from Server =/
in Source
Posted
~~ Ok so I have 90% working and there are no errors BUT... I can't get the Bar to display the right size... (The shape which has a width of 650) Here is all of my code:
CLIENT | On frm.Stable I have placed this bar (DUH) but I have also placed a timer to check for these values every so often... It's code reads this:
```
Private Sub tmrKillEvent_Timer()
If frmStable.Visible = True Then
Call SendData("getinivar" & SEP_CHAR & "\Kill Event.ini" & SEP_CHAR & "KILL EVENT" & SEP_CHAR & "kill_event_activated" & SEP_CHAR & "\Kill Event.ini" & SEP_CHAR & "KILL EVENT" & SEP_CHAR & "kills_needed" & SEP_CHAR & "\Scripts\PlayerExtras\" & GetPlayerName(MyIndex) & ".ini" & SEP_CHAR & "KILL EVENT" & SEP_CHAR & "kill_event_kills" & END_CHAR)
End If
End Sub
```
Notice there are 10 parameters counting the Parse(0) because I am calling for 3 different variable from .ini files and I need their Name, Header, and Variable to all be Parsed separate so that equals 9… Now that you understand why it's like that lets move on...
Still CLIENT | In ModHandleData at the top there is a new case added which I already posted but I'm showing all again:
```
Case "getinivar"
Call Packet_GetIniVar(Val(Parse(1)), Val(Parse(2)), Val(Parse(3)))
Exit Sub
```
That code gets the 3 variables that the server sends after receiving the file data from the Client… Now here is the Packet to handle that data once received:
```
Public Sub Packet_GetIniVar(ByVal KillEventActive As Long, KillEventKillsNeeded As Long, KillEventPlayerKills As Long)
If LenB(KillEventActive) > 0 And Int(KillEventActive) = 1 Then
If LenB(KillEventKillsNeeded) > 0 Then
If LenB(KillEventPlayerKills) > 0 Then
frmStable.shpEVNT.Visible = True
frmStable.lblEVNT.Visible = True
If Int(KillEventPlayerKills) > 0 Then
' I got the bar to work right lol I was dividing the two in the wrong places
frmStable.shpEVNT.Width = Val(Int(KillEventPlayerKills) / Int(KillEventKillsNeeded) * 650)
frmStable.lblEVNT.Caption = "~~ " & Int(KillEventPlayerKills) & " OUT OF " & Int(KillEventKillsNeeded) & " ~~"
Else
frmStable.shpEVNT.Width = 0
frmStable.lblEVNT.Caption = "~~ " & Int(KillEventPlayerKills) & " OUT OF " & Int(KillEventKillsNeeded) & " ~~"
End If
End If
End If
Else
frmStable.shpEVNT.Visible = False
frmStable.lblEVNT.Visible = False
End If
End Sub
```
Now this is where my problem occurs… I'm not sure how to properly show the fraction of the shape to the ammount of kills the player has to the ammount needed... At the moment it shows a super extended bar... I multiplied it by the same number as its length because I looked at how the HP bars were done and that is how they were done... I'm not sure what to do but Ima keep trying.. thanks for all help I really appreciate it... Oh I'll still post the server code too hang on:
SERVER | In ModHandleData there is a new case I've already shown but I'll show again:
```
Case "getinivar"
Call Packet_GetIniVar(Index, Parse(1), Parse(2), Parse(3), Parse(4), Parse(5), Parse(6), Parse(7), Parse(8), Parse(9))
Exit Sub
```
That will get all the file data that the Client sends to the Server… Now this is the Packet that it calls:
```
Public Sub Packet_GetIniVar(ByVal Index As Long, ByVal FileName1 As String, ByVal Header1 As String, ByVal Footer1 As String, ByVal FileName2 As String, ByVal Header2 As String, ByVal Footer2 As String, ByVal FileName3 As String, ByVal Header3 As String, ByVal Footer3 As String)
On Error Resume Next
If LenB(FileName1) > 0 And LenB(Header1) > 0 And LenB(Footer1) > 0 Then
If LenB(FileName2) > 0 And LenB(Header2) > 0 And LenB(Footer2) > 0 Then
If LenB(FileName3) > 0 And LenB(Header3) > 0 And LenB(Footer3) > 0 Then
Call SendDataTo(Index, "GETINIVAR" & SEP_CHAR & GetVar(App.Path & FileName1, Header1, Footer1) & SEP_CHAR & GetVar(App.Path & FileName2, Header2, Footer2) & SEP_CHAR & GetVar(App.Path & FileName3, Header3, Footer3) & END_CHAR)
End If
End If
End If
End Sub
```
It all is working fine for me except that bar XD It's a lil difficult but hey what can I say… It wouldn't be as fun if it was easy... Thank you for all and any help given I really appreciate it all!!!