raze-gles/polymer/eduke32/a.m32

48 lines
858 B
Text
Raw Normal View History

// 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