Re: Craft,Blacksmith,Alquemia

por Ian Sáb 09 Abr 2011, 15:55

falei de fazer 1 mini jogo nela ñ fazer issu o.o

por FilipeJF Dom 10 Abr 2011, 08:29

Meu projeto iria ser nela '-', mas as sprites tava de estilo diferente, ai passei pra Eclipse Evolution, que gostei tambem.

por Massurik Sáb 14 maio 2011, 10:42

Olá Amigo achei muito show de bola o seu tutorial, mas peço a sua ajuda nessa parte:

e antes de End Select adicione

SPOILER:

Case ITEM_TYPE_RECIPE
' Get the recipe information
Item1 = Item(GetPlayerInvItemNum(Index, InvNum)).Data1
Item2 = Item(GetPlayerInvItemNum(Index, InvNum)).Data2
Result = Item(GetPlayerInvItemNum(Index, InvNum)).Data3

' Perform Recipe checks
If Item1 <= 0 Then
Call PlayerMsg(Index, "Esta incompleto o recipe...", White)
Exit Sub
End If

If Item2 <= 0 Then
Call PlayerMsg(Index, "Esta incompleto o recipe...", White)
Exit Sub
End If

If Result <= 0 Then
Call PlayerMsg(Index, "Esta incompleto o recipe...", White)
Exit Sub
End If

If GetPlayerEquipment(Index, Weapon) <= 0 Then
Call PlayerMsg(Index, "Não pode usar item que esta Equipado!", White)
Exit Sub
End If

If Item(GetPlayerEquipment(Index, Weapon)).Tool = Item(GetPlayerInvItemNum(Index, InvNum)).ToolReq Then
' Give the resulting item
If HasItem(Index, Item1) Then
If HasItem(Index, Item2) Then
Call TakeInvItem(Index, Item1, 1)
Call TakeInvItem(Index, Item2, 1)
Call GiveInvItem(Index, Result, 1)
Call TakeInvItem(Index, GetPlayerInvItemNum(Index, InvNum), 0)
Call PlayerMsg(Index, "Teve sucesso em criar o item " & Trim(Item(Result).Name) & ".", White)
Else
Call PlayerMsg(Index, "Falta Itens para o Crafts.", White)
Exit Sub
End If
Else
Call PlayerMsg(Index, "Falta Itens para o Craft.", White)
Exit Sub
End If
Else
Call PlayerMsg(Index, "Você não tem o recipe.", White)
Exit Sub
End If

Eu adiciono aonde você cita mas não encontro na sub Handle Use Item um end Select ai coloco antes do end sub e quando tento compilar O VB diz o Seguinte
[img] Craft,Blacksmith,Alquemia - Página 2 Ajudaa

Craft,Blacksmith,Alquemia - Página 2 Ajudaa

[/img]

Será que tem como me ajudar? To tentando relembrar essas paradas de VB já faz um bom tempo que n mecho nisso

Obrigado desde já, seu tutorial está ótimo.

por St4rk Sáb 14 maio 2011, 10:55

Precisa ser antes do End Select.

por Massurik Sáb 14 maio 2011, 10:58

Não sei se solucionou mas em cima daquela citação eu coloquei

Select Case ITEM_TYPE_RECIPE
<>
<>
<>
<>
End Select

E ele compilou certim, agora n sei se vai funfar

PS: os <> são os a representação dos códigos q to com preguiça de copiar.

Agora o Problema é com essa Currency que não sei aonde ela está, dentro da SUB UPDATEDESCWINDOW eu não encontro a Currency
Alguém pode me ajudar?

por mrflysix Seg 05 Mar 2012, 09:29

links Quebrados

An Error Has Occurred!
You are not allowed to access this section

por giovani18 Sáb 21 Jul 2012, 20:00

aruma os links ae pf

por jonny157 Dom 26 Ago 2012, 12:19

Os links estão quebrados... Este tópico está na lista de Tuto, então não me culpem por falar dele ser antigo, ele está aqui pra ajudar mesmo. E eu posso postar então...

Preciso saber do que precisa colocar nas forms, mas os link está quebrado.

por SkNzinho Qui 14 Mar 2013, 16:23

Link quebrado por favor arrume

por Pablo Qui 14 Mar 2013, 18:19

Obrigado por reportarem, estarei encaminhando ao v-force para que o mesmo arrume o tópico.

Atenciosamente,
Pablo

por Conteúdo patrocinado