VB 版 (精华区)
发信人: aaaz (我最笨了), 信区: VB
标 题: QB角色扮演游戏四天写作课程(4)
发信站: 哈工大紫丁香 (2000年07月27日09:39:34 星期四), 转信
发信人: netwolf (小狼), 信区: GAME_Designer
标 题: QB角色扮演游戏四天写作课程(4)
发信站: BBS 水木清华站 (Thu Jul 24 17:36:06 1997)
第三天
如果房间里的怪物不懂得攻击，那干嘛还摆在那儿？
事不宜迟，马上开始著手进行我们的『改造』工作：
CLS
DIM monster(10, 10)
FOR count1 = 1 TO 10
FOR count2 = 1 TO 10
monster(count1, count2) = INT(RND * 11)
NEXT count2
NEXT count1
row = 5
column = 5
moveErr$ = "You cannot move in that direction!"
pressKey$ = "Press any key to continue." :REM <--- new
exitRow = INT(RND * 10) + 1
exitColumn = INT(RND * 10) + 1
gold = 0
health = 20 :REM <--- new
weapon = 1 :REM _|
DIM monster$(10)
RESTORE monsterData
FOR count = 1 TO 10
READ monster$(count)
NEXT count
LOCATE 14, 1
PRINT "Commands: n - north"
PRINT " s - south"
PRINT " e - east"
PRINT " w - west"
PRINT " a - attack" :REM <--- new
PRINT " x - use exit"
PRINT
PRINT " q - quit"
DO
LOCATE 1, 1
PRINT "Your position:"; row; column
LOCATE 1, 25 :REM <--- new
PRINT "Gold:"; gold; " Health:"; health :REM _|
IF ((row = exitRow) AND (column = exitColumn)) THEN
LOCATE 2, 1
PRINT "You are at the exit!"
ELSE
LOCATE 2, 1
PRINT SPACE$(79)
END IF
LOCATE 3, 1
PRINT "Monster: ";
monsterType = monster(row, column)
IF monsterType = 0 THEN
PRINT "nothing "
ELSE
ELSE
monsterName$ = MID$(monster$(monsterType), 1, 10)
PRINT monsterName$
monsterAttack = VAL(MID$(monster$(monsterType), 11, 1)) :REM <--- new
monsterHealth = VAL(MID$(monster$(monsterType), 12, 1)) :REM |
monsterGold = monsterType * INT(RND * 6) :REM _|
END IF
LOCATE 8, 1
INPUT "What now"; reply$
LOCATE 10, 1
PRINT SPACE$(79)
PRINT SPACE$(79)
PRINT SPACE$(79)
SELECT CASE reply$
CASE IS = "n"
IF row = 1 THEN
LOCATE 10, 1
PRINT moveErr$
ELSE
row = row - 1
LOCATE 10, 1
PRINT "You go north."
END IF
CASE IS = "s"
IF row = 10 THEN
LOCATE 10, 1
PRINT moveErr$
ELSE
row = row + 1
LOCATE 10, 1
PRINT "You go south."
END IF
CASE IS = "w"
IF column = 1 THEN
LOCATE 10, 1
PRINT moveErr$
ELSE
column = column - 1
LOCATE 10, 1
PRINT "You go west."
END IF
CASE IS = "e"
IF column = 10 THEN
IF column = 10 THEN
LOCATE 10, 1
PRINT moveErr$
ELSE
column = column + 1
LOCATE 10, 1
PRINT "You go east."
END IF
CASE IS = "x"
IF ((row = exitRow) AND (column = exitColumn)) THEN
IF gold < 100 THEN
LOCATE 10, 1
PRINT "You dont have enough gold!"
ELSE
LOCATE 10, 1
PRINT "You have escaped! Well done!"
END
END IF
END IF
CASE IS = "a" :REM <-- new
IF monsterType = 0 THEN
LOCATE 10, 1 :REM |
PRINT "There's nothing to attack!" :REM |
ELSE :REM |
DO WHILE ((monsterHealth > 0) AND (health > 0)) :REM |
LOCATE 10, 1 :REM |
PRINT SPACE$(79) :REM |
PRINT SPACE$(79) :REM |
PRINT SPACE$(79) :REM |
LOCATE 10, 1 :REM |
attack = weapon + INT(RND * 9) :REM |
SELECT CASE attack :REM |
CASE IS = monsterAttack :REM |
PRINT "No one wins this round." :REM |
CASE IS > monsterAttack :REM |
PRINT "You deal the "; monsterName$; " a blow!":REM |
monsterHealth = monsterHealth - 1 :REM |
CASE IS < monsterAttack :REM |
PRINT "You have been wounded!" :REM |
health = health - 1 :REM |
END SELECT :REM |
PRINT pressKey$ :REM |
SLEEP :REM |
LOOP :REM |
LOCATE 10, 1 :REM |
LOCATE 10, 1 :REM |
IF health > 0 THEN
PRINT "You won the fight!" :REM |
PRINT "You found "; monsterGold; " pieces of gold!" :REM |
gold = gold + monsterGold :REM |
monsterType = 0 :REM |
monster(row, column) = 0 :REM |
PRINT pressKey$ :REM |
SLEEP :REM |
ELSE :REM |
PRINT "The "; monsterName$; " killed you!" :REM |
PRINT "Game over!" :REM |
END :REM |
END IF :REM |
END IF :REM _|
CASE IS = "q"
LOCATE 10, 1
PRINT "Bye!"
END
END SELECT
LOOP
monsterData:
DATA "blind bat 21" :REM <--- changed
DATA "rat 11" :REM |
DATA "snake 31" :REM |
DATA "goblin 23" :REM |
DATA "troll 44" :REM |
DATA "bear 55" :REM |
DATA "lion 54" :REM |
DATA "sabretooth65" :REM |
DATA "elephant 78" :REM |
DATA "dragon 98" :REM _|
health 变数的初值为 20，每次遭到怪物攻击後将会减少 1 点。 当此变数为 0 时
，就表示我们的主角『驾鹤西归』了。
weapon 变数则代表主角所能增加的攻击力：计算方式为weapon + INT(RND * 9)。
因此，主角的攻击力范围从 1 到 9。
MonsterAttack: 该怪物的攻击能力。
VAL 命令可以将某一个字串转换成十进制的数值。 举例来说，VAL("10") 传回值为
10，但VAL("ABC")将会导致错误。
MonsterHealth: 怪物资料的第二部份是该怪物的生命数值。当主角成功的击中它时
，将会减少一些点数。当数值为 0 时，该怪物即被消灭。
MonsterGold: 我们增加了一个以乱数方式产生的数值，作为击败此怪物後可以获得
的金币数目。不过由於我们的计算方式是乘以 monsterAttack，因此
当你击败较难缠的敌人後，可以获得更多的金币。
注意，战斗一旦发生，就会持续到某一方倒下为止。
当该怪物被消灭後， monsterType 会被设定为 0，如此一来主角便不会再遇到相同
的怪物了。
Monsters(row, column) = 0 的叙述则是将该房间内的怪物予以清除。 因此当你再
度进入该房间时，便不会再遭遇任何战斗。
你还记得 SLEEP 命令是用来暂停程式几秒钟的吗？SLEEP 没有给予参数的话，会持
续等待，直到使用者按键为止。 我们使用他来等待使用者按键。当然，你同样也可
以使用 DO: LOOP UNTIL INKEY$ <> "" 的方式来处理。
今天就到此为止吧。
允褂� DO: LOOP UNTIL INKEY$ <> "" 的方式来处理。
今天就到此为止吧。
--
※ 来源:·BBS 水木清华站 bbs.net.tsinghua.edu.cn·[FROM: 203.93.18.173]
--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.226.221]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间：204.731毫秒