Дигерство вне закона?

[Ladon]

Зачем копать на спаме то? Пишешь серию несложных тригов и все...

#Вы слишком устали.
trig {$U::setfresh="1"} '^Вы слишком устали\.', '2000nf-:Dig';

#Ямку присыпало землей...
trig {$U::dig="1"} '^Ямку присыпало землей\.\.\.', '2000nf-:Dig';

#Вам бы лопату взять в руки... Или кирку...
trig {sendl("взя кирк $U::pack");sendl('воор кирка');$U::dig="1";} '^Вам бы лопату взять в руки\.\.\. Или кирку\.\.\.', '2000nf-:Dig';

#Вы стали усердно ковырять каменистую почву...
trig {$U::dig="1";} '^Вы стали усердно ковырять каменистую почву\.\.\.', '2000nf-:Dig';

#Вы нашли ярко-зеленый камушек!
trig {my $stone=$1;my $stones_kol = $stones{$stone};sendl("пол все.кам $U::pack");$stones_kol++;$U::stones++;$stones{$stone}=$stones_kol;$:="\[$U::stones\] $stone"} '^Вы нашли (.*) камушек\!$', '2000nf-:Dig';
trig {sendl("бр все.червяк")} '^Вы нашли дождевого червяка', '2000nf-:Dig';
#Вы нашли старую кирку!
trig {sendl("пол все.кирк $U::pack")} '^Вы нашли старую кирку', '2000nf-:Dig';
#Вы нашли огромный ржавый гвоздь!
trig {sendl("пол все.гв $U::pack")} 'Вы нашли огромный ржавый гвоздь', '2000nf-:Dig';

#Тут и так все перекопано.
trig {sendl("$U::direct");$U::dig=1;} '^Тут и так все перекопано\.', '2000nf-:Dig';

#Вы не сможете туда пройти...
trig {if ($U::direct eq "в") {$U::direct="з";} else {$U::direct="в"}} '^Вы не сможете туда пройти\.\.\.', '2000nf-:Dig';

#Полезные минералы водятся только в гористой местности!
trig {$U::direct = "з";sendl('з');} '^Полезные минералы водятся только в гористой местности!', '2000nf-:Dig';

#Куда копать? Чего копать? Ничего не видно...
trig {$U::setlight=1} '^Куда копать\? Чего копать\? Ничего не видно\.\.\.', '2000nf-:Dig';

#Минул час.
trig {$U::dig="1";$U::invis="1";} '^Минул час\.', '2000nf-:Dig';



    if ($U::invis) {sendl('колд !нев!');$U::invis=0}
    elsif ($U::setfresh) {sendl('колд !восс!');$U::setfresh=0}
    elsif ($U::setlight) {sendl('колд !с с!');sendl("взя шарик $U::pack");sendl('держать шарик');sendl("пол все.шарик $U::pack");$U::setlight=0}
    elsif ($U::dig) {sendl('копать земля');$U::dig=0};

ну и дорабатываешь как тебе надо, что бы быстрее или медленее копал, что бы прекращал копать если тебе теляют и бибикал при этом.