【コマンド】2chコマンド作ってよ【/usr/bin/2ch】

1名無しさん@お腹いっぱい。
垢版 |
NGNG
漏れはDOQだから作れんけど、
誰かプログラミング得意な人作ってください。
2げっとズサーみたいなものキボンヌ
2名無しさん@XEmacs
垢版 |
NGNG
2
3名無しさん@XEmacs
垢版 |
NGNG
#!/bin/sh

echo 2げっとズサー
NGNG
/usr/bin/2ch っておい、何を作ればいいのか
全くわからんぞ、
>2げっとズサーみたいなもの
ぐらいならスクリプト書きゃいいし。
それぐらいのことなら、~/sh/2ch.sh とか
書いてる奴が大量にいるんじゃねーの?
5名無しさん@お腹いっぱい。
垢版 |
NGNG
>>4
んー? スクリプトで決まった言葉をレスするっとこと?
どんな感じになるのかしら?
実例きぼん
NGNG
>>1はDOQ
NGNG
何かのキーワードを入っているとそれに応じたAAを返すやつ。
NGNG
nkf みたいなやつか?
NGNG
>>7
それつくっちゃうと、とんでもないことになる気がするなぁ
おそろしい sage
10名無しさん@お腹いっぱい。
垢版 |
NGNG
kitaコマンド。
http://pc.2ch.net/test/read.cgi/linux/999430299/301-400
の318を見よ。
11名無しさん@お腹いっぱい。
垢版 |
NGNG
>>10
わらた
しかし目がでないなー?
1211
垢版 |
NGNG
あーでたでた
かわいー
13名無しさん@お腹いっぱい。
垢版 |
NGNG
slコマンドでSLが走るやつあったじゃん。
あれの2ch版(ズサー)みたいなの
14名無しさん@お腹いっぱい。
垢版 |
NGNG
それってnavi2chの^c ^a k じゃないくて?
bannerではダメなのか
15名無しさん@お腹いっぱい。
垢版 |
NGNG
.bashrcにalias 2ch= 'w3m http://www.2ch.net/'
とかじゃだめか。
NGNG
fortuneを改造して、ここの>>1を罵倒する
AAを表示するプログラムキボンヌ。
NGNG
http://pc.2ch.net/test/read.cgi/linux/1011982036/
18ずさー
垢版 |
NGNG
>>13
かなりシンプルなものを作ってみました。
% cat zusa.c
#include <stdio.h>
int main(int a, char *b[])
{

int i, j;
char buf[256];
char *get[6] = {
"今だ!18番ゲットォォォォ!!",
" ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄       (´´",
"    ∧ ∧          (´⌒(´",
"  ⊂(゚Д゚⊂⌒`つ≡≡≡(´⌒;;;≡≡≡",
"        ̄ ̄  (´⌒(´⌒;;",
"      ズザーーーーーッ"
};

printf("\n\n\n\n\n\n\n");
for (j = 10; j>=0; j--) {
printf("%cM%cM%cM%cM%cM%cM", 27,27,27,27,27,27);
for (i = 0; i<6; i++) {
memset(buf, 0x20, sizeof(buf));
strcpy(&buf[j], get[i]);
strcat(buf, " ");
printf("%s\n", buf);
}
usleep(100000);
}
}

/* usleep()のない人はselect()でも使ってくれ */
19ずさー
垢版 |
NGNG
一応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名無しさん@お腹いっぱい。
垢版 |
NGNG
てきとうにいじってたら、なかなか迫力のある動きをするように
なった。

端末エミュの中で Enter を押し続けて、カーソルを下の
方に移動してから実行スレ。


#include <stdio.h>
int main(int a, char *b[])
{

int i, j;
char buf[256];
int sleep_time = 800;
int delta = 50;
char *get[] = {
"今だ!18番ゲットォォォォ!!",
" ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄ ",
"    ∧ ∧    ",
"  ⊂(゚Д゚⊂⌒`つ ",
"        ̄ ̄  ",
};

printf("\n\n\n\n\n\n\n");
for (j = 40; j>=0; j--) {
printf("%cM%cM%cM%cM%cM%cM", 27,27,27,27,27,27);
for (i = 0; i<sizeof(get)/sizeof(get[0]); i++) {
memset(buf, 0x20, sizeof(buf));
strcpy(&buf[j], get[i]);
strcat(buf, " ");
printf("%s\n", buf);
}
usleep(sleep_time);
sleep_time += delta;
delta += 50;
}
}
NGNG
ワロタ。端末にカスがのこったが
22名無しさん@お腹いっぱい。
垢版 |
NGNG
おもしろー!

なんかこれがきっかけでプログラミング始めたくなりました!!
感謝!

最後にクリアスクリーンをするためには…えーとなんかCALLしなきゃならんのかな?
23名無しさん@Emacs
垢版 |
NGNG
"18番ゲットォ" の "18" をプロセスのpidにしてみると面白いかも
と言ってみるテスト。
24名無しさん@お腹いっぱい。
垢版 |
NGNG
"今だ!";pid用変数名;"番ゲットォォォォ!!",

わ、わからん
25名無しさん@お腹いっぱい。
垢版 |
NGNG
まさに今そういうアニメーションプログラムを X で作ってます。
あと2、3日で公開できると思うんでお待ちを。
ちょっとドキュメンテーションに時間がかかってて…
26名無しさん@お腹いっぱい。
垢版 |
NGNG
ちなみに、スクリーンショットはこんなかんじ。

  http://members.tripod.co.jp/s42335/tmp/screen1.png

いまのところ、附属アプリケーションは

 ・ xclockのかわりになるギコ猫時計、
 ・ メール到着を知らせる「もう来ねえよ!」(アニメーションは切り換え可能)
 ・ マウスポインタを追いかけるぃょぅ
 ・ しばらくマウスを動かさないと踊りだすイマノウチ

とゆー感じ。要Python。
27名無しさん@お腹いっぱい。
垢版 |
NGNG
ほんとにちょっとだけ期待あげ
NGNG
alias 2ch w3m 2ch.net

以上
NGNG
>>28 俺はこんな alias 2ch w3m http://www6.ocn.ne.jp/~mirv/2chmenu.html
30 
垢版 |
NGNG
http://tmp.2ch.net/test/read.cgi/download/1019446859/
皆さんの力で助けて下さい。
NGNG
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 さん公開キボンヌ。
NGNG
>>22
printf("%c[2J", 27);
さらにカーソルを上にやるなら
printf("%c[2J%c[0;0H", 27,27);
33名無しさん@お腹いっぱい。
垢版 |
NGNG
#!/bin/sh

banner 2ch
34名無しさん@お腹いっぱい。
垢版 |
NGNG
2chコマンドってブラウザだろ?
35 
垢版 |
NGNG
豊橋ギコ大製のxmascotの2ch版がいいな(ギコとかモナーとか)
アラームしていしとくと「オマエモナー」っていうの♪
NGNG
banner -w 60 "(w"
37名無しさん@お腹いっぱい。
垢版 |
NGNG
http://members.tripod.co.jp/s42335/gikot/
NGNG
#!/usr/bin/perl

$niget="
                          ∧∧ 三=
                          (゚Д゚) 三二=
                          ⊂\⊂\三二=
                            @ @
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0

                       ∧∧ 三=      
                       (゚Д゚) 三二=   
                       ⊂\⊂\三二=    
                         @ @      
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0
                             
                    ∧∧ 三=     
                    (゚Д゚) 三二=   
                    ⊂\⊂\三二=   
                      @ @     
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0
                 ∧∧           
                (゚Д゚)           
                ⊂\⊂\ノミ        
                 し しミミ        
                     ミミ       
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
NGNG
0
                             
              ∧∧   )=、        
             ⊂(゚Д゚⊂⌒`つ三ミ        
                  ̄ ̄           
                             
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0
                             
            ∧∧   )            
          ⊂(゚Д゚⊂⌒`つ            
                ̄ ̄             
                             
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0
                             
                             
         ∧∧   )              
       ⊂(゚Д゚⊂⌒`つ               
             ̄ ̄                
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0
                             
  2番                           
   ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄
      ∧∧   )    (´            
    ⊂(゚Д゚⊂⌒`つ≡(´⌒;;;  ズ            
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄  (´⌒;; ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0
                             
  2番ゲット                           
   ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄
     ∧∧   )    (´⌒(´           
  ⊂(゚Д゚⊂⌒`つ≡≡(´⌒;    ズザ           
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ (´⌒(´⌒ ;;; ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0

  2番ゲットォォォォ!!
   ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄       (´´       
   ∧∧   )      (´⌒(´           
 ⊂(゚Д゚⊂⌒`つ≡≡≡(´⌒;;;(´⌒ ズザ-----ッ
 ̄ ̄ ̄ ̄ ̄ ̄ ̄  (´⌒(´⌒;; (´⌒;; ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
E";

NGNG
&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;
}
NGNG
ん?コピペミスか?
無限ループする・・・
NGNG
>>41
そういうアニメーションなんじゃない?
NGNG
ごめん。

ケツから4行目は、
$bs = $bs . "A\r";
ではなくて、
$bs = $bs . "^[[A\r";
ですた。

こぴぺしたときにエスケープが消えた。
emacsとかで [Ctrl+Q], [ESC], "[", "A" と入力してくだされ。

kterm上で横幅80桁くらいにとって実行。
"゚" は半角カナなんで rxvt ではうまく表示されないかも。

お目汚ししつれいしますた。
NGNG
$gorua="
0


                                    ∧ ∧ 三=
                                    (゚Д゚ ) 三二=
                                    ⊂\⊂\三二=
                              石       @ @
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
1


                               ∧ ∧ 三≡
                               (゚Д゚ )  三≡=
                               ⊂\⊂\ノ二ニ=
                              石   @ @
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
2


                             ∧ ∧ 二ニ
                           (゚∀゚ ) 三二=
                           ⊂\⊂\ノ三二=
                              石@ @
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
3

                        ∧ ∧
                       (゚∀゚ )
                        ⊂\⊂\ノミ
                           し しミミ
                             ミ石
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
4
                        ∩ ∩
                        /  ノ)ミミ
                      ⊂/⊂ / ミミ
                      (。Д。 )ミ
                       V V
                              石
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
5
                   ∩ ∩
                   | ~~ |\ミミ
                  ⊂|  |つ ミミ
                   (。Д。 )ミ
                   V V
                              石
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
NGNG
6
            ∩ ∩彡彡
            \ \ 彡彡
              \つ\つ彡
               (。Д。)
               |ノ |ノ
                               石
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
7

          ノ  ノ  ノ
       ノノノ ノノノ ノノノ
 ノノ  ノノ ノノ
     ⊂⌒~⊃。Д。)⊃
      ̄ ̄ V V                    石
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
8




                  (⌒´
  ⊂⌒~⊃。Д。)⊃≡≡(´⌒; ;;;              石
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ (´⌒(´⌒ ;;; ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
9



                    (´´
                  (´⌒(´
⊂⌒~⊃。Д。)⊃≡≡=(´⌒;;;(´⌒             石
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ (´⌒(´⌒;; (´⌒;; ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
NGNG
10





⌒~⊃。Д。)⊃≡=                      石
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
11





~~⊃。Д。)⊃=                       石
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
12





~⊃。Д。)⊃                         石
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
13



        ゴルァ

~⊃。Д。)⊃                         石
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
14



        ゴルァ
 
~⊃。Д。)⊃                         石
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
E";
NGNG
&aaa($niget); -> &aaa($gorua); ね。


48
垢版 |
NGNG
age
49名無しさん@お腹いっぱい。
垢版 |
NGNG
もっと作ってYO!
50名無しさん
垢版 |
NGNG
>47
かっこいいっす!
NGNG
cygwin上じゃ動かないな。emacs無いし。
NGNG
emacs は関係ないだろ。
perlがあれば動くんじゃネーノ?
レスを投稿する

5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。

ニューススポーツなんでも実況