Case 1
If GetPlayerLevel(Index) >= 1 then
If GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = vbNullString Then
Call PlayerMsg(Index, "Защити деревню убей 10 слизней и ты получишь нашу благодарность.", RED)
Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 1)
end if
Else if GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = 1 Then
If CanTake(Index, 6, 10) then
Call PlayerMsg(Index, "Спасибо ты спас деревню возьми это в знак благодарности.", RED)
Call TakeItem(Index, 6, 10)
Call GiveCurrency(Index, 4, 150)
Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 2)
end if
end if
End if
Exit Sub