; AI FOR XLR8 ; ; By ; Giles Goddard malc m_aitest1,2 ;******************************************************************* ; mdo_carAI - car artificial intelligence ; ; entry: ; r8 : ptr. to car ; rcarptr = r8 rcarflags = r4 rmactmp1 = r3 rt3 = r3 rsp = r10 mdo_carAI ; move pc,r11 ; nop mpush r11 ; mloadw rcarflags,CAR_FLAGS,rcarptr ; mclrreg rcarflags,(CARflag_steerLeft!CARflag_steerRight) mloadw r1,OBJ_WORLDX,rcarptr mloadw r2,OBJ_WORLDY,rcarptr mloadw r3,OBJ_WORLDZ,rcarptr iwt r4,#OBJTYPE_marker mcall mfind_nearobj nop mtest r5 beq .nnext .nnear nop iwt r4,#0 ; stop mloadw r1,TOBJ_NEXT,r5 mtest r1 beq .nnext nop move r5,r1 iwt r4,#200 ; max speed .nnext mstorew r5,CAR_NEARMARKER,rcarptr ; mloadw r1,TOBJ_FLAGS,r5 ; msetreg r1,TOBJflag_hitflash ; mstorew r1,TOBJ_FLAGS,r5 mcall mcar_aimfor nop .nnear lm r1,[m_aitest1] mstorew r1,CAR_TEST1,rcarptr ; mloadw rcarflags,CAR_FLAGS,rcarptr ; msetreg rcarflags,CARflag_Accel ; mstorew rcarflags,CAR_FLAGS,rcarptr mloadw r0,CAR_HANDOBJ,rcarptr mtest r0 beq .nhanddir nop mloadw r0,OBJ_ROTY,rcarptr move rt3,r0 sub r1 div2 div2 with rt3 sub r0 mstorew rt3,OBJ_ROTY,rcarptr .nhanddir mpop pc nop ;************************************************************************ ; mcar_aimfor ; make car aim for an object. ; ; entry: ; r8 = ptr. to car ; r5 = ptr. to object ; r4 = max speed rcarptr = r8 robjptr = r5 rcarflags = r9 rmaxspeed = r4 mcar_aimfor mpush r11 mpush r4 mcall mobj2obj_Yangle nop move r1,r0 mloadw r0,OBJ_ROTY,rcarptr with r1 sub r0 mpop r4 mloadw rcarflags,CAR_FLAGS,rcarptr iwt r0,#CARflag_makestop and rcarflags mlbne .donespeed mclrreg rcarflags,CARflag_Accel!CARflag_Brake!CARflag_dynoff!CARflag_boost iwt r2,#-deg22*256 iwt r3,#deg22*256 mrange r1,r2,r3,.brake mtest r4 bne .nbrake nop ; msetreg rcarflags,CARflag_hitflash ; msetreg rcarflags,CARflag_dynoff ; msetreg rcarflags,CARflag_invisible ; msetreg rcarflags,CARflag_makestop msetreg rcarflags,CARflag_Accel bra .end nop .brake msetreg rcarflags,CARflag_Brake ; msetreg rcarflags,CARflag_hitflash bra .naccel nop .nbrake ; mclrreg rcarflags,CARflag_hitflash mcar_jmp_faster r4,.naccel msetreg rcarflags,CARflag_Accel ; msetreg rcarflags,CARflag_boost .naccel mcar_jmp_faster #50,.ndead msetreg rcarflags,CARflag_Accel mclrreg rcarflags,CARflag_Brake ; mclrreg rcarflags,CARflag_hitflash .ndead mstorew r1,CAR_ENGINEROTY,rcarptr .end mstorew rcarflags,CAR_FLAGS,rcarptr .donespeed mpop pc nop ;************************************************************************ ; mget_best_line - get best angle for wheels to be in ; ; entry: ; r8 = ptr. to car ; r1 = maximum angle ; exit: ; r1 = wheel angle ; uses: ; probably all ; rcarptr = r8 robjptr = r5 mget_best_line mpush r11 mpush r1 mloadw r1,OBJ_WORLDX,rcarptr mloadw r2,OBJ_WORLDY,rcarptr mloadw r3,OBJ_WORLDZ,rcarptr ; iwt r4,#OBJTYPE_road iwt r4,#OBJTYPE_marker mcall mfind_nearobj nop mtest r5 beq .nnear nop mloadw r1,TOBJ_NEXT,r5 mtest r1 beq .nnext nop move r5,r1 .nnext mstorew r5,CAR_NEARMARKER,rcarptr mcall mobj2obj_Yangle nop move r1,r0 mloadw r0,OBJ_ROTY,rcarptr with r1 sub r0 mpop r3 move r2,r3 mneg r2 mrange r1,r2,r3 mpop pc nop .nnear mpop r0 iwt r1,#0 mpop pc nop ;************************************************************************ ; mobj2obj_Yangle - calculate Y angle between 2 objects. ; ; entry: ; r8 = object 1 ; r5 = object 2 ; exit: ; r8 = object 1 ; r0 = Y angle ; ; uses: r3-r6,r12,r13 ; robj1ptr = r8 robj2ptr = r5 mobj2obj_Yangle mpush r11 mloadw r1,OBJ_WORLDX,robjptr mloadw r2,OBJ_WORLDZ,robjptr mloadw r0,OBJ_WORLDX,robj1ptr with r1 sub r0 mloadw r0,OBJ_WORLDZ,robj1ptr with r2 sub r0 mcall marctan16 nop mneg r0 mpop pc nop ;************************************************************************ ; mfind_nearobj - find nearest object to world position in r1-r3. ; ; entry: ; r1-r3 = obj1 position ; r4 = type ON mask (only check objects with this type flag set) ; exit: ; r5 = ptr. to nearest object. ; r6 = estimated distance to nearest object. ; ; trashes: r1-r7,r9 ; robjposx = r1 robjposy = r2 robjposz = r3 robjptr = r7 rclosestobj = r5 rclosestdist = r6 rt1 = r9 rflagsonmask = r4 mfind_nearobj ibt rclosestobj,#0 iwt rclosestdist,#32767 sub r0 sm [m_aitest1],r0 lm r0,[m_objects] .loop moves robjptr,r0 beq .noobjs nop ; check flags ON mask. mloadw rt1,OBJ_TYPE,robjptr from rt1 and rflagsonmask beq .nextobj nop lm r0,[m_aitest1] inc r0 sm [m_aitest1],r0 mloadw r0,OBJ_WORLDX,robjptr sub robjposx bpl .nnegx nop mneg r0 .nnegx move rt1,r0 mloadw r0,OBJ_WORLDZ,robjptr sub robjposz bpl .nnegz nop mneg r0 .nnegz from rt1 add r0 cmp rclosestdist bpl .nextobj nop move rclosestdist,r0 move rclosestobj,robjptr .nextobj mloadw r0,OBJ_NEXT,robjptr bra .loop nop .noobjs move pc,r11 nop ;****************************************************************************** ifeq 1 mloadw r0,OBJ_WORLDX,rcarptr iwt r1,#0 -20<