PointHitMapPixels

Collision = PointHitMapPixels(ThisMap, TheLevel, X, Y)

Parameters:     ThisMap = The Index of the map you query for a collision     TheLevel = The level within the map to query     X = The X coordinate to test     Y = The Y coordinate to test

Returns:     Collision = The collision state, It'll return True (1) in an impact occurs and false (0) it didn't

The PointHitMapPixels() function checks if for an impact with an individual pixel and the map level. If an impact occurs, the function returns true (1) and zero if no impact. FACTS:       * PointHitMapPixels is best used on map with FX blocks, but can be used with Video Blocks.

Example Source: Download This Example ;     ----------------------------------------------------- ;             --------->> SET UP <<------------ ;     -----------------------------------------------------      SetFPS 75    ; create the random map from some circles   Map,Level=Build_Random_Map(32,32)       ; make a backdrop picture   BackDrop=NewImage(800,600)   RenderToImage Backdrop   c1=RndRGB()   c2=RndRGB()   ShadeBox 0,0,800,600,c1,c1,c2,c2   RenderToScreen       ; create a camera to view the scene with   Cam=NewCamera()   CameraCls Cam,off          ;     ----------------------------------------------------- ;        --------->> MAIN LOOP OF PROGRAM <<------------ ;     -----------------------------------------------------      Do          ; Get the camera current position      CamX=GetCameraX(cam)      CamY=GetCameraY(cam)          ; Get the mouse position      MX=MouseX()+CamX      MY=MouseY()+CamY                ; tell PB to capture the following drawing commands      CaptureToScene          ; clear the scene buffer so it's empty      ClsScene          ; set the capture depth of the next item to a depth of    ; 100 units      CaptureDepth 100      DrawImage BackDrop,CamX,CamY,false                ; draw the map level      CaptureDepth 50      DrawMap map,Level,0,0                ; Check Point to Map For Collision      Collision=PointHitMapPixels(Map,Level,MX,my)          ; Gte the colour and message if it hot or not      If Collision         Message$="Hit"         Col=$ff0000         CaptureDepth 20         CircleC MX,MY,5,true,Col      Else         Message$="Missed"         Col=$ffffff      EndIf      CaptureDepth 10      DotC MX,MY,Col                      ; draw the scene with this camera      DrawCamera cam                ; check if the ENTER key was pressed      If EnterKey()       ; If so, toggle Debug mode on the map         MapDebug Map,1-GetMapDebug(Map)         FlushKeys      EndIf                      ; check if the users wanted to move the camera      If LeftKey()  Then     MoveCamera Cam,-2,0      If RightKey() Then     MoveCamera Cam,2,0      If UpKey()    Then     MoveCamera Cam,0,-2      If DownKey()  Then     MoveCamera Cam,0,2            SetCursor 0,0      Ink $ffffff      Print "PointHitMapPixels"      Print Message$      Sync   Loop             ;     ----------------------------------------------------- ;     ------------->> Build Random Map Scene <<------------ ;     -----------------------------------------------------       Function Build_Random_Map(BlockWidth,BlockHeight)         BackdropColour=$008f00      screen=NewFXImage(2400,1600)   RenderToImage screen   Cls  BackdropColour   CircleC 800,400,400,true,$8f8f8f   CircleC 1700,400,400,true,$0f8faf      For lp=0 To 150      EllipseC Rnd(2400),Rnd(1600),RndRange(50,150),RndRange(10,50),true, BackdropColour   Next            Map=NewMap(50)    ; Create 1024 FX BLocks for this map   CreateMapGFX  Map,BlockWidth,BlockHeight,1024,BackdropColour,2      BlocksX=GetSurfaceWidth()/BlockWidth   BlocksY=GetSurfaceHeight()/BlockWidth      Level=NewLevel(Map,BlocksX,BlocksY)   LevelTransparent Map,Level,0   GetMapBlk Map,Tile,0,0      Tile=1   For ylp=0 To GetLevelHeight(map,level)-1      Ypos=ylp*BlockHeight      If Ypos+BlockHeight<=GetSurfaceHeight()         For xlp=0 To GetLevelWidth(map,level)-1            Xpos=xlp*BlockWidth            GetMapBlk Map,Tile,Xpos,ypos                        If GetMapBlockTransparent(Map,Tile)>-1               PokeLevelTile Map,Level,xlp,ylp,tile               tile++            EndIf            If Tile=>GetMapBlocks(Map) Then ExitFor ylp         Next      EndIf   Next      RenderToScreen    EndFunction Map,Level

Related Info:	CircleHitMap | CircleHitMapPixels | EllipseHitMap | EllipseHitMapPixels | GetMapBlockTransparent | RayHitMapPixels :

(c) Copyright 2002 - 2024 - Kevin Picone - PlayBASIC.com