(script 982)

(string
)

(said
)

(local
)


// EXPORTED procedure #0 (IsOffScreen)
(procedure proc_0010
  0010:76               push0 
  0011:39 04            pushi 4 // $4 x
  0013:76               push0 
  0014:87 01              lap param1 
  0016:4a 04             send 4 

  0018:22                 lt? 
  0019:31 05              bnt code_0020 
  001b:60               pprev 
  001c:34 0140            ldi 140 
  001f:22                 lt? 

        code_0020
  0020:31 1d              bnt code_003f 
  0022:76               push0 
  0023:39 03            pushi 3 // $3 y
  0025:76               push0 
  0026:87 01              lap param1 
  0028:4a 04             send 4 

  002a:36                push 
  002b:39 55            pushi 55 // $55 z
  002d:76               push0 
  002e:87 01              lap param1 
  0030:4a 04             send 4 

  0032:04                 sub 
  0033:22                 lt? 
  0034:31 05              bnt code_003b 
  0036:60               pprev 
  0037:34 00c8            ldi c8 
  003a:22                 lt? 

        code_003b
  003b:31 02              bnt code_003f 
  003d:35 01              ldi 1 

        code_003f
  003f:18                 not 
  0040:48                 ret 
)

// EXPORTED procedure #1 (CantBeSeen)
(procedure proc_0041
  0041:3f 07             link 7 // (var $7)
  0043:87 02              lap param2 
  0045:a5 00              sat temp0 
  0047:87 03              lap param3 
  0049:a5 01              sat temp1 
  004b:87 04              lap param4 
  004d:a5 02              sat temp2 
  004f:8f 00              lsp paramTotal 
  0051:35 04              ldi 4 
  0053:22                 lt? 
  0054:31 28              bnt code_007e 
  0056:34 7fff            ldi 7fff 
  0059:a5 02              sat temp2 
  005b:8f 00              lsp paramTotal 
  005d:35 03              ldi 3 
  005f:22                 lt? 
  0060:31 1c              bnt code_007e 
  0062:8f 00              lsp paramTotal 
  0064:35 02              ldi 2 
  0066:22                 lt? 
  0067:31 04              bnt code_006d 
  0069:81 00              lag gEgo 
  006b:a5 00              sat temp0 

        code_006d
  006d:38 0168          pushi 168 // $168 sel_360
  0070:8d 00              lst temp0 
  0072:81 00              lag gEgo 
  0074:1a                 eq? 
  0075:31 04              bnt code_007b 
  0077:7a               push2 
  0078:81 38              lag global56 
  007a:06                 mul 

        code_007b
  007b:04                 sub 
  007c:a5 01              sat temp1 

        code_007e
  007e:39 04            pushi 4 // $4 x
  0080:76               push0 
  0081:87 01              lap param1 
  0083:4a 04             send 4 

  0085:a5 03              sat temp3 
  0087:39 03            pushi 3 // $3 y
  0089:76               push0 
  008a:87 01              lap param1 
  008c:4a 04             send 4 

  008e:a5 04              sat temp4 
  0090:39 04            pushi 4 // $4 x
  0092:76               push0 
  0093:85 00              lat temp0 
  0095:4a 04             send 4 

  0097:a5 05              sat temp5 
  0099:39 03            pushi 3 // $3 y
  009b:76               push0 
  009c:85 00              lat temp0 
  009e:4a 04             send 4 

  00a0:a5 06              sat temp6 
  00a2:8f 01              lsp param1 
  00a4:85 00              lat temp0 
  00a6:1c                 ne? 
  00a7:31 3e              bnt code_00e7 
  00a9:8d 01              lst temp1 
  00ab:35 02              ldi 2 
  00ad:08                 div 
  00ae:36                push 
  00af:78               push1 
  00b0:7a               push2 
  00b1:39 04            pushi 4 // $4 x
  00b3:8d 05              lst temp5 
  00b5:8d 06              lst temp6 
  00b7:8d 03              lst temp3 
  00b9:8d 04              lst temp4 
  00bb:43 43 08         callk GetAngle 8 

  00be:36                push 
  00bf:39 3a            pushi 3a // $3a heading
  00c1:76               push0 
  00c2:85 00              lat temp0 
  00c4:4a 04             send 4 

  00c6:36                push 
  00c7:41 1e 04          call proc_00e8 4 

  00ca:36                push 
  00cb:43 41 02         callk Abs 2 

  00ce:22                 lt? 
  00cf:2f 14               bt code_00e5 
  00d1:8d 02              lst temp2 
  00d3:39 05            pushi 5 // $5 view
  00d5:8d 05              lst temp5 
  00d7:8d 06              lst temp6 
  00d9:8d 03              lst temp3 
  00db:8d 04              lst temp4 
  00dd:89 33              lsg gPerspective 
  00df:43 44 0a         callk GetDistance a 

  00e2:22                 lt? 
  00e3:31 02              bnt code_00e7 

        code_00e5
  00e5:35 01              ldi 1 

        code_00e7
  00e7:48                 ret 
)

// EXPORTED procedure #2 (AngleDiff)
(procedure proc_00e8
  00e8:8f 00              lsp paramTotal 
  00ea:35 02              ldi 2 
  00ec:20                 ge? 
  00ed:31 07              bnt code_00f6 
  00ef:8f 01              lsp param1 
  00f1:87 02              lap param2 
  00f3:04                 sub 
  00f4:a7 01              sap param1 

        code_00f6
  00f6:8f 01              lsp param1 
  00f8:34 ff4c            ldi ff4c 
  00fb:24                 le? 
  00fc:31 08              bnt code_0106 
  00fe:8f 01              lsp param1 
  0100:34 0168            ldi 168 
  0103:02                 add 
  0104:33 12              jmp code_0118 

        code_0106
  0106:8f 01              lsp param1 
  0108:34 00b4            ldi b4 
  010b:1e                 gt? 
  010c:31 08              bnt code_0116 
  010e:8f 01              lsp param1 
  0110:34 0168            ldi 168 
  0113:04                 sub 
  0114:33 02              jmp code_0118 

        code_0116
  0116:87 01              lap param1 

        code_0118
  0118:48                 ret 
  0119:00                bnot 
)


