Porque esta dando arrado?

por Gifah Seg 17 maio 2010, 13:57

Eu to perdendo o sono com isso, será que alguma alma boa poderia me ajudar?

Qual é o problema com esse codigo?

Código:: Sub ScriptedNPC(Index, Script) Select Case Script Case 0 Call Questmaca(Index) Case 1 End Select End Sub Sub Questmaca(Index) If GetVar("Scripts\Quest.ini", GetPlayerName(Index), "maca") = "" Then Call PutVar("Scripts\Quest.ini", GetPlayerName(Index), "maca", "0") Call PlayerMsg(Index, "test: Quero uma maca, te dou uma cenoura!!!", BLACK) Else If CanTake(Index, 2, 1) Then Call PlayerMsg(Index, "test: Oba! Uma maca, tome sua cenoura!", BLACK) Call TakeItem(Index, 2, 1) Call GiveItem(Index, 3, 1) Call PutVar("Scripts\Quest.ini", GetPlayerName(Index), "maca", "1") Else If GetVar("Scripts\Quest.ini", GetPlayerName(Index), "maca") = "0" Then Call PlayerMsg(Index, "test: Quero uma maca!", BLACK) Else If GetVar("Scripts\Quest.ini", GetPlayerName(Index), "maca") = "1" Then Call PlayerMsg(Index, "test: Obrigado pela maca!", BLACK) End If End If End If End If End Sub

Fala o seguinte problema:

TYPE: Subscript Out of Range
LINE: 7
COLUMN: 0
CODE:

E fica nisso. Quando eu tento da primeira vez ele funciona e o "0" (sem aspas) fica na pasta Quest.ini

E não passa disso.

Eu uso o Eclipse Stale e tentei usar no Dsh Fox Edition e tambem não funcionou.

Alguem sabe qual é o problema?

___________________________________________________

Acabei de tentar o Script que passaram aqui de quests e não funcionou tambem, segue o codigo que o jogo diz que esta errado, é o mesmo erro.

TYPE: Subscript Out of Range
LINE: 7
COLUMN: 0
CODE:

Código:: Sub ScriptedNPC(Index, Script) Select Case Script Case 0 Call Questmaca(Index) Exit Sub Case 1 End Select End Sub Sub Questmaca(Index) If GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status de Quest") = "" Then Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status de Quest", 0) Call Playermsg(index, "Me traga uma maca que eu te dou uma cenoura!", 2) Exit Sub Else If GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status de Quest") = "0" Then If CanTake(index, 2, 1) Then Call Playermsg(index, "Obrigado pela maca, tome essa cenoura!", 2) Call TakeItem(index, 2, 1) Call GiveItem(index, 3, 1) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status de Quest", 1) Exit Sub Else Call Playermsg(index, "Me traga uma maca que eu te dou uma cenoura!", 2) End If Else Call Playermsg(index, "Muito obrigado pela maca!", 2) End if End if Exit Sub End Sub

Se puderem me ajudar ficarei muito grato. Obrigado.

por St4rk Seg 17 maio 2010, 19:14

Olha amigo, eu não mecho com scripts me descupa, mais se você quiser um sistema de quest mais complexo, pega o Eclipse Pributon e tenta Ripa o "Sistema de Quests" eu aconselho, alem de ser melhor, ele é mais complexo...

descupa mais não notei nenhum erro, eu não mecho com scripts =/

Ps:
Já tento tira o Case 1
Ps²:
Você quando vai escolher script, você bota como o "Script: 0" por que se for Case 0 o Script tenque ser 0 não 1...

Espero lhe ajuda...

Porque esta dando arrado?

Porque esta dando arrado?

Re: Porque esta dando arrado?