My Collection of Macro |Ver 2.0.0 | Macro Ver 1.3.5 |

[fco2783]

like the title said...

some basic info... thanks to ezza for this

#Ex:
#console /\[dist=(.*)\] (.*) \((\d+)\): \*(Flag 1|Flag 2|Flag 3)\*$/i

#or this

#console /\[dist=(.*)\] (.*) \((\d+)\): \*Flag (1|2|3)\*$/i

#Inside those red brackets represent each $.lastMatchN which located from left to right direction respectively.

#$.lastMatch1 is distance
#$.lastMatch2 is chartr name
#$.lastMatch3 is chartr ID's
#$.lastMatch4 is your Flag emotion (or Flag number)

[fco2783]

this macro auto-cast warp portal on place that no one standing...

good for support on town and warping parties on WoE

Code: Select all

automacro Warping {
	console /\[dist=(.*)\] (.*) \((\d+)\): (.*)warp(1|2|3|4)(.*)$/
	run-once 1
#	class 4, 8, 23, 4005, 4009, 15, 4016

	call {
		if (@invamount(Blue Gemstone) == 0) goto nogem

		$dist = $.lastMatch1
		if ($dist > 6) stop
		
		$warpslot = $.lastMatch5
		
		:loop
		$posx = @rand (1,7)
		$posy = @rand (1,7)
		$cellIsFull = 0

		do eval $::Macro::Data::varStack{cellIsFull} = 0;foreach (@{$::playersList->getItems()}) { next if (($_->{pos_to}{x} != $posx) || ($_->{pos_to}{y} != $posy));$::Macro::Data::varStack{cellIsFull} = 1; last;}

		if ($cellIsFull == 1) goto loop
		$mex = @arg ("$.pos", 1)
		$mey = @arg ("$.pos", 2)
		$herex = @eval ($mex + $posx)
		$herey = @eval ($mey + $posy)
		do sl 27 $herex $herey
		timeout 3
		do warp $warpslot
		release Warping

		:nogem
		do c no gem
		release Warping
	}
}

[fco2783]

this is just the basic but can totally rocks...

it just get the ingredients from the storage then brewed and wont stored ingredients on carts...!!!
so that you wont mix the ingredients...

dont forget the storageAuto 1 and lockMap blank

at config

getAuto Medicine Bowl {
minAmount 0
maxAmount 300
passive 0
}

getAuto Empty Bottle {
minAmount 0
maxAmount 300
passive 0
}

getAuto Immortal Heart {
minAmount 0
maxAmount 300
passive 0
}

at items_control

Alcohol Creation Guide 0 0 0 0 0
Bottle Grenade Creation Guide 0 0 0 0 0
Acid Bottle Creation Guide 0 0 0 0 0
Plant Bottle Creation Guide 0 0 0 0 0
Marine Sphere Creation Guide 0 0 0 0 0
Glistening Coat Creation Guide 0 0 0 0 0
Condensed Potion Creation Guide 0 0 0 0 0
Potion Creation Guide 0 0 0 0 0
Embryo Creation Guide 0 0 0 0 0
Elemental Potion Creation Guide 0 0 0 0 0

Empty Potion Bottle 0 1 0 0 0
Medicine Bowl 0 1 0 0 0
Empty Test Tube 0 1 0 0 0

Stem 0 1 0 0 0
Poison Spore 0 1 0 0 0
Empty Bottle 0 1 0 0 0

Alcohol 0 1 0 0 0
Fabric 0 1 0 0 0

Immortal Heart 0 1 0 0 0

Witch Starsand 0 1 0 0 0

White Potion 25 1 0 1 1
White Potion 0 1 0 0 0
Condensed White Potion 25 1 0 1 1
Condensed White Potion 0 1 0 0 0

Code: Select all

##### Alchemist Brewing #####
# Red Potion = 8E 01 F5 01 00 00 00 00 00 00
# Yellow Potion = 8E 01 F7 01 00 00 00 00 00 00
# White Potion = 8E 01 F8 01 00 00 00 00 00 00
# Blue Potion = 8E 01 F9 01 00 00 00 00 00 00
# Adonyne = 8E 01 5D 02 00 00 00 00 00 00
# Aloevera = 8E 01 5E 02 00 00 00 00 00 00
# Red Slim = 8E 01 21 02 00 00 00 00 00 00
# Yellow Slim = 8E 01 22 02 00 00 00 00 00 00
# White Slim = 8E 01 23 02 00 00 00 00 00 00
# Alcohol = 8E 01 CA 03 00 00 00 00 00 00
# Fire Bottle = 8E 01 DF 1B 00 00 00 00 00 00
# Acid Bottle = 8E 01 E0 1B 00 00 00 00 00 00
# Plant Bottle = 8E 01 E1 1B 00 00 00 00 00 00
# Mine Bottle = 8E 01 E2 1B 00 00 00 00 00 00
# Coating Wax = 8E 01 E3 1B 00 00 00 00 00 00

automacro potzMakerAlcohol {
	sp > 50
	status Blessing
	status Gloria
	status not Owg 50%

	inventory "Alcohol Creation Guide" > 0
	inventory "Medicine Bowl" > 0
	inventory "Empty Bottle" > 0
	inventory "Stem" > 4
	inventory "Empty Test Tube" > 0
	inventory "Poison Spore" > 4

	timeout 1.5
	run-once 1

	call {
		do ss 228 10
		do send 8E 01 CA 03 00 00 00 00 00 00

		pause 0.5

		release potzMakerAlcohol
	}
}

automacro potzMakerFireBottle {
	sp > 50
	status Blessing
	status Gloria
	status not Owg 50%

	inventory "Bottle Grenade Creation Guide" > 0
	inventory "Medicine Bowl" > 0
	inventory "Empty Bottle" > 0
	inventory "Alcohol" > 0
	inventory "Fabric" > 0

	timeout 1.5
	run-once 1

	call {
		do ss 228 10
		do send 8E 01 DF 1B 00 00 00 00 00 00

		pause 0.5

		release potzMakerFireBottle
	}
}

automacro potzMakerAcidBottle {
	sp > 50
	status Blessing
	status Gloria
	status not Owg 50%

	inventory "Acid Bottle Creation Guide" > 0
	inventory "Medicine Bowl" > 0
	inventory "Empty Bottle" > 0
	inventory "Immortal Heart" > 0

	timeout 1.5
	run-once 1

	call {
		do ss 228 10
		do send 8E 01 E0 1B 00 00 00 00 00 00

		pause 0.5

		release potzMakerAcidBottle
	}
}

[fco2783]

using Fly Wing is much faster than using skills...

Code: Select all

#######################################################
#	Teleporting using Fly-wing for emergency
automacro teleNow {
	console /.*Teleporting to avoid (Salamander|Bow Master|Sword Master)|dmg could kill you|or too many aggressives*/i
	inventory "Fly Wing" >= 1
	overrideAI 1

	run-once 1

	call {
		do is Fly Wing
		release teleNow
	}
}

uses Butterfly Wing on... you get the idea...

Code: Select all

#######################################################
#   Teleporting using Butterfly-wing for autostorage
automacro AutoStorage {
	console /.*Calculating auto-storage route to:*/i
	inventory "Butterfly Wing" >= 1

	overrideAI 1
	run-once 1

	call  {
		do is Butterfly Wing
		
		release AutoStorage
	}
}

[fco2783]

this macro buff and resu other within distance of 5

Code: Select all

automacro SupportOthers {
	console /\[dist=(.*)\] (.*) \((\d+)\): \*baps|buffs buf|buff|blesing|heal|hela|bap|bup|hel\*$/
	status Blessing
	status Increase AGI
	sp > 30%
	run-once 1
	timeout 30
	exclusive 1

	call {
		$dist = $.lastMatch1
		if ($dist > 6) stop

		$name = $.lastMatch2
		$PlayerID = $.lastMatch3

		do sp 28 $PlayerID 10
		
		do sp 34 $PlayerID 10
		do sp 29 $PlayerID 10
		
		do sp 361 $PlayerID 10
		log  Finish macro: SupportOthers at $.datetime
		
		release SupportOthers
	}
}

automacro SupportDead {
	console /\[dist=(.*)\] (.*) \((\d+)\): \*resu|ress\*$/
	status Blessing
	status Increase AGI	
	sp > 30%
	run-once 1
	timeout 30
	exclusive 1

	call {
		if (@invamount(Blue Gemstone) == 0) goto nogem

		$dist = $.lastMatch1
		if ($dist > 6) stop

		$name = $.lastMatch2
		$PlayerID = $.lastMatch3

		do sp 54 $PlayerID 10
		log  Finish macro: SupportDead at $.datetime

		:nogem
			do c no gem
		
		release SupportDead
	}
}

hep hep hep!!! dont forget the auto-thanks

Code: Select all

automacro auto-thanks {
	exclusive 1
	console /Heal|Blessing|Increase AGI|Impositio Magnus|Aspersio on you/i
	timeout 30
	run-once 1
	exclusive 1

	call {
		$accolade = @random ("e thx","c thx","c ty","c thanks ^^","c w00t","c yay","c ty!","c thanks!")
		pause 1
		do $accolade
		release auto-thanks
	}
}

[fco2783]

this macro is Auto-Ignore people caught you botting...

Code: Select all

automacro dangerPub {
	console /\[dist=(.*)\] (.*) \((\d+)\): (.*)([Bb][Oo][Tt]|[Bb][0][Tt]|[Ss][Ee][Tt]|[Kk][Oo][Rr][Ee]|[Cc][Hh][Ee][Aa][Tt])(.*)$/
	run-once 1

	call {
		$dist = $.lastMatch1
		$BadGuys = $.lastMatch2
		if ($dist > 7) stop

		log replying to PubMsg in 7 sec!
		$accoladeEmo = @random ("e omg","e desp","e spin","e meh","e ?")
		do $accoladeEmo 
		pause 7

		$accoladeSpeak = @random ("pm $BadGuys its called openkore","pm $BadGuys wht???","pm $BadGuys wht do you mean","pm $BadGuys really ^^","pm $BadGuys w00t","pm $BadGuys yay","pm $BadGuys =) ")
		pause 1
		do $accoladeSpeak 

		do ignore 1 $BadGuys

		release dangerPub
	}
}

soon player buff the monster... BAD BAD BAD PLAYER!!!

Code: Select all

	console /\Player (.*) \((\d+)\) uses Heal|Blessing|AGI on monster (.*) \((\d+)\) :\*\*$/i

kindly PM me to correct this macro... thanks

[fco2783]

update the macro first to trigger this...

this update will increase the power of your eval... and it will help you a lot...
thanks for DInvalid and piroJOKE for sharing this macro code...

Code: Select all

--- e:\svn-openkore\macro\trunk\Macro\Data.pm	Sat Sep 01 09:27:13 2007
+++ c:\333333333\Data.pm	Mon Jan 14 17:05:27 2008
@@ -35,5 +35,7 @@
   'hook' => 1,         # check: openkore hook
   'priority' => 1,     # option: automacro priority
   'exclusive' => 1,     # option: is macro interruptible
   'eval' => 1        # check : eval
 );

Code: Select all

--- e:\svn-openkore\macro\trunk\Macro\Automacro.pm	Sat Sep 01 09:27:13 2007
+++ c:\333333333\Automacro.pm	Mon Jan 14 17:04:13 2008
@@ -321,4 +321,10 @@
 }
 
+# checks for eval
+sub checkEval {
+	return eval $_[0];
+}
+
+
 # releases a locked automacro ##################
 sub releaseAM {
@@ -425,4 +431,6 @@
 		next CHKAM if (defined $automacro{$am}->{class}  && !checkClass($automacro{$am}->{class}));
 		next CHKAM if (defined $automacro{$am}->{notMonster} && !checkNotMonster($automacro{$am}->{notMonster}));
+		next CHKAM if (defined $automacro{$am}->{eval} && !checkEval($automacro{$am}->{eval}));
+
 		foreach my $i (@{$automacro{$am}->{monster}})    {next CHKAM unless checkMonster($i)}
 		foreach my $i (@{$automacro{$am}->{aggressives}}){next CHKAM unless checkAggressives($i)}

while sitting you will do doridori...

Code: Select all

automacro doridori {
	eval $::char->{sitting} == 1 && !AI::inQueue("macro")
	sp < 90%
	timeout 2

	call {
		do doridori
	}
}

[ezza]

@fco2783 - the Data.PM is not correct. Update it pls. Then the macro no need to use run-once and release coz !AI::inQueue("macro") already escape that run-once/lock. TIA.

[Angelusz]

i cant make it work, do i have to change some code?...

the buffer one, i scream buff but nothing happens =(


how can i make warper work?

[fco2783]

its really boring to cultivate by your own... this is just an basic Cultivation Macro

first you need Marine Sphere card...

then config.txt

lockMap Blank
route_randomWalk 0
storageAuto 0

then items_control.txt

Code: Select all

Mushroom Spore 30 1 0 1 1

usually you can only do around 20 - 25 Cultivation skill with 99 INT, because i only do cultivate then magnum cost you 40sp repeatedly...

Code: Select all

automacro Cultivate {
	location prontera 192 100

	inventory "Mushroom Spore" >= 1
	sp > 90%
	status not Owg 50%
#	weight < 50%
	timeout 3
	macro_delay 1.5
	exclusive 1

	run-once 1

	call {

	$Count = 0

	while ($Count <= 20) as exampleloop
		do sl Cultivation 191 100 1
		pause 1.5
		do ss "Magnum Break" 1
		$Count++
	end exampleloop

	do move 190 99

	$Count2 = 0

	while ($Count2 <= 13) as exampleloop2
		$Count2++
		do sm "Cart Revolution" 1 1
		pause 1.5
	end exampleloop2

	$Count3 = 0

	while ($Count3 <= 1) as exampleloop3
		$Count3++
		do ss "Magnum Break" 1
		pause 1.5
	end exampleloop3

	do move 192 100

	release Cultivate
	}
}

this is how its work...

this is my postion
WWWWWWW
WXXXXYXXX
WXXXXXXXX

here where i summon mushroom
WWWWWWW
WXXXMXXXX
WXXXXXXXX

when i cast Magnum Break on the mushroom it will push back to here...
WWWWWWW
WMXXXXXXX
WXXXXXXXX

then i move to here... then kill them with cart rev then magnum break...
WWWWWWW
WMXXXXXXX
WXYXXXXXX

W = Wall
M = Mushroom
Y = You

i use combo Cart Revolution and Magnum Break for lesser SP consumption...