[求助]谁能将这个源码移植成bas

Black-Xstar

在哪？

cassius

BBK的bas没什么显示的说。。

无声的风

源码在这里

我还看到一个“〖三国英雄〗”
好象也很好玩的样子


这个移植起来难度比较低

[em05]

Black-Xstar

语法不伦不类
毫无价值可言
PS：今天总算看到bbk的basic文件了。

stranger

什么乱七八糟,好象和WQX的BAS没什么一样

Black-Xstar

建议：
移植它还不如看懂了自己写。

jason

好怪异的语法啊，不伦不类的。。。
后边那个什么三国的还不如很早很早之前的那个三国风云做的好呢。汗～

pheagle

就是，还是自己人编的好．

无言的梦

以下是引用jason在2005-7-31 17:18:34的发言：[BR]好怪异的语法啊，不伦不类的。。。
后边那个什么三国的还不如很早很早之前的那个三国风云做的好呢。汗～

绝对同意!!!那个BBK的应该不怎么好玩的吧，看源码好象很少呀

forget_love

吃不到葡萄说葡萄酸

forget_love

timerclose()
const word$(15)={"风","乘","五","开","第","孑","然","出","例","典","对","夜","凯","步","电"}
data 109,113,0,0,116,117,120,0,103,103,104,103,103,97,0,0,116,120,104,116,98,110,104,103,113,100,111,0,98,109,0,0,119,103,113,106,109,97,119,0,99,102,121,0,121,119,116,121,109,110,109,110,104,105,114,0,106,110,118,0
dim b1,b2,b3,b4
dim shared asc(4,15)
declare sub main(t)
declare function poi(a$,b$,c$,d$,mi,ma)
1 rs=poi("","五笔","帮助","",3,4)
if rs=3 then
cls
locate(1,5):print "剑影侠踪v3.0"
locate(3,6):print "作者：风"
locate(6,1):print "正在初始化……"
restore
for i=0 to 14
  read b1
  read b2
  read b3
  read b4
  asc(0,i)=b1
  asc(1,i)=b2
  asc(2,i)=b3
  asc(3,i)=b4
next i
main(1)
else if rs=4 then
cls
print "左键可删除一个字母"
print "声明:本游戏源程序完全开放"
print "任何人均可对其"
print "进行扩充并在网上发表"
pause
cls
end if
goto 1
end
sub main(t)
2 cls
print "输入时间/分"
input intime
if intime<1 then goto 2
cls
delay(10)
timeropen(10)
dim st,ti1,ti2,tist,ri
ri=0
tist=0
ti1=intime
ti2=0
st=0
dim key(4)
key(0)=0
key(1)=0
key(2)=0
key(3)=0
dim boat(2,2)
  boat(0,0)=rnd(15)
  boat(1,0)=144
  boat(0,1)=rnd(15)
  boat(1,1)=144
locate(6,1):print "五笔"
fillrect(131,93,158,95)
fillcircle(144,92,5)
line(140,90,138,88)
line(141,89,139,87)
10 k=getkey()
if keydetect()=1 then k=getkey()
line(135,84,140,89)
if k=135 then
  tist=tist+1
  if tist=10 then
   ti2=ti2-1
   if ti2=-1 then
    ti2=59
    ti1=ti1-1
    if ti1=-1 then goto 1000
   end if
   locate(1,8):print "        "
   locate(1,8):print ti1;":";ti2
   tist=0
  end if
else if k=131 then
  key(st)=0
  if st>0 then st=st-1
  locate(6,5+st):print " "
else
  key(st)=k
  locate(6,5+st):print chr$(k)
  st=st+1
end if
clspart(boat(1,0),32,boat(1,0)+19,47)
boat(1,0)=boat(1,0)-6
if boat(1,0)<=0 then
locate(1,1):print "    "
locate(1,1):print chr$(asc(0,boat(0,0)));chr$(asc(1,boat(0,0)));chr$(asc(2,boat(0,0)));chr$(asc(3,boat(0,0)))
  boat(0,0)=rnd(15)
  boat(1,0)=144
else
sysprtstrg(boat(1,0)+2,32,word$(boat(0,0)))
line(boat(1,0)+2,47,boat(1,0)+17,47)
end if
clspart(boat(1,1),64,boat(1,1)+19,79)
boat(1,1)=boat(1,1)-6
if boat(1,1)<=0 then
locate(1,1):print "    "
locate(1,1):print chr$(asc(0,boat(0,1)));chr$(asc(1,boat(0,1)));chr$(asc(2,boat(0,1)));chr$(asc(3,boat(0,1)))
  boat(0,1)=rnd(15)
  boat(1,1)=144
else
sysprtstrg(boat(1,1)+2,64,word$(boat(0,1)))
line(boat(1,1)+2,79,boat(1,1)+17,79)
end if
if key(0)=asc(0,boat(0,0)) and key(1)=asc(1,boat(0,0)) and key(2)=asc(2,boat(0,0)) and key(3)=asc(3,boat(0,0)) then
clspart(boat(1,0),32,boat(1,0)+19,47)
clspart(32,79,80,95)
key(0)=0
key(1)=0
key(2)=0
key(3)=0
st=0
ri=ri+1
  boat(0,0)=rnd(15)
  boat(1,0)=144
lineclear(135,84,136,85)
else if key(0)=asc(0,boat(0,1)) and key(1)=asc(1,boat(0,1)) and key(2)=asc(2,boat(0,1)) and key(3)=asc(3,boat(0,1)) then
clspart(boat(1,1),61,boat(1,1)+19,79)
clspart(32,79,80,95)
key(0)=0
key(1)=0
key(2)=0
key(3)=0
st=0
ri=ri+1
  boat(0,1)=rnd(15)
  boat(1,1)=144
lineclear(135,84,136,85)
end if
  if st=4 then
   st=0
   key(1)=0
   key(2)=0
   key(3)=0
   clspart(32,79,80,95)
  end if
goto 10
1000 cls
print "时间:";intime;"分"
print "正确:";ri
pause
end sub
function poi(a$,b$,c$,d$,mi,ma)
cls
dim po
clspart(40,1,45,94)
locate(2,8):print a$
locate(3,8):print b$
locate(4,8):print c$
locate(5,8):print d$
po=(mi-1)*16+10
line(40,po,45,po-5)
line(40,po-3,43,po)
500 k=getkey()
if k=128 then
po=po-16
if po<(mi-1)*16+10 then po=(ma-1)*16+10
else if k=129 then
po=po+16
if po>(ma-1)*16+10 then po=(mi-1)*16+10
else if k=13 then
poi=(po-10)/16+1
goto 501
end if
clspart(40,1,45,94)
line(40,po,45,po-5)
line(40,po-3,43,po)
goto 500
501 clspart(1,32,38,94)
end function

forget_love

动作RPG

leesoft

怎么说呢？是basic与c的杂交体。
对basic爱好者来说太繁复。对c程序员来说太低能。

jason

以下是引用forget_love在2005-7-31 18:30:35的发言：[BR]吃不到葡萄说葡萄酸

我们说的都是实际情况，绝对没有说错啊。。。
不过说起来，我一向不喜欢持葡萄，汗～跑题了。

oldfather

它的代码怎么那么少呢?是用的C么?

无言的梦

代码确实很短啊！

oldfather

那游戏不是很无聊么?这么短的有什么功能呢?哪个高手能解答一下

Lasly

以下是引用jason在2005-7-31 17:18:34的发言：
好怪异的语法啊，不伦不类的。。。
后边那个什么三国的还不如很早很早之前的那个三国风云做的好呢。汗～

其实不是阿~
大概看看结构性比文曲星的要好吧~感觉比较像VB的样子
反正这些东西都是参考过来参考过去的

无言的梦

虽然我不是高手，但我看过老F写的示例游戏《月光城》的代码，3954行，
我用WORD把它打印下来观看，字体设成六号字，把行距什么的统统设为0，打印了25页，汗……
上面的不用数也能看出绝对不超过200行
[em05]

116205035

一文字游戏，N年钱就被淘汰的东西。