BugSICK Posted March 26, 2009 Author Share Posted March 26, 2009 how can i unblocked NPC, because when i passes an NPC/Monster it blocked like a stone. how can i unblocked it.? thanks :cheesy: Link to comment Share on other sites More sharing options...
AdrianC Posted March 26, 2009 Share Posted March 26, 2009 So you want to pass through it? Its a source edit. Pretty easy to do actually, there's a tutorial in the programming section, but you need vb6. Link to comment Share on other sites More sharing options...
BugSICK Posted March 26, 2009 Author Share Posted March 26, 2009 yah i know its in the source edit and need a Vb6\. but as you said its in the programming section. well i will find now. hope so. thanks Link to comment Share on other sites More sharing options...
Baron Posted March 26, 2009 Share Posted March 26, 2009 its jsut a matter of deleting a small section of code. very simple. Link to comment Share on other sites More sharing options...
BugSICK Posted March 26, 2009 Author Share Posted March 26, 2009 @Baron:> its jsut a matter of deleting a small section of code. very simple.which part? Link to comment Share on other sites More sharing options...
Baron Posted March 26, 2009 Share Posted March 26, 2009 @BugSICK:> which part?in the client search for "playermove" and somewhere in the initial checks it will have a check against NPC positions. Link to comment Share on other sites More sharing options...
BugSICK Posted March 26, 2009 Author Share Posted March 26, 2009 ```' :::::::::::::::::::::::::::: ' :: 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```?? :lipsrsealed: Link to comment Share on other sites More sharing options...
vrage Posted March 26, 2009 Share Posted March 26, 2009 no, not the packet Link to comment Share on other sites More sharing options...
BugSICK Posted March 26, 2009 Author Share Posted March 26, 2009 @V-Rage:> no, not the packetcould you help me in pack? i mean help in 100% not installment :X Link to comment Share on other sites More sharing options...
BugSICK Posted March 27, 2009 Author Share Posted March 27, 2009 sorry for the post again. but i really need this. any could help me shall be credited here [http://www.touchofdeathforums.com/smf/index.php?board=284.0](http://www.touchofdeathforums.com/smf/index.php?board=284.0)hayz. thanks Link to comment Share on other sites More sharing options...
Hippoman789 Posted March 27, 2009 Share Posted March 27, 2009 ok ill see what i can do.PM your client or whatever so i can edit. Link to comment Share on other sites More sharing options...
BugSICK Posted March 27, 2009 Author Share Posted March 27, 2009 :sad: you dont have to edit my client just tell me where to change it so i can edit it my self. Link to comment Share on other sites More sharing options...
Hippoman789 Posted March 27, 2009 Share Posted March 27, 2009 oooh, well i can do that too!i thought you didnt have vb6…lolwell ill start looking and ill tell you. Link to comment Share on other sites More sharing options...
BugSICK Posted March 27, 2009 Author Share Posted March 27, 2009 @Hippoman:> oooh, well i can do that too!> i thought you didnt have vb6…lol> > well ill start looking and ill tell you.thanks man, ive been looking all over the forums, and yet cant find thanks Link to comment Share on other sites More sharing options...
Hippoman789 Posted March 27, 2009 Share Posted March 27, 2009 My first job!ima so happy!ill pm you once i find it! Link to comment Share on other sites More sharing options...
BugSICK Posted March 27, 2009 Author Share Posted March 27, 2009 @Hippoman:> My first job!> > ima so happy!> ill pm you once i find it!lol hahaha, thanks. ^_^ Link to comment Share on other sites More sharing options...
Hippoman789 Posted March 27, 2009 Share Posted March 27, 2009 Ok im looking right now.where should i look? forms or modules?server or client? Link to comment Share on other sites More sharing options...
zade_o Posted March 27, 2009 Share Posted March 27, 2009 change this:```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 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 iEnd Function```to this:```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 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 IfEnd Function```problem should be solved. Link to comment Share on other sites More sharing options...
BugSICK Posted March 27, 2009 Author Share Posted March 27, 2009 thanks, ama try it now. Link to comment Share on other sites More sharing options...
Hippoman789 Posted March 27, 2009 Share Posted March 27, 2009 dammit i hate you ghost… Link to comment Share on other sites More sharing options...
zade_o Posted March 27, 2009 Share Posted March 27, 2009 I expected a damnit but the rest was kinda hurtful…. love you too man... love you too. Link to comment Share on other sites More sharing options...
BugSICK Posted March 27, 2009 Author Share Posted March 27, 2009 thanks Ghost it really work but its like glitch. but i will use this. thanks. ;)![](http://img291.imageshack.us/img291/7602/screenshot0p.png) Link to comment Share on other sites More sharing options...
Hippoman789 Posted March 27, 2009 Share Posted March 27, 2009 why did you want it anyway? Link to comment Share on other sites More sharing options...
BugSICK Posted March 27, 2009 Author Share Posted March 27, 2009 in here.![](http://img359.imageshack.us/img359/5606/screenshot0.png)so that if many people enter/buy in this store. they will not blocked the way.by the way, is this applicable to character to character? Link to comment Share on other sites More sharing options...
zade_o Posted March 27, 2009 Share Posted March 27, 2009 You mean will a player be able to walk through a player? Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now