'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Module: ScriptedNPC.ess                    '
' Author: Stephan J.R. van Schaik <stephan_van_schaik@msn.com>  '
' Date: August 30th, 2009.                    '
' Version: 1.0.0                    '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  Function: ScriptedNPC                    '    
' Brief: executes when somebody talks to a NPC.                 '
' Parameters:                    '
'   Index: the index of the player.                             '
'   Script: the script to execute.                    '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ScriptedNPC(Index, Script)
     Select Case Script
  Case 0
    Call PlayerMsg(Index, "This scripted NPC has no apparent use.", WHITE)

    Exit Sub
         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)
Else  
if GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = 1 Then    
    If CanTake(Index, 2, 10) then
     Call PlayerMsg(Index, "Спасибо ты спас деревню возьми это в занк благодарности.", RED)
     Call TakeItem(Index, 2, 10)
     Call GiveCurrency(Index, 1, 150)
     Call GiveCurrency(Index, 3, 1)
     Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 2)
Else Call PlayerMsg(Index, "Возвращайся когда убьешь слизней.", RED)
If GetPlayerLevel(Index) >= 4 then  
    If GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest2") = vbNullString Then    
     Call PlayerMsg(Index, "Сходи к леснику возьми у него дров для деревни.", RED)
     Call  PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest2", 1)
Else  
if GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = 1 Then    
    If CanTake(Index, 9, 10) then
     Call PlayerMsg(Index, "Спасибо возьми это в знак благодарности.", RED)
     Call TakeItem(Index, 2, 10)
     Call GiveCurrency(Index, 1, 550)
     Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 2)
Else Call PlayerMsg(Index, "У тебя нет дров уходи...", RED)
end if
End if
End if
end if
end if
End if
End if

          Else Case
             Call PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", WHITE)

             Exit Sub
     End Select
End Sub