dao

lol ok ur rite i meant criticize mr miguu did a great job. and note it says my "attempt" at pixel which obviously means this is probably his first or second time of doing this on a sprite. and dude keep your mean things to urself. that was a bit too much. Edit: nvm becuz mr miguu post ruined my awesome one xD Ps. get on msn miguu xD i iz bored!

hippo alot of people dont like you when you flame lol

ur a good pixel artist xD

ohh boy… lol i guess for now ill just make the whole message the color becuz im sure ur not going to make me a tutorial on doing that lol well thanks for replyin then

Id like the name before the message to be a color. Zultar: test like tis > If GetPlayerAccess(index) = 5 Then > Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & ": ", BRIGHTCYAN) > Call MapMsg(Message, SayColor)

im trying to make an image show before the name > Public Sub Packet_SayMessage(ByVal index As Long, ByVal Message As String) > > If frmServer.chkLogMap.Value = Unchecked Then > If GetPlayerAccess(index) = 0 Then > Call PlayerMsg(index, "Map messages have been disabled by the server!", BRIGHTRED) > Exit Sub > End If > End If > > Call MapMsg(GetPlayerMap(index), LoadPicture(App.Path & "\GUI\suck" & GetPlayerName(index) & ": " & Message, SayColor)) > Call MapMsg2(GetPlayerMap(index), Message, index) > > Call TextAdd(frmServer.txtText(3), GetPlayerName(index) & " On Map " & GetPlayerMap(index) & ": " & Message, True) > Call AddLog("Map #" & GetPlayerMap(index) & ": " & GetPlayerName(index) & " : " & Message, PLAYER_LOG) > End Sub

oh >.< thanks lol

were is the code were it writes the player name in the chat box? like it writes playername ":" like this? im trying to make it load an image before the name

np anyone have any idea how to make the hp bar an image.

no i want to change it to an image not the colors

yea the hp bar

i want the player bar to only be visible when your attacking something.

yea i know but idk what code to change it to.

i did its in my sig

yeah this mite take awhile to figure out your going to probably have to change alot of code. not too hard but kind of

well id like to make them an image.. is what i mean

id like to make player hp bars look like this: 

not sure how to do this but on new account after someone press's the create button the new char screen should open and then you pick female or male and press create then you login and your that person. id like this too xD

yea. i did lol xD

sickk 10/10

rofl that was hilarious

ok so when i try to log in i get this error server side and client side but it highlights different things. run time error '9' subscript out of range Server side highlight > Public Sub LeftGame(ByVal index As Long) > Dim n As Long > > If Player(index).InGame Then > Player(index).InGame = False > > ' Stop processing NPCs if no one is on it. > If GetTotalMapPlayers(GetPlayerMap(index)) = 0 Then > PlayersOnMap(GetPlayerMap(index)) = NO > End If > > ' If player is in party, remove experience decrease. > Call RemovePMember(index) > > If SCRIPTING = 1 Then > MyScript.ExecuteStatement "Scripts\Main.txt", "LeftGame " & index > Else > ' Check to see if there is any boot map data. > If Map(GetPlayerMap(index)).BootMap > 0 Then > Call SetPlayerX(index, Map(GetPlayerMap(index)).BootX) > Call SetPlayerY(index, Map(GetPlayerMap(index)).BootY) > Call SetPlayerMap(index, Map(GetPlayerMap(index)).BootMap) > End If > > ' Inform the server that the player logged off. > If GetPlayerAccess(index) = 0 Then > Call GlobalMsg(GetPlayerName(index) & " has left " & GAME_NAME & "!", 7) > Else > Call GlobalMsg(GetPlayerName(index) & " has left " & GAME_NAME & "!", 15) > End If > End If > > Call SavePlayer(index) > Call SendLeftGame(index) > > Call TextAdd(frmServer.txtText(0), GetPlayerName(index) & " has disconnected from " & GAME_NAME & ".", True) > > Call RemovePLR(index) > End If > > Call ClearPlayer(index) > Call SendOnlineList > End Sub Client side highlight > ' ::::::::::::::::::: > ' :: Spells packet :: > ' ::::::::::::::::::: > If (casestring = "spells") Then > > frmMirage.lstSpells.Clear > > ' Put spells known in player record > For i = 1 To MAX_PLAYER_SPELLS > Player(MyIndex).Spell(i) = Val(parse(i)) > If Player(MyIndex).Spell(i) 0 Then > frmMirage.lstSpells.addItem i & ": " & Trim$(Spell(Player(MyIndex).Spell(i)).Name) > Else > frmMirage.lstSpells.addItem "–- Slot Free ---" > End If > Next i > > frmMirage.lstSpells.ListIndex = 0 > End If

yeah we need a big team, atm i have an error that im fixing with the server so sorry with any un able to connecting

run time error '9' subscript out of range i think it has to do with server i really need this fixed i cant play on the game unless it is fixed > ' ::::::::::::::::::: > ' :: Spells packet :: > ' ::::::::::::::::::: > If (casestring = "spells") Then > > frmMirage.lstSpells.Clear > > ' Put spells known in player record > For i = 1 To MAX_PLAYER_SPELLS > Player(MyIndex).Spell(i) = Val(parse(i)) > If Player(MyIndex).Spell(i) 0 Then > frmMirage.lstSpells.addItem i & ": " & Trim$(Spell(Player(MyIndex).Spell(i)).Name) > Else > frmMirage.lstSpells.addItem "–- Slot Free ---" > End If > Next i > > frmMirage.lstSpells.ListIndex = 0 > End If

thanks for the help, now im getting a weird error for something with spells i get run time error"9" subscript out of range and it highlights this: frmMirage.lstSpells.addItem i & ": " & Trim$(Spell(Player(MyIndex).Spell(i)).Name)