A currency complier?

Zalhain · Post by **Zalhain** » Mon Dec 15, 2003 1:12 pm

I am looking for something to quickly turn from copper coin to gold coin into much lighter plat.

Amadeus · Post by **Amadeus** » Mon Dec 15, 2003 2:23 pm

You mean something that would do this AT the bank, right? You can't really do this "in the field".

Zalhain · Post by **Zalhain** » Mon Dec 15, 2003 10:44 pm

Yeah, I was wondering if my request was going to be taken that way, unfortunetly it was AFTER I hit the submit button.. I am indeed looking for something to do this at the bank.

ml2517 · Post by **ml2517** » Mon Dec 15, 2003 11:20 pm

Yes.. I'm bored.

Code: Select all

#turbo 20

Sub Main
/declare Coin array
/varset Coin(1) copper
/varset Coin(2) silver
/varset Coin(3) gold
/varset Coin(4) plat


/if $invpanel==FALSE /press i
/if $target()==FALSE /target banker
/click right target

/call ChangeCoin
/cleanup
/endmacro
/return

Sub ChangeCoin
/declare a local
/for a 1 to 3
    /sendkey down shift
    /click left @Coin(@a)
    /sendkey up shift
    /delay 5
    /click left @Coin($calc(@a+1))
    /delay 5
    /click left @Coin(@a)
    /delay 5
/next a
/return

mekaniak · Post by **mekaniak** » Mon Dec 15, 2003 11:29 pm

hehe hey mls are you still bored????Cuz if you are you could write me a script that will attack a pc until about 30%hp and then stop and then attack again to 30% once the pc gets to 0%...then another script to bind wound once healt drops to 30% and stop when it hits 50%. oth with GM detection of course.

ml2517 · Post by **ml2517** » Mon Dec 15, 2003 11:35 pm

That actually should be that hard.

Clarify a bit for me though, you are going to duel another player?

Attack him down to 30 percent.

Stop attacking.

Bind his wounds back up to 50 percent.

Repeat until all your bandaids are gone?

All the while checking for GM's in zone.

mekaniak · Post by **mekaniak** » Mon Dec 15, 2003 11:38 pm

*chokes on his mountain dew*
Exactly....kinda.I'm going to be dueling a pc and attack him down to 30%hp, but the pc I'm dueling will BW himself to 50% until alll his bandages are gone. And yes all while checking if GMs are in zone. Didnt actually think I would get a response that fast too lol.

P.S. I like the currency exchanger also.

ml2517 · Post by **ml2517** » Mon Dec 15, 2003 11:40 pm

Ah ok I see. I'll give it a shot.

mekaniak · Post by **mekaniak** » Mon Dec 15, 2003 11:40 pm

i love you

ml2517 · Post by **ml2517** » Tue Dec 16, 2003 1:26 am

Ok this should do it.

1. Modify the ATTACKER and ATTACKEE definitions in the top of the scripts to the name of the appropriate players.
2. Go to an area away from NPC's that are going to be pissed if you are fighting other PC's.
3. Load up the guy running the bind.mac script with bandages.
4. /duel the attackee from the attacker.
5. /duel the attacker from the attackee.
6. Turn the attackee's back to the attacker (To avoid the attacker getting damage from riposts).
7. /macro bind.mac on the attackee
8. /macro attack.mac on the attacker

Babysit it for the first few cycles to make sure I didn't fubar something. If all is well file your nails while it does its thing.

This script should abort on both characters when you run out of bandages.

Code: Select all

|
|  Bind.mac
|
| This script waits til he is around 30 percent health then starts bandaging himself.
| Once he gets to around 50 percent health he waits til he gets down to 30 percent health again.  Rinse repeat.  
| When you run out of bandages he ends the macro.
|
#turbo 20

| Change Gonzo to the player attacking you.
#define ATTACKER Gonzo

#Event OOBandages "You can't bandage without bandages"

Sub Main
:WaitForDamage
/delay 1s
/if n $char(hp,pct)<32 /call Bind
/doevents
/goto :WaitForDamage
/return

Sub Bind
:BindWounds
/if "$target(name,clean)"!="$char(name,clean)" /target myself
/if n $char(ability,"Bind Wound")>0 /doability "Bind Wound"
/delay 1s
/doevents
/if n $char(hp,pct)<50 /goto :BindWounds
/return

Sub Event_OOBandages
/tell ATTACKER stopit
/endmacro
/return

Code: Select all

|
|  Attack.mac
|
| This script attacks the target to 30 percent health.  
| Pauses until other targets health gets back up to 50 percent then
| repeats.  If he gets a tell from ATTACKEE of stopit he will end the macro.
| 

#turbo 20
#chat tell

| Change Bonzo to whatever the playername your victim is.
#define ATTACKEE Bonzo

Sub Main
:TargetPC
/target ATTACKEE
/delay 1s
/doevents
/if "$target(name,clean)"!="ATTACKEE" {
    /echo I can't target ATTACKEE.  Aborting script.
    /endmacro
}

:CheckDistance
/if $target()==FALSE /goto :TargetPC
/call GetClose

/if n $target(hp,pct)>=50 /attack on
/if n $target(hp,pct)<=30 /attack off

/doevents
/goto :CheckDistance
/return

Sub GetClose
/face nolook fast 
/if n $target(distance)>10 { 
   /press up 
} 
/if n $target(distance)<6 { 
   /press down 
} 
/doevents
/return

Sub Event_chat(MsgType,MsgFrom,MsgText)
/if @MsgType==tell { 
    /if @MsgFrom==ATTACKEE /if @MsgText=="stopit" { 
    /attack off
    /endmacro
} 
/return

mekaniak · Post by **mekaniak** » Tue Dec 16, 2003 3:16 am

i lub joo so much.

EDIT: This is going to save me so much time. You definately go in my good people book.

Elric · Post by **Elric** » Tue Dec 16, 2003 12:31 pm

Hehe. While you're at it, create an entire AI civilization so I no longer have to level my PC. I can just had other PCs stand around and shield me when I need it, and other goodies!

Not poking fun, just wondering how far this will actually go.

bob_the_builder · Post by **bob_the_builder** » Tue Dec 16, 2003 12:52 pm

In regards to the currency mac. I just read a post on monk board about "possibly" going LD when doing fast money currency trades.

/shrug

Bob

Elric · Post by **Elric** » Tue Dec 16, 2003 12:53 pm

Another set of delays, server-side, meant to keep folks from AFK macro-ing, that's all that is.

Just add in a tiny delay, and there you are.

ml2517 · Post by **ml2517** » Tue Dec 16, 2003 12:55 pm

It must be when the coin amount is high or something. I tested this like 20 times last night after I made it at full speed an had no issues. But I was only dealing with about 200pp converted down to copper first.