mirror of https://github.com/ZDoom/raze-gles.git
48 lines
858 B
Plaintext
48 lines
858 B
Plaintext
// m32 script test & show-off file
|
|
// do "include a" in the console
|
|
|
|
include names.h
|
|
|
|
gamevar i 0 1 // per-block (top-level, event, or state) variable
|
|
gamevar j 0 1
|
|
|
|
gamevar davr 65536 0
|
|
gamevar dayx 65536 0
|
|
|
|
definequote 0 OK
|
|
definequote 1 DAMN
|
|
|
|
gamearray ar 128
|
|
gamearray parm 8
|
|
|
|
defstate artest
|
|
for j range 128
|
|
set ar[j] j
|
|
set i 0
|
|
for j range 128
|
|
add i ar[j]
|
|
ife i 8128 quote 0 else quote 1
|
|
ends
|
|
|
|
defstate setas
|
|
set j dayx
|
|
mul j ydim mul j 8
|
|
div j xdim div j 5
|
|
setaspect davr j
|
|
ends
|
|
|
|
onevent EVENT_ANALYZESPRITES
|
|
for i drawnsprites
|
|
ifactor LIZTROOP spritepal 6
|
|
endevent
|
|
|
|
onevent EVENT_ENTER3DMODE
|
|
state setas
|
|
endevent
|
|
|
|
defstate itertest
|
|
for i spritesofsector searchsector
|
|
// ife sprite[i].picnum AMMO set sprite[i].picnum BATTERYAMMO
|
|
ifactor parm[0] cactor parm[1]
|
|
ends
|