The World Prototype

[WriterHash]

So, i made a progress with the codding, it is not so well so i was wondering if y'all got any proper fixes for it, let me share it

Code: (Select All)

Dim money As Integer

Dim strength As Integer

Dim speed As Integer

Dim babes As Integer

Dim balls As Integer

Dim cash As Integer

Dim directions As Integer

Dim knowledge As Integer





'intro

Screen 0

Color 4, 0

Locate 8, 37

Print "The World"

Sleep 5

Cls

Locate 8, 37

Print "Is Loading"

_Delay 5



'opening

Cls

Print "You finally got released from Prison at Kulai Headquarters"

Print "you looked at the sky and the people below it, you began"

Print "wondering, that you can become rich and powerfull"

Print "so you began your journey."

_Delay 10

MainPart





Sub MainPart

    Cls

    Print "Whats your name?"

    Input name$

    Sleep 2

    Cls

    MainPart2

End Sub





Sub MainPart2

    Print "You are outside of Kulai Headquarters,"

    Print "Where will you go?"

    Print "(N)"

    Print "(S)"

    Input x

    If x = N Then

        North

    End If

    If x = S Then

        South

    End If

End Sub





Sub South

    Cls

    Print "You found a Police Headquarters"

    Print "What will you do?"

    Print "Ask For Job"

    Print "Leave"

    _Delay 4

    Input x

    If x = 1 Then Police

    If x = 2 Then MainPart2

End Sub



Sub Police

    Print "You need at least 50iq and 20 strength"

    Print "50 stamina and 10 balls"

    Print "Do you have what it takes?"

    Input x

    If knowledge >= 50 And strength >= 20 And stamina >= 50 And balls >= 10 Then Police2

    If knowledge <= 50 And strength <= 20 And stamina <= 50 And balls <= 10 Then South

    If x = No Then South

End Sub





Sub Police2

    Print "Under Construction"

End Sub

Sub North

    Print "Under Construction"

End Sub