昔のPCゲームのグッズについて語れや 3個目
ザイックのことだけを書いてください。
ttp://chaser.orions.ne.jp/oki/zaick.jpg /.⌒ヽ
/ .\
../ ヽ. \
(./ ヽ. )
/ l" ビクッ
ノ l
l > < ..|
| 一 | ブルブル
ヽ..,,_ _,/
(´, i i冖I冖i '",.iヽ
'''く__|_ ,!___l.,_|.ノ ザイックって、言ってるだろう!(*`ε´*)ノ_彡☆ドンガラガッシャーン 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) 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 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 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 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 くわしくって、言ってるだろう!(*`ε´*)ノ_彡☆ドンガラガッシャーン 曰 \ もう、わかんないんです…. /
| | \ ∧_∧ ∧_∧ ./
ノ__丶 ∧_∧\ ハァ...( ><) ≡3 (>< )うう… /__|
||鬼||( ><) \ | ⊃ヽC C/⊂ |. / |||||
_ ||殺||./ [¢、) \ 、_( )) ( ( )_ノ.. /. | ̄|∧ ウウ・・・
\ ||し||∪ ̄ ̄. ̄ ̄\ \ ∧∧∧∧∧ ... ../ | |<)
||\.`~~´ ((二゚。◎彡) \ \ < の わ > /.. | |⊂ | わかんないんです…
||\|| ̄ ̄ ̄ ̄ ̄ ̄ ̄|| ̄ \ < か > ...../. | | ∪
. || ̄ ̄ ̄ ̄ ̄ ̄ ̄|| \< 予 ん > /
わかんないんです… < な > /
―――――――――――――――< 感 い >―――――――――――――――――
∧ ∧ < ん >
/ ;わかんないんです / <. !!! で >
/ '; / .< す > ∧_∧∩ / ̄ ̄  ̄ ̄ ̄ ̄ ̄
/ ;______/ ;/∨∨∨∨∨\ ( >< ノ<先生、わかんないんです
/ / .\ __/ノ / \__ __ __
/ ┯━┯ ┯━┯ ./ \\  ̄ ̄ ̄ ̄ ̄ ̄\
.| ..) ) _____ ) )/ / ヽ .\||\ \
| ...( ( ;, / ( (/. / ヽ ..\ || ̄ ̄ ̄ ̄ ̄ ̄ ̄|| くわしい解説お、ありがとうございましたm(_ _)m まだこのスレあったんだw
グッズのネタなんて最初から需要無いだろ くわしくって、言ってるだろう!(*`ε´*)ノ_彡☆ドンガラガッシャーン /⌒ヽ
( ,,゚д゚ ) 呼んだ?
| |
~~~~~~
グッズのこと茸 / ̄ ̄\
/ _ノ \
| ( ●)(●)
. | (__人__)
| ` ⌒´ノ
. | } ミ ピコッ
. ヽ } ミ /\ ,☆____
ヽ ノ \ \ / \
/ く \. /\/ ─ ─ \
| `ー一⌒) / (●) (●) \
| i´ ̄ ̄ ̄ \ | (__人__) | <呼んだ?
\_ ` ⌒´ /
/ \ くわしい解説お、ありがとうございましたm(_ _)m よくそういうことをIPつけた状態で平気で書けるねぇ この板では一年レスがないスレも珍しくないです><
二年以上もちらほらです>< そういや初回特典のスク水って旧型だったよな
何年前だ? 大丈夫、この板1年や2年レスのないのは珍しくないから。