Subversion Repositories nw_plus

Rev

Rev 1 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 Rev 66
Line 277... Line 277...
277
277
278
278
279
useractor notenemy SNOW 0
279
useractor notenemy SNOW 0
280
  sizeat 4 4
280
  sizeat 4 4
281
281
282
  addvar temp2 16
282
  addvar nw_temp2 16
283
  ifvarg temp2 2047 subvar temp2 4095
283
  ifvarg nw_temp2 2047 subvar nw_temp2 4095
284
  setvarvar temp3 temp2
284
  setvarvar nw_temp3 nw_temp2
285
  sin temp3 temp3
285
  sin nw_temp3 nw_temp3
286
  shiftvarr temp3 5
286
  shiftvarr nw_temp3 5
287
287
288
/*
288
/*
289
  getactor[THISACTOR].x x
289
  getactor[THISACTOR].x nw_x
290
  getactor[THISACTOR].y y
290
  getactor[THISACTOR].y nw_y
291
  getactor[THISACTOR].z z
291
  getactor[THISACTOR].z nw_z
292
292
293
  updatesectorz x y z temp
293
  updatesectorz nw_x nw_y nw_z nw_temp
294
  getactor[THISACTOR].zvel z
294
  getactor[THISACTOR].zvel nw_z
295
  ifvare sector[temp].lotag 2
295
  ifvare sector[nw_temp].lotag 2
296
    {
296
    {
297
      ifvarl z 64
297
      ifvarl nw_z 64
298
        {
298
        {
299
          setvar tempb GRAVITATIONALCONSTANT
299
          setvar nw_tempb GRAVITATIONALCONSTANT
300
          shiftvarr tempb 5
300
          shiftvarr nw_tempb 5
301
          addvarvar tempb temp4
301
          addvarvar nw_tempb temp4
302
          addvarvar z tempb
302
          addvarvar nw_z nw_tempb
303
        }
303
        }
304
    }
304
    }
305
  else
305
  else
306
    {
306
    {
307
      ifvarl z 144
307
      ifvarl nw_z 144
308
        {
308
        {
309
          setvar tempb GRAVITATIONALCONSTANT
309
          setvar nw_tempb GRAVITATIONALCONSTANT
310
          shiftvarr tempb 5
310
          shiftvarr nw_tempb 5
311
          addvarvar tempb temp4
311
          addvarvar nw_tempb temp4
312
          addvarvar z tempb
312
          addvarvar nw_z nw_tempb
313
        }
313
        }
314
    }
314
    }
315
*/
315
*/
316
316
317
  movesprite THISACTOR temp3 0 256 CLIPMASK0 RETURN
317
  movesprite THISACTOR nw_temp3 0 256 CLIPMASK0 RETURN
318
  ifvarn RETURN 0 killit
318
  ifvarn RETURN 0 killit
319
319
320
320
321
  getactor[THISACTOR].x x
321
  getactor[THISACTOR].x nw_x
322
  getactor[THISACTOR].y y
322
  getactor[THISACTOR].y nw_y
323
  getactor[THISACTOR].z z
323
  getactor[THISACTOR].z nw_z
324
324
325
  updatesectorz x y z temp
325
  updatesectorz nw_x nw_y nw_z nw_temp
326
  ifvarn temp -1 getflorzofslope temp x y temp2 else killit
326
  ifvarn nw_temp -1 getflorzofslope nw_temp nw_x nw_y nw_temp2 else killit
327
327
328
  ifvarvare z temp2 killit
328
  ifvarvare nw_z nw_temp2 killit
329
329
330
enda
330
enda