aster

is there anyway to give a player gold = to X variable I'm messing around with 4.0 events and trying to make a stall that increaes gold every 5 seconds by 1 and then the player can collect it. edit: or even make the variable increase while you aren't on the map - Couldn't do what i wanted as of the current event system. Instead I just made it increase while player on map with parallel process and increase a var every couple seconds after var reached set amount the event wld show up.. Little bland I guess

Dont encourage robin if he gets drunk then we'll have or characters facing horizontally, NPCs yelling profanity, random WTFbombs during game play, and clans will become gangs called bloods and crips, random sex vulgar will pm your character and he'll have no idea that he coded all of it lol, anyway off that. Keep up with the fantastic work I like the visual trade and directional blocking the most, any hints on what the new combat system might be like?

When I try to host with a different IP I get Compile Error: Expected: End Of Statement here is what it looks like ``` Private Sub Server1_Click() Dim IP As String, Port As String Dim fErr As Integer IP = 000.00.00.0 Port = Val(4000) fErr = 0 If fErr = 0 And Len(Trim$(IP)) = 0 Then fErr = 1 Call MsgBox("Please Fix The IP!", vbCritical, GAME_NAME) Exit Sub End If If fErr = 0 And Port

lol my story isnt as great as that little kids but when i was like 7 my dad gave me 8$ to pull out my loose tooth infront of him

gfda giraffes f****** dirty apples

I have a few questions, 1\. Why wont my goodies attack my baddies? 2\. How do I add more factions? 3\. Can you explain a lil further on making the animated items in the inventory/on ground? Edit: Thanks for the help Robinyour awesome for making such a good engine and actually helping.

``` Private Sub Class_Initialize() Set m_Server = JBSOCKETSERVERLib.CreateSocketServer(GAME_PORT) Set Sockets = New colSockets End Sub ``` im getting an activex error 429 i ran server in debug and found that code can anyone help me? :lipsrsealed:

says this is wrong in the vb project Public Property Get Item(vntIndexKey As Variant) As clsSocket Set Item = mCol(vntIndexKey)

Oo me, draw me!! I want a sniper =p GJ with the fetus on the side of the head btw XD

=/ It says HasSpells(index, Spellnum) and If Player(index).SpellsLocked = True Then Compile Error: Method or Data not found

ya without soul and damian i prob couldnt have done this and i still use 2.8 cuz dont like Main.ess XD

easiest solution to me is: 1st make sure he's logging in withright pass nd everything. 2nd if thatfails delete his ENTIre account in the acounts folder in your Server folder 3rd Ask him/her to make a new account. 4th If your gonna be nice raise him/her to level they werre before + give them their items back that they had.

lol am so noob found out i was running wrong server for 3 days talk about fail. Prob fix it, will go see now. Nope still doesnt save the length and frequency >=(

Huza, i got everything to work. Only problem is, it doesnt save the spells.

can u just add the code and upload it for me. the errors are completley unrelated to any thing ive ever touched

``` Sub SendPlayerMove() Dim x As Integer Dim y As Integer x = GetPlayerX(MyIndex) y = GetPlayerY(MyIndex) If x < 0 Or x > MAX_MAPX Or y < 0 Or y > MAX_MAPY Then If Player(MyIndex).inArena = True Then Player(MyIndex).inArena = False Call SendData("outarena" & END_CHAR) End If ElseIf Map(GetPlayerMap(MyIndex)).Tile(x, y).Type = TILE_TYPE_ARENA Then If Player(MyIndex).inArena = False Then Player(MyIndex).inArena = True Call SendData("inarena" & END_CHAR) End If ElseIf Player(MyIndex).inArena = True Then Player(MyIndex).inArena = False Call SendData("outarena" & END_CHAR) End If Call SendData("playermove" & SEP_CHAR & GetPlayerDir(MyIndex) & SEP_CHAR & Player(MyIndex).Moving & END_CHAR) End Sub ```i think something is wrong with how i placed this now the error is with an armor slot, its never happened since i put this code in though. I love the features though so ill keep trying. Can you just put the code in for me?

ill make the client real quick and see, will update post asap Your a duckin genius! removing that one line fixed the whole problem, chest work again i can talk, and edit spells. Now im getting a new error subscript out of range error 9 i placed something wrong somewhere i just cant figure out where [my Server+Client](http://www.mediafire.com/?5ziu54whltn) can u fix and tell me what was wrong?

``` Public Sub SpellEditorInit() Dim i As Long Dim typ As Integer Select Case Spell(EditorIndex).Type Case SPELL_TYPE_ADDHP Case SPELL_TYPE_ADDMP Case SPELL_TYPE_ADDSP typ = Spell(EditorIndex).Type Case SPELL_TYPE_ADDDEF typ = 3 Case SPELL_TYPE_ADDSTR typ = 4 Case SPELL_TYPE_SUBHP typ = 5 Case SPELL_TYPE_SUBMP typ = 6 Case SPELL_TYPE_SUBSP typ = 7 Case SPELL_TYPE_SUBDEF typ = 8 Case SPELL_TYPE_SUBSTR typ = 9 Case SPELL_TYPE_ROOT typ = 10 Case SPELL_TYPE_STUN typ = 11 Case SPELL_TYPE_WARP typ = 12 Case SPELL_TYPE_BIND typ = 13 Case SPELL_TYPE_SCRIPTED typ = 14 End Select frmSpellEditor.iconn.Picture = LoadPicture(App.Path & "\GFX\Icons.bmp") frmSpellEditor.cmbClassReq.addItem "All Classes" For i = 0 To Max_Classes frmSpellEditor.cmbClassReq.addItem Trim$(Class(i).Name) Next i frmSpellEditor.txtName.Text = Trim$(Spell(EditorIndex).Name) frmSpellEditor.cmbClassReq.ListIndex = Spell(EditorIndex).ClassReq frmSpellEditor.scrlLevelReq.Value = Spell(EditorIndex).LevelReq frmSpellEditor.cmbType.ListIndex = typ frmSpellEditor.scrlVitalMod.Value = Spell(EditorIndex).Data1 frmSpellEditor.scrlCost.Value = Spell(EditorIndex).MPCost frmSpellEditor.scrlSound.Value = Spell(EditorIndex).Sound If Spell(EditorIndex).Range = 0 Then Spell(EditorIndex).Range = 1 End If frmSpellEditor.scrlRange.Value = Spell(EditorIndex).Range frmSpellEditor.scrlSpellAnim.Value = Spell(EditorIndex).SpellAnim frmSpellEditor.scrlSpellTime.Value = Spell(EditorIndex).SpellTime frmSpellEditor.scrlSpellDone.Value = Spell(EditorIndex).SpellDone If Spell(EditorIndex).AE = 1 Then frmSpellEditor.chkArea.Value = Checked ElseIf Spell(EditorIndex).AE = 2 Then frmSpellEditor.chkTarget.Value = Checked ElseIf Spell(EditorIndex).AE = 3 Then frmSpellEditor.chkCastor.Value = Checked ElseIf Spell(EditorIndex).AE = 4 Then frmSpellEditor.chkParty.Value = Checked End If frmSpellEditor.chkArea.Value = Spell(EditorIndex).AE frmSpellEditor.chkBig.Value = Spell(EditorIndex).Big frmSpellEditor.scrlElement.Value = Spell(EditorIndex).Element frmSpellEditor.scrlElement.Max = MAX_ELEMENTS frmSpellEditor.Show vbModal End Sub ```says frmSpellEditor.chkArea.Value = Spell(EditorIndex).AE is wrong and zultars chest attribute quit working for me after i added this also in``` Function CanMove() As Boolean Dim i As Long Dim X As Long Dim y As Long CanMove = True If Player(MyIndex).Moving 0 Then CanMove = False Exit Function End If ' Make sure they haven't just casted a spell If Player(MyIndex).CastedSpell = YES Then If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then Player(MyIndex).CastedSpell = NO Else CanMove = False Exit Function End If End If X = GetPlayerX(MyIndex) y = GetPlayerY(MyIndex) If DirUp Then Call SetPlayerDir(MyIndex, DIR_UP) y = y - 1 ElseIf DirDown Then Call SetPlayerDir(MyIndex, DIR_DOWN) y = y + 1 ElseIf DirLeft Then Call SetPlayerDir(MyIndex, DIR_LEFT) X = X - 1 Else Call SetPlayerDir(MyIndex, DIR_RIGHT) X = X + 1 End If If y < 0 Then If Map(GetPlayerMap(MyIndex)).Up > 0 Then Call SendPlayerRequestNewMap(DIR_UP) GettingMap = True End If CanMove = False Exit Function ElseIf y > MAX_MAPY Then If Map(GetPlayerMap(MyIndex)).Down > 0 Then Call SendPlayerRequestNewMap(DIR_DOWN) GettingMap = True End If CanMove = False Exit Function ElseIf X < 0 Then If Map(GetPlayerMap(MyIndex)).Left > 0 Then Call SendPlayerRequestNewMap(DIR_LEFT) GettingMap = True End If CanMove = False Exit Function ElseIf X > MAX_MAPX Then If Map(GetPlayerMap(MyIndex)).Right > 0 Then Call SendPlayerRequestNewMap(DIR_RIGHT) GettingMap = True End If CanMove = False Exit Function End If If Not GetPlayerDir(MyIndex) = LAST_DIR Then LAST_DIR = GetPlayerDir(MyIndex) Call SendPlayerDir End If If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_BLOCKED Or Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_SIGN Or Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_ROOFBLOCK Or Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_CHEST Then CanMove = False Exit Function End If If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_CBLOCK Then If Map(GetPlayerMap(MyIndex)).Tile(X, y).Data1 = Player(MyIndex).Class Then Exit Function End If If Map(GetPlayerMap(MyIndex)).Tile(X, y).Data2 = Player(MyIndex).Class Then Exit Function End If If Map(GetPlayerMap(MyIndex)).Tile(X, y).Data3 = Player(MyIndex).Class Then Exit Function End If CanMove = False End If If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_GUILDBLOCK And Map(GetPlayerMap(MyIndex)).Tile(X, y).String1 GetPlayerGuild(MyIndex) Then CanMove = False End If If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_KEY Or Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_DOOR Then If TempTile(X, y).DoorOpen = NO Then CanMove = False Exit Function End If End If If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_WALKTHRU Then Exit Function Else For i = 1 To MAX_PLAYERS If IsPlaying(i) Then If GetPlayerMap(i) = GetPlayerMap(MyIndex) Then If GetPlayerX(i) = X Then If GetPlayerY(i) = y Then CanMove = False Exit Function End If End If End If End If Next i End If For i = 1 To MAX_MAP_NPCS If MapNpc(i).num > 0 Then If MapNpc(i).X = X Then If MapNpc(i).y = y Then CanMove = False Exit Function End If End If End If Next i End Function ```just cant figure out what

no i wiped the char database im using 2.7 if thats the problem. Can u go through mine and see whats wrong?

i keep getting an error with``` Call SetPlayerPK(Victim, NO) Call SendPlayerData(Victim) Call GlobalMsg(GetPlayerName(Victim) & " has paid the price for being a player killer!", BRIGHTRED) End If Else Call SetPlayerHP(Victim, GetPlayerHP(Victim) - Damage) Call SendHP(Victim) End If ```the Else on that now in AttackPlayer. Any fix? do i need to add an End If to the WarpToBind (Victim)? Error: Else without If Huza fixed for ppl that are getting that error add an End If after WarpToBind(Victim) and a Call Before it so it'd look like this``` Call WarpToBind(Victim) End If ```K now when i try to edit a spell i get the error 380 Ok now i get an error when i try to pick things up, fix my stun,DoT,HoT spells. Need help asap

added u in credits along with TSN

thanks oh and almost forgot give a lil credit to TSN for pointing me out on where to find the handlekeypresses.

credits to Soul Greendude120 ツ and Damian i got code from ES, just explained how to add to EE cuz im not a fan of ES ok well alot of you have been asking for the drop down chat bar to choose between global, guild, private etc. This will aslo add a new feature to your game guild chat!! GUILD CHAT DOESNT SHOW UP ON THE SERVER LOG! not to big of a prob tho first off let make a ComboBox in frmMirage that is heigth 21 width 97 style 2-dropdown visible = true text, mapchat name, mapchat (put this next to the bar where u enter your message) almost forgot on the list in item properties make 4 0's looking like this 0 0 0 0 Next go into ModClientTCP go down to the guild section and below the last on paste this``` Sub GuildChat(ByVal Text As String) Call SendData("guildmsg" & SEP_CHAR & Text & END_CHAR) End Sub ``` Next go into modGameLogic go down to handle key press and at the very first 'map message highlight everything all way to the last code before //commands// and delete it then paste this ``` ' Map message If frmMirage.MapChat.Text = "Map" Then 'Check if the user uses other chat then mapchat ' Broadcast message If Not Mid$(MyText, 1, 1) = "/" Then 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 End If ' Emote message If Not Mid$(MyText, 1, 1) = "/" Then 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 End If ' Guild message If Not Mid$(MyText, 1, 1) = "/" Then If Mid$(MyText, 1, 1) = "@" Then ChatText = MyText If Len(Trim$(ChatText)) > 0 Then Call GuildChat(ChatText) End If MyText = vbNullString Exit Sub End If End If ' Player message If Not Mid$(MyText, 1, 1) = "/" Then 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 ' 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 If Len(Trim$(MyText)) > 0 Then Call SayMsg(MyText) End If MyText = vbNullString Exit Sub End If End If ' Broadcast message If frmMirage.MapChat.Text = "Global" Then ChatText = MyText If Len(Trim$(ChatText)) > 0 Then Call BroadcastMsg(ChatText) End If MyText = vbNullString Exit Sub End If ' 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 ' Guild message If frmMirage.MapChat.Text = "Guild" Then ChatText = MyText If Len(Trim$(ChatText)) > 0 Then Call GuildChat(ChatText) End If MyText = vbNullString Exit Sub End If ' Player message If frmMirage.MapChat.Text = "Private" Then ChatText = MyText 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 ``` You're done with the client side now you want to go to your server and add now go into modHandleData in your server and look for the Cases and put this``` Case "guildmsg" Call Packet_GuildMsg(index, Parse(1)) Exit Sub ```now go to the Very bottom of modHandleData and paste this``` Public Sub Packet_GuildMsg(ByVal index As Long, ByVal Msg As String) Dim I ' Prevent hacking For I = 1 To Len(Msg) If Asc(Mid$(Msg, I, 1)) < 32 Or Asc(Mid$(Msg, I, 1)) > 255 Then Call HackingAttempt(index, "Broadcast Text Modification") Exit Sub End If Next I If GetPlayerGuild(index) = "" Then Call PlayerMsg(index, "your not in a guild...", BRIGHTRED) Exit Sub End If For I = 1 To MAX_PLAYERS If IsPlaying(I) Then If GetPlayerGuild(index) = GetPlayerGuild(I) And GetPlayerGuild(I) "" Then Call PlayerMsg(I, "[Guild : " & GetPlayerName(index) & "]: " & Msg, BRIGHTCYAN) End If End If Next I End Sub ```This is my first ever tutorial at anything so give me props for trying =P Credits The Soul Numb and Damian666 for guild code

Banned for being banned by a stalker, and in general just i felt like banning you to relieve the stress of never banning my friend on my game for being a noob *steps into ban shield* hehe ;D