matiuh

thanks for help me to make it ^^ was easier than it seemed :D can be closed

please i need help, if somebody could show me where is the code that display the items in picInventory ;)

hi i wonder if is possible to make an alternatve inventory to put in it other item types .. like consumable items and the other items appear in the main inventory thx ^^

i would try ? frmMain.imgHPBar.top = frmMain.imgHPBar.top + ((GetPlayerVital(MyIndex, Vitals.HP) / HPBar_Height) / (GetPlayerMaxVital(MyIndex, Vitals.HP) / HPBar_Height)) * HPBar_Height

Easy ^^ go to client\data files\graphics\gui\main\ and find character.jpg Edit with photoshop for best quality jpg….. or paint :/ loosing some definition bb

hi, some time ago i also wanted to make mouse movement in eo and i was found this code in another engine source i play with it, but never can get it 100% working maybe someone can make it work fully here is the code that i extracted without modifications **ModGameLogic** ``` NewX = 10 NewY = 7 NewPlayerY = Player(MyIndex).y - NewY NewPlayerX = Player(MyIndex).x - NewX NewX = NewX * PIC_X NewY = NewY * PIC_Y NewXOffset = Player(MyIndex).x NewYOffset = Player(MyIndex).y If Player(MyIndex).y - 7 < 1 Then NewY = Player(MyIndex).y * PIC_Y + Player(MyIndex).YOffset NewYOffset = 0 NewPlayerY = 0 If Player(MyIndex).y = 7 And Player(MyIndex).Dir = DIR_UP Then NewPlayerY = Player(MyIndex).y - 7 NewY = 7 * PIC_Y NewYOffset = Player(MyIndex).YOffset End If ElseIf Player(MyIndex).y + 8 > MAX_MAPY + 1 Then NewY = (Player(MyIndex).y - 16) * PIC_Y + Player(MyIndex).YOffset NewYOffset = 0 NewPlayerY = MAX_MAPY - 13 If Player(MyIndex).y = 24 And Player(MyIndex).Dir = DIR_DOWN Then NewPlayerY = Player(MyIndex).y - 7 NewY = 7 * PIC_Y NewYOffset = Player(MyIndex).YOffset End If End If If Player(MyIndex).x - 10 < 1 Then NewX = Player(MyIndex).x * PIC_X + Player(MyIndex).XOffset NewXOffset = 0 NewPlayerX = 0 If Player(MyIndex).x = 10 And Player(MyIndex).Dir = DIR_LEFT Then NewPlayerX = Player(MyIndex).x - 10 NewX = 10 * PIC_X NewXOffset = Player(MyIndex).XOffset End If ElseIf Player(MyIndex).x + 11 > MAX_MAPX + 1 Then NewX = (Player(MyIndex).x - 11) * PIC_X + Player(MyIndex).XOffset NewXOffset = 0 NewPlayerX = MAX_MAPX - 19 If Player(MyIndex).x = 21 And Player(MyIndex).Dir = DIR_RIGHT Then NewPlayerX = Player(MyIndex).x - 10 NewX = 10 * PIC_X NewXOffset = Player(MyIndex).XOffset End If End If ' Auto move If XToGo -1 Or YToGo -1 Then Dim XDif As Long Dim YDif As Long XDif = Abs(GetPlayerX(MyIndex) - XToGo) YDif = Abs(GetPlayerY(MyIndex) - YToGo) If XToGo = GetPlayerX(MyIndex) Or XToGo = -1 Then XToGo = -1 XDif = 0 Else XDif = Abs(GetPlayerX(MyIndex) - XToGo) End If If YToGo = GetPlayerY(MyIndex) Or YToGo = -1 Then YToGo = -1 YDif = 0 Else YDif = Abs(GetPlayerY(MyIndex) - YToGo) End If Debug.Print (XDif & " " & YDif) If XDif > YDif Then If GetPlayerX(MyIndex) - XToGo > 0 Then DirLeft = True Else DirRight = True End If End If If YDif > XDif Then If GetPlayerY(MyIndex) - YToGo > 0 Then DirUp = True Else DirDown = True End If End If If XDif = YDif And XDif 0 And YDif 0 Then ' I'll be nice and give you the non-directional movement code 'If Int(Rnd * 2) = 0 Then If GetPlayerX(MyIndex) - XToGo > 0 Then DirLeft = True Else DirRight = True End If ' Else If GetPlayerY(MyIndex) - YToGo > 0 Then DirUp = True Else DirDown = True End If 'End If End If End If ' Check if player is trying to move Call CheckMovement ' Check to see if player is trying to attack Call CheckAttack ' Process player (actually move them) For i = 1 To MAX_PLAYERS If IsPlaying(i) Then Call ProcessMovement(i) End If ``` **ModConstants** ``` ' auto move Public XToGo As Long Public YToGo As Long Public NewPlayerX As Long Public NewPlayerY As Long Public NewXOffset As Long Public NewYOffset As Long Public NewX As Long Public NewY As Long ``` **PicScreen_MouseDown Under a vbButton** ``` XToGo = (x + (NewPlayerX * PIC_X)) / PIC_X YToGo = (y + (NewPlayerY * PIC_Y)) / PIC_Y ``` im a good english speakeR? o.o

when i try to trade… the trade list is empty.... maybe only becouse im trying to trade with other account in my same ip??

XDD no.. bbcode isnt in it :D! thanks anyway ^^ ill continue checking EDIT: Thanks to Fbu @Fbu: > The tile system didn't work till I put > > ``` > Public TileScript As Long > ``` > in modGlobals. > > But now it works perfect thanks (: To get working, TileScript, you should make this change: in modGlobals find: ' Used to check if in editor or not and variables for use in editor and under of : ``` Public EditorShop As Long ``` paste: ``` Public TileScript As Long ``` compile ;)

Thanks XD !! but my client error continue :(

Please Help! ^^ I follow the tut step by step but… I got this error when im trying to compile the same as iSkweek Thx ;) SERVER SIDE .Type ``` ' They tried to hack If Moved = NO Then Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index)) End If If [color].Type[/color] = TILE_TYPE_SCRIPTED Then Call TileScript(index, .Data1) Moved = YES End If End Sub ``` CLIENT SIDE TileScript ``` If frmEditor_Map.optScript.Value Then .Type = TILE_TYPE_SCRIPTED .Data1 = [color]TileScript[/color] .Data2 = 0 .Data3 = 0 End If End With ```

i also need an item that can change charas class without it i cant start my project T.T