Exit Sub
  End Select
End Sub

if GetPlayerLevel(Index) >= 1 then ' Если уровень персонажа больше или равен еденице, то.
If GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = vbNullString Then
Call PlayerMsg(Index, "I lost shild help me faind him.", YELLOW) ' Call - обязательная вещь для вызова того или иного скрипта. Yellow - цвет текста в чате (желтый)
Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 1) 'Создаём в папке Quests файл игрока, в котором отмечаются стадии квеста. Сейчас эта стадия - 1. General - то, что написано в квадратных скобках (программное имя квеста). Quest1 - программная отметка квеста. 1 - стадия квеста.'
end if

Else if GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = 1 Then
If CanTake(Index, 2, 1) then' Внимание: цифры могут отличаться от ваших, смотрите: 2 - это номер предмета. 8 - это количество предметов. CanTake - есть ли у вас этот предмет в данном количестве.
Call PlayerMsg(Index, "Oh, were he is", YELLOW)
Call TakeItem(Index, 2, 1) ' Забирает вещи. Скрипт похож на CanTake. 2 - номер предмета. 8 - количество предметов, которые нужно забрать.
Call GiveCurrency(Index, 4, 100) ' Выдаёт деньги или тот предмет, что помечен под Currency. 1 - номер предмета, 100 - количество.
Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 2)
end if
end if
End if

Exit Sub  

Call TakeItem(Index, 1, 1)