Question

Filename = ".\characters.txt"
LoadCharacters()

While MenuOption <> "x"
  TextWindow.Write("Menu : (a) adjust characters, (v) view 

characters, (x) exit, (c) Create Character : ")
  MenuOption = TextWindow.Read()
  MenuOption = Text.ConvertToLowerCase(MenuOption)
  If MenuOption = "a" Then
    TextWindow.WriteLine("Adjusting Characters")
    AdjustCharacters()
  EndIf  

  If MenuOption = "v" Then
    TextWindow.WriteLine("Viewing Characters")
    ViewCharacters()
  EndIf

  If MenuOption = "x" Then
    TextWindow.WriteLine("Exiting program")
    Program.Delay(500)
    Program.End()
  EndIf

  If MenuOption = "c" Then
    TextWindow.WriteLine("Creating Characters")
    Createcharacter()
  EndIf
EndWhile

'================================================
'c:

sub Createcharacter
  TextWindow.WriteLine("Please enter the number of 

characters you want")
  Characternum = TextWindow.ReadNumber()
    For x = 1 To Characternum
    TextWindow.WriteLine("Please enter the name of the 

character" + x)
    Character[x] = TextWindow.Read()
    Strength[x] = 10
    Skill[x] = 10
  EndFor
  AdjustCharacters()
EndSub 

'================================================
'a:

Sub AdjustCharacters
  For X = 1 To Characternum
    Strength[x] = Strength[x] + Math.Floor

(Math.GetRandomNumber(12)/Math.GetRandomNumber(4))
    Skill[x] = Skill[x] + Math.Floor(Math.GetRandomNumber

(12)/Math.GetRandomNumber(4))
  EndFor
  SaveCharacters()
EndSub

'================================================
'v:

Sub ViewCharacters
  For X = 1 To Characternum
    TextWindow.WriteLine("Character " + x + " - " + 

Character[x] + ", stength = " + Strength[x] + ", skill = " 

+ Skill[x])
  EndFor
EndSub

'================================================

Sub LoadCharacters
  ' Requires Filename to be set
  Characternum = File.ReadLine(Filename,1)
  TextWindow.WriteLine("Number of characters = " + 

Characternum)
  For x = 1 To Characternum
    Character[x] = File.ReadLine(Filename,x * 3 - 1) ' Get 

name
    Strength[x] = File.ReadLine(Filename,x * 3) ' Get 

strength
    Skill[x] = File.ReadLine(Filename,x * 3 + 1) ' Get 

skill
  EndFor
EndSub

'================================================

Sub SaveCharacters
  ' Requires Filename and TotalCharacters to be set
  File.WriteLine(Filename,1,Characternum)
  For x = 1 To Characternum
    File.WriteLine(Filename,x * 3 - 1,Character[x]) ' Set 

name
    File.WriteLine(Filename,x * 3, Strength[x]) ' Set 

strength
    File.WriteLine(Filename,x * 3 + 1, Skill[x]) ' Set 

skill
  EndFor
    EndSub

真的坚持下去，需要绕过它。它在Small basic中，我必须教孩子们如何用伪代码编写它。如果有人可以解释这个代码可以用于什么，那就非常感激。

欢呼声

Answer 1

这是游戏的一部分，玩家可以在其中看到创建，调整和查看游戏角色的菜单。 Createcharacter向玩家询问字符的名称，调整字符给出字符随机强度和技能点，保存字符将字符写入文件，加载从文件加载它们并将它们放入内存，查看字符打印字符名称和屏幕上的统计数据。

这个VB代码是什么意思？

1 个答案: