2016-10-12 4 views
1

Я использую 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 

Да, я абсолютно не знаю, что не так. Вероятно, это небольшая ошибка. Я должен также упомянуть, что игра еще не закончена, и я имею в виду, что я даже не сделан на полпути. Просто сделайте «основы».

+0

Это ваш полный код? Я не могу запустить программу: 'CurrentJob' и' Name' используются, но не назначены. –

+0

Нет, это только мои подпрограммы. – noaho

+0

Можете ли вы поместить весь свой код? – bleh

ответ

0

«Нажмите клавишу для продолжения» - это сообщение, которое появляется, когда ваша программа завершается. Лучше всего предположить, что после того, как вы позвоните своим подпрограммам, вы дважды рекламируете свою программу. Без механизма зацикливания, чтобы получить мяч, программа выходит.

Я бы предложил разместить ярлык наверху, до того, как подзапросы вызовут и снизу снизу вернутся вверх. Что-то вроде этого:

top: 
'Your Program code 
Goto top