Я использую Small Basic, и я довольно новичок в программировании. Вот мои подпрограммы:После того, как я использовал свою подпрограмму 2 - 4 раза. Сообщение «Нажмите любую клавишу, чтобы продолжить ...»
Sub MoneyClasses
If CurrentJob = "Cleaner" Then
Money = Money + 1
ElseIf CurrentJob = "Farmer" Then
Money = Money + 3
ElseIf CurrentJob = "Factory Worker" Then
Money = Money + 5
ElseIf CurrentJob = "Teacher" Then
Money = Money + 10
ElseIf CurrentJob = "Shopkeeper" Then
Money = Money + 20
ElseIf CurrentJob = "Doctor" Then
Money = Money + 30
ElseIf CurrentJob = "Soldier" Then
Money = Money + 25
ElseIf CurrentJob = "Officer" Then
Money = Money + 45
ElseIf CurrentJob = "General" Then
Money = Money + 100
ElseIf CurrentJob = "Supreme Leader" Then
Money = Money + 10000
EndIf
EndSub
Sub Work1
MoneyClasses()
Energy = Energy - 10
EndSub
Sub Sleep1
Energy = Energy + 10
Money = Money - 1
EndSub
Sub Stats1
TextWindow.WriteLine(" ")
TextWindow.WriteLine("You have " + Energy +" Energy.")
TextWindow.WriteLine("You have " + Money +" Won.")
TextWindow.Write(" ")
TextWindow.Read()
EndSub
Sub Menu
TextWindow.WriteLine("Current Job = " + CurrentJob + "")
TextWindow.WriteLine("Name = " + Name + "")
TextWindow.WriteLine("1 - Work")
TextWindow.WriteLine("2 - Sleep")
TextWindow.WriteLine("3 - Show Stats")
TextWindow.WriteLine(" ")
TextWindow.Write("What to do?: ")
PlayerInput = TextWindow.Read()
TextWindow.Clear()
EndSub
Да, я абсолютно не знаю, что не так. Вероятно, это небольшая ошибка. Я должен также упомянуть, что игра еще не закончена, и я имею в виду, что я даже не сделан на полпути. Просто сделайте «основы».
Это ваш полный код? Я не могу запустить программу: 'CurrentJob' и' Name' используются, но не назначены. –
Нет, это только мои подпрограммы. – noaho
Можете ли вы поместить весь свой код? – bleh