Camp macro / Check for Spawn and then play mp3

[Zeltren]

Well added this little macro as I use it allot on the office, it can be
compined with other options, like SMS your cedullar phone with a perl
script... actuily very usefull... also good so you can head to bed until the
spawn pops...

If someone could make a perl script for it like;
/perl exec email.pl "mymail@mydomain.com" "Message"
I would really appriciate it, havent figured out how to combine
perl with MQ yet, if I do /perl exec helloworld.pl it just returns
error... this is the basic hallo world script I am refearing to.
Would really buy us allot of freetime...

Code: Select all

| ** camp.mac **
| Made by Zeltren, 15 January 2003.
| Updated 16 January 2003.

#turbo
#event Zone1 "PLEASE"
#event Zone2 "LOADING, PLEASE WAIT ..."

Sub Main
   | Predefined Values.
   /varset v1 0  | if 1 it will beep in a loop
   /echo *****************************************
   /echo ** Welcome to Track script Beta 0.1 **
   /echo *****************************************
   /if "$p0"=="" /goto :NOVARS
   /if "$p0"=="NULL" /goto :NOVARS
   /alert clear 1
   /alert add 1 npc "$p0"
   /if "$p1"!="" /if "$p1"!="NULL" /alert add 1 npc "$p1"
   /if "$p2"!="" /if "$p2"!="NULL" /alert add 1 npc "$p2"
   /if "$p3"!="" /if "$p3"!="NULL" /alert add 1 npc "$p3"
   /if "$p4"!="" /if "$p4"!="NULL" /alert add 1 npc "$p4"
   /if "$p5"!="" /if "$p5"!="NULL" /alert add 1 npc "$p5"
   /if "$p6"!="" /if "$p6"!="NULL" /alert add 1 npc "$p6"
   /if "$p7"!="" /if "$p7"!="NULL" /alert add 1 npc "$p7"
   /if "$p8"!="" /if "$p8"!="NULL" /alert add 1 npc "$p8"
   /if "$p9"!="" /if "$p9"!="NULL" /alert add 1 npc "$p9"
   /echo *****************************************
   /echo Tracking...
   /call Loop_sub
   :NOVARS
   /echo Usage: /macro <script> "<mob1>" "<mob2>" ...
/return

sub Loop_sub
   :Loop 
   /delay 5
   /doevents Zone1
   /doevents Zone2
   /if $alert(1)==TRUE {
       /mp3 play
       /beep
       /beep
       /if n $v1==1 /goto :Beep
       /endmacro
   }
   /goto :Loop
   :Beep
       /delay 5
       /doevents Zone1
       /doevents Zone2
       /beep
   /goto :Beep
/return

sub Event_Zone1
  /endmacro
/return

sub Event_Zone2
  /endmacro
/return

EDIT: Updated the macro, and added:
*up to 10 spawns
*ability to run an endless beep loop

[SingleServing]

I don't know peril, I'm getting tons of ideas from you post.

Funny how RPGs started out as text only...we could control our characters in EQ with Peril and what not.

Funny how we have "de-evolved" the game back to text.

Imagine this... you get a txt message phone call while your in bed asleep "I'm being attacked Sir", you send text message back "Run bitch run!"

[YKW-28983]

You can even set it to play certain mp3s... if you add your own playlist or create one with a macro..

Code: Select all

/mp3 clear
/mp3 add c:\file\dir\here\filename.mp3
/mp3 add c:\file\dir\here\filenameA.mp3
/mp3 add c:\file\dir\here\filenameB.mp3
/mp3 add c:\file\dir\here\filenameC.mp3
/if $alert(1)==TRUE {
 /mp3 play 1
}

^^Obviously not real code just an example.