PM then Warp Macro REVISED =)[april 19, 2010]

[gamenikko]

EDIT APRIL 19, 2010
I've updated my old macro and posted a new one ^_^:
Read First**********
add

Code: Select all

followAtWarp 0

in your config.txt

Description:
This macro is simillar to Darki's ultimate warp macro but, there's some cons and pros.
Pros : faster. easier to use.
Cons : warp list must be done manually

Usage:
PM your warper "warp list" without the " to view ur warps (you must set ur own warp list)
Then PM the desired warp. ex: warp 1, or warp 2 or warp 3 or warp 4
PM your priest set 0 - to disable the follow at warp mode.
PM your priest set 1 - to enable the follow at warp.

PM 2 Warp

Code: Select all

################################################################################
####+-+-+ +-+ +-+-+-+-+####
####|P|M| |2| |W|A|R|P|####
####+-+-+ +-+ +-+-+-+-+####
####	   +-+-+       ####
####	   |B|Y|       ####
####	   +-+-+       ####
####+-+-+-+-+-+-+-+-+-+####
####|G|a|m|e|N|i|k|k|o|####
####+-+-+-+-+-+-+-+-+-+####

###########################
##########WARPS############
###########################

automacro warp {
	console /\(From: (.*)\) : (warp 1|warp 2|warp 3|warp 4)/
	call {
$x = @arg ("$.pos", 1)
$y = @arg ("$.pos", 2)
$xx = @eval ($x + @random ("-1", "1"))
$yy = @eval ($y + @random ("-1", "1"))
$followSetting = @config (followAtWarp)
$name = $.lastMatch1
$loc = $.lastMatch2
	do sl 27 $xx $yy
pause 2
	if ($loc = "warp 1") goto warp1
	if ($loc = "warp 2") goto warp2
	if ($loc = "warp 3") goto warp3
	if ($loc = "warp 4") goto warp4
stop
###########################
:warp1
	do warp 0
stop
###########################
:warp2
	do warp 1
stop
###########################
:warp3
	do warp 2
stop
###########################
:warp4
	do warp 3
stop
}
}
###########################
######FOLLOW SETTINGS######
###########################

automacro followOptions {
	console /\(From: (.*)\) : (set 0|set 1)/
	call {
$followSetting = @config (followAtWarp)
$name = $.lastMatch1
$value = $.lastMatch2
	if ($value = set 0) goto set0
	if ($value = set 1) goto set1
stop
###########################
:set0
	do conf followAtWarp 0
	do pm "$name" Config 'followAtWarp' is set to 0
stop
###########################
:set1
	do conf followAtWarp 1
	do pm "$name" Config 'followAtWarp' is set to 1
	}
}
###########################

automacro portalOpened {
	exclusive 1
	console /You opened Warp Portal on \((.*), (.*)\)/i
	call {
$followSetting = @config (followAtWarp)
	do pm "$name" I'm warping...
	do pm "$name" SHOULD I FOLLOW AT WARP? 0 - don't | 1 - follow. CURRENTLY: @config (followAtWarp)
	do pm "$name" Just PM me your settings. example: set 0 (changes may work next at warp)
$followSetting = @config (followAtWarp)
###########################
	if ($followSetting = 0) stayDontGo
	if ($followSetting = 1) goto enterPortal
stop
###########################
:stayDontGo
           do move stop
           pause 25
stop
:enterPortal
	do move stop
	pause 10
	do move $.lastMatch1 $.lastMatch2
	}
}

Warp list (change your warp values)

Code: Select all

###########################
#########WARP LIST#########
###########################

automacro warpList {
	console /\(From: (.*)\) : warp list/i
	call {
	do pm "$name" 1-geffen | 2-mosco | 3-TG | 4-payon ######## change this
	}
}

Feel free to post all bugs. ^_^

[keke808]

Gamenikko,

Did you try looking at this link?
http://forums.openkore.com/viewtopic.ph ... eat#p22237

I think it accomplishes the same thing.
By the way I never tested it.

[gamenikko]

Gamenikko,

Did you try looking at this link?
http://forums.openkore.com/viewtopic.ph ... eat#p22237

I think it accomplishes the same thing.
By the way I never tested it.

oops yeah they are the same i guess, but its a lot complicated for my eyes hahaha LOL

[arkantos008]

hi gamenikko ive tried your macros txt but im getting an erro on warp1 warp0 warp2 is working but the rest is error saying warpgo1 error:error in 2: @eval ($x @random + ("-2", "2")) failed...

[arkantos008]

ei nikko im getting an error when i tried to use the warp1 saying failed do you think you can check on this?

[gamenikko]

APRIL 19, 2010 <<<REVISED

[arkantos008]

APRIL 19, 2010 <<<REVISED

what do you mean by revised?

[gamenikko]

APRIL 19, 2010 <<<REVISED

what do you mean by revised?

Dictionary:

Code: Select all

1.  transitive verb rethink something: to come to different conclusions about somebody or something after thinking again 
2.  transitive verb give updated version of something: to change a previous estimate in order to make it more accurate or realistic 

Microsoft® Encarta® 2009. © 1993-2008 Microsoft Corporation. All rights reserved.

[rwnath]

APRIL 19, 2010 <<<REVISED

what do you mean by revised?

Wow, is this guy serious?

[Pascale]

hello
i have problems with this
only modify warp list?
when send pm to priest ( warp 1, warp 2 ... ) and this say in OK

Code: Select all

(From: XXXX) : warp list
[macro] automacro warpList triggered.
1-prontera is not online
(From: XXXX) : warp list
[macro] automacro warpList triggered.
1-prontera is not online
(From: XXXX) : warp 1
[macro] automacro warp triggered.
(From: XXXX) : warp list
[macro] automacro warpList triggered.
(To XXXX) : 1-prontera | 2-payon | 3-Kobolt | 4-Juno
(From: XXXX) : warp 3
[macro] automacro warp triggered.

and dont cast warp D:
please help
im use this OK version " Download latest (trunk, "svn") — recommended"
thanks