XProfan

proc collidAngle(float x,y,xx,yy,xxx,yyy,xxxx,yyyy)

    volver wnk(x,y,xx,yy)-wnk(xxx,yyy,xxxx,yyyy)

ENDPROC

proc checkSingleVectorIntersection(float spx,spy,yrot,long i)

    bool intersect:=falso
    float collidA,rotA
    getcircp spx,spy,100,(yrot+180)
    float cx1:=cos_outpx
    float cy1:=cos_outpy
    float minDist:=3

    if LineIntersec(spx,spy,cx1,cy1,vects![i,0],vects![i,1],vects![i,2],vects![i,3])

        dist:=ptDist(spx,spy,intersection_x,intersection_y)

        if (dist<minDist)

            collidA:=90-mod(mod(360+collidAngle(spx,spy,cx1,cy1,vects![i,0],vects![i,1],vects![i,2],vects![i,3]),360),180)
            collidDisAngle:=collidA
            intersect:=true

        endif

    endif

    volver intersect

ENDPROC

proc checkVectorIntersection(float yrot,long i)

    casenot i : volver falso
    dec i
    bool intersect:=falso
    float x:=(map.spawnx+xpos)
    float y:=(map.spawny+zpos*-1)
    volver checkSingleVectorIntersection(x,y,yrot,i)

ENDPROC

proc Ogl.Entrada

    float ohead:=heading
    // get collidPixelMapPixels
    float opx:=px
    float opy:=py
    //tasten sichern
    int wup = iskey(38) + if(GetAsyncKeyState(1)<>0,1,0) + iskey(87)//up forward
    int wdw = iskey(40) + if(GetAsyncKeyState(2)<>0,1,0) + iskey(83)//dw backward
    int wleft =iskey(37)//left rotate left
    int wright =iskey(39)//right rotate right
    int wlstr =iskey(65)//a strafe left
    int wrstr =iskey(68)//d strafe right
    int wpgup =iskey(33)//pgup look up
    int wpgdw =iskey(34)//pgdw look down
    headnick:=if(wup,headnick+0.1*fpsd,0)
    caso wright : heading = heading - (2*fpsd)
    caso wleft : heading = heading + (2*fpsd)
    heading:=heading+(mdx-mousex)/2
    updw!:=updw!-(mdy-mousey)/4

    if (mousey<100) or (mousey>380) or (mousex<100) or (mousex>550)

        setcursorpos(maxx/2,maxy/2)
        waitinput

    endif

    mdx:=mousex
    mdy:=mousey
    caso updw>90 : updw:=90
    caso updw<-90 : updw:=-90
    // vector check collid
    float spd=(walkSpeed),ciangle1,heading2,ciangle2,dist1,dist2
    bool vi1,vi2
    heading2:=heading

    if wup

        px:=(map.spawnx-vminx+xpos)*terrainMulConst+4.0
        py:=(map.spawny-vminy+zpos*-1)*terrainMulConst+4.0
        vecpix1:=myterrain1::get(px,py)
        vecpix2:=myterrain2::get(px,py)
        evalpx:=myterrainEval::get(px-4,py-4)
        vi1:=checkVectorIntersection(heading,vecpix1)
        ciangle1:=collidDisAngle
        dist1:=dist
        vi2:=checkVectorIntersection(heading,vecpix2)
        ciangle2:=collidDisAngle
        dist2:=dist
        settext hwnd,str$(vi1)+ +str$(vi2)

        if vi1+vi2

            float angleSum
            ...