BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /programs/games/rstearth/actions_npc.inc @ 5252

  → /programs/games/rstearth/actions_npc.inc @ 5253

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 5252 → Rev 5253

/programs/games/rstearth/actions_npc.inc
0,0 → 1,401
;---------------------------------------------------------------------
processing_npc_action:
; DEBUGF 1, "processing_npc_action\n"
cmp dl,ROUTE_UP
je npc_route_up
cmp dl,ROUTE_DOWN
je npc_route_down
cmp dl,ROUTE_LEFT
je npc_route_left
cmp dl,ROUTE_RIGHT
je npc_route_right
ret
;---------------------------------------------------------------------
npc_route_up:
; DEBUGF 1, "npc route_up\n"
cmp ebx,1 ; border of map?
jne @f
;--------------------------------------
.change_route:
; DEBUGF 1, "npc .change_route_up\n"
mov dx,0x0100+ROUTE_RIGHT
call get_random_binary
test al,al
jz .save_new_route
mov dx,0x0100+ROUTE_DOWN
;--------------------------------------
.save_new_route:
rol edx,16
mov [ecx],edx
ret
;--------------------------------------
@@:
; DEBUGF 1, "npc up @@:\n"
call npc_search_target_up_left
cmp [target_detected],1
jne @f
mov edi,TARGET_RANGE
sub edi,[target_action_cell_x]
mov ebx,TARGET_RANGE
sub ebx,[target_action_cell_y]
; DEBUGF 1, "%x npc_route_up target_up_left X: %x Y: %x\n",[current_cell_NPC]:1,edi,ebx
cmp edi,ebx
jb .continue
mov si,0x0100+ROUTE_LEFT
jmp save_route_to_current_position
;--------------------------------------
@@:
call npc_search_target_up_right
cmp [target_detected],1
jne @f
mov edi,[target_action_cell_x]
dec edi
mov ebx,TARGET_RANGE
sub ebx,[target_action_cell_y]
; DEBUGF 1, "%x npc_route_up target_up_right X: %x Y: %x\n",[current_cell_NPC]:1,edi,ebx
cmp edi,ebx
jb .continue
mov si,0x0100+ROUTE_RIGHT
jmp save_route_to_current_position
;--------------------------------------
@@:
.continue:
mov eax,[ecx-LEVEL_MAP_SIZE_X*4]
cmp ah,OBJECT_PROTAGONIST
je .continue_1
test ah,ah
jnz .change_route
;--------------------------------------
@@:
cmp al,BASE_WATER
jz .change_route
cmp al,BASE_LAVA
jz .change_route
;--------------------------------------
.continue_1:
; DEBUGF 1, "npc good route up\n"
mov si,0x0100+ROUTE_UP
mov edi,ecx
sub edi,LEVEL_MAP_SIZE_X*4
jmp save_new_and_clear_old_position
;---------------------------------------------------------------------
npc_route_down:
; DEBUGF 1, "npc route_down\n"
cmp ebx,LEVEL_MAP_SIZE_Y ; border of map?
jne @f
;--------------------------------------
.change_route:
; DEBUGF 1, "npc .change_route_down\n"
mov dx,0x0100+ROUTE_LEFT
call get_random_binary
test al,al
jz .save_new_route
mov dx,0x0100+ROUTE_UP
;--------------------------------------
.save_new_route:
rol edx,16
mov [ecx],edx
ret
;--------------------------------------
@@:
; DEBUGF 1, "npc down @@:\n"
call npc_search_target_down_left
cmp [target_detected],1
jne @f
mov edi,TARGET_RANGE
sub edi,[target_action_cell_x]
mov ebx,[target_action_cell_y]
dec ebx
; DEBUGF 1, "%x npc_route_down target_down_left X: %x Y: %x\n",[current_cell_NPC]:1,edi,ebx
cmp edi,ebx
jb .continue
mov si,0x0100+ROUTE_LEFT
jmp save_route_to_current_position
;--------------------------------------
@@:
call npc_search_target_down_right
cmp [target_detected],1
jne @f
mov edi,[target_action_cell_x]
dec edi
mov ebx,[target_action_cell_y]
; DEBUGF 1, "%x npc_route_down target_down_right X: %x Y: %x\n",[current_cell_NPC]:1,edi,ebx
cmp edi,ebx
jb .continue
mov si,0x0100+ROUTE_RIGHT
jmp save_route_to_current_position
;--------------------------------------
@@:
.continue:
mov eax,[ecx+LEVEL_MAP_SIZE_X*4]
cmp ah,OBJECT_PROTAGONIST
je .continue_1
test ah,ah
jnz .change_route
;--------------------------------------
@@:
cmp al,BASE_WATER
jz .change_route
cmp al,BASE_LAVA
jz .change_route
;--------------------------------------
.continue_1:
; DEBUGF 1, "npc good route down\n"
mov si,0x0100+ROUTE_DOWN
mov edi,ecx
add edi,LEVEL_MAP_SIZE_X*4
jmp save_new_and_clear_old_position
;---------------------------------------------------------------------
npc_route_left:
; DEBUGF 1, "npc route_left\n"
cmp eax,1 ; border of map?
jne @f
;--------------------------------------
.change_route:
; DEBUGF 1, "npc .change_route_left\n"
mov dx,0x0100+ROUTE_UP
call get_random_binary
test al,al
jz .save_new_route
mov dx,0x0100+ROUTE_RIGHT
;--------------------------------------
.save_new_route:
rol edx,16
mov [ecx],edx
ret
;--------------------------------------
@@:
; DEBUGF 1, "npc left @@:\n"
call npc_search_target_up_left
cmp [target_detected],1
jne @f
mov edi,TARGET_RANGE
sub edi,[target_action_cell_x]
mov ebx,TARGET_RANGE
sub ebx,[target_action_cell_y]
; DEBUGF 1, "%x npc_route_left target_up_left X: %x Y: %x\n",[current_cell_NPC]:1,edi,ebx
cmp edi,ebx
jae .continue
mov si,0x0100+ROUTE_UP
jmp save_route_to_current_position
;--------------------------------------
@@:
call npc_search_target_down_left
cmp [target_detected],1
jne @f
mov edi,TARGET_RANGE
sub edi,[target_action_cell_x]
mov ebx,[target_action_cell_y]
dec ebx
; DEBUGF 1, "%x npc_route_left target_down_left X: %x Y: %x\n",[current_cell_NPC]:1,edi,ebx
cmp edi,ebx
jae .continue
mov si,0x0100+ROUTE_DOWN
jmp save_route_to_current_position
;--------------------------------------
@@:
.continue:
mov eax,[ecx-4]
cmp ah,OBJECT_PROTAGONIST
je .continue_1
test ah,ah
jnz .change_route
;--------------------------------------
@@:
cmp al,BASE_WATER
jz .change_route
cmp al,BASE_LAVA
jz .change_route
;--------------------------------------
.continue_1:
; DEBUGF 1, "npc good route left\n"
mov si,0x0100+ROUTE_LEFT
mov edi,ecx
sub edi,4
jmp save_new_and_clear_old_position
;---------------------------------------------------------------------
npc_route_right:
; DEBUGF 1, "npc route_right\n"
cmp eax,LEVEL_MAP_SIZE_X ; border of map?
jne @f
;--------------------------------------
.change_route:
; DEBUGF 1, "npc .change_route_right\n"
mov dx,0x0100+ROUTE_DOWN
call get_random_binary
test al,al
jz .save_new_route
mov dx,0x0100+ROUTE_LEFT
;--------------------------------------
.save_new_route:
rol edx,16
mov [ecx],edx
ret
;--------------------------------------
@@:
; DEBUGF 1, "npc righ @@:\n"
call npc_search_target_up_right
cmp [target_detected],1
jne @f
mov edi,[target_action_cell_x]
dec edi
mov ebx,TARGET_RANGE
sub ebx,[target_action_cell_y]
; DEBUGF 1, "%x npc_route_right target_up_right X: %x Y: %x\n",[current_cell_NPC]:1,edi,ebx
cmp edi,ebx
jae .continue
mov si,0x0100+ROUTE_UP
jmp save_route_to_current_position
;--------------------------------------
@@:
call npc_search_target_down_right
cmp [target_detected],1
jne @f
mov edi,[target_action_cell_x]
dec edi
mov ebx,[target_action_cell_y]
dec ebx
; DEBUGF 1, "%x npc_route_right target_down_right X: %x Y: %x\n",[current_cell_NPC]:1,edi,ebx
cmp edi,ebx
jae .continue
mov si,0x0100+ROUTE_DOWN
jmp save_route_to_current_position
;--------------------------------------
@@:
.continue:
mov eax,[ecx+4]
cmp ah,OBJECT_PROTAGONIST
je .continue_1
test ah,ah
jnz .change_route
;--------------------------------------
@@:
cmp al,BASE_WATER
jz .change_route
cmp al,BASE_LAVA
jz .change_route
;--------------------------------------
.continue_1:
; DEBUGF 1, "npc good route righ\n"
mov si,0x0100+ROUTE_RIGHT
mov edi,ecx
add edi,4
jmp save_new_and_clear_old_position
;---------------------------------------------------------------------
npc_search_target_up_left:
; DEBUGF 1, "%x npc_search_target_up_left X: %x Y: %x\n",[current_cell_NPC]:1,[action_cell_x],[action_cell_y]
push ecx
sub ecx,TARGET_RANGE * 4 ; offset x
sub ecx,TARGET_RANGE * LEVEL_MAP_SIZE_X * 4 ; offset y
jmp npc_search_target
;---------------------------------------------------------------------
npc_search_target_up_right:
; DEBUGF 1, "%x npc_search_target_up_right X: %x Y: %x\n",[current_cell_NPC]:1,[action_cell_x],[action_cell_y]
push ecx
sub ecx,TARGET_RANGE * LEVEL_MAP_SIZE_X * 4 ; offset y
sub ecx,4 ; offset x
jmp npc_search_target
;---------------------------------------------------------------------
npc_search_target_down_left:
; DEBUGF 1, "%x npc_search_target_down_left X: %x Y: %x\n",[current_cell_NPC]:1,[action_cell_x],[action_cell_y]
push ecx
sub ecx,LEVEL_MAP_SIZE_X * 4 ; offset y
sub ecx,TARGET_RANGE * 4 ; offset x
jmp npc_search_target
;---------------------------------------------------------------------
npc_search_target_down_right:
; DEBUGF 1, "%x npc_search_target_down_right X: %x Y: %x\n",[current_cell_NPC]:1,[action_cell_x],[action_cell_y]
push ecx
sub ecx,LEVEL_MAP_SIZE_X * 4 ; offset y
sub ecx,4 ; offset x
;---------------------------------------------------------------------
npc_search_target:
push eax
mov [target_detected],0
mov ebx,TARGET_RANGE
;--------------------------------------
.y:
mov eax,TARGET_RANGE
; DEBUGF 1, "current cell next y\n"
;--------------------------------------
.x:
push eax ebx ecx
mov [target_action_cell_x],eax
mov [target_action_cell_y],ebx
shl eax,2
add ecx,eax
imul ebx,LEVEL_MAP_SIZE_X*4
add ecx,ebx
cmp ecx,plan_level
jb @f
cmp ecx,plan_level+LEVEL_MAP_SIZE_X*LEVEL_MAP_SIZE_Y*4-4
ja @f
mov eax,[ecx]
; DEBUGF 1, "current cell %x\n",eax
cmp ah,OBJECT_PROTAGONIST
jne @f
pop ecx ebx eax
mov [target_detected],1
; DEBUGF 1, "%x target_detected X: %x Y: %x\n",[current_cell_NPC]:1,[target_action_cell_x],[target_action_cell_y]
jmp .exit
;--------------------------------------
@@:
pop ecx ebx eax
dec eax
jnz .x
dec ebx
jnz .y
.exit:
pop eax ecx
ret
;---------------------------------------------------------------------