Problem with Animation?

Blitz3D Forums/Blitz3D Beginners Area/Problem with Animation?

Guy Fawkes (Posted 2012) [#1]

Hi all, I'm using mk2y10's 2D API, and for some reason, my player won't face right, NOR will he animate. Also, when facing a certain direction, he won't stay on his idle "facing whatever way after the button was held down" animation... Idle being he stands still on both legs. What's going on? ScrollMap.bb: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;Map API (ME) for Game and Edit Example ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;Coded By: mk2y10 (Dragon) ;;;Version V 0.0.0.8 ;;; ;;;Reference Map API Functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Include "ME_LevelEditor_Lib.bb" ;First, set the graphics. Graphics 800,600,32,2 ;This you do not need unless you do the hide window at start Hack. ;http://projectoutcast.forumup.com/viewtopic.php?t=7&mforum=projectoutcast#7 ;(This makes every program you run/compile start with a hidden window) ;Win=SystemProperty("AppHWND") ;api_ShowWindow(Win,1) ;//// ;Now we create a map Map = ME_CreateMap ( 128 , 128 ) ;We now must load a tile image! ;This function is a SMART function for square tiles. ;That means you can have an image up to 16x16 tiles (256 Tile MAX) ;It reads the tiles from Top to Bottom and Left to Right! ;All we need to provide is the image handel and the square size of one tile (32 here) Tile=LoadImage("gfx\ZTileset.bmp") ME_LoadTiles ( Tile , 32 ) ;Before loading the player's image, we count the total number of frames in the playersheet Global Player_Tiles_Wide% = 32 Global Player_Tiles_High% = 48 Global Player_Frame_Count% = ME_GetTotalFrames%("gfx\bloodelf_male3.png", Player_Tiles_Wide%, Player_Tiles_High%) ;Now we load the player image ;I will be using on stationary image, but you can load an animation ; via the LoadAnimImage() Play=LoadAnimImage("gfx\bloodelf_male3.png", Player_Tiles_Wide%, Player_Tiles_High%, 0, Player_Frame_Count%) ME_SetPlayerImage(Play) ME_SetBackgroundInvisible(Play, 255, 255, 255) ;Now we set the Map mode and Player mods. Here are the modes: ;0 - Do not restrict ;1 - Restrict only X axis ;2 - Restrict only Y axis ;3 - Restrict both X and Y ; ;~When used in ME_SetMapMode(), it prevents the camera from going of ; the grid, no matter where the player/point-of-intrest is (POI) ;~When used in ME_SetPOIMode(), it prevents the player (POI) from moving of the map. ; ;Here we want to use Mode 3 for both: ME_SetMapMode(3) ME_SetPOIMode(3) ;Now that the restrictions are in place, we need to place the player (POI) on the map! ME_SetPOI(32,32) ;This is in pixels, not grid units! ;You must set the map as the map to be drawn ME_SetMap(Map) ;The last thing before the loop (optional) is to turn a grid overlay ON/OFF ;It starts out off. ME_ShowGrid(1) Global plxspeed# Global plyspeed# Global plx# Global ply# ;Now the loop While Not KeyHit(1) SetBuffer BackBuffer() Cls ;If your not holding down a key, then reset the player movement so the player doesn't fly off the screen If Not GetKey() Then plx# = 0 : ply# = 0 ;If your NOT holding down the run button (Shift) If Not KeyDown(42) Or KeyDown(54) plxspeed# = 1.0 plyspeed# = 1.0 ;Otherwise Else plxspeed# = 2.0 plyspeed# = 2.0 EndIf playeranimspeed# = .09 If KeyDown(200) Or KeyDown(17) Then ply# = -plyspeed# : playerdir% = 2 If KeyDown(208) Or KeyDown(31) Then ply# = +plyspeed# : playerdir% = 8 If KeyDown(203) Or KeyDown(30) Then plx# = -plxspeed# : playerdir% = 4 If KeyDown(205) Or KeyDown(32) Then plx# = +plxspeed# : playerdir% = 6 If playerdir% = 2 Then defaultstartframe# = 13.0 defaultendframe# = 16.0 ElseIf playerdir% = 4 Then defaultstartframe# = 5.0 defaultendframe# = 8.0 ElseIf playerdir% = 6 Then defaulstartframe# = 9.0 defaultendframe# = 12.0 ElseIf playerdir% = 8 Then defaultstartframe# = 1.0 defaultendframe# = 4.0 EndIf startframe# = startframe# + 1 * playeranimspeed# If startframe# > endframe# Then startframe# = defaultstartframe# If startframe# < 1 Then startframe# = defaultstartframe# ME_SetPlayerImage(Play, startframe#) ;Movement is simple ;To move the player (POI,) do the following: ME_MovePOI(plx#,ply#) ;This lets you move the player any of the four directions! ;We update the map ME_UpdateMap() ;Now we set the color of the grid outlines (if you turned them on) Color 100,100,100 ;And then we draw it! ME_DrawMap() ;And then we reset the color of the text! Color 255, 255, 255 Text GraphicsWidth()/2, GraphicsHeight()/2, "startframe#: "+startframe#, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+20, "endframe#: "+endframe#, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+40, "playerdir%: "+playerdir%, 1, 1 Flip Wend End Please take a look at ONLY this part, this is where the error is, at least I think: playeranimspeed# = .09 If KeyDown(200) Or KeyDown(17) Then ply# = -plyspeed# : playerdir% = 2 If KeyDown(208) Or KeyDown(31) Then ply# = +plyspeed# : playerdir% = 8 If KeyDown(203) Or KeyDown(30) Then plx# = -plxspeed# : playerdir% = 4 If KeyDown(205) Or KeyDown(32) Then plx# = +plxspeed# : playerdir% = 6 If playerdir% = 2 Then defaultstartframe# = 13.0 defaultendframe# = 16.0 ElseIf playerdir% = 4 Then defaultstartframe# = 5.0 defaultendframe# = 8.0 ElseIf playerdir% = 6 Then defaulstartframe# = 9.0 defaultendframe# = 12.0 ElseIf playerdir% = 8 Then defaultstartframe# = 1.0 defaultendframe# = 4.0 EndIf startframe# = startframe# + 1 * playeranimspeed# If startframe# > endframe# Then startframe# = defaultstartframe# If startframe# < 1 Then startframe# = defaultstartframe# ME_SetPlayerImage(Play, startframe#) Here is the whole LIB... ME_LevelEditor_Lib.bb: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;Map API for Game and Editor ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;Coded By: mk2y10 (Dragon) ;;;Version: V 0.0.0.8 ;;; ;;; ;;; ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;Functions: ;;;ME_AtPoint ( LocationX, LocationY ) ;;;ME_CreateMap ( Width, Height, [DefaultTile]) ;;;ME_DrawMap ( ) ;;;ME_GetTile ( LocationX, LocationY ) ;;;ME_LoadTiles ( Image, Size ) ;;;ME_MovePOI ( XChange, YChange ) ;;;ME_PickedX ( ) ;;;ME_PickedY ( ) ;;;ME_SetMap ( Map ) ;;;ME_SetMapMode ( Mode ) ;;;ME_SetPlayerImage ( Image, [Frame]) ;;;ME_SetPOI ( LocationX, LocationY ) ;;;ME_SetPOIMode ( Mode ) ;;;ME_SetTile ( LocationX, LocationY, Tile ) ;;;ME_ShowGrid ( Bool ) ;;;ME_UpdateMap ( ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;Globals Global ME_ofx ;Map Offset X Global ME_ofy ;Map Offset Y Global ME_msx ;Map Width Global ME_msy ;Map Height Global ME_poix ;Point of Interest X (Camera's Center) Global ME_poiy ;Point of Interest Y (Camera's Center) Global ME_map ;Current map handle Global ME_maps ;Stores all maps loaded in memory Global ME_tiles ;Stores all tiles in a list Global ME_tilesize ;Srores the tile size (as a square) Global ME_grid ;Used to show the grid Global ME_player ;Used to hold the player's image Global ME_playerstartfm ;This holds the start frame / default start frame number to draw. Global ME_playerendfm ;This holds the end frame / default end frame number to draw. Global ME_playermd ;The mode of restictions placed on the POI (player) Global ME_mode ;This puts movement restrictions on the camera. Global ME_pickx ;The last picked X location Global ME_picky ;The last picked Y location ;Gets the grid location at a specified point Function ME_AtPoint(LX,LY) X=(LX-ME_ofx)/ME_tilesize Y=(LY-ME_ofy)/ME_tilesize If X<0 Then X=0 If Y<0 Then Y=0 ME_pickx=X ME_picky=Y End Function ;Creates a new map Function ME_CreateMap(SX,SY,Dft=0) Re=CreateBank(((SX)*(SY))+4) PokeByte(Re,0,SX) PokeByte(Re,1,SY) If Dft<>0 For A=2 To (SX*SY)+2 PokeByte(Re,A,Dft) Next EndIf Return Re End Function ;This draws the map Function ME_DrawMap() If ME_map=0 Then Return 0 SX=PeekByte(ME_map,0) SY=PeekByte(ME_map,1) For X=0 To SX-1 For Y=0 To SY-1 LX=(X*ME_tilesize)-ME_ofx LY=(Y*ME_tilesize)-ME_ofy If LX>0-ME_tilesize And LX<=GraphicsWidth() If LY>0-ME_tilesize And LY<=GraphicsHeight() Lc=((X*SX)+Y)+2 Tp=PeekByte(ME_map,Lc) Im=PeekInt(ME_tiles,Tp*4) If Im<>0 DrawImage(Im,LX,LY) EndIf If ME_grid=1 Rect LX,LY,ME_tilesize,ME_tilesize,0 EndIf EndIf EndIf Next Next If ME_player<>0 DrawImage(ME_player,ME_poix-ME_ofx,ME_poiy-ME_ofy,ME_playerstartfm) EndIf End Function ;This gets the tile number as a location Function ME_GetTile(X,Y) If ME_map=0 Then Return Lc=((X*SX)+Y)+2 Re=PeekByte(ME_map,Lc) Return Re End Function ;Loads an Image as a set of tiles Function ME_LoadTiles(Im,Sz) If Im=0 Then Return SX=ImageWidth(Im) SY=ImageHeight(Im) IX=Floor(SX/Sz) IY=Floor(SY/Sz) If ME_tiles<>0 For A=0 To BankSize(ME_tiles)/4 Lc=A*4 R=PeekInt(ME_tiles,Lc) If R<>0 FreeImage(R) EndIf Next FreeBank(ME_tiles) EndIf ME_tiles=CreateBank(256*4) For X=0 To IX-1 For Y=0 To IY-1 I=0 I=CreateImage(Sz,Sz) CopyRect(X*Sz,Y*Sz,Sz,Sz,0,0,ImageBuffer(Im),ImageBuffer(I)) PokeInt(ME_tiles,Lc,I) Re=Re+1 If Re>255 Then Goto Done Lc=Lc+4 Next Next .Done ME_tilesize=Sz Return Re End Function ;This moves the player by an amount Function ME_MovePOI(X,Y) ME_poix=ME_poix+X ME_poiy=ME_poiy+Y End Function ;Returns the last Picked X value Function ME_PickedX() Return ME_pickx End Function ;Returns the last Picked Y value Function ME_PickedY() Return ME_picky End Function ;This sets a map as the current drawing map Function ME_SetMap(Map) ME_map=Map End Function ;This sets the way the program acts when the end of a map is reached. Function ME_SetMapMode(Md) ME_mode=Md End Function ;This sets the player's Image / Animation Function ME_SetPlayerImage(Im,StartFm=0,EndFm=0) SX=ImageWidth(Im) SY=ImageHeight(Im) HandleImage(Im,SX/2,SY/2) ME_player=Im ME_playerstartfm=StartFm ME_playerendfm=EndFm End Function ;This sets the Point of Intrest of the Map (The Center of the Player!) Function ME_SetPOI(LX,LY) ME_poix=LX ME_poiy=LY End Function ;This sets the mode for limits on the POI (player) Function ME_SetPOIMode(Md) ME_playermd=Md End Function ;This sets the tile as the designed number Function ME_SetTile(X,Y,Tl) If ME_map=0 Then Return SX=PeekByte(ME_map,0) Lc=((X*SX)+Y)+2 PokeByte(ME_map,Lc,Tl) End Function ;This toggles the grid on and off Function ME_ShowGrid(Bool) ME_grid=Bool End Function ;This updates the map Function ME_UpdateMap() If ME_map<>0 SX=PeekByte(ME_map,0) SY=PeekByte(ME_map,1) EndIf ME_msx=SX*ME_tilesize ME_msy=SY*ME_tilesize ME_ofx=(ME_poix-GraphicsWidth()/2) ME_ofy=(ME_poiy-GraphicsHeight()/2) Md=ME_mode SCX=GraphicsWidth() SCY=GraphicsHeight() If Md=1 Or Md=3 If ME_ofx<0 Then ME_ofx=0 If ME_ofx>ME_msx-scx Then ME_ofx=ME_msx-scx EndIf If Md=2 Or Md=3 If ME_ofy<0 Then ME_ofy=0 If ME_ofy>ME_msy-scy Then ME_ofy=ME_msy-scy EndIf If ME_player<>0 Md=ME_playermd SX=ImageWidth(ME_player)/2 SY=ImageHeight(ME_player)/2 If Md=1 Or Md=3 If ME_poix<SX Then ME_poix=SX If ME_poix>ME_msx-sx Then ME_poix=ME_msx-sx EndIf If Md=2 Or Md=3 If ME_poiy<Sy Then ME_poiy=Sy If ME_poiy>ME_msy-sy Then ME_poiy=ME_msy-sy EndIf EndIf End Function Function ME_GetTotalFrames%(filename$, tileswide%, tileshigh%) ME_Tilesheet% = LoadImage(filename$) ME_Frameswide% = ImageWidth(ME_Tilesheet) / tileswide% ME_frameshigh% = ImageHeight(ME_Tilesheet) / tileshigh% ME_Totalframes = ME_Frameswide% * ME_Frameshigh% FreeImage ME_Tilesheet% Return ME_Totalframes% End Function Function ME_SetBackgroundInvisible(img, R=0, G=0, B=0) MaskImage img, R, G, B End Function If you want me to delete the LIB, mk2y10, I will GLADLY remove it! Here's the playersheet i'm using (Please note that this is for freeware use ONLY, I DID not make it, nor' do I intend to use it in my own game, it's just a test): http://www.mediafire.com/?u4rrzm2hnefhycz Thanks :) Last edited 2012