» 23.11.2016, 18:39
var %dot $str(...,100)
if ($calc($2 - $len($strip($1))) > 0) {
var %dot $left(%dot, $calc($2 - $len($strip($1))))
}
return $+ $3 $+ , $+ $4 $+ $1 $+ $+ $4 $+ , $+ $4 $+ %dot » 23.11.2016, 21:04
).
alias a_line {
if ($5 == 1) return $+ $1 $+ , $+ $2 $+ $4 $+ $+ $2 $+ $str($chr(160), $calc($3 - $len($strip($4))))
if ($5 == 2) return $+ $1 $+ , $+ $2 $+ $str($chr(160), $calc($3 - $len($strip($4)) - $int($calc(($3 - $len($strip($4))) / 2)))) $+ $4 $+ $str($chr(160), $int($calc(($3 - $len($strip($4))) / 2)))
if ($5 == 3) return $+ $1 $+ , $+ $2 $+ $str($chr(160), $calc($3 - $len($strip($4)))) $+ $4
} » 23.11.2016, 21:14
» 09.01.2017, 20:02
» 10.01.2017, 11:52
StereoMaster пишет:Если кто вдруг юзает для седьмого мирка — замените gmt обратно на asctime. Позже на неделе попробую запилить цивилизованный фикс и выложу апдейт.
/echo: insufficient parameters » 10.01.2017, 13:51
//echo -a $f_time(1010) = 16:50
//echo -a $f_time(1010,H:nn:ss) = 00:16:50
//echo -a $f_time(170,n:ss) = 2:50
//echo -a $f_time(170,nn:ss) = 02:50
//echo -a $f_time(1:70:10) = 02:10:10
//echo -a $f_time(1310,H:nn:ss) = 00:21:50
» 10.01.2017, 20:41
» 10.01.2017, 20:45
» 25.03.2018, 22:20
Предупреждение: alias -l boom_sort_otbor {
$sort_inter(boom_otbor_nick boom_otbor_time,boom_otbor_points)
var %boom_temp1 %boom_otbor_nick
var %boom_temp2 %boom_otbor_points
var %boom_temp3 %boom_otbor_time
set %boom_otbor_nick
set %boom_otbor_points
set %boom_otbor_time
while ($numtok(%boom_temp1,32) > 0) {
var %p $gettok(%boom_temp2,1,32)
set %boom_temp001
set %boom_temp002
set %boom_temp003
while (%p == $gettok(%boom_temp2,1,32)) {
set %boom_temp001 %boom_temp001 $gettok(%boom_temp1,1,32)
set %boom_temp002 %boom_temp002 $gettok(%boom_temp2,1,32)
set %boom_temp003 %boom_temp003 $gettok(%boom_temp3,1,32)
set %boom_temp1 $deltok(%boom_temp1,1,32)
set %boom_temp2 $deltok(%boom_temp2,1,32)
set %boom_temp3 $deltok(%boom_temp3,1,32)
}
$sort_inter(boom_temp001 boom_temp002,boom_temp003,1)
set %boom_otbor_nick %boom_otbor_nick %boom_temp001
set %boom_otbor_points %boom_otbor_points %boom_temp002
set %boom_otbor_time %boom_otbor_time %boom_temp003
}
}
» 29.06.2018, 15:20
» 09.06.2019, 13:52
k1,1.k1,1.k1,1.k1,1.k1,1. → k1,1.....k10,9.k1,9.k5,9. → k10,9.k1.k5.k0,0110 негритят k4,019 негритят k04,01нет негритят → k0,0110 негритят k049 негритят k4нет негритятk0,12k0,05k12k4text → k4,5textk0,0invisible k0,0text k0,0play hoh_opening.mp3 → k0,0invisible text k0play hoh_opening.mp3$inter(int_nicks,nick,int_points int_points2 int_points3...,point).add ← прибавляет нику nick из интерактива point очков.
$inter(int_nicks,nick,int_points int_points2 int_points3...,point).set ← устанавливает нику nick в интерактиве point очков.
$inter(int_nicks,nick,int_points int_points2 int_points3) ← возвращает через пробел очки игрока из трёх указанных переменных
$inter(1,int_points int_points2 int_points3...,point point2 point3).add ← добавляет 1 Игроку point в int_points, point2 в int_points2 и т.д.
$inter(1,int_points int_points2 int_points3).return ← возвращает через пробел очки 1 Игрока из трёх указанных переменных
$inter(int_nicks,nick,int_points int_points2 int_points3) ← удаляет игрока из ников и трёх указанных переменных
» 10.06.2019, 19:47
alias bench {
;алиас для тестирования оптимизаций идентичных алиасов.
;%bench - через пробел названия тестируемых алиасов без знаков доллара
;%bench_string - тестовая строка параметров алиаса)
;Usage: /bench param1 param2 param3... <для алиасов, указанных ниже в %bench>
; /bench -alias1;alias2;alias3 param1 param2 param3...
if ($left($1,1) == -) {
var %bench $replace($right($1,-1),;,$chr(32))
var %bench_string $replace($2-,$chr(32),$chr(44))
}
else {
var %bench s s2 s3
var %bench_string $replace($1-,$chr(32),$chr(44))
}
var %bench_alias,%tick,%ttt,%i,%b = 1
while (%b <= $numtok(%bench,32)) {
%i = 50000
%bench_alias = $chr(36) $+ $gettok(%bench,$v1,32) $+ ( $+ %bench_string $+ )
echo -a [ $+ $v1 $+ / $+ $v2 $+ ]Benchmark for 12 $+ %bench_alias
%tick = $ticks
while (%i) {
%ttt = $eval(%bench_alias,2)
dec %i
}
echo -a Completed in 02 $+ $calc($ticks - %tick) $+ ms. Result: 12' $+ %ttt $+ 12'
inc %b
}
}
alias max {
if ($numtok($1,$2) == 1) && ($0 == 2) {
if ($1 >= $2) return $v1
else return $v2
}
if ($v2 == 2) tokenize 32 $1-
else tokenize $2 $1
var %m_m [ $ $+ [ $0 ] ]
var %m_c $calc($0 - 1)
while (%m_c) {
if ( [ $ $+ [ $v1 ] ] > %m_m) %m_m = $v1
dec %m_c
}
return %m_m
}
alias min {
if ($numtok($1,$2) == 1) && ($0 == 2) {
if ($1 <= $2) return $v1
else return $v2
}
if ($v2 == 2) tokenize 32 $1-
else tokenize $2 $1
var %m_m [ $ $+ [ $0 ] ]
var %m_c $calc($0 - 1)
while (%m_c) {
if ( [ $ $+ [ $v1 ] ] < %m_m) %m_m = $v1
dec %m_c
}
return %m_m
}
alias disttok {
;возвращает строку токенов без повторов. $2 - разделитель
if ($2 isnum 0-) var %dist_d $v1
else var %dist_d 32
var %i = 1,%iM = $numtok($1,%dist_d)
var %disttok
while (%i <= %iM) {
%disttok = $addtok(%disttok,$gettok($1,$v1,%dist_d),%dist_d)
inc %i
}
return %disttok
}
alias f_money {
if ($2) || ($gettok($1,2,44)) var %money $1 $+ . $+ $v1
else var %money $1
%money = $round($replace(%money,$chr(44),$chr(46)),2)
if ($gettok(%money,2,46) isnum 10-) return $gettok(%money,1,46) $+ , $+ $v1
else return $gettok(%money,1,46) $+ , $+ $v1 $+ $str(0,$calc(2 - $len($v1)))
}
alias f_num {
var %f_int $abs($int($1))
var %i $len(%f_int)
if ($calc(%i % 3)) %i = %i - $v1
else %i = %i - 3
while (%i) {
%f_int = $left(%f_int,- $+ $v1) $+ $chr(32) $+ $right(%f_int,$v1)
%i = %i - 3
}
if ($left($1,1) == -) %f_int = - $+ %f_int
if ($len($2)) %i = $2
elseif ($len($gettok($1,2,44))) %i = $gettok($1,2,44)
else %i = $gettok($1,2,46)
if ($len(%i)) return %f_int $+ , $+ %i
else return %f_int
}
» 10.06.2019, 21:06
Вернуться в IRC-игры и конкурсы
