My quest script bugged

[lucifer1101]

can someone please help me debug my quest script.

```
Sub quest1(index)
If GetVar("Scripts\charextras\" & GetPlayerName(index) & ".ini", "Quests", "Quest1") = 1 Then
Call PlayerMsg(index, "Teacher: What are you still doing here, go run!", 4)
End If
End Sub
Else
Call PlayerMsg(index, "Teacher: " & GetPlayerName(index) & " Get out of here now!", 4)
Call PlayerMsg(index, "Teacher: There are Antell Sentries searching the town for young people around your age, you must run!", 4)
Call PlayerMsg(index, "Teacher: Take these items and go to the teleport orb and touch it.", 4)
Call PlayerMsg(index, "Teacher: Go run!", 4)
Call giveitem(index, 2, 50)
Call giveitem(index, 3, 50)
Call givecurrency(index, 1, 20)
Call PutVar("Scripts\charextras\" & GetPlayerName(index) & ".ini", "Quests", "Quest1", 1)
Exit Sub

```
I had it working before i put the getvar stuff in, i just dont know how to properly close the script.

[Bobosk]

```
Sub quest1(index)
If GetVar("Scripts\charextras\" & GetPlayerName(index) & ".ini", "Quests", "Quest1") = 1 Then
Call PlayerMsg(index, "Teacher: What are you still doing here, go run!", 4)
Exit Sub
Else
Call PlayerMsg(index, "Teacher: " & GetPlayerName(index) & " Get out of here now!", 4)
Call PlayerMsg(index, "Teacher: There are Antell Sentries searching the town for young people around your age, you must run!", 4)
Call PlayerMsg(index, "Teacher: Take these items and go to the teleport orb and touch it.", 4)
Call PlayerMsg(index, "Teacher: Go run!", 4)
Call giveitem(index, 2, 50)
Call giveitem(index, 3, 50)
Call givecurrency(index, 1, 20)
Call PutVar("Scripts\charextras\" & GetPlayerName(index) & ".ini", "Quests", "Quest1", 1)
End If
End Sub

```If, Then, Else, End If

[lucifer1101]

ok it works for me but i just got my brother to connect but the quest wont work for him it does absolutely nothing

[Bobosk]

Are you sure he's activating it correctly..?

[DrNova]

Does he have the .ini?
You'll need to make a putvar command in the ccreate new char sub(whatever its called) to add the .ini for new players

[Zananok]

Check if you have the folder 'Charextras'.. maybe you deleted it (and the .INI of course).

Note: to run the script, you will NEED to have the values on your .ini so easier way to do it if you have deleted it:
add this on sub join:
```
If GetVar("Scripts\charextras\" & GetPlayerName(index) & ".ini", "Quests", "Quest1") <> 1 then
Call PutVar("Scripts\charextras\" & GetPlayerName(index) & ".ini", "Quests", "Quest1", 0)
End If

```
Hope this helps,
From: Zananok

[lucifer1101]

ok thanks ill try that.

Lol it works silly me