Hola, mi primer ¿aporte?, hace poco empeze a programar ao.
Modifique el /CI para que envez de crear 100 obj cree la cantidad que nosotros querramos.
Todo en Server.
Buscamos:
- If UCase(Left(rData, 4)) = "/CI " Then
-- • --
Reemplazamos:
- If val(rData) < 1 Or val(rData) > NumObjDatas Then
- Exit Sub
- End If
Por:
- If val(ReadField(1, rData, Asc("@"))) < 1 Or val(ReadField(1, rData, Asc("@"))) > NumObjDatas Then
- Exit Sub
- End If
-- • --
Reemplazamos:
Por:
- Objeto.Amount = Val(ReadField(2, rData, Asc("@")))
-- • --
Reemplazamos:
- Call SendData(SendTarget.ToIndex, UserIndex, 0, "||ATENCIÓN:FUERON CREADOS 100 ITEMS!, TIRE Y /DEST LOS QUE NO NECESITE!!" & FONTTYPE_GUILD)
Por:
- Call SendData(SendTarget.ToIndex, UserIndex, 0, "||ATENCION:FUERON CREADOS " & ReadField(1, rData, Asc("@")) & " ITEMS!, TIRE Y /DEST LOS QUE NO NECESITE!!" & FONTTYPE_GUILD)
-- • --
Eso es todo, si me olvide algo despues edito.
Nosvimos.
PD: El comando seria "/CI 1@1000". Con eso creamos 1k de manzanitas
Edit: Aca les dejo el If completito.
- If UCase(Left(rData, 4)) = "/CI " Then
- rData = Right$(rData, Len(rData) - 4)
- Call LogGM(UserList(UserIndex).name, "/CI: " & rData, False)
-
- If MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y - 1).OBJInfo.ObjIndex > 0 Then
- Exit Sub
- End If
- If MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y - 1).TileExit.Map > 0 Then
- Exit Sub
- End If
- If val(ReadField(1, rData, Asc("@"))) < 1 Or val(ReadField(1, rData, Asc("@"))) > NumObjDatas Then
- Exit Sub
- End If
-
- 'Is the object not null?
- If ObjData(val(ReadField(1, rData, Asc("@")))).name = "" Then Exit Sub
-
- Call SendData(SendTarget.ToIndex, UserIndex, 0, "||FUERON CREADOS " & ReadField(1, rData, Asc("@")) & " ITEMS!, TIRE Y /DEST LOS QUE NO NECESITE!!" & FONTTYPE_GUILD)
-
- Dim Objeto As Obj
-
- Objeto.Amount = val(ReadField(2, rData, Asc("@")))
- Objeto.ObjIndex = val(ReadField(1, rData, Asc("@")))
-
- Call MakeObj(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, Objeto, UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y - 1)
-
- Exit Sub
- End If
» 26 Dic 2011 22:00 
92![Newbie [1]](./images/ranks/Rango0.gif "Newbie [1]")
![Destructor de Mentes [5]](./images/ranks/Rango17.gif "Destructor de Mentes [5]")
![Aprendiz [3]](./images/ranks/Rango8.gif "Aprendiz [3]")
![Dragon Ancestral [3]](./images/ranks/Rango32.gif "Dragon Ancestral [3]")
.
![Dragon Ancestral [2]](./images/ranks/Rango31.gif "Dragon Ancestral [2]")
![Newbie [2]](./images/ranks/Rango1.gif "Newbie [2]")
