Skip to content

Instantly share code, notes, and snippets.

macro quest_juice {
if (@config(quest_juice) == complete) stop
# Get 1 Meat.
call quest_talk prontera '64 125' 'b b0,1 e'
# => 1x Meat
# Morrison
call quest_talk prt_in '47 173' 'r1 r1 e'
!include eventMacro_quests.txt
macro test_wi {
$i = 0
while ($i < 3) {
log $i
$j = 0
if ($j < 3) {
log $i.$j +
}
#!/usr/bin/env perl
###############################################################################
# Calculate "y = mx + b" form of line equation from two points on the line.
# Use rational numbers instead of decimals.
#
use strict;
use warnings;
usage() if @ARGV != 4;
@allanon
allanon / new_and_changed_fields.txt
Created March 1, 2018 22:58
New and changed fields for iRO.
== New
c477cfc11e26daa9c0020e9d3dd8d5a2 - ealde_dun02m.fld
66dd0d029e8be754a0b22772bb9fe50c - egld2_aldl.fld
b914b3093df8089d5eeacb8abd47757c - emal_dun01h.fld
1d79395e860ab98d83c3a6eafccbfcdb - etur_dun01.fld
ce67299e40b55c3ea0a3e83c0ed1b847 - harboro1.fld
201699c018c4002e07fe1a637b88be96 - harboro2.fld
985976f0bd855f30dd58f7e71c5b9c66 - har_in01.fld
5fd90279ad34dcc897a14e84c3465fad - lhz_d_n2.fld
6905a35702917bdc43bb70f7a8562b8b - paramk.fld
@allanon
allanon / ignore.pl
Created November 17, 2017 21:26
Plugin to ignore zeny sellers.
package OpenKore::Plugins::Ignore;
use strict;
use Plugins;
use Globals;
use Utils;
use Misc;
use Log;
use AI;
@allanon
allanon / config.txt
Last active December 30, 2018 01:53
autoRefine example
# Using an NPC to refine armor.
autoRefine Round Buckler [1], Stone Buckler [1], Ribbon [1], Cap [1], Silk Robe [1] {
label refine_safe_a
disabled 1
refineStone Elunium
npc 63 60 prt_in
npcSequence r0 r0
zeny 2000
minRefine 0
maxRefine 4
package OpenKore::Plugins::ItemWeightRecorder;
###############################################################################
# Record item weights into tables/item_weights.txt.
use strict;
use Globals qw( $char );
our $name = 'item_weight_recorder';
package OpenKore::Plugin::ProtectPriest;
use strict;
use Plugins;
use Globals;
use Utils;
use Misc;
use Log qw(message warning error);
use AI;
#!/usr/bin/env perl
use strict;
use warnings;
use Disassemble::X86;
use Getopt::Long;
use Time::Piece;
my $opt = {
## Ores #######################################################################
forge Iron {
skill Iron Tempering
useItem Mini Furnace
item_0 Iron Ore 1
}
forge Steel {
skill Steel Tempering
useItem Mini Furnace