Help please…

[Dastyruck]

I need help with this sub I just wrote… I am currently testing the way it gets data from the ini file.

It is not working, so I assume it is some error made by me with checking the .ini file.

I want it to check inside the folder named houses for the ini file which is the number that is put in when I call the sub. I dont think it is finding it right now, any help?

```
Sub GenerateHouse(index, number)

Dim mapa
Dim mapb
Dim type
Dim extra

mapa = GetVar("houses\"number".ini","A","Number")
mapb = GetVar("houses\"number".ini","B","Number")
type = GetVar("houses\"number".ini","A","Type")
extra = GetVar("houses\"number".ini","B","Extra")

If type = 1 Then
Call SetTile(mapa,5,5,15,3,1,1)
Else If type = 2 Then
Call SetTile(mapa,5,5,16,3,1,1)
Else
Call SetTile(mapa,5,5,17,3,1,1)
End If

If extra = 1 Then
Call SetTile(mapb,5,5,15,3,1,1)
Else If extra = 2 Then
Call SetTile(mapb,5,5,16,3,1,1)
Else
Call SetTile(mapb,5,5,17,3,1,1)
End If

End Sub
```

[AdrianC]

First thing I noticed is you need to have

mapa = GetVar("houses\"&number&".ini","A","Number")

[Dastyruck]

Tried but didnt work…

[AdrianC]

Well, thats deff a problem, make sure you changed it for all of those.

Next, I guess you shouldn't use Else Ifs as they may cause problems. Just use regular ifs.

[balliztik1]

ElseIf is one word.

[Dastyruck]

Still not working… hrmmm

[Akselj]

```
mapa = GetVar("houses\"number.ini","A","Number")
mapb = GetVar("houses\"number.ini","B","Number")
type = GetVar("houses\"number.ini","A","Type")
extra = GetVar("houses\"number.ini","B","Extra")

```
Try this.

[Dastyruck]

Still not working…

[Akselj]

```
mapa = GetVar("houses\number.ini","A","Number")
mapb = GetVar("houses\number.ini","B","Number")
type = GetVar("houses\number.ini","A","Type")
extra = GetVar("houses\number.ini","B","Extra")

```
What about this?

[AdrianC]

I think he wants number to be a variable.

[Zeno]

You're right, Adrian, because Number is already a variable.  It would be the second one in Call GenerateHouse(Index, #)

Try this:
```
Sub GenerateHouse(index, number)

Dim mapa
Dim mapb
Dim type
Dim extra

' To connect a string (like "houses\") and a variable (like Number), use &
mapa = GetVar("houses\" & Number & ".ini","A","Number")
mapb = GetVar("houses\" & Number & ".ini","B","Number")
type = GetVar("houses\" & Number & ".ini","A","Type")
extra = GetVar("houses\" & Number & ".ini","B","Extra")

If type = 1 Then
    Call SetTile(mapa,5,5,15,3,1,1)
Else
    If type = 2 Then
        Call SetTile(mapa,5,5,16,3,1,1)
    Else
        Call SetTile(mapa,5,5,17,3,1,1)
' You forgot to close this if.
    End If
End If

If extra = 1 Then
    Call SetTile(mapb,5,5,15,3,1,1)
Else
    If extra = 2 Then
        Call SetTile(mapb,5,5,16,3,1,1)
    Else
        Call SetTile(mapb,5,5,17,3,1,1)
' Here again.  End ifs
    End If
End If

End Sub
```

That should work.

[AdrianC]

Thats pretty much what I told him.