Particle Trail!

[ArdTheSheep]

THIS ONLY WORKS IN COOP-EDIT

The original idea is from the MIA player known as Nyne.

I believe the original RAINBOW concept is by 'nopnotme'. 

Here is my version of the script.

To turn it ON/OFF type: /ardtrail

// original idea by Nop_Not_Me
// Ardelico's Version

ardtrail = [
   if (= $lasertrailtoggle 1) [
   echo "^f6Laser Trail ^f3Off"
   lasertrailtoggle = 0
   deletelasertrail
   ] [
   echo "^f6Laser Trail ^f0On"
   lasertrailtoggle = 1
   lasertrail
   ]
]
lasertrailtoggle = 0

lasertrail = [
   if (= $lasertrailtoggle 1) [
      if (= $editing 0) edittoggle
      // blue
      entfind particles 10 503 6 * 420
      delent
      entfind particles 4 355 7 * 421
      entset particles 10 503 6 0x0CF 420
      cancelsel
      entfind particles 10 503 8 * 422
      entset particles 4 355 7 0x09F 421
      cancelsel
      entfind particles 10 503 9 * 423
      entset particles 10 503 8 0x06F 422
      cancelsel
      entfind particles 7 503 10 * 424
      entset particles 10 503 9 0x03F 423
      cancelsel
      entfind particles 10 503 11 * 425
      entset particles 7 503 10 0x00F 424
      cancelsel
      // green
      entfind particles 10 503 12 * 426
      entset particles 10 503 11 0x040 425
      cancelsel
      entfind particles 10 503 13 * 427
      entset particles 10 503 12 0x060 426
      cancelsel
      entfind particles 4 355 14 * 428
      entset particles 10 503 13 0x090 427
      cancelsel
      entfind particles 10 503 15 * 429
      entset particles 4 355 14 0x0C0 428
      cancelsel
      entfind particles 10 503 16 * 430
      entset particles 10 503 15 0x0F0 429
      cancelsel
      // yellow
      entfind particles 13 503 17 * 431
      entset particles 10 503 16 0xFF60 430
      cancelsel
      entfind particles 10 503 18 * 432
      entset particles 13 503 17 0xFF80 431
      cancelsel
      entfind particles 10 503 19 * 433
      entset particles 10 503 18 0xFFA0 432
      cancelsel
      entfind particles 13 503 20 * 434
      entset particles 10 503 19 0xFFd0 433
      cancelsel
      entfind particles 4 503 21 * 435
      entset particles 13 503 20 0xFFF0 434
      cancelsel
      // red
      entfind particles 10 503 22 * 436
      entset particles 4 503 21 0xFF40 435
      cancelsel
      entfind particles 7 503 23 * 437
      entset particles 10 503 22 0xFF30 436
      cancelsel
      entfind particles 10 503 24 * 438
      entset particles 7 503 23 0xFF20 437
      cancelsel
      entfind particles 4 503 25 * 439
      entset particles 10 503 24 0xFF10 438
      cancelsel
      entdrop 0
      newent particles 4 503 25 0xFF00 439
      if (= $editing 1) edittoggle;
      sleep 90 [
         lasertrail
      ]
   ]
]

deletelasertrail = [
   if (= $editing 0) [
      edittoggle
      entfind particles * * * * 420
      entfind particles * * * * 421
      entfind particles * * * * 422
      entfind particles * * * * 423
      entfind particles * * * * 424
      entfind particles * * * * 425
      entfind particles * * * * 426
      entfind particles * * * * 427
      entfind particles * * * * 428
      entfind particles * * * * 429
      entfind particles * * * * 430
      entfind particles * * * * 431
      entfind particles * * * * 432
      entfind particles * * * * 433
      entfind particles * * * * 434
      entfind particles * * * * 435
      entfind particles * * * * 436
      entfind particles * * * * 437
      entfind particles * * * * 438
      entfind particles * * * * 439
      delent
      if (= $editing 1) [
         edittoggle
      ]
   ]
]