maiking the macro mq2data compliant please

ifritx · Post by **ifritx** » Fri Apr 23, 2004 9:20 pm

I was wondering if you could make this mq2 data compliant.

#turbo 
#chat tell 
#Event OOR "Your target is out of range" 
#Event DEAD "LOADING" 
#Event TOLD "tells you" 

Sub Main 
   /zapvars 

   /declare RubberX global 
   /declare RubberY global 
   /varset RubberX @Param1 
   /varset RubberY @Param0 

   /declare SongTimer timer 
   /declare Songs array 
   /declare CurSong global 
   /declare PrevSong global 
   /declare nSongs global 
   /declare EachSong local 

   /if $defined(Param6)==false { 
      /echo Usage: /mac Diamond <Y> <X> <North> <South> <East> <West> <Song list> 
      /echo <Y>         -- Y-coordinate of the center point. 
      /echo <X>         -- X-coordinate of the center point. 
      /echo <North>     -- Maximum distance north of the center point to travel. 
      /echo <South>     -- Maximum distance south of the center point to travel. 
      /echo <East>      -- Maximum distance east of the center point to travel. 
      /echo <West>      -- Maximum distance west of the center point to travel. 
      /echo <Song list> -- List of songs to be sung, include Selo's if needed. 
      /endm 
   } 

   /varset nSongs $strlen(@Param6) 
   /for EachSong 1 to @nSongs 
      /varset Songs(@EachSong) $mid($calc(@EachSong-1),1,@Param6) 
      /echo Song @EachSong: $char(gem,@Songs(@EachSong)) 
   /next EachSong 
   /varset CurSong 1 
   /call Event_Timer 
   /echo Running a diamond path with center at @RubberY, @RubberX and chant-kiting mobs. 
   /sendkey down up 
:ChantLoop 
   | Face the correct corner of the diamond, given character's current position. 
   /if (n $char(x)<@RubberX && n $char(y)>@RubberY) /face fast nolook loc @RubberY,$calc(@RubberX-@Param4) 
   /if (n $char(x)<@RubberX && n $char(y)<@RubberY) /face fast nolook loc $calc(@RubberY-@Param3),@RubberX 
   /if (n $char(x)>@RubberX && n $char(y)<@RubberY) /face fast nolook loc @RubberY,$calc(@RubberX+@Param5) 
   /if (n $char(x)>@RubberX && n $char(y)>@RubberY) /face fast nolook loc $calc(@RubberY+@Param2),@RubberX 
   /doevents 
   /if $char(casting)==FALSE { 
      /varset CurSong @PrevSong 
      /call Event_Timer 
   } 
   /if $target()==FALSE /call GetTarget 
   /if $target(name)~~"corpse" /call GetTarget 
   /goto :ChantLoop 
/return 

Sub Event_Timer(TimerName) 
      /delay 2 
      /stopsong 
      /cast @Songs(@CurSong) 
      /varset PrevSong @CurSong 
      /varset SongTimer 30 
      /varadd CurSong 1 
      /if n @CurSong>@nSongs /varset CurSong 1 
/return 

Sub GetTarget 
   /target npc radius 150 
   /delay 1s 
   /if n $target(level)>20 /press esc 
   /if n $target(range)>400 /press esc 
/return 

Sub Event_OOR 
    /call GetTarget 
/return 

Sub Event_DEAD 
/endm 

Sub Event_TOLD 
    /beep 
/return

dont_know_at_all · Post by **dont_know_at_all** » Fri Apr 23, 2004 9:36 pm

I was wonder if you could.

fearless · Post by **fearless** » Fri Apr 23, 2004 10:20 pm

SHAZZAM!

There ya go.

Lax · Post by **Lax** » Sat Apr 24, 2004 12:04 am

lol fearless

Diggler · Post by **Diggler** » Sat Apr 24, 2004 12:06 am

Nice work fearless

Actually laughed out loud hehe

fearless · Post by **fearless** » Sat Apr 24, 2004 12:28 am

bah, he actually put the macro in this time . . . my post = no longer funny.

/sigh

Preocts · Post by **Preocts** » Sat Apr 24, 2004 8:46 am

Well honestly ifritx, if you aren't even going to try... why should we?

ifritx · Post by **ifritx** » Sat Apr 24, 2004 9:14 am

i have tryed ben trying for 4 days now i cant figure out the new code.

Diggler · Post by **Diggler** » Sat Apr 24, 2004 10:15 am

You're in luck anyway, theres a post in the Depot about it now, near the top, converted and working.

Preocts · Post by **Preocts** » Sat Apr 24, 2004 10:24 am

pffft, that would require searching and stuff.... and that's like... work.