[ALL]Poção scriptada

por **Lendário** Sáb 14 Nov 2009, 11:39

-Bom pessoal , eu estava fazendo meu game dai fui fazer umas poções ja estava sem idéas quando lembrei que tem uns games que uma poção cura a metade do hp e outra que cura tudo , mais quando fui fazer elas para curarem a metade e o hp todo sempre davam uns erros , se o hp fosse "100" ela curava "150" ia ser a metade , mais para alguem de "300" de hp , dai veio a idéa do script

-Vá até a scripteditem veja qual case esta disponivél e cole o codigo .

Código:: 'Mix nivel 1 Case 0 Call setplayerhp(index, getplayerhp(index) + getplayermaxhp(index) / 2 ) Call setplayermp(index, getplayermp(index) + getplayermaxmp(index) / 2 ) Call takeitem(index, 18 , 01 ) Exit sub 'Mix nivel 2 Case 1 Call setplayerhp(index, getplayermaxhp(index) ) Call setplayermp(index, getplayermaxmp(index) ) Call takeitem(index, 19 , 01 ) Exit sub

-No final do seu main lá no fundo , lá na decadência , lá nos canfundélsis , cole essas duas subs .

Código:: '******************************** Sub GiveItem(index, number, durability) '******************************** Dim slot slot = 1 Do While slot < 25 If Getplayerinvitemnum( index, Int( slot ) ) = 0 Then Call SetPlayerInvItemNum(index, Int( slot ), Int( number ) ) Call SetPlayerInvItemDur(index, Int( slot ), Int( durability ) ) Call SetPlayerInvItemValue(index, Int( slot ), Int(0) ) Call SendInventoryUpdate(index, Int(slot) ) slot = 25 End If slot = slot + 1 Loop End Sub '******************************** Sub TakeItem(index, number, value) '******************************** Dim slot Dim taken Dim initial Dim final slot=1 taken=0 Do While Int(slot) < 25 If Int(taken)=0 Then If Getplayerinvitemnum(index,Int(slot)) = Int(number) Then If Int(getplayerinvitemvalue(index, Int(slot))) >= Int(value) Then initial = Int(getplayerinvitemvalue(index, Int(slot) ) ) final = Int(initial) - Int(value) If Int(final) <= 0 Then Call setplayerinvitemnum(index, Int(slot), Int(0) ) Call setplayerinvitemvalue(index, Int(slot), Int(0) ) Call setplayerinvitemdur(index, Int(slot), Int(0) ) Call SendInventoryUpdate(index, Int(slot)) taken=1 Else Call setplayerinvitemvalue(index, Int(slot), Int(final) ) Call SendInventoryUpdate(index, Int(slot) ) taken=1 End If End If End If End If slot = slot + 1 Loop End Sub

-Traduzindo os codigos

Código:: Call setplayerhp(index, getplayerhp(index) + getplayermaxhp(index) / 2 )

-Tradução :
Chamada Ajustar Hp Do Jogador ( Index , Obter hp do Jogador ( Index ) + Obter Maximo Hp do Jogador (Index) Dividido por dois )
-Tradução mais facilitada :
Chama o script que ajusta o hp do jogador , o codigo obtem o hp desse momento do jogador e adciona o hp maximo do jogador dividido por 2 .

-Essas traduções são para quem não entende de script começar a pegar o jeito bls ,bom mais um tuto meu , não copiei de ninguem então créditos devidos a min , bls fui .
No codigo ,