| 0,0 → 1,150 |
|---|
| ;--------------------------------------------------------------------- |
| actions_for_all_cell: |
| ;; DEBUGF 1, "actions_for_all\n" |
| ; set start coordinates |
| mov ebx,LEVEL_MAP_SIZE_Y |
| mov ecx,plan_level+(LEVEL_MAP_SIZE_Y*LEVEL_MAP_SIZE_X*4)-4 |
| ;-------------------------------------- |
| .new_y: |
| mov eax,LEVEL_MAP_SIZE_X |
| ;-------------------------------------- |
| .new_x: |
| push eax ebx ecx |
| mov [action_cell_x],eax |
| mov [action_cell_y],ebx |
| mov edx,[ecx] |
| mov [current_cell_NPC],dh |
| test dh,dh ; empty |
| jz .end_processing_sell |
| ; mov ebp,ecx |
| ; sub ebp,plan_level |
| ; DEBUGF 1, "Y : %x X: %x cell: %x ebp: %x\n",ebx,eax,edx,ebp |
| ror edx,16 |
| test dh,dh |
| jnz .end_processing_sell |
| |
| test dl,dl |
| jz .end_processing_sell |
| |
| ; call processing_NPC_route |
| ; DEBUGF 1, "new cell: %x\n",edx |
| |
| cmp [current_cell_NPC],OBJECT_FINAL_MONSTER |
| ja @f |
| |
| call processing_npc_action |
| jmp .end_processing_sell |
| ;-------------------------------------- |
| @@: |
| cmp [current_cell_NPC],OBJECT_PROTAGONIST |
| jne @f |
| |
| call processing_protagonist_action |
| jmp .end_processing_sell |
| ;-------------------------------------- |
| @@: |
| cmp [current_cell_NPC],OBJECT_WHITE_BRICK |
| jne .end_processing_sell |
| |
| call processing_white_brick |
| ;-------------------------------------- |
| .end_processing_sell: |
| pop ecx ebx eax |
| |
| sub ecx,4 |
| dec eax |
| jnz .new_x |
| |
| dec ebx |
| jnz .new_y |
| ;; DEBUGF 1, "actions_for_all END\n" |
| ret |
| ;--------------------------------------------------------------------- |
| action_stop: |
| ; DEBUGF 1, "action_stop\n" |
| mov dx,0x0100 |
| rol edx,16 |
| mov [ecx],edx |
| ret |
| ;--------------------------------------------------------------------- |
| object_death: |
| mov dx,0x01 |
| shl edx,24 |
| mov [ecx],edx |
| ret |
| ;--------------------------------------------------------------------- |
| save_route_to_current_position: |
| ror eax,16 |
| mov ax,si |
| rol eax,16 |
| rol edx,16 |
| mov ax,dx |
| mov [ecx],eax ; new route for unit |
| ret |
| ;--------------------------------------------------------------------- |
| save_new_and_clear_old_position: |
| ; DEBUGF 1, "save_new_and_clear_old_position\n" |
| ror eax,16 |
| mov ax,si |
| rol eax,16 |
| rol edx,16 |
| mov ah,dh |
| mov [edi],eax ; new cell for unit |
| and edx,0xff |
| add edx,0x01000000 ; clear old cell and show |
| mov [ecx],edx |
| ; copy object id |
| mov eax,[ecx+LEVEL_MAP_SIZE_X*LEVEL_MAP_SIZE_Y*4] |
| mov [edi+LEVEL_MAP_SIZE_X*LEVEL_MAP_SIZE_Y*4],eax |
| xor eax,eax |
| mov [ecx+LEVEL_MAP_SIZE_X*LEVEL_MAP_SIZE_Y*4],eax |
| ret |
| ;--------------------------------------------------------------------- |
| harvest_of_death: |
| mov [death_of_protagonist],0 |
| mov esi,plan_level |
| mov ecx,LEVEL_MAP_SIZE_X*LEVEL_MAP_SIZE_Y |
| cld |
| ;-------------------------------------- |
| .loop: |
| lodsd |
| |
| test ah,ah |
| jz .counter |
| |
| cmp al,BASE_LAVA |
| je .base_lava |
| |
| cmp al,BASE_WATER |
| je .base_water |
| ;-------------------------------------- |
| .counter: |
| dec ecx |
| jnz .loop |
| |
| ret |
| ;-------------------------------------- |
| .base_water: |
| cmp ah,OBJECT_PROTAGONIST |
| jne .kill_object |
| ;-------------------------------------- |
| .kill_protagonist: |
| mov [death_of_protagonist],1 |
| jmp .kill_object |
| ;-------------------------------------- |
| .base_lava: |
| cmp ah,OBJECT_PROTAGONIST |
| je .kill_protagonist |
| |
| cmp ah,OBJECT_SKELETON |
| ja .counter |
| ;-------------------------------------- |
| .kill_object: |
| ; DEBUGF 1, "kill_object\n" |
| and eax,0x000000ff |
| add eax,0x01000000 |
| mov [esi-4],eax |
| xor eax,eax |
| mov [esi-4-plan_level+objects_id],eax |
| jmp .counter |
| ;--------------------------------------------------------------------- |