Duvida , Criador de quest

por Rio Absolut Qui 19 Nov 2009, 21:06

Então abaixei o Criador de quest do Sasuke , e abaixei o client NS que lendario posto no forum

Quando fui tentar instalar o progama nao tinha os negocio certo os locais ...

Crei 1 Quest este é o codigo

Código:: Case 1 'Nefhts Quest 'Quest Nummer 1 Begin If GetPlayerLevel(Index) > 0 Then If Getvar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1") = 0 Then Call PlayerMsg(Index, "Nefht fala: Maté 5 Gold Monters e Ganhe 6 de EXP e 9 de Gold", YELLOW) Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1", 1) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1") = 1 Then If CanTake(Index, 1, 5) Then Call TakeItem(Index, 1, 5) Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1", 2) Call PlayerMsg(Index, "Nefht fala: Parabens vc mato Ganhe 6 de Experiencia e 9 de Dinheiro", YELLOW) Call SetPlayerEXP(Index, GetPlayerEXP(Index) + 6) Call PlayerMsg(Index, "Voce recebeu experiencia de : 6", YELLOW) Call SendStats(Index) Call PlayerLevelUp(Index) Call GiveCurrency(Index, 10, 9) Call PlayerMsg(Index, " Você recebeu R$: 9", YELLOW) Else Call PlayerMsg(Index, "Nefht fala: Vc presisa matar 5 Montro", YELLOW) End If ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Quest1") = 2 Then Call PlayerMsg(Index, "Nefht fala: Proxima etapa Fale com Jonny", YELLOW) Call PlayerMsg(Index, "(Voce ja completou esta Quest .)", BLACK) End If Else Call PlayerMsg(Index, "Voce precisa de um nivel maior para esta Quest ...", YELLOW) End If Exit Sub