allanon

# max line width is 132 cols
    -l=132

# indent level is 4 cols
    -i=4

# entab at 4 cols
    -et=4

# continuation indent is 4 cols

allanon

$items = @Inventory(Damascus [2]),-1
$item = [$items]
while ($item != -1) as loop
  log Do something useful with item $item!
  $item = [$items]
end loop

allanon

# id hp size race element range def mdef sec_per_tile

# Champion Monsters
# Solid:	10x HP
# Elusive:	5x HP
# Furious:	5x HP
# Swift:	8.15?x HP
2606 1170 1 1 29 1 20 3 0.4
2624 23850 1 0 25 1 104 65 0.35
2645 1825 0 4 24 1 22 25 0.2

allanon

# Unequip Sky Deleter card when sitting.
doCommand uneq Pantie [Sky Deleter] [1] {
  timeout 30
  whenStatusActive Sitting
  whenEquipped Pantie [Sky Deleter] [1]
  hp < 90%
}
monsterEquip {
  equip_armor Pantie [Sky Deleter] [1]
}

allanon

# Watch for Ignition Break and log the skill delay.
# This should be much safer (and better performance!) than watching for console logs.
# The macro plugin complains if any of the saved hook arguments are undefined,
# and "tick" is undefined when the status change isn't timed. Which results in
# lots of annoying "[macro] $args->{tick} does not exist" messages on the 
# console. Sigh.
automacro ib_delay {
  hook Actor::setStatus::change
  save actor_type
  save handle

allanon

#!/usr/bin/env perl
###############################################################################
# Automatically create a pull request containing official server changes,
# extracted from the server's patch files.
#
# WARNING: This script will DELETE all local modifications to the git clone
#          it uses. Please use a git directory which is only for this script
#          to avoid loss of any changes you might have made.

use strict;

allanon

fisce009@GL-FISCE009-ML1:~/git/video_platform/bin$ perl /tmp/ftp.pl
Net::FTP>>> Net::FTP(2.77)
Net::FTP>>>   Exporter(5.68)
Net::FTP>>>   Net::Cmd(2.29)
Net::FTP>>>   IO::Socket::INET(1.33)
Net::FTP>>>     IO::Socket(1.36)
Net::FTP>>>       IO::Handle(1.34)
Net::FTP=GLOB(0x7f8232228d48)>>> USER drpftp4
Net::FTP=GLOB(0x7f8232228d48)<<< 331 Password required for drpftp4
Net::FTP=GLOB(0x7f8232228d48)>>> PASS ....

allanon

use strict;
use warnings;

use Disney::Util;

# Force dev environment. We don't want to accidentally run tests on production!
$ENV{DOLX_ENVIRONMENT} = 'development';

my $opt = Disney::Util::get_dolx_options( {}, {} );
my $conf = Disney::Util::load_and_merge_conf( $opt );

allanon

macro weight {
  $weight = @eval ( $::config{autoWeight} = $::config{autoWeight} ? 0 : 1 )
  if ($weight == 1) goto weight
    log No longer automatically going back to town when overweight
    goto done
  :weight
    log Going back to town when overweight
    goto done
  :done
}