Page 1 of 1

Plats

Posted: Fri May 02, 2003 3:51 pm
by Neue Regel
Anyone here have a macro to make the plats? I have an alchy and would like to make some personal plats while this bug is still around. I loked at Robo Chef but there is no recipe for this.

Posted: Fri May 02, 2003 4:44 pm
by luang
Check the decal forum here.

Posted: Sat May 03, 2003 3:28 am
by Gine
i have the best macro let me go copy paste it

Posted: Sat May 03, 2003 3:30 am
by Gine
// Money macro made by Plead (Unfortunate Appraisal) of Solclaim
// Thanks to Ipa for some help and for incUI
// Thanks to BizI for some code
// Thanks to Cam for some help and for AC Tool
// This is resolution INDEPENDANT - means it doesn't matter what resolution your on
// This is server independant
// Have fun macroing
// PLEASE CHANGE THE NEXT FEW LINES TO SUIT YOUR NEEDS (SETCONST $uiStretchOn and SETCONST $uiChatMaxed)
SetActiveWindow Asheron's Call

Include incUI.mac
SETCONST $uiOverrideAutoDetect = 1
SETCONST $uiStretchOn = 1 // PLEASE CHANGE THIS TO 1 IF YOU USE STRETCHED UI
SETCONST $uiChatMaxed = 1 // PLEASE CHANGE THIS TO 1 IF YOU ARE GOING TO USE MAXED CHAT WINDOW
Call SetUI

Constants
Split = t // Your split key
End

Call StartUp
While 1=1
Call Make
Call SellSpikes
Call BuyNote
End

Procedure StartUp
SendText 7, Welcome to the fletching money macro made by Plead(Unfortunate Appraisal) of Solclaim
SendText 7, Performing startup tests
Select Yatenyu Zhuong the Bowyer
Keys r
Delay 1 sec
Keys {F3}
Keys {F12}
SendText 7, Startup tests complete, vendor and main pack should be open
End

Procedure Make
While _burden < 200
Useitem Wrapped Bundle of Arrowheads, Bundle of Wrapped Spiketails
Delay 1 sec
Countmine Wrapped Bundle of Arrowheads
if {PluginResult} = NOT FOUND
Call BuyComps
Else
Call BuyNote
End
End
End

Procedure SellSpikes
If _burden >= 200
SendText 7, Selling spikes
MousePos $Mainpack //Move mouse to main pack
Delay 500
DragTo $MerchPos1 //Drag to vendor
Delay 500
MousePos $MerchBuySellAll //Move mouse to sell button
Delay 500
LeftClick //Click
Delay 500
SendText 7, Spikes sold
Else
Call BuyNote
End
End

Procedure BuyComps //Buy comps
Sendtext 7, Comping!
MousePos $MerchItemTab //Move mouse to Items tab
Delay 500
LeftClick //Click
Delay 500
MousePos $MerchDropdown //Move mouse to menu
Delay 500
LeftClick //Click
Delay 500
MousePos $MerchDropDownC1 //Move mouse to menu item "Miscellaneous"
Delay 500
LeftClick //Click
Delay 500
VendorSelect Bundle of Wrapped Spiketails
Delay 500
Keys $split //Select the amount
Delay 500
Keys 100 //Type 90
Delay 500
MousePos $MerchAddToList //Move mouse to Add to List
LeftClick //Click
Delay 1 sec
VendorSelect Wrapped Bundle of Arrowheads
Delay 500
Keys $split //Select the amount
Delay 500
Keys 100 //Type 90
Delay 500
MousePos $MerchAddToList //Move mouse to Add to List
Delay 500
LeftClick
Delay 500
MousePos $MerchBuyTab
Delay 500
LeftClick
Delay 500
MousePos $MerchBuySellAll
Delay 500
LeftClick
Delay 1 sec
Delay 500
SendText 7, Comps bought
End

Procedure BuyNote //Buy MMD
If _pyreals > 375000
SendText 7, Buying an MMD
Delay 500
MousePos $MerchItemTab //Move mouse to Items tab
Delay 500
LeftClick //Click
Delay 500
MousePos $MerchDropdown //Move mouse to menu
Delay 500
LeftClick //Click
Delay 500
MousePos $MerchDropDownC2 //Move mouse to menu item "Trade Note"
Delay 500
LeftClick //Click
Delay 500
MousePos $MerchPos10
Delay 500
LeftClick
Delay 500
MousePos $MerchBuySellItem_X , $MerchBuySellItem_Y //Move mouse to Buy
Delay 500
LeftClick //Click
Delay 2 sec
MousePos $R1C1 //Move mouse to first slot of main pack, should be the MMD after buying it
Delay 500
DragTo $Container1 //Drag
Delay 500
MousePos $MainPack //Move mouse over top pack
Delay 500
SendText 7, MMD bought
Call ReCheck //Recheck the pack
End
End

Procedure ReCheck
SendText 7, Pack checks begin
MousePos $R1C1
LeftClick
If _selected = Trade Note
MousePos $Container1
DragTo $Container4
Delay 500
MousePos $Mainpack
LeftClick
MousePos $R1C1
DragTo $Container1
SendText 7, Pack checks and movement complete
End
Else
SendText 7, Pack checks complete
End





just copy paste that, ui has to be stretched and chat window needs to be maxed. only prob is that aftera while i always get kicked for inactivity. maybe some one could fix this, and post here again

Posted: Sat May 03, 2003 4:16 am
by Neue Regel
Where do I start this at what town at which boyer?

Posted: Sat May 03, 2003 6:03 am
by Neue Regel
:( didnt work

Posted: Sat May 03, 2003 9:02 am
by Dave_Mustaine
Gine that could not be the full code. I didn't see anything for navigating between vendors or any vendor selecting at all.

Posted: Sat May 03, 2003 5:28 pm
by Opti_Silmara
:shock: Ah.. you're risking your account doing this. :( It's against CoC and they have had a warning for months on entry that says any players caught exploiting the dupe bug will be banned. Please take care :!:

Opti 8)

Posted: Sat May 03, 2003 5:35 pm
by Gine
its not dupping, and they have even told many of my friends its not against CoC, ohh yeah sorry go to hebian 2 and the bowyer there, all you do it buy mmd notes so you dont need to run around. and you need the newest decal on with actool helper. it works i swear and you wont get banned, but theyll fix it next patch. GL to you all

Posted: Sat May 03, 2003 7:34 pm
by Opti_Silmara
Oh!!.. lol :lol:

I misunderstood! Hehe.. thought you meant 'duping' plats... not making arrows!! LOL!!

Guess I still needed to wake up this morning :oops:

Opti 8)