Openkore.com

OpenKore Forums
It is currently 11 Dec 2019, 08:03

All times are UTC - 5 hours [ DST ]





Post new topic Reply to topic  [ 5 posts ] 
Author Message
 Post subject: [Classic-IRO] Janeway Jump Quests (Job 1 to 50.)
PostPosted: 06 Apr 2015, 21:13 
Offline
Noob
Noob

Joined: 08 Jan 2015, 07:10
Posts: 8
Hi everyone, I would like to contribute to this macro that was very helpful to me, and I hope it is for you.
Thats a simple macro, just some coords and triggers, but the most part, i get in support and tutorials. Really thanks for that.

Quote:
#
## THANKS FOR ALL OPENKORE.COM AND ROFAN.RU COMUNITY , ESPECIAL THANKS TO MANTICORA AND MORTIMAL.
#Based on http://rofan.ru/viewtopic.php?f=32&t=7370
#Quest Jump Janeway JOB 1 TO 50.
#
## INSTRUCTIONS:
# 1- ADD IN CONTROL/CONFIG.TXT: QuestPart
# 2- PUT ALL AFTER IN MACROS.TXT (UTF-8)
# 3- *let some butterfly/fly wings/pots/zeny in the char*
#
# NOTE: THIS ONLY WORKS IN CLASSIC IRO JANEWAY!

automacro moveizlude {
eval $::config{QuestPart} eq ""
run-once 1
exclusive 1
call {
pause 2
do ai manual
do conf lockMap none
do move 130 88 izlude
do talknpc 134 88 c r1
do conf QuestPart questjump1
do ai auto
}
}

automacro questjump1 {
location izlude
eval $::config{QuestPart} eq "questjump1"
run-once 1
exclusive 1
call {
pause 2
do ai manual
do move 205 129 izlude
do talknpc 214 124 c c r0
pause 4
do move 82 104 prt_in
do talknpc 88 105 c r0 c c c c
do move 270 207 prt_fild05
do talknpc 270 212 c r0
do conf lockMap prt_sewb1
do conf attackAuto 2
do conf route_randomWalk 1
do conf attackAuto_inLockOnly 1
do mconf Thief Bug 1 0 0
do mconf familiar 1 0 0
do mconf all 0 0 0
do reload mon_control.txt
do conf route_randomWalk 1
do ai auto
do conf QuestPart thiefbug
}
}

automacro questjump1a {
console /defeated \[Thief Bug\] progress \(20\/20\)/i
eval $::config{QuestPart} eq "thiefbug"
run-once 1
exclusive 1
call {
log = QUEST THIEF BUG COMPLETE =
pause 2
do ai manual
do is Novice Butterfly Wing
pause 5
do conf lockMap none
do move 205 129 izlude
do talknpc 214 124 c c
do conf QuestPart questjump2
do ai auto
}
}

automacro questjump2 {
location izlude
eval $::config{QuestPart} eq "questjump2"
run-once 1
exclusive 1
call {
pause 2
do ai manual
do move 205 129 izlude
do talknpc 214 124 c c r0
do conf lockMap pay_dun00
do conf teleportAuto_minAggressivesInLock 3
do mconf Zombie 1 0 0
do mconf familiar 1 0 0
do reload mon_control.txt
do ai auto
do conf QuestPart zombie
}
}

automacro questjump2a {
console /defeated \[Zombie\] progress \(30\/30\)/i
eval $::config{QuestPart} eq "zombie"
run-once 1
exclusive 1
call {
log = QUEST ZOMBIE COMPLETE =
do ai manual
do is Novice Butterfly Wing
pause 5
do conf lockMap none
do move 205 129 izlude
do talknpc 214 124 c c
do conf QuestPart questjump3
do ai auto
}
}

automacro questjump3 {
location izlude
eval $::config{QuestPart} eq "questjump3"
run-once 1
exclusive 1
call {
pause 2
do ai manual
do talknpc 214 124 c c r0
do conf lockMap pay_fild02
do mconf Boa 1 0 0
do reload mon_control.txt
do ai auto
do conf QuestPart boa
}
}

automacro questjump3a {
console /defeated \[Boa\] progress \(30\/30\)/i
eval $::config{QuestPart} eq "boa"
run-once 1
exclusive 1
call {
log = QUEST BOA COMPLETE =
do ai manual
do conf lockMap none
do is Butterfly Wing
pause 5
do move 205 129 izlude
do talknpc 214 124 c r3 c c c r3
do conf QuestPart vendas
do ai auto
}
}

automacro vendas {
eval $::config{QuestPart} eq "vendas"
location izlude
run-once 1
exclusive 1
call vendasm
}

macro vendasm {
pause 2
log = MAKING SOME MONEY TO TRAVEL TO BYALAN ISLAND =
do ai manual
do conf lockMap none
do conf sellAuto 1
do conf sellAuto_standpoint none
do conf sellAuto_npc izlude 94 98
do ai auto
do autosell
do move 205 129 izlude
do conf QuestPart questjump4
}


automacro questjump4 {
location izlude 205 129
eval $::config{QuestPart} eq "questjump4"
run-once 1
exclusive 1
call {
pause 2
do ai manual
do conf sellAuto 0
do move 205 129 izlude
do talknpc 214 124 c c r1 c c c c
do move 190 180 izlude
do talknpc 201 181 c r0 c
do conf lockMap iz_dun01
do mconf All 0 0 0
do mconf Thara Frog 1 0 0
do conf QuestPart thara
do ai auto
}
}

automacro questjump4a {
console /defeated \[Thara Frog\] progress \(40\/40\)/i
eval $::config{QuestPart} eq "thara"
run-once 1
exclusive 1
call {
log = QUEST THARA FROG COMPLETE =
pause 2
do ai manual
do conf lockMap none
do is Butterfly Wing
pause 5
do move 205 129 izlude
do talknpc 214 124 c c
do conf QuestPart none
log = JOB 50 =
do ai auto
}
}


Top
 Profile  
 
 Post subject: Re: [Classic-IRO] Janeway Jump Quests (Job 1 to 50.)
PostPosted: 06 May 2015, 19:44 
Offline
Human
Human
User avatar

Joined: 20 Jan 2010, 09:07
Posts: 36
the count does work but thanks :)

Image

_________________
Image


Top
 Profile  
 
 Post subject: Re: [Classic-IRO] Janeway Jump Quests (Job 1 to 50.)
PostPosted: 11 May 2015, 12:05 
Offline
Noob
Noob

Joined: 08 Jan 2015, 07:10
Posts: 8
Add this to: \Openkore\src\Network\Receive\iRO.pm
( * * two final lines in red * * )

Thanks to EternalHarvest.
viewtopic.php?f=55&t=16436

Quote:
#########################################################################
# OpenKore - Network subsystem
# Copyright (c) 2006 OpenKore Team
#
# This software is open source, licensed under the GNU General Public
# License, version 2.
# Basically, this means that you're allowed to modify and distribute
# this software. However, if you distribute modified versions, you MUST
# also distribute the source code.
# See http://www.gnu.org/licenses/gpl.html for the full license.
#########################################################################
# iRO (International)
# Servertype overview: http://wiki.openkore.com/index.php/ServerType
package Network::Receive::iRO;

use strict;
use base qw(Network::Receive::ServerType0);

use Globals qw($messageSender %timeout);
use Log qw(debug);
use Misc qw(monsterName);
use Utils qw(timeOut);

use Time::HiRes qw(time);

sub new {
my ($class) = @_;
my $self = $class->SUPER::new(@_);
my %packets = (
'006D' => ['character_creation_successful', 'a4 V9 v V2 v14 Z24 C6 v2', [qw(charID exp zeny exp_job lv_job opt1 opt2 option stance manner points_free hp hp_max sp sp_max walk_speed type hair_style weapon lv points_skill lowhead shield tophead midhead hair_color clothes_color name str agi vit int dex luk slot renameflag)]],
'0097' => ['private_message', 'v Z24 V Z*', [qw(len privMsgUser flag privMsg)]], # -1
'082D' => ['received_characters_info', 'x2 C5 x20', [qw(normal_slot premium_slot billing_slot producible_slot valid_slot)]],
'099D' => ['received_characters', 'x2 a*', [qw(charInfo)]],
);

foreach my $switch (keys %packets) {
$self->{packet_list}{$switch} = $packets{$switch};
}

return $self;
}

sub received_characters_info {
my ($self, $args) = @_;

Scalar::Util::weaken(my $weak = $self);
my $timeout = {timeout => 6, time => time};

$self->{charSelectTimeoutHook} = Plugins::addHook('Network::serverConnect/special' => sub {
if ($weak && timeOut($timeout)) {
$weak->received_characters({charInfo => '', RAW_MSG_SIZE => 4});
}
});

$self->{charSelectHook} = Plugins::addHook(charSelectScreen => sub {
if ($weak) {
Plugins::delHook(delete $weak->{charSelectTimeoutHook}) if $weak->{charSelectTimeoutHook};
}
});

$timeout{charlogin}{time} = time;

$self->received_characters($args);
}

*parse_quest_update_mission_hunt = *Network::Receive::ServerType0::parse_quest_update_mission_hunt_v2;
*reconstruct_quest_update_mission_hunt = *Network::Receive::ServerType0::reconstruct_quest_update_mission_hunt_v2;


1;



And this to: openkore_FARM\src\Network\Receive\iRO\Classic.pm
( * * two final lines in red * * )

Quote:
#########################################################################
# OpenKore - Network subsystem
# Copyright (c) 2006 OpenKore Team
#
# This software is open source, licensed under the GNU General Public
# License, version 2.
# Basically, this means that you're allowed to modify and distribute
# this software. However, if you distribute modified versions, you MUST
# also distribute the source code.
# See http://www.gnu.org/licenses/gpl.html for the full license.
#########################################################################
# Servertype overview: http://wiki.openkore.com/index.php/ServerType
package Network::Receive::iRO::Classic;

use strict;
use base qw(Network::Receive::ServerType0);

sub new {
my ($class) = @_;
my $self = $class->SUPER::new(@_);
my %packets = (
'0078' => ['actor_exists', 'C a4 v14 a4 a2 v2 C2 a3 C3 v', [qw(object_type ID walk_speed opt1 opt2 option type hair_style weapon lowhead shield tophead midhead hair_color clothes_color head_dir guildID emblemID manner opt3 stance sex coords unknown1 unknown2 act lv)]], # 55 # standing
'007C' => ['actor_connected', 'C a4 v14 C2 a3 C2', [qw(object_type ID walk_speed opt1 opt2 option hair_style weapon lowhead type shield tophead midhead hair_color clothes_color head_dir stance sex coords unknown1 unknown2)]], # 42 # spawning
'0097' => ['private_message', 'v Z24 V Z*', [qw(len privMsgUser flag privMsg)]], # -1
'022C' => ['actor_moved', 'C a4 v3 V v5 V v5 a4 a2 v V C2 a6 C2 v', [qw(object_type ID walk_speed opt1 opt2 option type hair_style weapon shield lowhead tick tophead midhead hair_color clothes_color head_dir guildID emblemID manner opt3 stance sex coords unknown1 unknown2 lv)]], # 65 # walking
);

foreach my $switch (keys %packets) {
$self->{packet_list}{$switch} = $packets{$switch};
}

my %handlers = qw(
received_characters 082D
);
$self->{packet_lut}{$_} = $handlers{$_} for keys %handlers;

return $self;
}

*parse_quest_update_mission_hunt = *Network::Receive::ServerType0::parse_quest_update_mission_hunt_v2;
*reconstruct_quest_update_mission_hunt = *Network::Receive::ServerType0::reconstruct_quest_update_mission_hunt_v2;


1;


Top
 Profile  
 
 Post subject: Re: [Classic-IRO] Janeway Jump Quests (Job 1 to 50.)
PostPosted: 11 May 2015, 13:27 
Offline
Human
Human
User avatar

Joined: 20 Jan 2010, 09:07
Posts: 36
thanks ! it works

_________________
Image


Top
 Profile  
 
 Post subject: Re: [Classic-IRO] Janeway Jump Quests (Job 1 to 50.)
PostPosted: 14 Jul 2015, 02:16 
Offline
Noob
Noob

Joined: 14 Jul 2015, 01:54
Posts: 1
Getting a error trying to run this macro
Dont know what i did wrong

The error msg on error.txt:

OpenKore version what-will-become-2.1
Network state = 5
Network handler = Network::DirectConnection
SVN revision: 8954
Loaded plugins:
plugins/macro/macro.pl (macro; description: allows usage of macros)

Error message:
Trailing \ in regex m/defeated \[Zombie\] progress \(30\/ at plugins/macro/Macro/Utilities.pm line 142.

Stack trace:
Trailing \ in regex m/defeated \[Zombie\] progress \(30\/ at plugins/macro/Macro/Utilities.pm line 142.
at plugins/macro/Macro/Utilities.pm line 142
Macro::Utilities::match('You are in the game now.', '/defeated \[Zombie\] progress \(30\/30\)/i') called at plugins/macro/Macro/Automacro.pm line 625
Macro::Automacro::checkConsole('/defeated \[Zombie\] progress \(30\/30\)/i', 'ARRAY(0x616c5d4)') called at plugins/macro/Macro/Automacro.pm line 739
Macro::Automacro::automacroCheck('log', 'ARRAY(0x616c5d4)') called at plugins/macro/Macro/Automacro.pm line 639
Macro::Automacro::consoleCheckWrapper('message', 'connection', 0, 1, 'You are in the game now.
', undef, 'Network::Receive::ServerType0::map_loaded', 'Network::PacketParser::parse') called at src/Log.pm line 254
Log::processMsg('message', 'You are in the game now.
', 'connection', undef, 1, 'HASH(0x37a1bfc)', 'HASH(0x37a1d3c)') called at src/Log.pm line 276
Log::message('You are in the game now.
', 'connection') called at src/Network/Receive/ServerType0.pm line 1113
Network::Receive::ServerType0::map_loaded('Network::Receive::iRO::Classic=HASH(0x5c15adc)', 'HASH(0x616c4c4)') called at src/Network/PacketParser.pm line 267
Network::PacketParser::parse('Network::Receive::iRO::Classic=HASH(0x5c15adc)', '\x{eb}\x{2}e\x{a7}\x{ac}\x{1c}\x{1e}\x{c6}@\x{5}\x{5}\x{0}\x{0}', 'Network::Receive::iRO::Classic=HASH(0x5c15adc)') called at src/Network/Receive.pm line 68
Network::Receive::parse('Network::Receive::iRO::Classic=HASH(0x5c15adc)', '\x{eb}\x{2}e\x{a7}\x{ac}\x{1c}\x{1e}\x{c6}@\x{5}\x{5}\x{0}\x{0}', 'Network::Receive::iRO::Classic=HASH(0x5c15adc)') called at src/Network/PacketParser.pm line 401
Network::PacketParser::process('Network::Receive::iRO::Classic=HASH(0x5c15adc)', 'Network::MessageTokenizer=HASH(0x38ce93c)', 'Network::Receive::iRO::Classic=HASH(0x5c15adc)') called at src/functions.pl line 725
main::mainLoop_initialized() called at src/functions.pl line 70
main::mainLoop() called at src/Interface.pm line 75
Interface::mainLoop('Interface::Console::Win32=HASH(0x2ceebdc)') called at openkore.pl line 97
main::__start() called at start.pl line 136

Interrupted in this line:
if ($kw =~ /^\/(.*?)\/(\w?)/) {
* if ($text =~ /$1/ || ($2 eq 'i' && $text =~ /$1/i)) {
if (!defined $cmpr) {


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 5 posts ] 

All times are UTC - 5 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group