Warconn

lol thanks i have this added for a couple weeks now, i just found the time to post a tutorial on it :)

Alright guys, i got real angry with eclipse the other day because i had to keep typing /help to see the different options such as 'is broadcast, and - is emote. I realized that first time players might be angry aswell, so i decided to change it to something easier to remember such as /b, /e, and /w. I will show you how to do that, and to change them to which ever you would like. Ok we start of Client SIde in ModGameLogic find ``` Sub HandleKeypresses(ByVal KeyAscii As Integer) ``` and scroll down till you see ' Broadcast message select all of the following text ``` If Mid$(MyText, 1, 1) = "'" Then ChatText = Mid$(MyText, 2, Len(MyText) - 1) If Len(Trim$(ChatText)) > 0 Then Call BroadcastMsg(ChatText) End If MyText = vbNullString Exit Sub End If ``` replace it with this ``` If LCase$(Mid$(MyText, 1, 3)) = "/b " Then ChatText = LCase$(Mid$(MyText, 4, Len(MyText) - 3)) If Len(Trim$(ChatText)) > 0 Then Call BroadcastMsg(ChatText) End If MyText = vbNullString Exit Sub End If ``` next you want to find ``` ' Emote message If Mid$(MyText, 1, 1) = "-" Then ChatText = Mid$(MyText, 2, Len(MyText) - 1) If Len(Trim$(ChatText)) > 0 Then Call EmoteMsg(ChatText) End If MyText = vbNullString Exit Sub End If ``` and replace it with ``` ' Emote message If LCase$(Mid$(MyText, 1, 3)) = "/e " Then ChatText = LCase$(Mid$(MyText, 4, Len(MyText) - 3)) If Len(Trim$(ChatText)) > 0 Then Call EmoteMsg(ChatText) End If MyText = vbNullString Exit Sub End If ``` and lastly the whisper command ``` ' Player message If Mid$(MyText, 1, 1) = "!" Then ChatText = Mid$(MyText, 2, Len(MyText) - 1) Name = vbNullString ' Get the desired player from the user text For i = 1 To Len(ChatText) If Mid$(ChatText, i, 1) " " Then Name = Name & Mid$(ChatText, i, 1) Else Exit For End If Next i ' Make sure they are actually sending something If Len(ChatText) - i > 0 Then ChatText = Mid$(ChatText, i + 1, Len(ChatText) - i) ' Send the message to the player Call PlayerMsg(ChatText, Name) Else Call AddText("Usage: !playername msghere", AlertColor) End If MyText = vbNullString Exit Sub End If ``` change that with ``` ' Player message If LCase$(Mid$(MyText, 1, 3)) = "/w " Then ChatText = LCase$(Mid$(MyText, 4, Len(MyText) - 3)) Name = vbNullString ' Get the desired player from the user text For i = 1 To Len(ChatText) If LCase$(Mid$(ChatText, i, 1)) " " Then Name = Name & Mid$(ChatText, i, 1) Else Exit For End If Next i 'Warconn message change ' Make sure they are actually sending something If Len(ChatText) - i > 0 Then ChatText = LCase$(Mid$(ChatText, i + 1, Len(ChatText) - i)) ' Send the message to the player Call PlayerMsg(ChatText, Name) Else Call AddText("Usage: /w playername msghere", AlertColor) End If MyText = vbNullString Exit Sub End If ``` that is how to change all of the commands what everything means If LCase$(Mid$(MyText, 1, 3)) = "/b " Then ChatText = LCase$(Mid$(MyText, 4, Len(MyText) - 3)) If Len(Trim$(ChatText)) > 0 Then Call BroadcastMsg(ChatText) End If MyText = vbNullString Exit Sub End If this is how many characters are in between the quotes including spaces, exmp: if it was "/broadcast " the number would be 11 This is always one more then the red number and that is all you need to change to change the broadcast/emote/whisper commands this is one of the many snippets added to New Colony Online, check it out from the link in my sig. Thanks Warconn

i put mine on a retractable bar on the left

yea, the problem i had during my lastname sourcing was that i messed with the name, so it corrupted the code or something like that. Lenton is right, just make a new account, thats what i did

o sorry, i didnt realize you made a new one sorry

hehehe look at this one http://fantasticcontraption.com/?designId=4639496

yep, it was fix, and i found instead of Putvar it is easier to use WriteINI OFFTOPIC: New COlony is Mine, and it wont be in beta till atleast january, i hope to get a beta by feb at the very least :)

@anasky: > Case "loadstyle" > Dim FileData > FileData = ReadINI("Style", "s", (App.Path & "\Scripts\db\" & GetPlayerName(Index) & "\.ini"), vbNullString) > Exit Sub > > What was wrong: I won't use Val(ReadINI), I'm not sure how it works, and if it even works properly. > "0" doesn't works as good as vbNullString (well, it doesn't in my code). > > If casestring = "getstyle" Then > Dim style > style = Val#(parse(1)) > If style = 0 Then > frmMirage.Image4.Picture = LoadPicture(App.Path & "\GUI\CUSTOM\strstyle.**bmp**") > Else > frmMirage.Image4.Picture = LoadPicture(App.Path & "\GUI\CUSTOM\defstyle.**bmp**") > End If > End If > > Sub for 2 lbl's: > Sub lblA_Click() > Call SendDataTo("loadstrdeflbl" & SEP_CHAR & 1 & END_CHAR) > End Sub > > Sub lblB_Click() > Call SendDataTo("loadstrdeflbl" & SEP_CHAR & 0 & END_CHAR) > End Sub > > ModHandleData.mod: > Case "loadstrdeflbl" > Call WriteINI("Style", "s", Val#(Parse(1)), (App.Path & "\Scripts\db\" & GetPlayerName(Index) & "\.ini)) > Exit Sub vbnulstring definatly works alot better i found out, thanks

hmm alright, thanks

SAT words i believe are words that grab your attention, and make you want to read more and more. I think that is what he was referring to.

@anasky: > Could you tell us what was wrong? For other players. yea, i found that you need to val the readini for it to work serverside, here is mine Case "loadskill" Dim Filedata Filedata = Val(ReadINI("Woodcutting", "level", App.Path & "\Scripts\charextras\" & GetPlayerName(index) & ".ini", "0")) Call SendDataTo(index, "getskill" & SEP_CHAR & Filedata & END_CHAR) Exit Sub dunno what this does, but it works lol that does into the server modhandledata underneath all of the other cases at the beginning. client side is in the modhandledata If (casestring = "getskill") Then Dim skill skill = parse(1) frmMirage.lblskilllvl.Caption = Val(skill) End If i figured out that because you val'ed the REadini you have to val the parse, thats the easiest way i found to do it. and the button you use to get all of this to work is Call SendData("loadskill" & END_CHAR) pretty simple once you get the hang of it. @Tyr: > heh packets is quite easy :D normally ppl figuere it out in about 30min :s lol took me about a month to get it all to work lol, now i got to concentrate on how to send data from the client to the server, should be easy now that i got the basic idea Thanks Again guys

ahh it worked, i finally got it to work, thanks guys [EDIT] oo sorry for the double post, i was just real excited, ive been working on packets for a month now, with no success till now, thanks again

@anasky: > First of all, don't use SendSkill but loadskill (no caps). > Also, you'll need a Case in the Server. > Client presses a button: > ``` > Call SendData("loadskill" & END_CHAR) > > ``` > Server-Side (modHandleData, first sub): > ``` > Case "loadskill" > test = ReadINI(see explanation above) > Call SendDataTo(Index, "getskill" & SEP_CHAR & test & END_CHAR) > Exit Sub > > ``` > Client-sided, modHandleData: > ``` > If parse(0) = "getskill" Then > frmTest.Show > frmTest.lbl1.Caption = Parse$(1) or Val#(parse(1)) > End If > > ``` > Hope it helped, if not, PM me :P thanks, i PMed you @Tyr: > as yo usay the problem lies in reading the ini, the path doesn't really look wrong to me but ya you should prty to put it in a variable > > Sub SendSkill(ByVal Index As Long) > Dim FileData > Dim Path > > Path = "App.Path & "\Scripts\charextras\" & GetPlayerName(Index) & ".ini"" > FileData = ReadINI("Woodcutting", "level", Path) > > don't know if it should work… but its worth a try yea i tryed that, and i am still getting the same thing… i changed it to ``` path = App.Path & "\Scripts\charextras\" & GetPlayerName(index) & ".ini" FileData = ReadINI("Woodcutting", "level", path, "0") ```and atleast my compiler let me through, so i dont know

yea, he does a really nice job on logos and sigs, take a look at mine, he made it.

hey i am trying to learn this packet stuff as well, and i am having a hard time lol. Server side, in ModHandleData i have ``` Sub SendSkill(ByVal Index As Long) Dim FileData FileData = ReadINI("Woodcutting", "level", App.Path & "\Scripts\charextras\" & GetPlayerName(Index) & ".ini") Call SendDataTo(Index, "skills" & SEP_CHAR & FileData & END_CHAR) End Sub ``` when i compile it, i get an error on the READINI, it says "Argument Not Optional" Client Side i have in the modhandle data ``` If (casestring = "skills") Then FileData = parse(1) frmMirage.lblskilllvl.Caption = FileData Exit Sub End If ``` i dont get any error with this. Sorry, i am really stuck with this one though lol Thanks

hmm i am at temping the same thing, do you have msn, we could get together, and work on it if noone finds an anwser here?

ahh i missed it again noooo

lol wow nice they all look real good, would you be interested in doing a Sig for my game New Colony Online, and possible a Logo, i can PM you with the details if you are. Thanks

hmm alright, thanks guys

what are the times

wouldnt it be easier to just add like a flash or something to it, then to do all that. Thats just my opinion though, nice job on this.

Thanks Robin, i remember i did change the GM speeds to 5, and 10. I just changed those back and it worked. Thanks Again, and Tyr i am making a backup code to save all my changes everytime i run with a full compile. ;)

Alright, so i was working on a next elevation sub for my game :), and i was messing with different subs in the client and server. I was trying to find where to put my sub, and then it happened. :O Ingame, when i try and move my player, he takes one step then continues moving outside the scrolling area. His feet down move, and BLOCK attribute doesnt even work. I cannot find what i have done, and i have to much changed to just get a new source. :sad: Does anyone know the problem or how to fix this. :embarrassed: Thanks Warconn

ahh this time zone thing is really messen me up lol

ill join im on now