polserver/testsuite/pol/testpkgs/attack/ai_attack.src
Kevin Eady 3ccf701ce9
Format testsuite scripts, pol-core support modules (#713)
* Format escript testsuite

* Manual formatting for escript testsuite
- Add format-off to places where formatter does what it should, but we don't like the results
- Manually change places where formatter outputs weird things _without_ format-off, so next format-all would show changes if not fixed

* Update .err files; add update_err.py helper script

Use the format `:line:col: message` for all .err file checks. This
allows us to change the file names without needing to edit the .err
contents.

Note that `in/inc0{1,2}.err` need have error messages between POSIX and
Windows, so their messages are a bit more "generic" than the other errs.

* Format pol testsuite

* Manual formatting for pol testsuite

* Format pol-core modules

* Manual formatting for pol-core modules

* Additional format pol-core modules

Use FormatterLineWidth=10000 since module functions must be on one line
because of the parse_modules target

* Address Discord comments

- Support multi-line module function declarations in parse_modules

* Format on df07831
2024-10-04 10:29:55 +02:00

31 lines
674 B
Text

use uo;
use os;
use npc;
include "sysevent";
program enteredarea()
var me := self();
while ( me )
var ev := wait_for_event( 5 );
if ( ev )
if ( ev.type == SYSEVENT_DISENGAGED )
SetOpponent( 0 );
elseif ( ev.type == SYSEVENT_ENGAGED )
SetOpponent( ev.source );
if ( ev.sleep > 0 )
Sleep( ev.sleep ); // Sleep to set ready-swing.
endif
if ( ev.unhide )
var ev := struct{ type := "BEFORE_UNHIDE", gameclock := ReadGameClock() };
GetProcess( GetObjProperty( me, "#TestPid" ) ).SendEvent( ev );
me.hidden := 0;
endif
endif
endif
endwhile
endprogram