RO-fan

Код: Выделить всё

##### AUTOBREAKTIME #####
# Break time: automatically disconnect at certain times of the day
sub processAutoBreakTime {
	if (timeOut($AI::Timeouts::autoBreakTime, 30)) {
		my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
		my $hormin = sprintf("%02d:%02d", $hour, $min);
		my @wdays = ('sun','mon','tue','wed','thu','fri','sat');
		debug "autoBreakTime: hormin = $hormin, weekday = $wdays[$wday]\n", "autoBreakTime", 2;
		for (my $i = 0; exists $config{"autoBreakTime_$i"}; $i++) {
			next if (!$config{"autoBreakTime_$i"});

			if  ( ($wdays[$wday] eq lc($config{"autoBreakTime_$i"})) || (lc($config{"autoBreakTime_$i"}) eq "all") ) {
				if ($config{"autoBreakTime_${i}_startTime"} eq $hormin) {
					my ($hr1, $min1) = split /:/, $config{"autoBreakTime_${i}_startTime"};
					my ($hr2, $min2) = split /:/, $config{"autoBreakTime_${i}_stopTime"};
					my $time1 = $hr1 * 60 * 60 + $min1 * 60;
					my $time2 = $hr2 * 60 * 60 + $min2 * 60;
					my $diff = ($time2 - $time1) % (60 * 60 * 24);

					message TF("\nDisconnecting due to break time: %s to %s\n\n", $config{"autoBreakTime_$i"."_startTime"}, $config{"autoBreakTime_$i"."_stopTime"}), "system";
					chatLog("k", TF("*** Disconnected due to Break Time: %s to %s ***\n", $config{"autoBreakTime_$i"."_startTime"}, $config{"autoBreakTime_$i"."_stopTime"}));

					$timeout_ex{'master'}{'timeout'} = $diff;
					$timeout_ex{'master'}{'time'} = time;
					$KoreStartTime = time;
					$net->serverDisconnect();
					AI::clear();
					undef %ai_v;
					$net->setState(Network::NOT_CONNECTED);
					undef $conState_tries;
					last;
				}
			}
		}
		$AI::Timeouts::autoBreakTime = time;
	}
} 

Код: Выделить всё

showTimeDomains ai_attack, ai_npcTalk, attacked, attackedMiss, attackMon, attackMonMiss, connection, console, deal, drop, emotion, exp, equip, follow, guildchat, guildnotice, info, input, inventor, list, load, looter, map_event, npc,party, partychat, pet, plugins, pm, pm/sent ,portals, portalRecord, publicchat, refine, route, route_teleport, schat, selfSkill, skill, sold, startup, storage, success, syntax, system, teleport, useItem, useTeleport, waypoint, xkore
showTimeDomainsFormat [H:M]

Код: Выделить всё

[15:57] Attacking: Monster Drops (0)
[15:57] [ 51/100] You attack Monster Drops (0) - Dmg: Miss! (delay 58.7)
[15:57] [ 51/100] You attack Monster Drops (0) - Dmg: 13 (delay 58.7)
[15:57] [ 51/100] Monster Drops (0) attacks you - Dmg: Miss! (delay 67.2)
[15:57] [ 51/100] You attack Monster Drops (0) - Dmg: 35 (delay 58.7)
[15:57] [ 53/100] Monster Drops (0) attacks you - Dmg: 7 (delay 67.2)
[15:57] [ 53/100] You attack Monster Drops (0) - Dmg: 34 (delay 58.7)
[15:57] Exp gained: 4/3 (0.57%/0.00%)
[15:57] Item added to inventory: Jellopy (1) x 1 - Non-usable
[15:57] Item added to inventory: Apple (19) x 1 - Usable
[15:57] Target died
[15:57] You used Item: Apple (19) x 1 - 0 left
[15:57] Calculating random route to: Sograt Desert(moc_fild07): 342, 57

Код: Выделить всё

automacro antibot02 {
	console /\[..:(04|34)\]/i
	call {
	do relog 70
	}
}

Код: Выделить всё

console /\[\d\d:(04|34)\]/

Код: Выделить всё

do relog @rand(65,75)

Код: Выделить всё

console /\[... \d+ \d\d:(34|04):\d\d \d+\.\d]/

Код: Выделить всё

use Time::localtime;
my $datetime = localtime->hour().":".localtime->min().":".localtime->sec();
my $ai_hook;
my $secc;
my $macro_name;
my $macro_time;
Plugins::register('budilNic', 'alarm in some times', \&event_unload, \&event_reload);
$ai_hook = Plugins::addHook('AI_pre', \&init);

sub init {
if ($Globals::config{'startup_time'}) {
$macro_time=$Globals::config{'startup_time'};
if ($Globals::config{'startup_macro'}) {
$macro_name=$Globals::config{'startup_macro'};
$secc=localtime->sec();
if($secc<10){
$secc="0".localtime->sec();
}else {
$secc=localtime->sec();
}
$datetime = localtime->hour().":".localtime->min().":".$secc;
if($mytime eq $datetime){
 printf "macro ".$macro_name;
 };
 sleep (1);
  }
 }       
}

Код: Выделить всё

ddo (время) (командная строка) 
и вспомогательные: 
ddo stop (ddo s)- очистить очередь отложенных команд; 
ddo list (ddo l) - показать список команд в очереди;

Код: Выделить всё

[logs]
[plugins]
        |-cron.pm
        |-cron.pl
crontab