moshu
-
Posts
15 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by moshu
-
-
Well if you had done any cussing lately you are now absolved of your foul language! She just trying to keep you straight, with the lord haha jk.
-
http://www.touchofdeathforums.com/smf/index.php?topic=38807.msg379073#msg379073 I have the source code for this working right now Devogen is working on npc's I am working on camera bug. Check it out if you know any vb try to help =)
-
Great work Rep++ :bstar: :bstar: :bstar: :bstar: :bstar: 5/5 stars thx for being so nice and letting others work off of your code.
-
I am getting a new host the college server went down and omg thx so much devogen if u can msn me I have some new fix's I will upload fixes and new source today sorry for the broke link. I fixed the bounce off of walls and almost got camera jump fixed. I have isolated the code responsible for the jump. Just got to brain storm on how to add to it to stop camera jump. Devogen thanks so much and Vb.net gurn thx too for help making this work. I knew if I showed you all the diag. code this could be a working system very soon and I will isolated diag. movement to be able to turn on and off or have both on at the same time. So eclipse will have three different movement systems. :cheesy: MSN me can you post the complete npc code or let me add it to the top post of this I will credit you =) This forum rocks haha eclipse FTW
Ok this code is where the jump is happening so anyone that wants please help if you get it working post here it here I will add it to top and overall source. When player/tiles are blt to screen or drawn they use the New… variables here to position player/tiles. So since we are baiscly moving in two directions at once this needs to be modified to prevent camera jump... **!My thoughts only this is not modified or anything you shouldn't cut/paste into source just for brain storming thx!** Code is in **GameLoop** in **modGameLogic**
```
'assign values 10 and 7 these related to screen width and height in tiles to players position i believe
NewX = 10
NewY = 7
'New player cords are current cords minus newx or y
NewPlayerY = Player(MyIndex).y - NewY
NewPlayerX = Player(MyIndex).X - NewX
'convert newX and y to pixels by times it by tile width and height
NewX = NewX * PIC_X
NewY = NewY * PIC_Y
'capture players current offest
NewXOffset = Player(MyIndex).xOffset
NewYOffset = Player(MyIndex).yOffset
'Here we check to see if player's camera is at the bounds of the map Top,bottom,left,right
'The new variables declared above this get set here to be used to draw player in bltPlayer
If Player(MyIndex).y - 7 < 1 Then 'Player is touching top of map
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 'Player can see top Wall/Bounds jumps happen Here
NewPlayerY = Player(MyIndex).y - 7
NewY = 7 * PIC_Y
NewYOffset = Player(MyIndex).yOffset
End If
ElseIf Player(MyIndex).y + 9 > MAX_MAPY + 1 Then 'Player Camera has touched bottom of map
NewY = (Player(MyIndex).y - (MAX_MAPY - 14)) * PIC_Y + Player(MyIndex).yOffset
NewYOffset = 0
NewPlayerY = MAX_MAPY - 14
If Player(MyIndex).y = MAX_MAPY - 7 And Player(MyIndex).Dir = DIR_DOWN Then 'Player can see bottom Wall/Bounds jumps happen Here
NewPlayerY = Player(MyIndex).y - 7
NewY = 7 * PIC_Y
NewYOffset = Player(MyIndex).yOffset
End If
End If
If Player(MyIndex).X - 10 < 1 Then 'Player has touched Left wall/bounds of map
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 'Player can see left Wall/Bounds jumps happen Here
NewPlayerX = Player(MyIndex).X - 10
NewX = 10 * PIC_X
NewXOffset = Player(MyIndex).xOffset
End If
ElseIf Player(MyIndex).X + 11 > MAX_MAPX + 1 Then 'Player has touched right wall/bounds of map
NewX = (Player(MyIndex).X - (MAX_MAPX - 19)) * PIC_X + Player(MyIndex).xOffset
NewXOffset = 0
NewPlayerX = MAX_MAPX - 19
If Player(MyIndex).X = MAX_MAPX - 9 And Player(MyIndex).Dir = DIR_RIGHT Then 'Player can see right Wall/Bounds jumps happen Here
NewPlayerX = Player(MyIndex).X - 10
NewX = 10 * PIC_X
NewXOffset = Player(MyIndex).xOffset
End If
End If
ScreenX = GetScreenLeft(MyIndex)
ScreenY = GetScreenTop(MyIndex)
ScreenX2 = GetScreenRight(MyIndex)
ScreenY2 = GetScreenBottom(MyIndex)
If ScreenX < 0 Then
ScreenX = 0
ScreenX2 = 20
ElseIf ScreenX2 > MAX_MAPX Then
ScreenX2 = MAX_MAPX
ScreenX = MAX_MAPX - 20
End If
If ScreenY < 0 Then
ScreenY = 0
ScreenY2 = 15
ElseIf ScreenY2 > MAX_MAPY Then
ScreenY2 = MAX_MAPY
ScreenY = MAX_MAPY - 15
End If
``` -
I know its ez to move in diag the only problem is that the camera does this jump crap I have been beating my head trying to fix it but i already have npc's walking diag. but their also server side so I will wait till camera bug is fixed then everything else will be set to diag. I just need help fixing camera bug
-
Ok news update, the Move Character Sub in modGameLogic is not used at all in the game so it is not the problem or the place to fix it. I gutted it out and client runs fine. Also when the tiles are blt to the screen or drawn to screen they use the newxoffset newyoffset values to draw tiles so I think since they are effected by xOffset and yOffset that they also need to be adjusted when player moves. Looking into it now. If I am wrong about move character being a junk sub plz let me know someone =) I'm almost sure the key to this in the gameloop sub in modGameLogic where newx and newy offset values are assigned.
-
Ok I will keep grinding on it today, I will post npc diag movement and hopefully camera fix
thx for your help and I am excited if we can get this working eclipse will be a iso engine also sorta. I am happy to help you guys out I don't get to use my skills much where i live. :P -
Thx Devogen, I posted it cuz I needed help weeding out camera jump and i am making npc's move
now.
Key's aren't final either really plus I was going to isolate diagonal movement so u could do both thus
making 8 way movement it can be done.
Its almost done I just need to figure out the wall jumping when u walk into it, and camera jump when it stops touching a map edge and then touches it again. I will be updating this as I work.
I have it pin pointed to the checkmovement or player move in game logic I could be wrong.
If you find a fix let me know I hope someone can help me with this one big thanks I'm out its 3 am =) thx for reply's -
I have fixed the run so now run away… :cheesy:
what do you mean by sort of also =) feed back would mean alot
thx -
Thx all and I have done a source edit to make it work here it is
[http://www.touchofdeathforums.com/smf/index.php?topic=38807.0](http://www.touchofdeathforums.com/smf/index.php?topic=38807.0)
check it out -
Moshu MSN: [email protected]
Hello all, I haven't used a forum in forever so if I am posting wrong plz let me know. I am trying to earn a title on this forum. I will mostly post in source edits. I just downloaded EE2.7 and VB6 two days ago. I have never coded using vb6 just the vb.net, C#/XNA, C++, GML, etc.
I was watching the code run in debug, and found out that when the player moves its xOffset and yOffset are set to the +/- value of PIC_X ad PIC_Y. PIC_X & Y are 32 and also represent width and height of the tile system.
Each step your speed is add/subtracted from X & Y offsets. Once it hits zero you have moved to the next tile. So i just added in a extra offset to each move to make diagonal movement. GM speed is 4 so each step player moves +/- 4 from offset. also to note that the up/down keys -/+ X & Y values the same so if speed is 4 X & Y offset both get -/+ 4\. left/right keys will do opposite operations to X & Y offset one gets added to one subtracted from.
***Known Bugs Working On Fixing****LOOKING FOR HELP ON HOW TO FIX THIS
1\. Once camera is away from edge of map and then meets edge of map again it will cause a small jump with player.
2\. ~~If player touches Top,Left, or Right edge of map it will cause a lil jump.~~ Fixed 2/20/09 :cheesy:
3\. ~~Run needs to be coded its right below walk code alter the same way the walk i upload a version that has run coded in also. If you run now u will keep going.~~ Fixed
4\. Correct player jump when online with diagonal code. Added 2/21/09
I wanted to go ahead and post it cuz i can't work on it today =( maybe someone can help save some time=). I know bugs are related to camera movement and player movement so I should fix it soon.
**ctrl + F = find text, in vb6 you can search all the code for a certain string**
Where I put my name as a comment is where I have changed the source code
I can't make exe's for some reason so you have to use vb6 to see diagonal movement
Download my source Here–--->[Click Me - Updated 2/20/09](http://www.filefactory.com/file/af1hega/n/fixedwallbounce_rar)
Hope this will impress you guys if not I tried haha always looking for Rep++
Now to the code
STEP 1-Open **modGameLogic**.bas(solution explorer>modules) in VB6 and Find sub CheckMovement Cut and paste my sub from below.
```
Sub CheckMovement()
If Not GettingMap Then
If IsTryingToMove Then
If CanMove Then
' Check if player has the shift key down for running
If ShiftDown Then
Player(MyIndex).Moving = MOVING_RUNNING
Else
Player(MyIndex).Moving = MOVING_WALKING
End If
Select Case GetPlayerDir(MyIndex)
Case DIR_UP
Call SendPlayerMove
Player(MyIndex).yOffset = PIC_Y
Player(MyIndex).xOffset = PIC_X 'Moshu-----------
Call SetPlayerY(MyIndex, GetPlayerY(MyIndex) - 1)
Call SetPlayerX(MyIndex, GetPlayerX(MyIndex) - 1) 'Moshu-----------
Case DIR_DOWN
Call SendPlayerMove
Player(MyIndex).yOffset = PIC_Y * -1
Player(MyIndex).xOffset = PIC_X * -1 'Moshu-----------
Call SetPlayerY(MyIndex, GetPlayerY(MyIndex) + 1)
Call SetPlayerX(MyIndex, GetPlayerX(MyIndex) + 1) 'Moshu-----------
Case DIR_LEFT
Call SendPlayerMove
Player(MyIndex).xOffset = PIC_X
Player(MyIndex).yOffset = PIC_Y * -1 'Moshu-----------
Call SetPlayerX(MyIndex, GetPlayerX(MyIndex) - 1)
Call SetPlayerY(MyIndex, GetPlayerY(MyIndex) + 1) 'Moshu-----------
Case DIR_RIGHT
Call SendPlayerMove
Player(MyIndex).xOffset = PIC_X * -1
Player(MyIndex).yOffset = PIC_Y 'Moshu-----------
Call SetPlayerX(MyIndex, GetPlayerX(MyIndex) + 1)
Call SetPlayerY(MyIndex, GetPlayerY(MyIndex) - 1) 'Moshu-----------
End Select
' Gotta check :)
If Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).Type = TILE_TYPE_WARP Then
GettingMap = True
End If
End If
End If
End If
End Sub
```Step 2:
Next find **ProcessMovement** sub its in the same module **modGameLogic**
cut and paste my sub from below.
```
Sub ProcessMovement(ByVal Index As Long)
' Check if player is walking, and if so process moving them over
If Player(Index).Moving = MOVING_WALKING Then
If Player(Index).Access > 0 Then
If SS_WALK_SPEED <> 0 Then
Select Case GetPlayerDir(Index)
Case DIR_UP
Player(Index).yOffset = Player(Index).yOffset - SS_WALK_SPEED
Player(Index).xOffset = Player(Index).xOffset - SS_WALK_SPEED 'Moshu
Case DIR_DOWN
Player(Index).yOffset = Player(Index).yOffset + SS_WALK_SPEED
Player(Index).xOffset = Player(Index).xOffset + SS_WALK_SPEED 'Moshu
Case DIR_LEFT
Player(Index).xOffset = Player(Index).xOffset - SS_WALK_SPEED
Player(Index).yOffset = Player(Index).yOffset + SS_WALK_SPEED 'Moshu
Case DIR_RIGHT
Player(Index).xOffset = Player(Index).xOffset + SS_WALK_SPEED
Player(Index).yOffset = Player(Index).yOffset - SS_WALK_SPEED 'Moshu
End Select
Else
Select Case GetPlayerDir(Index)
Case DIR_UP
Player(Index).yOffset = Player(Index).yOffset - GM_WALK_SPEED
Player(Index).xOffset = Player(Index).xOffset - GM_WALK_SPEED 'Moshu
Case DIR_DOWN
Player(Index).yOffset = Player(Index).yOffset + GM_WALK_SPEED
Player(Index).xOffset = Player(Index).xOffset + GM_WALK_SPEED 'Moshu
Case DIR_LEFT
Player(Index).xOffset = Player(Index).xOffset - GM_WALK_SPEED
Player(Index).yOffset = Player(Index).yOffset + GM_WALK_SPEED 'Moshu
Case DIR_RIGHT
Player(Index).xOffset = Player(Index).xOffset + GM_WALK_SPEED
Player(Index).yOffset = Player(Index).yOffset - GM_WALK_SPEED 'Moshu
End Select
End If
Else
If SS_WALK_SPEED <> 0 Then
Select Case GetPlayerDir(Index)
Case DIR_UP
Player(Index).yOffset = Player(Index).yOffset - SS_WALK_SPEED
Player(Index).xOffset = Player(Index).xOffset - SS_WALK_SPEED 'Moshu
Case DIR_DOWN
Player(Index).yOffset = Player(Index).yOffset + SS_WALK_SPEED
Player(Index).xOffset = Player(Index).xOffset + SS_WALK_SPEED 'Moshu
Case DIR_LEFT
Player(Index).xOffset = Player(Index).xOffset - SS_WALK_SPEED
Player(Index).yOffset = Player(Index).yOffset + SS_WALK_SPEED 'Moshu
Case DIR_RIGHT
Player(Index).xOffset = Player(Index).xOffset + SS_WALK_SPEED
Player(Index).yOffset = Player(Index).yOffset - SS_WALK_SPEED 'Moshu
End Select
Else
Select Case GetPlayerDir(Index)
Case DIR_UP
Player(Index).yOffset = Player(Index).yOffset - WALK_SPEED
Player(Index).xOffset = Player(Index).xOffset - WALK_SPEED 'Moshu
Case DIR_DOWN
Player(Index).yOffset = Player(Index).yOffset + WALK_SPEED
Player(Index).xOffset = Player(Index).xOffset + WALK_SPEED 'Moshu
Case DIR_LEFT
Player(Index).xOffset = Player(Index).xOffset - WALK_SPEED
Player(Index).yOffset = Player(Index).yOffset + WALK_SPEED 'Moshu
Case DIR_RIGHT
Player(Index).xOffset = Player(Index).xOffset + WALK_SPEED
Player(Index).yOffset = Player(Index).yOffset - WALK_SPEED 'Moshu
End Select
End If
End If
```Step3:
Now open module **HandleData** and Ctrl + F and search for this string –> Player movement packet
This is not a sub or function its a IF statement so make sure you cut and paste it in like it is in file=)
Next cut and paste my code from below
```
' ::::::::::::::::::::::::::::
' :: Player movement packet ::
' ::::::::::::::::::::::::::::
If (casestring = "playermove") Then
i = Val(parse(1))
X = Val(parse(2))
y = Val(parse(3))
Dir = Val(parse(4))
n = Val(parse(5))
If Dir < DIR_UP Or Dir > DIR_RIGHT Then
Exit Sub
End If
Call SetPlayerX(i, X)
Call SetPlayerY(i, y)
Call SetPlayerDir(i, Dir)
Player(i).xOffset = 0
Player(i).yOffset = 0
Player(i).Moving = n
' Replaced with the one from TE.
Select Case GetPlayerDir(i)
Case DIR_UP
Player(i).yOffset = PIC_Y
Player(i).xOffset = PIC_X 'Moshu-----
Case DIR_DOWN
Player(i).yOffset = PIC_Y * -1
Player(i).xOffset = PIC_X * -1 'Moshu-----
Case DIR_LEFT
Player(i).xOffset = PIC_X
Player(i).yOffset = PIC_Y 'Moshu-----
Case DIR_RIGHT
Player(i).xOffset = PIC_X * -1
Player(i).yOffset = PIC_Y * -1 'Moshu-----
End Select
Exit Sub
End If
```Wall bounce fix 4 lines of code total =) Locate the **CanMove** function in **modGameLogic** cut/paste code below this will be at top of function you will see it.
```
X = GetPlayerX(MyIndex)
y = GetPlayerY(MyIndex)
If DirUp Then
Call SetPlayerDir(MyIndex, DIR_UP)
X = X - 1 'moshu This lines here fix the wall bounce caused when play walks down map wall
y = y - 1
ElseIf DirDown Then
Call SetPlayerDir(MyIndex, DIR_DOWN)
y = y + 1
X = X + 1 'moshu
ElseIf DirLeft Then
Call SetPlayerDir(MyIndex, DIR_LEFT)
X = X - 1
y = y + 1 'moshu
Else
Call SetPlayerDir(MyIndex, DIR_RIGHT)
X = X + 1
y = y - 1 'moshu
End If
```
Download my source Here–--->[Click Me - Updated 2/20/09](http://www.mediafire.com/?m4kyeei1ydi)
Thats it for now I will post updated verison of it later I will always try to work from a unedited source of EE2.7 that tut's are ez to follow.
Moshu MSN: [email protected] -
If you can provide a link to one that would be nice the search engine on this forum doesn't provide results for me for some reason. Thx everyone for ur help, first forum post in years that for quick response.
-
Yes sir I want to make a Iso game but need to move characters in diag. directions.
If I knew where the code in the source for walking is done i could change it there I am getting vb6 to view source. thx again -
Hello everyone this is my first post and I am sorry if I am posting in wrong area or reinventing the wheel here. I need to make players in game move in up/right, up/left, down/right, down/left. Instead of up/down/left/right. Thanks ahead for your time.
Making Diagonal Movement EE2.7
in Source
Posted