PRONTERA FORUM

WHERE PRONTERA PLAYERS LINKED TOGETHER
 
HomeCalendarFAQSearchRegisterLog in

Share | 
 

 request for warp seller macros~ >.<

View previous topic View next topic Go down 
AuthorMessage
harriezai
First Job
First Job


Posts : 125
Exp : 148
Fame : -2
Join date : 2009-12-13
Location : KL

PostSubject: request for warp seller macros~ >.<   Thu Sep 09, 2010 7:28 am

i get this macros from website, but i found sometimes it will deal success and wont out warp. i deal it, then pay, after that will close chat and wont out warp skill. This issue come out sometimes. someone know how to fix? or send me ur warp seller macros txt? thank xD




#--------------------------------------------------------------------
#------------------Warp Seller Macro v1.2 by Se7eN-------------------
#--------------------------------------------------------------------
#
# Note: Make sure your character is in Payon Town before running the macro.
# Added storageAuto sequence.


automacro a {
delay 3
console /Not allowed other player view Equipment/
call {
do ignore 1 all
if (@invamount (Blue Gemstone) == 0) goto qk
pause 3
do chat create "Ice-1.5K|Geo-2K|Mosco-2.5K" 2 0 siyete
# A, B, C, D = Chatroom title
pause 1
do sit
stop
:qk
lock a
lock b
lock c
lock d
lock e
lock f
do chat create "Out of Order" 2 0 siyete
do sit
stop
}

}

automacro b {
console /(.*?) \(level (\d*)\) Requests a Deal/
call {
do deal
$name = $.lastMatch1
do chat modify "$name Exact Amount Please~!!" 2 0 siyete
pause 1
do pm "$name" "Ice-1.5K|Geo-2K|Mosco-2.5K"
pause 10
# Cancel the deal in x seconds if the buyer no action
do deal no
stop
}
}

automacro c {
console /^(.*) added Item to Deal: (.*) x (.*)$/i
call {
if ($.lastMatch2 != "Blue Gemstone") goto end
#Cancel the deal in x seconds if the buyer no action after put on Blue Gemstone
pause 10
do deal no
stop
:end
# Cancel the deal if the buyer put on the items
do deal no
stop
}
}

automacro d {
console /(.*) added (.*) z to Deal/
call {
$a = $.lastMatch2
if ($a = 1,500) goto bb
if ($a = 2,000) goto bb
if ($a = 2,500) goto bb
# $a = ".*" = The price you want to sell
pause 2
# Cancel the deal if the gained zeny != the price you sell
do deal no
stop
:bb
pause 1
do deal
pause 1
do deal
#Cancel the deal in x seconds if the buyer no action after put on the zeny
pause 10
do deal no
stop
}
}

automacro e {
console /^You gained (.+?) zeny.$/
call {
lock b
lock d
do chat leave
$a = $.lastMatch1
if ($a = 1,500) goto a1
if ($a = 2,000) goto b2
if ($a = 2,500) goto c3
#$a = ".*" = The price you want to sell
:a1
call warp1
stop
:b2
call warp2
stop
:c3
call warp3
stop
release all
}
}

##################################################
##################################################
##################################################

macro warp1 {
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "ICE-1500 \n"; close FILE;
# The record will record airplane's operation condition,this is the warp point one -> A
# And so no B, C, D...

$aa1 = @Invamount (Blue Gemstone)
# Check the number of the bluestone "before" warp
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x + @rand(1,3))
$x1 = @eval($x - @rand(1,3))
$y0 = @eval($y - @rand(1,3))
do sl 27 @random("$x0", "$x1") $y0
pause 2
do warp ra_fild01
# map a = ra_fild01
# pause 1
# do c Ice Dungeon's Map Opened.
pause 2
$aa2 = @Invamount (Blue Gemstone)
# Check the number of the bluestone "after" warp
if ($aa1 == $aa2) goto ax
# If the number of bluestone before warp match that of after warp then regarding as failed, goto :ax
stop

:ax
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "ICE-1500 (Failed) \n"; close FILE;
# If failed to open the warp,it will print "A-2000 (Failed)" ,that you will know maybe you should change the position
# And so no B, C, D...
pause 2
do c Failed to open
do c Just try again
call axx
# Run macro axx
stop
}

macro axx {
call warp1
# Run macro warp1
}

# And so on..

macro warp2 {
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "GEO-2000 \n"; close FILE;
$bb1 = @Invamount (Blue Gemstone)
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x + @rand(1,3))
$x1 = @eval($x - @rand(1,3))
$y0 = @eval($y - @rand(1,3))
do sl 27 @random("$x0", "$x1") $y0
pause 2
do warp ein_fild07
# map c = ein_fild07
# pause 1
# do c Geographer's Map Opened.
pause 2
$bb2 = @Invamount (Blue Gemstone)
if ($bb1 == $bb2) goto bx
stop

:bx
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "GEO-2000 (Failed) \n"; close FILE;
pause 2
do c Failed to open
do c Just try again
call bxx
stop
}


macro bxx {
call warp2
}

macro warp3 {
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "MOSCO-2500 \n"; close FILE;
$cc1 = @Invamount (Blue Gemstone)
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x + @rand(1,3))
$x1 = @eval($x - @rand(1,3))
$y0 = @eval($y - @rand(1,3))
do sl 27 @random("$x0", "$x1") $y0
pause 2
do warp mosk_fild02
# map b = mosk_fild02
# pause 1
# do c Moscovia's Map Opened.
pause 2
$cc2 = @Invamount (Blue Gemstone)
if ($cc1 == $cc2) goto cx
stop

:cx
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE MOSCO-2500 (Failed) \n"; close FILE;
pause 2
do c Failed to open
do c Just try again
call cxx
stop
}

macro cxx {
call warp3
}




automacro f {
console /You opened Warp Portal on \((.*), (.*)\)/
call {
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "-------------- \n"; close FILE;
do c @random("Thank You !!","Maraming Salamat !!","Salamat !!","Ingat po !!","Good Luck !!")
if (@invamount (Blue Gemstone) == 0) goto qk
pause 3
do chat create "Ice-1.5K|Geo-2K|Mosco-2.5K" 2 0 siyete
release b
release d
pause 3
do sit
stop
:qk
lock a
lock b
lock c
lock d
lock e
lock f
do chat create "Out of Order" 2 0 siyete
do sit
stop
}
}

################################################## ##########
################################################## ##########
################################################## ##########

automacro debugA {
console /(.*) \((\d+)\): You gained (.*) zeny./i
priority 1
call {
$i = $.lastMatch2
if ("$i" != "") goto ok
:ok
release all
stop
}
}

automacro debugB {
console /(From: (.*)) : You gained (.*) zeny./i
priority 1
call {
$i = $.lastMatch2
if ("$i" != "") goto ok
:ok
release all
stop
}
}

################################################## ##########
################################################## ##########
################################################## ##########

automacro dealcancelled {
console /^Deal Cancelled$/i
delay 2
call {
do chat modify "Ice-1.5K|Geo-2K|Mosco-2.5K" 2 0 siyete
do sit
release all
}
}
Back to top Go down
Goblin
Moderator
Moderator


Posts : 796
Exp : 879
Fame : 0
Join date : 2009-12-12
Location : Klang, Selangor

PostSubject: Re: request for warp seller macros~ >.<   Thu Sep 09, 2010 11:07 am

You never come and pay a visit for so long time then now you come this forum just your greed purpose?

And, I think that, you should tell us, at least me, why other guild people holding your assassin cross and playing around for them but not us?

Sorry, if I'm too aggressive!

_________________


To report any faulty or others in this forum, please do PM me or other moderator, super moderator or admin.

Thank you!
Back to top Go down
frostzai
HOLYSHIT!GOING BAN HIM
HOLYSHIT!GOING BAN HIM


Posts : 1005
Exp : 1091
Fame : -1
Join date : 2010-02-05
Location : SABAH TANAH AIR KU

PostSubject: Re: request for warp seller macros~ >.<   Thu Sep 09, 2010 7:15 pm

sapot Mr Raúl
Back to top Go down
harriezai
First Job
First Job


Posts : 125
Exp : 148
Fame : -2
Join date : 2009-12-13
Location : KL

PostSubject: Need Warp seller Macro~~   Sat Sep 18, 2010 2:10 pm

I have set warp seller b4, but looks like something wrong. It looks normal warp sell at beginning, but after tat will eat ppl money and then no warp==" chat also close. I can't fix it, so i hope someone can send me >.< macro warp with zeny detection one...>.<
Back to top Go down
harriezai
First Job
First Job


Posts : 125
Exp : 148
Fame : -2
Join date : 2009-12-13
Location : KL

PostSubject: Re: request for warp seller macros~ >.<   Sat Sep 18, 2010 7:40 pm

no more jor lo==" yea lo, goblin pro de...my sinx now botting==" i juz borrow my fren use, but no more already becoz i found he make my sinx image bad ady==" I didn't come for woe bcoz i hav work and study, not like goblin u chat with pie always. now i explain ady and hope u wont say tis juz a stupid reason. I juz ask for what problem of my macro only, not beg or wat. i hope u understand. i gt show my problem of macro, juz need some pro check for me what happen to it only. i know u pro, u important for the guild. for me, i juz an ant and no body care of it. and i got tell i wont woe this short period and u duno only. i know ur english standard high, but my english is that suck and hope u dun think i'm scolding u bcoz i duno how to write it so formal.
Back to top Go down
Sponsored content




PostSubject: Re: request for warp seller macros~ >.<   Today at 6:18 am

Back to top Go down
 
request for warp seller macros~ >.<
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Skin request
» request to join hellbound (Gabrielzaza)
» Custom Logo Work Request
» To Request a Gift on your Friend's Wall: 
» 10101010 - Ban Request

Permissions in this forum:You cannot reply to topics in this forum
PRONTERA FORUM :: Quest/Bots/Jobs :: Macros-
Jump to: