Case 1 'freds Quest
'Quest Nummer 1 Begin
If GetPlayerLevel(Index) > 0 Then
If Getvar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1") = 0 Then
Call PlayerMsg(Index, "fred says: help", BLUE)
Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1", 1)
ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1") = 1 Then
If CanTake(Index, 5, 1) Then
Call TakeItem(Index, 5, 1)
Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1", 2)
Call PlayerMsg(Index, "fred says: thx", BLUE)
Call SetPlayerEXP(Index, GetPlayerEXP(Index) + 999)
Call PlayerMsg(Index, "You receive experience points: 999", YELLOW)
Call SendStats(Index)
Call PlayerLevelUp(Index)
Call GiveCurrency(Index, 0, 0)
Call PlayerMsg(Index, "You receive Money: 0", YELLOW)
Else
Call PlayerMsg(Index, "fred says: help me", BLUE)
End If
ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1") = 2 Then
Call PlayerMsg(Index, "fred says: great job", BLUE)
Call PlayerMsg(Index, "(You already completed this Quest.)", BLACK)
End If
Else
Call PlayerMsg(Index, "The Level requirement for this quest is too high.", BLUE)
End If
Exit Sub