X



トップページ昔のPC
769コメント91KB
昔のPCゲームのグッズについて語れや 3個目
06181
垢版 |
2008/09/07(日) 07:58:30
ザイックのことだけを書いてください。
ttp://chaser.orions.ne.jp/oki/zaick.jpg
0619
垢版 |
2008/09/07(日) 10:41:46
       /.⌒ヽ
      /    .\
    ../      ヽ. \
    (./       ヽ. )
    /        l"      ビクッ
   ノ          l
   l  >   <  ..|
   |   一      |      ブルブル
   ヽ..,,_         _,/
  (´, i  i冖I冖i '",.iヽ
   '''く__|_ ,!___l.,_|.ノ
0620
垢版 |
2008/09/07(日) 11:16:58
ゾゴックについてくわしく!
06221
垢版 |
2008/09/07(日) 22:33:53
ザイックって、言ってるだろう!(*`ε´*)ノ_彡☆ドンガラガッシャーン
0624ナイコンさん
垢版 |
2008/09/09(火) 22:59:31
1070 dim d(5),k1(7),k2(7),k3(7),s(7,7),q(7,7),d$(5)
1080 q$=".EKB*"
1090 d$(0)="WARP ENGINES"
1100 d$(1)="SHORT RANGE SENSORS"
1110 d$(2)="LONG RANGE SENSORS"
1120 d$(3)="PHASERS"
1130 d$(4)="PHOTON TORPEDOES":d$(5)="GALACTIC RECORDS"
1140 input"PLEASE ENTER A RANDOM NUMBER";e$:i=asc(e$)
1150 i=i-11*int(i/11):for j=0 to i:k=rnd:next:print"WORKING-"
1160 deffnd(n)=sqr((k1(i)-s1)^2+(k2(i)-s2)^2)
1170 gosub 1670:gosub 1510:q1=x:q2=y:x=8:y=1:x1=0.2075:y1=6.28:x2=3.28
1180 y2=1.8:a=0.96:c=100:w=10:k9=0:b9=0:s9=400:t9=3451:goto 1200
1190 k=k+(n<x2)+(n<y2)+(n<0.28)+(n<0.08)+(n<0.03)+(n<0.01):k9=k9-k:goto 1220
1200 t0=3421:t=t0:e0=4000:e=e0:p0=10:p=p0:for i=0 to 7
1210 for j=0 to 7:k=0:n=rnd*y:if n<x1 then n=n*64:k=(n<y1)-y:goto 1190
1220 b=(rnd*y>a):b9=b9-b:q(i,j)=k*c+b*w-int(rnd*y*x+y):next j,i
1230 if k9>(t9-t0) then t9=t0+k9
1240 if b9>0 then 1260
1250 gosub 1510:q(x,y)=q(x,y)-10:b9=1
1260 print left$("STARTREK ADAPTED BY L.E. COCHRAN 2/29/76",8):k0=k9
1270 print"OBJECTIVE: DESTROY";k9;"KLINGON BATTLE CRUISERS IN";t9-t0;
1280 print"YEARS.":print" THE NUMBER OF STARBASES IS";b9
1290 a=0:if q1<0 or q1>7 or q2<0 or q2>7 then n=0:s=0:k=0:goto 1310
1300 n=abs(q(q1,q2)):q(q1,q2)=n:s=n-int(n/10)*10:k=int(n/100)
0625ナイコンさん
垢版 |
2008/09/09(火) 23:02:24
1310 b=int(n/10-k*10):gosub 1510:s1=x:s2=y
1320 for i=0 to 7:for j=0 to 7:s(i,j)=1:next j,i:s(s1,s2)=2
1330 for i=0 to 7:k3(i)=0:x=8:if i<k then gosub 1520:s(x,y)=3:k3(i)=s9
1340 k1(i)=x:k2(i)=y:next:i=s
1350 if b>0 then gosub 1520:s(x,y)=4
1360 if i>0 then gosub 1520:s(x,y)=5:i=i-1:goto 1360
1370 gosub 1610:if a=0 then gosub 1540
1380 if e<=0 then 2430
1390 i=1:if d(i)>0 then 1680
1400 for i=0 to 7:for j=0 to 7:print mid$(q$,s(i,j),1);" ";:next j
1410 print" ";:on i goto 1440,1450,1460,1470,1480,1490,1500
1420 print"YEARS =";t9-t
1430 next:goto 1710
1440 print"STARDATE=";t:goto 1430
1450 print"CONDITION:";c$:goto 1430
1460 print"QUADRANT=";q1+1;"-";q2+1:goto 1430
1470 print"SECTOR =";s1+1;"-";s2+1:goto 1430
1480 print"ENERGY=";e:goto 1430
1490 print d$(4);"=";p:goto 1430
1500 print"KLINGONS LEFT=";k9:goto 1430
1510 x=int(rnd*8):y=int(rnd*8):return
1520 gosub 1510:if s(x,y)>1 then 1520
1530 return
1540 if k<1 then return
1550 if c$="DOCKED" then print"STARBASE PROTECTS ENTERPRISE":return
1560 for i=0 to 7:if k3(i)<=0 then next:return
1570 h=k3(i)*0.4*rnd:k3(i)=k3(i)-h:h=h/(fnd(0)^0.4):e=e-h
1580 e$="ENTERPRISE FROM":n=e:gosub 1590:next:return
1590 print h;"UNIT HIT ON ";e$;" SECTOR";k1(i)+1;"-";k2(i)+1;
1600 print" (";n;"LEFT)":return
0626ナイコンさん
垢版 |
2008/09/09(火) 23:04:57
1610 for i=s1-1 to s1+1:for j=s2-1 to s2+1
1620 if i<0 or i>7 or j<0 or j>7 then 1640
1630 if s(i,j)=4 then c$="DOCKED":e=e0:p=p0:gosub 1670:return
1640 next j,i:if k>0 then c$="RED" :color 2:return
1650 if e<e0*0.1 then c$="YELLOW":color 6:return
1660 c$="GREEN":color 4:return
1670 for n=0 to 5:d(n)=0:next:return
1680 print d$(i);" DAMAGED.";
1690 print" ";d(i);"YEARS ESTIMATED FOR REPAIR.":print
1700 if a=1 then return
1710 input"COMMAND";a
1720 if a<1 or a>6 then 1740
1730 on a goto 1770,1370,2310,2200,1750,2360
1740 for i=0 to 5:print i+1;"= ";d$(i):next:goto 1710
1750 if d(4)>0 then print"SPACE CRUD BLOCKING TUBES.":i=4:goto 1690
1760 n=15:if p<1 then print"NO TORPEDOES LEFT.":goto 1710
1770 if a=5 then print"TORPEDO ";
1780 input"COURSE (1-8.9)";c:if c<1 then 1710
1790 if c>=9 then 1770
1800 if a=5 then p=p-1:print"TRACK:";:goto 1960
1810 input"WARP (0-12)";w:if w<=0 or w>12 then 1770
1820 if w<=0.2 or d(0)<=0 then 1840
1830 i=0:print d$(i);" DAMAGED, MAX IS 0.2 ";:gosub 1690:goto 1810
1840 gosub 1540:if e<=0 then 2430
1850 if rnd>0.25 then 1930
1860 x=int(rnd*6):if rnd>0.5 then 1890
1870 d(x)=d(x)+int(6-rnd*5):print"**SPACE STORM, ";
1880 print d$(x);" DAMAGED**":i=x:gosub 1690:d(x)=d(x)+1:goto 1930
1890 for i=x to 5:if d(i)>0 then 1920
1900 next
0627ナイコンさん
垢版 |
2008/09/09(火) 23:06:11
1910 for i=0 to x:if d(i)>0 then next:goto 1930
1920 d(i)=0.5:print"**SPOCK USED A NEW REPAIR TECHNIQUE**"
1930 for i=0 to 5:if d(i)=0 then 1950
1940 d(i)=d(i)-1:if d(i)<=0 then d(i)=0:print d$(i);" ARE FIXED!"
1950 next:n=int(w*8):e=e-n-n+0.5:t=t+1:s(s1,s2)=1
1960 y1=s1+0.5:x1=s2+0.5:if t>t9 then 2430
1970 y=(c-1)*0.785398#:x=cos(y):y=-sin(y)
1980 for i=1 to n:y1=y1+y:x1=x1+x:y2=int(y1):x2=int(x1)
1990 if x2<0 or x2>7 or y2<0 or y2>7 then 2170
2000 if a=5 then print y2+1;"-";x2+1,
2010 if s(y2,x2)=1 then next:goto 2120
2020 print:if a=1 then print"BLOCKED BY ";
2030 on s(y2,x2)-3 goto 2100,2080
2040 print"KLINGON";:if a=1 then 2110
2050 for i=0 to 7:if y2<>k1(i) then 2070
2060 if x2=k2(i) then k3(i)=0
2070 next:k=k-1:k9=k9-1:goto 2130
2080 print"STAR";:if a=5 then s=s-1:goto 2130
2090 goto 2110:2l29e76c
2100 print"STARBASE";:if a=5 then b=2:goto 2130
2110 print" AT SECTOR";y2+1;"-";x2+1:y2=int(y1-y):x2=int(x1-x)
2120 s1=y2:s2=x2:s(s1,s2)=2:a=2:goto 1370
2130 print" DESTROYED!";:if b=2 then b=0:print". . .GOOD WORK!";
2140 print:s(y2,x2)=1:q(q1,q2)=k*100+b*10+s:if k9<1 then 2460
2150 gosub 1540:if e<=0 then 2430
2160 gosub 1610:goto 1710
2170 if a=5 then print"MISSED!":goto 2150
2180 q1=int(q1+w*y+(s1+0.5)/8):q2=int(q2+w*x+(s2+0.5)/8)
2190 q1=q1-(q1<0)+(q1>7):q2=q2-(q2<0)+(q2>7):goto 1290
2200 i=3:if d(i)>0 then 1680
0628ナイコンさん
垢版 |
2008/09/09(火) 23:08:16
2210 input"PHASERS READY: ENERGY UNITS TO FIRE";x:if x<=0 then 1710
2220 if x>e then print"ONLY GOT";e:goto 2210
2230 e=e-x:y=k:for i=0 to 7:if k3(i)<=0 then 2290
2240 h=x/(y*(fnd(0)^0.4)):k3(i)=k3(i)-h
2250 e$="KLINGON AT":n=k3(i):gosub 1590
2260 if k3(i)>0 then 2290
2270 print"**KLINGON DESTROYED**"
2280 k=k-1:k9=k9-1:s(k1(i),k2(i))=1:q(q1,q2)=q(q1,q2)-100
2290 next:if k9<1 then 2460
2300 goto 2150
2310 i=2:if d(i)>0 then 1680
2320 print d$(i);" FOR QUADRANT";q1+1;"-";q2+1
2330 for i=q1-1 to q1+1:for j=q2-1 to q2+1:print" ";
2340 if i<0 or i>7 or j<0 or j>7 then print"***";:goto 2410
2350 q(i,j)=abs(q(i,j)):goto 2400
2360 i=5:if d(i)>0 then 1680
2370 print"CUMULATIVE GALACTIC MAP FOR STARDATE:";t
2380 for i=0 to 7:for j=0 to 7:print" ";
2390 if q(i,j)<0 then print"***";:goto 2410
2400 e$=str$(q(i,j)):e$="00"+right$(e$,3):print right$(e$,3);
2410 next j:print:next i:goto 1710
2420 print:print"IT IS STARDATE";t:return
2430 gosub 2420:print"THANKS TO YOUR BUNGLING, THE FEDERATION WILL BE"
2440 print"CONQUERED BY THE REMAINING";k9;"KLINGON CRUISERS!"
2450 print"YOU ARE DEMOTED TO CABIN BOY!":goto 2490
2460 gosub 2420:print"THE FEDERATION HAS BEEN SAVED!"
2470 print"YOU ARE PROMOTED TO ADMIRAL.":print k0;"KLINGONS IN";
2480 print t-t0;"YEARS. RATING=";int(k0/(t-t0)*1000)
2490 input"TRY AGAIN";e$:if left$(e$,1)="Y" then 1170
0629ナイコンさん
垢版 |
2008/09/10(水) 21:52:20
スタートレックスレに貼ればいいのに
0630
垢版 |
2008/09/11(木) 09:10:56
くわしく
0631
垢版 |
2008/09/11(木) 19:54:46
くわしくって、言ってるだろう!(*`ε´*)ノ_彡☆ドンガラガッシャーン
0632
垢版 |
2008/10/05(日) 23:21:43
何か書いてください
0633
垢版 |
2008/10/07(火) 07:26:01
ティラミス
0634
垢版 |
2008/10/10(金) 21:26:10
ラミレス
0635
垢版 |
2008/10/11(土) 17:38:02
ペタジーニ
0637
垢版 |
2008/10/14(火) 01:39:14
ハウエル
0638
垢版 |
2008/10/14(火) 10:34:25
パウエル
0640
垢版 |
2008/10/14(火) 22:49:40
ランス
0641
垢版 |
2008/10/15(水) 05:13:31
クールボー
0642
垢版 |
2008/10/15(水) 09:21:58
ただ名前を書くだけのことはやめてっ!><
0643
垢版 |
2008/10/15(水) 12:27:00
もういいや…
吊ってくる
あとテキトーによろしく
0644
垢版 |
2008/10/17(金) 09:53:57
オマリー
0645
垢版 |
2008/10/19(日) 08:22:23
クァアア
0646
垢版 |
2008/10/19(日) 17:35:48
メリヤス工場
0650
垢版 |
2008/10/23(木) 04:37:47
フィルダー
0651
垢版 |
2008/10/23(木) 06:22:24
パリッシュ
0655
垢版 |
2008/10/23(木) 22:35:17
ソロムコ
0657ナイコンさん
垢版 |
2008/10/24(金) 01:17:40
     曰   \  もう、わかんないんです….            /
     | |      \      ∧_∧        ∧_∧     ./
    ノ__丶 ∧_∧\ ハァ...( ><) ≡3    (>< )うう… /__|
     ||鬼||( ><)  \  |  ⊃ヽC      C/⊂  |.    / |||||
  _ ||殺||./   [¢、)  \  、_( ))     ( ( )_ノ..    /. | ̄|∧ ウウ・・・
  \ ||し||∪ ̄ ̄. ̄ ̄\ \      ∧∧∧∧∧  ... ../   |  |<)
  ||\.`~~´ ((二゚。◎彡) \ \   < の   わ >   /..   |  |⊂ | わかんないんです…
  ||\|| ̄ ̄ ̄ ̄ ̄ ̄ ̄|| ̄   \  <     か > ...../.    |  | ∪
   .  || ̄ ̄ ̄ ̄ ̄ ̄ ̄||      \< 予   ん > /
 わかんないんです…        <       な > /
―――――――――――――――<  感   い >―――――――――――――――――
      ∧              ∧ <       ん >
     / ;わかんないんです /  <.  !!!   で >
    /   ';          /   .<      す >       ∧_∧∩ / ̄ ̄  ̄ ̄ ̄ ̄ ̄
   /    ;______/    ;/∨∨∨∨∨\       ( >< ノ<先生、わかんないんです
  /                    /         .\  __/ノ   /   \__ __ __
 /  ┯━┯         ┯━┯ ./            \\   ̄ ̄ ̄ ̄ ̄ ̄\
.|   ..)   ) _____  )   )/    /      ヽ   .\||\          \
|   ...(   (  ;,      / (   (/.    /        ヽ   ..\ || ̄ ̄ ̄ ̄ ̄ ̄ ̄||
0658
垢版 |
2008/10/24(金) 07:02:17
ゲームのことだけを書いてください
0660
垢版 |
2008/11/01(土) 00:52:00
もういいや…
吊ってくる
あとテキトーによろしく
0661
垢版 |
2008/11/02(日) 16:50:06
偽物はやめてっ!><
0662ナイコンさん
垢版 |
2008/11/04(火) 21:26:17
どうして?
0663
垢版 |
2008/11/05(水) 05:35:10
昔のPCのことを書いてください
0665
垢版 |
2008/11/06(木) 09:37:16
くわしく
0667
垢版 |
2008/11/06(木) 09:58:07
くわしい解説お、ありがとうございましたm(_ _)m
0668
垢版 |
2008/11/06(木) 09:58:49
引き続き、情報をお待ちしておりますm(_ _)m
0670
垢版 |
2008/11/06(木) 17:42:23
くわしく
0673
垢版 |
2008/11/06(木) 18:57:17
意味がわかりません!><
0674
垢版 |
2008/11/06(木) 20:41:55
グッズのことだけを書いて下さい
0675
垢版 |
2008/11/07(金) 07:40:14
何か書いてください
0677
垢版 |
2008/11/07(金) 21:35:05
昔のことを書いてください
0680
垢版 |
2008/11/13(木) 23:13:17
軍事政権
0682
垢版 |
2008/11/16(日) 10:19:59
おまんこ消費社会
0683
垢版 |
2008/11/16(日) 12:24:07
くわしく
0684ナイコンさん
垢版 |
2008/11/17(月) 01:04:24
ぺろぺろぺろぺろぺろぺろぺろぺろぺろぺろ
イク〜
0685
垢版 |
2008/11/18(火) 09:56:15
いかないでっ!><
0686
垢版 |
2008/11/28(金) 12:41:42
グッズのことを書いてください
0687
垢版 |
2008/12/04(木) 13:04:23
何か書いてください
0688ナイコンさん
垢版 |
2008/12/17(水) 11:50:18
まだこのスレあったんだw
グッズのネタなんて最初から需要無いだろ
0689
垢版 |
2008/12/18(木) 14:45:12
くわしく
0690
垢版 |
2009/01/02(金) 00:53:14
くわしくって、言ってるだろう!(*`ε´*)ノ_彡☆ドンガラガッシャーン
0691
垢版 |
2009/01/02(金) 23:50:32
何か書いてください
0693
垢版 |
2009/01/04(日) 00:01:57
グッズのことだけを書いてください
0694ナイコンさん
垢版 |
2009/01/04(日) 09:32:58
    /⌒ヽ
   ( ,,゚д゚ ) 呼んだ?
     | |
    ~~~~~~

  グッズのこと茸
0695
垢版 |
2009/01/04(日) 17:59:52
   / ̄ ̄\
 /   _ノ  \
 |    ( ●)(●)
. |     (__人__)
  |     ` ⌒´ノ
.  |         }  ミ        ピコッ
.  ヽ        } ミ  /\  ,☆____
   ヽ     ノ    \  \ /     \ 
   /    く  \.  /\/ ─    ─ \
   |     `ー一⌒)  /   (●)  (●)  \
    |    i´ ̄ ̄ ̄ \ |      (__人__)     | <呼んだ?
               \_   ` ⌒´    /
                /          \
0697
垢版 |
2009/01/19(月) 10:40:04
スク水
0700
垢版 |
2009/02/25(水) 20:30:12
くわしい解説お、ありがとうございましたm(_ _)m
0701
垢版 |
2009/03/05(木) 03:56:00
引き続き、情報をお待ちしております m_ _m
0704
垢版 |
2009/04/19(日) 13:22:14
くわしく
0706ナイコンさん
垢版 |
2009/04/27(月) 21:48:24
よくそういうことをIPつけた状態で平気で書けるねぇ
0707
垢版 |
2009/05/27(水) 03:25:55
グッズのことを書いてください
0709
垢版 |
2009/07/28(火) 09:03:13
この板では一年レスがないスレも珍しくないです><
二年以上もちらほらです><
0711
垢版 |
2009/07/30(木) 19:09:45
終わらないでっ!><
0712ナイコンさん
垢版 |
2009/08/06(木) 21:28:55
そういや初回特典のスク水って旧型だったよな
何年前だ?
0717ナイコンさん
垢版 |
2009/10/22(木) 17:54:41
大丈夫、この板1年や2年レスのないのは珍しくないから。
レスを投稿する


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