[Classic-IRO] Janeway Jump Quests (Job 1 to 50.)

Moderator: Moderators

Message
Author
huehuehuebr
Noob
Noob
Posts: 8
Joined: 08 Jan 2015, 07:10
Noob?: No

[Classic-IRO] Janeway Jump Quests (Job 1 to 50.)

#1 Post by huehuehuebr »

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.
#
## 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
}
}

MiDaM
Human
Human
Posts: 35
Joined: 20 Jan 2010, 09:07
Noob?: Yes

Re: [Classic-IRO] Janeway Jump Quests (Job 1 to 50.)

#2 Post by MiDaM »

the count does work but thanks :)

Image
Image

huehuehuebr
Noob
Noob
Posts: 8
Joined: 08 Jan 2015, 07:10
Noob?: No

Re: [Classic-IRO] Janeway Jump Quests (Job 1 to 50.)

#3 Post by huehuehuebr »

Add this to: \Openkore\src\Network\Receive\iRO.pm
( * * two final lines in red * * )

Thanks to EternalHarvest.
http://forums.openkore.com/viewtopic.php?f=55&t=16436
#########################################################################
# 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 * * )
#########################################################################
# 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;

MiDaM
Human
Human
Posts: 35
Joined: 20 Jan 2010, 09:07
Noob?: Yes

Re: [Classic-IRO] Janeway Jump Quests (Job 1 to 50.)

#4 Post by MiDaM »

thanks ! it works
Image

kiowak
Noob
Noob
Posts: 1
Joined: 14 Jul 2015, 01:54
Noob?: No

Re: [Classic-IRO] Janeway Jump Quests (Job 1 to 50.)

#5 Post by kiowak »

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) {

Post Reply