The World Prototype

[Petr]

You obviously didn't read what is wroted about sharing variables if you use SUB. That's why it can't work.

replace first rows as:

Dim Shared money As Integer
Dim Shared strength As Integer
Dim Shared speed As Integer
Dim Shared babes As Integer
Dim Shared balls As Integer
Dim Shared cash As Integer
Dim Shared directions As Integer
Dim Shared knowledge As Integer

and more and more next variables which you use in SUB: stamina, name (this can not be shared, rename "name" variable for example  as PlayerName variable...)

Is possible also easy defined this variable:

Dim Shared as Integer money, stenght, speed, babes, balls, cash, directions, knwoledge, stamina
Dim Shared as String PlayerName

is the same as previous rows in my example.

---

Sub MainPart2:

Input X is integer, not string, it can not be N or S. Replace it as X$