[Aportes indexados] Materializa IAO Style

Estado
Cerrado para nuevas respuestas.

Pocho

Oráculo Lvl 3
[SERIVODR] Materializa IAO Style

Edite: son las 17:06 , ANDA :d , edite el codigo por ultima vez
Ahora gasta mana, y no deja materializar en lugares blockeados ni nada por el estilo


buscamos

'Llena la lista
For Hechizo = 1 To NumeroHechizos
y abajo ponemos

Hechizos(Hechizo).Materializax = val(Leer.DarValor("Hechizo" & Hechizo, "Materializax"))
Hechizos(Hechizo).MaterializaObj = val(Leer.DarValor("Hechizo" & Hechizo, "MaterializaObj"))
Hechizos(Hechizo).MaterializaCant = val(Leer.DarValor("Hechizo" & Hechizo, "MaterializaCant"))

buscamos

'**************************************************************
'**************************************************************
'************************ TIPOS *******************************
'**************************************************************
'**************************************************************

Type tHechizo

y abajo ponemos
MaterializaX as integer
MaterializaObj As integer
MaterializaCant As integer



buscamos

Else ' /GS

Select Case Hechizos(uh).Tipo
Case uInvocacion '
Call HechizoInvocacion(UserIndex, b)
Case uEstado
Call HechizoTerrenoEstado(UserIndex, b)

End Select


End If

y abajo ponemo


If Hechizos(uh).Materializax > 0 Then
If MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).flags.TargetX, UserList(UserIndex).flags.TargetY).OBJInfo.Amount > 0 Or MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).flags.TargetX, UserList(UserIndex).flags.TargetY).Blocked Then b = False: Exit Sub

Dim MAT As Obj
MAT.Amount = Hechizos(uh).MaterializaCant
MAT.ObjIndex = Hechizos(uh).MaterializaObj
Call MakeObj(ToMap, 0, UserList(UserIndex).Pos.Map, MAT, UserList(UserIndex).Pos.Map, UserList(UserIndex).flags.TargetX, UserList(UserIndex).flags.TargetY)
Call SendData(ToIndex, UserIndex, 0, "||Has materializado un objeto!!" & FONTTYPE_INFO)
b = True
End If




en el dat ponemops

[HECHIZO44]
Nombre=Manzana
Desc=Barrin TrKB!
PalabrasMagicas=Tkb Mucho OGA ;)
HechizeroMsg=Has cojido a barrin
TargetMsg=Terreno
PropioMsg=Mivieja
Tipo=5
WAV=27
FXgrh=0
Materializax=1
MaterializaObj=1
MaterializaCant=100
Target=4
MinSkill=1
ManaRequerido=1
StaRequerido= 1


by fedex;)
 

Lagalot

Newbie Lvl 6
No estas usando la variable de cantidad y del index del objeto, siempre va a materializar manzanas.
 
Estado
Cerrado para nuevas respuestas.
Arriba