Alerd
Members-
Posts
475 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Everything posted by Alerd
-
Everything works flawlessly
-
Very thanx for this tutorial
-
Stop already complain .. doing it in his engine …
-
I can create a topic with all fix in a heap if the DeathBeam will
-
Good? ``` Public mapMatrix() As mapMatrixRec ``` Variable not defined ``` PlayerWalking ``` Please Fix this all Pathfinding
-
Constant expression required ``` Public mapMatrix(1 To MAX_MAPS) As mapMatrixRec ``` …..
-
Variable not defined.. ``` DirectionUP DirectionDOWN DirectionLEFT DirectionRIGHT ```
-
Change all sub ``` Public Sub CreatePathMatrix(ByVal MapNum As Long) ``` to ``` Public Sub CreatePathMatrix(ByVal MapNum As Long) Dim x As Long, y As Long ReDim mapMatrix(MapNum).gaeGrid(0 To Map(MapNum).MaxX, 0 To Map(MapNum).MaxY) As eCell For x = 0 To Map(MapNum).MaxX For y = 0 To Map(MapNum).MaxY If Map(MapNum).Tile(x, y).Type TILE_TYPE_WALKABLE And Map(MapNum).Tile(x, y).Type TILE_TYPE_ITEM And Map(MapNum).Tile(x, y).Type TILE_TYPE_NPCSPAWN Then mapMatrix(MapNum).gaeGrid(x, y) = Obstacle Else mapMatrix(MapNum).gaeGrid(x, y) = Void End If Next Next mapMatrix(MapNum).created = True Exit Sub errorHandler: mapMatrix(MapNum).created = False End Sub ```
-
Variable not defined ``` TileWalkable ``` In ``` Public Sub CreatePathMatrix(ByVal MapNum As Long) ```
-
This delete? srry for my noob question ; d ``` i = Int(Rnd * 5) ' Lets move the npc Select Case i Case 0 ' Up If MapNpc(mapnum).Npc(X).y > TargetY And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_UP) Then Call NpcMove(mapnum, X, DIR_UP, MOVING_WALKING) DidWalk = True End If End If ' Down If MapNpc(mapnum).Npc(X).y < TargetY And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_DOWN) Then Call NpcMove(mapnum, X, DIR_DOWN, MOVING_WALKING) DidWalk = True End If End If ' Left If MapNpc(mapnum).Npc(X).X > TargetX And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_LEFT) Then Call NpcMove(mapnum, X, DIR_LEFT, MOVING_WALKING) DidWalk = True End If End If ' Right If MapNpc(mapnum).Npc(X).X < TargetX And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_RIGHT) Then Call NpcMove(mapnum, X, DIR_RIGHT, MOVING_WALKING) DidWalk = True End If End If Case 1 ' Right If MapNpc(mapnum).Npc(X).X < TargetX And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_RIGHT) Then Call NpcMove(mapnum, X, DIR_RIGHT, MOVING_WALKING) DidWalk = True End If End If ' Left If MapNpc(mapnum).Npc(X).X > TargetX And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_LEFT) Then Call NpcMove(mapnum, X, DIR_LEFT, MOVING_WALKING) DidWalk = True End If End If ' Down If MapNpc(mapnum).Npc(X).y < TargetY And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_DOWN) Then Call NpcMove(mapnum, X, DIR_DOWN, MOVING_WALKING) DidWalk = True End If End If ' Up If MapNpc(mapnum).Npc(X).y > TargetY And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_UP) Then Call NpcMove(mapnum, X, DIR_UP, MOVING_WALKING) DidWalk = True End If End If Case 2 ' Down If MapNpc(mapnum).Npc(X).y < TargetY And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_DOWN) Then Call NpcMove(mapnum, X, DIR_DOWN, MOVING_WALKING) DidWalk = True End If End If ' Up If MapNpc(mapnum).Npc(X).y > TargetY And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_UP) Then Call NpcMove(mapnum, X, DIR_UP, MOVING_WALKING) DidWalk = True End If End If ' Right If MapNpc(mapnum).Npc(X).X < TargetX And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_RIGHT) Then Call NpcMove(mapnum, X, DIR_RIGHT, MOVING_WALKING) DidWalk = True End If End If ' Left If MapNpc(mapnum).Npc(X).X > TargetX And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_LEFT) Then Call NpcMove(mapnum, X, DIR_LEFT, MOVING_WALKING) DidWalk = True End If End If Case 3 ' Left If MapNpc(mapnum).Npc(X).X > TargetX And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_LEFT) Then Call NpcMove(mapnum, X, DIR_LEFT, MOVING_WALKING) DidWalk = True End If End If ' Right If MapNpc(mapnum).Npc(X).X < TargetX And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_RIGHT) Then Call NpcMove(mapnum, X, DIR_RIGHT, MOVING_WALKING) DidWalk = True End If End If ' Up If MapNpc(mapnum).Npc(X).y > TargetY And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_UP) Then Call NpcMove(mapnum, X, DIR_UP, MOVING_WALKING) DidWalk = True End If End If ' Down If MapNpc(mapnum).Npc(X).y < TargetY And Not DidWalk Then If CanNpcMove(mapnum, X, DIR_DOWN) Then Call NpcMove(mapnum, X, DIR_DOWN, MOVING_WALKING) DidWalk = True End If End If End Select ```
-
Delete this? ``` ' Check if we can't move and if Target is behind something and if we can just switch dirs If Not DidWalk Then If MapNpc(mapnum).Npc(X).X - 1 = TargetX And MapNpc(mapnum).Npc(X).y = TargetY Then If MapNpc(mapnum).Npc(X).Dir DIR_LEFT Then Call NpcDir(mapnum, X, DIR_LEFT) End If ```
-
The point is that this works, but I would like to always display nickname which I play without a mouse rollover
-
Hi I would like to do to my character's name is always displayed i use this code [http://www.touchofde…on-mouse-hover/](http://www.touchofdeathforums.com/community/index.php?/topic/118924-playernpc-names-on-mouse-hover/) thanx :>
-
;/ many tutorial dont work, i wont delete multi character..
-
Deathbeam u have backup version v1.0.4 Thanx
-
Dark this is system for all armor i think abiut only % to block
-
Hello is anyone on the block algorithm for shield?? which makes it possible to block? for example, gives a 25% chance to block is 25%?
-
I have all files.. i check in 3 fresh copy version..
-
Many bug in change sprite :< ``` The following error occured at 'InitDDSurf' in 'modDirectDraw7'. Run-time error '53': File not found. The following error occured at 'InitDDSurf' in 'modDirectDraw7'. Run-time error '70': Permission denied. The following error occured at 'InitDDSurf' in 'modDirectDraw7'. Run-time error '53': File not found. The following error occured at 'InitDDSurf' in 'modDirectDraw7'. Run-time error '53': File not found. ``` ' Set path fileInput = App.Path & GFX_PATH & filename & DATA_EXT fileOutput = App.Path & "\temp" & DATA_EXT Call Zlib.DeCompressFile(fileInput, fileOutput) **FileSize = FileLen(fileOutput) / 1024 / 1024** or ' init object **Set Surf = DD.CreateSurfaceFromFile(fileOutput, SurfDesc)** Call Kill(fileOutput) BUG IN 1.1.2 , 1.1.1 1.0.6 :< PLEASE FIX :<
-
Is the system without bugs? slows down the server?
-
I'm looking for code that will block the possibility of logging out in combat I found something but the ee: < http://www.touchofdeathforums.com/community/index.php?/topic/80925-disallow-log-out-while-fighting/page__hl__logout
-
System without errors? Strongly slows down the server?