【コマンド】2chコマンド作ってよ【/usr/bin/2ch】 (179ﾚｽ)
上下前次1-新
17: こっちでやれ。 02/04/21 22:42 AAS
2chｽﾚ:linux
18(1): ずさー [age] 02/04/22 02:11 AA×
>>13
19: ずさー 02/04/22 02:14 AAS
一応uuencodeしたものもうpします。
誰かかっこよくなるように改造してくれ。
begin 664 zusa.c
M(VEN8VQU9&4@/'-T9&EO+F@^"FEN="!M86EN*&EN="!A+"!C:&%R("IB6UTI
M"GL*"B`@:6YT(&DL(&H["B`@8VAA<B!B=69;,C4V73L*("!C:&%R("IG971;
M-ET@/2!["B`@("`BC:&"OH%),3B4U(-1@V*#9X-(@TBKJX%)@4DB+`H@("`@
M(H%0@5"!4(%0@5"!R8%0@5"!4(%`@4"!0(%`@4"!0(%`*(%,@4PB+`H@("`@
M(H%`@4"!0""!R""!R(%`@4"!0(%`@4"!0""!0(%`@4`H@4R!W"B!3"(L"B`@
M("`B@4"!0(&\*-^$1-^!O('<@4V"PH'?@=^!WRB!3('<.SL[@=^!WX'?(BP*
M("`@("*!0(%`@4"!0(%`@4`@@5"!4(%`("B!3('<*(%,@=P[.R(L"B`@("`B
M@4"!0(%`@4"!0(%`O=Z[WK"PL+"PKR(*("!].PH*("!P<FEN=&8H(EQN7&Y<
M;EQN7&Y<;EQN(BD["B`@9F]R("AJ(#T@,3`[(&H^/3`[(&HM+2D@>PH@("`@
M<')I;G1F*"(E8TTE8TTE8TTE8TTE8TTE8TTB+"`R-RPR-RPR-RPR-RPR-RPR
M-RD["B`@("!F;W(@*&D@/2`P.R!I/#8[(&DK*RD@>PH@("`@("!M96US970H
M8G5F+"`P>#(P+"!S:7IE;V8H8G5F*2D["B`@("`@('-T<F-P>2@F8G5F6VI=
M+"!G971;:5TI.PH@("`@("!S=')C870H8G5F+"`B("(I.PH@("`@("!P<FEN
M=&8H(B5S7&XB+"!B=68I.PH@("`@?0H@("`@=7-L965P*#$P,#`P,"D["B`@
$?0I]"@``
`
end
20(1): 02/04/22 04:06 AA×
21: 02/04/22 09:37 AAS
ワロタ。端末にカスがのこったが
22(1): 02/04/22 13:27 AAS
おもしろー！
なんかこれがきっかけでプログラミング始めたくなりました！！
感謝！
最後にクリアスクリーンをするためには…えーとなんかCALLしなきゃならんのかな？
23: 名無しさん＠Ｅｍａｃｓ 02/04/22 13:37 AAS
"18番ゲットォ" の "18" をプロセスのpidにしてみると面白いかも
と言ってみるテスト。
24: 02/04/22 14:05 AAS
"今だ！";pid用変数名;"番ゲットォォｫｫ！！",
わ、わからん
25: 02/04/22 14:34 AAS
まさに今そういうアニメーションプログラムを X で作ってます。
あと2、3日で公開できると思うんでお待ちを。
ちょっとドキュメンテーションに時間がかかってて…
26(1): 02/04/22 14:41 AAS
ちなみに、スクリーンショットはこんなかんじ。
画像ﾘﾝｸ
いまのところ、附属アプリケーションは
・ xclockのかわりになるギコ猫時計、
・ メール到着を知らせる「もう来ねえよ!」(アニメーションは切り換え可能)
・ マウスポインタを追いかけるぃょぅ
・ しばらくマウスを動かさないと踊りだすイマノウチ
とゆー感じ。要Python。
27: 02/04/22 16:00 AAS
ほんとにちょっとだけ期待あげ
28(1): 02/04/22 19:36 AAS
alias 2ch w3m 2ch.net
以上
29: 02/04/22 20:33 AAS
>>28 俺はこんな alias 2ch w3m 外部ﾘﾝｸ[html]:www6.ocn.ne.jp
30: 02/04/22 21:52 AAS
2chｽﾚ:download
皆さんの力で助けて下さい。
31: 02/04/22 23:58 AAS
begin 644 zusa.c.gz
M'XL("+XCQ#P``WIU<V$N8P!]4DU+PT`0/2>_8H@H&QLU%JM"K6<O_H(8)$VV
M=DN2EF0+5NF/V6@0BPAZ]%`$/12]>_2W.)MLF_J!LYME>//F);-Y*RSVPV%`
MX2#E`>MO=@_UE0H:I5M\-*#I=W@8,R3_H/(@9&V)Z2SF$'DL)C+Q+/"[7@+K
M;<<U]4M=DR"SH-?4M:+0'G:<>F/7;9:E-*1T<,I91*$%^[:MX("&W$.D(8$!
M"TXYX#G76#^CW'&QC/J:\71U_2PFJ\'L(W_,7_)9?ELN,1$3`,.2'/$P7]F[
MR@0L0G&*@.P-MU#Q%R>;$G%WDXN[;)I]BOOKUP5M64?U_WR5XL"_(3EC'+88
M'<?$<3$A)D+XBSB-B.&'U$L,1)"3X(UUB+'J.SMV<_O(L.I[DCK'3^+E)7NT
M3C\!TD-E;(#>84N>&QMF<9^5W/'O+;5_;RE9:C+41#%VD+(+VN\0_')SJ\H=
MVS6Q6JN5K](B&J64$_2$!?9YW;9`<1$Q"U4MY8D_&)$UZ9N>:\F[<)A;U3S5
M;H":;3&!A/':"FR,S[#P&JD<5U26#%AKE;Z3<&G`FG+@6!_K7P:4VS0Z`P``
`
end
なんとなく改造して見たり。ていうか >>26 さん公開キボンヌ。
32: 02/04/23 02:08 AAS
>>22
printf("%c[2J", 27);
さらにカーソルを上にやるなら
printf("%c[2J%c[0;0H", 27,27);
33: 02/04/23 23:30 AAS
#!/bin/sh
banner 2ch
34: 02/04/23 23:49 AAS
2chコマンドってブラウザだろ？
35: 02/04/23 23:59 AAS
豊橋ギコ大製のxmascotの２ｃｈ版がいいな（ギコとかモナーとか）
アラームしていしとくと「オマエモナー」っていうの♪
36: 02/04/24 02:25 AAS
banner -w 60 "(w"
37: 02/04/25 17:18 AAS
外部ﾘﾝｸ:members.tripod.co.jp
38: perlだけど 02/04/25 19:38 AA×
39: perlだけど 02/04/25 19:39 AA×
40: perlだけど 02/04/25 19:39 AAS
&aaa($niget);
sub aaa {
local($frames) = @_;
@lines = split /\n/, $frames;
$linenum = @lines;
$fnum = 0; $lnum = 0;
for ($i = 0; $i < $linenum; $i++) {
$_ = $lines[$i];
if (/^[0-9]/) {
$bline = &bs($lnum);
$aaf[$fnum][$lnum-1] .= $bline;
$fnum++;
$lnum = 0;
} elsif ($lines[$i] eq "E") {
$bline = &bs($lnum);
$aaf[$fnum][$lnum-1] .= $bline;
$fnum++;
} else {
$aaf[$fnum][$lnum] = $lines[$i] . "\n";
$lnum++;
}
}
for ($i=0;$i<$fnum;$i++) {
for($j=0;$j<300;$j++) {
for ($k=0;$k<$lnum;$k++) {
print $aaf[$i][$k];
}
}
}
}
sub bs {
local($num) = @_;
local($bs) = "";
local($i);
for ($i = 0; $i < $num; $i++) {
$bs = $bs . "A\r";
}
return $bs;
}
41(1): 02/04/25 22:08 AAS
ん？コピペミスか？
無限ループする・・・
42: 02/04/25 22:22 AAS
>>41
そういうアニメーションなんじゃない？
43: perlだけど 02/04/26 00:18 AAS
ごめん。
ケツから4行目は、
$bs = $bs . "A\r";
ではなくて、
$bs = $bs . "^[[A\r";
ですた。
こぴぺしたときにエスケープが消えた。
emacsとかで [Ctrl+Q], [ESC], "[", "A" と入力してくだされ。
kterm上で横幅80桁くらいにとって実行。
"ﾟ" は半角カナなんで rxvt ではうまく表示されないかも。
お目汚ししつれいしますた。
44: perlですけどー 02/04/26 00:20 AA×
45: perlですけどー 02/04/26 00:20 AA×
46: perlですけどー 02/04/26 00:20 AA×
上下前次1-新書関写板覧索設栞歴
あと 133 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.810s*