Mensajes: 1,432
Registro en: Mar 2009
Reputación: 39 AEPoints: 674
Gracias: 117
192 agradecimientos en 81 posts
MegaScript Construccion (By IkiCapitan)
En honor a Megaupload acá traigo mi renovado script y quizás el último que libero al público ya que no veo retos nuevos en el lenguaje para aprender por lo que seguiré mi educación en otros lenguajes.
¿Qué hace tu script iki?... bueno mi Script tiene multiples funciones, quizás pueda ser el mejor script de todos los tiempos, o quizás sea un poco exagerado xD.
Descripción:
- Posibilidad de construir mediante bloques de Tileset puesto como Items (Pixel Art de bloques: Benjiro) campos de pasto, fortalezas de piedra, bunkers (útiles en PvP), que dan una posibilidad y giro único en el juego a todos los jugadores sin necesidad de tener rangos... la forma de conseguir estos materiales podría combinarse totalmente con los Scripts de Tala (madera), Minería (piedra), etc. Esto puede limitarse o dejarse la libre utilidad al estilo Minecraft. El sistema además incluye un 80% de posibilidades de complementar los bloques entre si sin generar error visual alguno.
- Posibilidad de construir puertas, ventanas, paredes con bloqueos incluidos autodetectando la dirección del personaje. Eso permitiría la construcción de hogares (estilo Sims).
- Posibilidad de insertar Objetos al mapa (Pixel Art: Choni mi novia), adquiribles mediante un sistema de compra denominado Catálogo, llamando a un comando (estilo HabboHotel).
- Posibilidad de crear teletransportadores infinitos de un punto A a punto B y viceversa en su función recíproca, inclusive de un mapa a otro. Eso permitiría crear transportes de una Casa a la de un amigo, a una zona importante del campo de batalla, o al baño para hacer pipi (estilo inimitable).
- Posibilidad de crear carteles, insertables en cualquier mapa con cualquier texto... útil para indicar algo, molestar a alguien, explicar hacia donde dirige un transportador o aclarar que es tu casa (estilo Pokémon).
- Posibilidad de creación de suelos 2D (tipo Sims).
- Posibilidad de crear bloqueos con la herramienta Lapiz.
- Posibilidad de eliminar un atributo con la herramienta Goma.
- Posibilidad de eliminar atributo+tileset (ej: pared, piso, etc) con la herramienta Bomba.
- Posibilidad de crear techos, tejados, etc en el Tileset superior 2 con un simple Item (estilo Sims).
- Resto de Posibilidades: Las determinan tu imaginación ya que son ilimitadas editando el Script.
[b]Dificultad: Media [/b]
[u]Lo Bueno: Mejor imposible. Se pueden crear infinidad de cosas más con esto y sirve muchísimo para aprender. Incluye objetos, paredes, techos, y decenas de recursos utilizables de ejemplo, con mucho humor.
Lo Malo: Se puede mejorar el sistema de bloques con algunas direcciones para que sea perfecto.
Aclaración: El resto de PixelArt no aclarado fue hecho por mí. Los items, catálogo, techos, etc son totalmente editables y/o eliminables y no afecta en absolutamente nada al Script. Parece largo pero es por la cantidad de ejemplos incluídos gratuitamente.[/u]
Instalación:
1) Descargar, extraer y pegar los archivos donde se indica cada carpeta:
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
2) Instalar el Script como se indica(el Main de todas formas incluye el script instalado, pero es por si quieren añadirlo a su juego sin reemplazarlo):
Cita:---------------------------Insertar en Sub MenuScripts debajo de la linea FieldMessage-----------
If MenuTile = Catalogo Then 'objetos de catalogo modificables
Select Case Clicked_Index
Case 1
If CheckItemValue(Index,43) >= 100 then '43 es el item del dinero
Call TakeItem(Index,43,100)
Call GiveItem(Index,31,1) 'item de catalogo
End If
Case 2
If CheckItemValue(Index,43) >= 200 then '43 es el item del dinero
Call TakeItem(Index,43,200)
Call GiveItem(Index,32,1)
End If
Case 3
If CheckItemValue(Index,43) >= 1000 then '43 es el item del dinero
Call TakeItem(Index,43,1000)
Call GiveItem(Index,33,1)
End If
Case 4
If CheckItemValue(Index,43) >= 1800 then '43 es el item del dinero
Call TakeItem(Index,43,1800)
Call GiveItem(Index,34,1)
End If
Case 5
If CheckItemValue(Index,43) >= 600 then '43 es el item del dinero
Call TakeItem(Index,43,600)
Call GiveItem(Index,35,1)
End If
Case 6
If CheckItemValue(Index,43) >= 2100 then '43 es el item del dinero
Call TakeItem(Index,43,2100)
Call GiveItem(Index,36,1)
End If
Case 7
If CheckItemValue(Index,43) >= 200 then '43 es el item del dinero
Call TakeItem(Index,43,200)
Call GiveItem(Index,37,1)
End If
Case 8
If CheckItemValue(Index,43) >= 350 then '43 es el item del dinero
Call TakeItem(Index,43,350)
Call GiveItem(Index,38,1)
End If
Case 9
If CheckItemValue(Index,43) >= 300 then '43 es el item del dinero
Call TakeItem(Index,43,300)
Call GiveItem(Index,39,1)
End If
Case 10
If CheckItemValue(Index,43) >= 2000 then '43 es el item del dinero
Call TakeItem(Index,43,2000)
Call GiveItem(Index,40,1)
End If
End Select
End If
------------------------------Colocar en el Sub JoinGame-----------------------------------------
Call PutVar("Scripts/" &GetPlayerName(Index)& ".ini", "teletransportador1", "map", "map")
Call PutVar("Scripts/" &GetPlayerName(Index)& ".ini", "teletransportador1", "x", "x")
Call PutVar("Scripts/" &GetPlayerName(Index)& ".ini", "teletransportador1", "y", "y")
***Opcional: Transportación por Tileset -falta configurar desde el ScriptedItem, añadir esto en scripted Tile si se desea:
Case 1' transportacion por tile optativa (opcional si deja de funcionar la forma original)
coordx = GetPlayerX(Index)
coordy = GetPlayerY(Index)
map = GetPlayerMap(Index)
TileX = GetTileX(map,coordX,coordy,Index)
TileY = GetTileY(map,coordX,coordy,Index)
If TileX = 0 Then
If TileY = 18 Then
warpmap = GetVar("Scripts/" &map&coordx&coordy& ".ini", "teletransportador", "map")
warpx = GetVar("Scripts/" &map&coordx&coordy& ".ini", "teletransportador", "x")
warpy = GetVar("Scripts/" &map&coordx&coordy& ".ini", "teletransportador", "y")
Call PlayerWarp(Index, warpmap, warpx, warpy)
End If
ElseIf TileX = 1 Then
If TileX = 18 Then
warpmap = GetVar("Scripts/" &map&coordx&coordy& ".ini", "teletransportador", "map")
warpx = GetVar("Scripts/" &map&coordx&coordy& ".ini", "teletransportador", "x")
warpy = GetVar("Scripts/" &map&coordx&coordy& ".ini", "teletransportador", "y")
Call PlayerWarp(Index, warpmap, warpx, warpy)
End If
End If
Exit Sub
-------------------------------------Agregar en el Sub Commands el siguiente Case------------------------------------------------------------------------
Case 43 'crea carteles
x = GetPlayerX(Index)
y = GetPlayerY(Index)
map = GetPlayerMap(Index)
Call SetTile(map,x,y,0,19,Tileset,1)
Call PlayerQueryBox(Index, "Inserta el texto de tu nuevo cartel porfavor", 1)
Exit Sub
---------------------Insertar al final del Main--------------------------------------------------
Sub Suelos(Index) 'inserta dos tiles de 32x32
suelox = GetVar("Scripts/estructuras.ini", "suelos", "suelox") 'toma informacion de los tileset segun item
sueloy = GetVar("Scripts/estructuras.ini", "suelos", "sueloy")
soportex = GetVar("Scripts/estructuras.ini", "suelos", "soportex")
soportey = GetVar("Scripts/estructuras.ini", "suelos", "soportey")
Tileset = 0 'usa el Tileset 0 para la construcción
MapX = GetPlayerX(Index)
MapY = GetPlayerY(Index)
construiriz = GetPlayerX(Index) - 1 'toma coordenadas a la izquierda del personaje
construirder = GetPlayerX(Index) + 1 'idem pero a la derecha
construirarr = GetPlayerY(Index) 'arriba
construirab = GetPlayerY(Index) + 1 'abajo
Select Case GetPlayerDir(Index)
Case 0 'arriba
TileX = GetTileX(GetPlayerMap(Index),MapX,construirarr,Index) 'toma valor del tile X arriba
TileY = GetTileY(GetPlayerMap(Index),MapX,construirarr,Index) 'toma el valor del tile Y arriba
TileY2 = GetTileY(GetPlayerMap(Index),MapX,construirarr - 1,Index)
TileX2 = GetTileX(GetPlayerMap(Index),MapX,construirarr - 1,Index)
If TileY = 0 Then' 1
If TileX = 0 Then' 2
Call SetTile(GetPlayerMap(Index),MapX,construirarr,soportex,soportey,Tileset,1) 'el último 1 es la máscara ya que construiremos sobre esa capa
Call SetTile(GetPlayerMap(Index),MapX,construirarr - 1,suelox,sueloy,Tileset,1)
Call SetBlock(GetPlayerMap(Index), MapX, construirarr - 1)
Else
If TileX2 = 1 Then' 3
If TileY2 = 2 Then' 4
Call SetTile(GetPlayerMap(Index),MapX,construirarr,suelox,sueloy,Tileset,1)
Call SetBlock(GetPlayerMap(Index), MapX, construirarr)
End If'4
End If'3
End If'2
Else
If TileX2 = 0 Then' 5
If TileY2 = 0 Then' 6
Call SetTile(GetPlayerMap(Index),MapX,construirarr - 1,suelox,sueloy,Tileset,1)
Call SetBlock(GetPlayerMap(Index), MapX, construirarr - 1)
End If
Else
If TileX2 = 1 Then' 7
If TileY2 = 2 Then' 8
Call SetTile(GetPlayerMap(Index),MapX,construirarr - 1,suelox,sueloy,Tileset,1)
Call SetBlock(GetPlayerMap(Index), MapX, construirarr - 1)
End If'8
End If'7
End If'5
End If'1
Case 1 'abajo
TileX = GetTileX(GetPlayerMap(Index),MapX,construirab,Index)
TileY = GetTileY(GetPlayerMap(Index),MapX,construirab,Index)
TileY2 = GetTileY(GetPlayerMap(Index),MapX,construirab + 1,Index)
TileX2 = GetTileX(GetPlayerMap(Index),MapX,construirab + 1,Index)
If TileY = 0 Then'1
If TileX = 0 Then'2
If TileX2 = 0 Then'3
If TileY2 = 0 Then'4
Call SetTile(GetPlayerMap(Index),MapX,construirab,suelox,sueloy,Tileset,1) 'el último 1 es la máscara ya que construiremos sobre esa capa
Call SetTile(GetPlayerMap(Index),MapX,construirab + 1,soportex,soportey,Tileset,1)
Call SetBlock(GetPlayerMap(Index), MapX, construirab)
Else
Call SetTile(GetPlayerMap(Index),MapX,construirab,suelox,sueloy,Tileset,1)
Call SetBlock(GetPlayerMap(Index), MapX, construirab)
End If'4
End If'3
End If'2
Else
If TileX = 1 Then'5
If TileY = 2 Then'6
If TileY2 = 0 Then
If TileX2 = 0 Then
Call SetTile(GetPlayerMap(Index),MapX,construirab,suelox,sueloy,Tileset,1) 'el último 1 es la máscara ya que construiremos sobre esa capa
Call SetTile(GetPlayerMap(Index),MapX,construirab + 1,soportex,soportey,Tileset,1)
Call SetBlock(GetPlayerMap(Index), MapX, construirab)
End If
Else
If TileY2 = 1 Then
If TileX2 = 0 Then
End If
End If
End If
Call SetTile(GetPlayerMap(Index),MapX,construirab,suelox,sueloy,Tileset,1)
Call SetBlock(GetPlayerMap(Index), MapX, construirab)
End If'6
End If'5
End If'1
Case 2 'izquierda
TileX = GetTileX(GetPlayerMap(Index),construiriz,MapY,Index)
TileY = GetTileY(GetPlayerMap(Index),construiriz,MapY,Index)
TileY2 = GetTileY(GetPlayerMap(Index),construiriz,MapY + 1,Index)
TileX2 = GetTileY(GetPlayerMap(Index),construiriz,MapY + 1,Index)
If TileX = 0 Then
If TileY = 0 Then
Call SetTile(GetPlayerMap(Index),construiriz,MapY,suelox,sueloy,Tileset,1)
Call SetBlock(GetPlayerMap(Index), construiriz,MapY)
If TileX2 = 0 Then
If TileY2 = 0 Then
Call SetTile(GetPlayerMap(Index),construiriz,MapY + 1,soportex,soportey,Tileset,1)
Else
If TileX2 = 1 Then
If TileY2 = 0 Then
Call SetTile(GetPlayerMap(Index),construiriz,MapY + 1,soportex,soportey,Tileset,1)
End If
End If
End If
End If
End If
End If
If TileX = 1 Then
If TileY = 2 Then
Call SetTile(GetPlayerMap(Index),construiriz,MapY,suelox,sueloy,Tileset,1)
Call SetBlock(GetPlayerMap(Index), construiriz,MapY)
If TileX2 = 0 Then
If TileY2 = 0 Then
Call SetTile(GetPlayerMap(Index),construiriz,MapY + 1,soportex,soportey,Tileset,1)
Else
If TileX2 = 1 Then
If TileY2 = 0 Then
End If
End If
End If
End If
End If
End If
Case 3 'derecha
TileX = GetTileX(GetPlayerMap(Index),construirder,MapY,Index)
TileY = GetTileY(GetPlayerMap(Index),construirder,MapY,Index)
TileX2 = GetTileX(GetPlayerMap(Index),construirder,MapY + 1,Index)
TileY2 = GetTileY(GetPlayerMap(Index),construirder,MapY + 1,Index)
If TileX = 0 Then
If TileY = 0 Then
Call SetTile(GetPlayerMap(Index),construirder,MapY,suelox,sueloy,Tileset,1)
Call SetBlock(GetPlayerMap(Index), construirder,MapY)
If TileX2 = 0 Then
If TileY2 = 0 Then
Call SetTile(GetPlayerMap(Index),construirder,MapY + 1,soportex,soportey,Tileset,1)
Else
If TileX2 = 1 Then
If TileY2 = 0 Then
Call SetTile(GetPlayerMap(Index),construirder,MapY + 1,soportex,soportey,Tileset,1)
End If
End If
End If
End If
End If
End If
If TileX = 1 Then
If TileY = 2 Then
Call SetTile(GetPlayerMap(Index),construirder,MapY,suelox,sueloy,Tileset,1)
Call SetBlock(GetPlayerMap(Index), construirder,MapY)
If TileX2 = 0 Then
If TileY2 = 0 Then
Call SetTile(GetPlayerMap(Index),construirder,MapY + 1,soportex,soportey,Tileset,1)
Else
If TileX2 = 1 Then
If TileY2 = 0 Then
End If
End If
End If
End If
End If
End If
End Select
End Sub
---------------------------------Función de quitar item del inventario no creada por mi---------------------
Function CheckItemValue(index, item)
SLOT = 1
encontrado = 0
CheckItemValue = 0
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
CheckItemValue = CheckItemValue + GetPlayerInvItemValue(Index, SLOT)
encontrado = 100000
End If
SLOT = SLOT+1
Loop
If encontrado = 1 Then
CheckItemValue = 1
End If
End Function
Sub TakeItem(Index, Number, Amount)
Dim Slot
Dim CurrentAmount
Index = Int(Index)
Number = Int(Number)
Amount = Int(Amount)
Slot = 1
Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = Number Then
If GetPlayerInvItemValue(Index, Slot) >= Amount Then
CurrentAmount = GetPlayerInvItemValue(Index, Slot)
If CurrentAmount <= Amount Then
Call SetPlayerInvItemNum(Index, Slot, 0)
Call SetPlayerInvItemValue(Index, Slot, 0)
Call SetPlayerInvItemDur(Index, Slot, 0)
Call SendInventoryUpdate(Index, Slot)
Else
Call SetPlayerInvItemValue(Index, Slot, CurrentAmount - Amount)
Call SendInventoryUpdate(Index, Slot)
End If
Sub Paredes(Index)'construccion de muros
paredx1 = GetVar("Scripts/estructuras.ini", "paredes", "pared1x") 'toma informacion de los tileset segun item
paredy1 = GetVar("Scripts/estructuras.ini", "paredes", "pared1y")
paredx2 = GetVar("Scripts/estructuras.ini", "paredes", "pared2x")
paredy2 = GetVar("Scripts/estructuras.ini", "paredes", "pared2y")
Tileset = 0 'usa el Tileset 0 para la construcción
MapX = GetPlayerX(Index)
MapY = GetPlayerY(Index)
Map = GetPlayerMap(Index)
construiriz = GetPlayerX(Index) - 1 'toma coordenadas a la izquierda del personaje
construirder = GetPlayerX(Index) + 1 'idem pero a la derecha
construirarr = GetPlayerY(Index) - 1 'arriba
construirab = GetPlayerY(Index) + 1 'abajo
Select Case GetPlayerDir(Index)
Case 0 'arriba
TileX = GetTileX(GetPlayerMap(Index),MapX,construirarr,Index) 'toma valor del tile X arriba
TileY = GetTileY(GetPlayerMap(Index),MapX,construirarr,Index) 'toma el valor del tile Y arriba
TileY2 = GetTileY(GetPlayerMap(Index),MapX,construirarr - 1,Index)
TileX2 = GetTileX(GetPlayerMap(Index),MapX,construirarr - 1,Index)
If TileY = 0 Then' 1
If TileX = 0 Then' 2
If TileX2 = 0 Then
If TileY2 = 0 Then
Call SetTile(Map,MapX,construirarr,paredx2,paredy2,Tileset,1) 'el último 1 es la máscara ya que construiremos sobre esa capa
Call SetTile(Map,MapX,construirarr - 1,paredx1,paredy1,Tileset,1)
Call SetBlock(GetPlayerMap(Index), MapX, construirarr - 1)
Call SetBlock(GetPlayerMap(Index), MapX, construirarr)
End If'8
End If'7
End If'5
End If'1
Case 1 'abajo
TileX = GetTileX(GetPlayerMap(Index),MapX,construirab,Index)
TileY = GetTileY(GetPlayerMap(Index),MapX,construirab,Index)
TileY2 = GetTileY(GetPlayerMap(Index),MapX,construirab + 1,Index)
TileX2 = GetTileX(GetPlayerMap(Index),MapX,construirab + 1,Index)
If TileY = 0 Then'1
If TileX = 0 Then'2
If TileX2 = 0 Then'3
If TileY2 = 0 Then'4
Call SetTile(GetPlayerMap(Index),MapX,construirab,paredx1,paredy1,Tileset,1) 'el último 1 es la máscara ya que construiremos sobre esa capa
Call SetTile(GetPlayerMap(Index),MapX,construirab + 1,paredx2,paredy2,Tileset,1)
Call SetBlock(GetPlayerMap(Index), MapX, construirab)
Call SetBlock(GetPlayerMap(Index), MapX, construirab + 1)
End If'6
End If'5
End If'1
End If
Case 2 'izquierda
TileX = GetTileX(GetPlayerMap(Index),construiriz,MapY,Index)
TileY = GetTileY(GetPlayerMap(Index),construiriz,MapY,Index)
TileY2 = GetTileY(GetPlayerMap(Index),construiriz,MapY + 1,Index)
TileX2 = GetTileY(GetPlayerMap(Index),construiriz,MapY + 1,Index)
If TileX = 0 Then
If TileY = 0 Then
If TileX2 = 0 Then
If TileY2 = 0 Then
Call SetTile(GetPlayerMap(Index),construiriz,MapY,paredx1,paredy1,Tileset,1)
Call SetBlock(GetPlayerMap(Index), construiriz,MapY)
Call SetBlock(GetPlayerMap(Index), construiriz,MapY + 1)
Call SetTile(GetPlayerMap(Index),construiriz,MapY + 1,paredx2,paredy2,Tileset,1)
End If
End If
End If
End If
Case 3 'derecha
TileX = GetTileX(GetPlayerMap(Index),construirder,MapY,Index)
TileY = GetTileY(GetPlayerMap(Index),construirder,MapY,Index)
TileX2 = GetTileX(GetPlayerMap(Index),construirder,MapY + 1,Index)
TileY2 = GetTileY(GetPlayerMap(Index),construirder,MapY + 1,Index)
If TileX = 0 Then
If TileY = 0 Then
If TileX2 = 0 Then
If TileY2 = 0 Then
Call SetTile(GetPlayerMap(Index),construirder,MapY,paredx1,paredy1,Tileset,1)
Call SetBlock(GetPlayerMap(Index), construirder,MapY)
Call SetBlock(GetPlayerMap(Index), construirder,MapY + 1)
Call SetTile(GetPlayerMap(Index),construirder,MapY + 1,paredx2,paredy2,Tileset,1)
End If
End If
End If
End If
Case 1
Call SetTile(GetPlayerMap(Index),MapX,construirab,objetox,objetoy,Tileset,3) 'el último 1 es la máscara ya que construiremos sobre esa capa
Call SetBlock(GetPlayerMap(Index), MapX, construirab)
Case 2
Call SetTile(GetPlayerMap(Index),construiriz,MapY,objetox,objetoy,Tileset,3)
Call SetBlock(GetPlayerMap(Index), construiriz,MapY)
Case 3
Call SetTile(GetPlayerMap(Index),construirder,MapY,objetox,objetoy,Tileset,3)
Call SetBlock(GetPlayerMap(Index), construirder,MapY)
End Select
End Sub
----------------------------------------------------------------------------------------------------------------------------------------
Sub suelo(Index) 'crea tileset en la capa suelo
suelox = GetVar("Scripts/estructuras.ini", "sueloind", "suelox") 'toma informacion de los tileset segun item
sueloy = GetVar("Scripts/estructuras.ini", "sueloind", "sueloy")
MapX = GetPlayerX(Index)
MapY = GetPlayerY(Index)
Map = GetPlayerMap(Index)
Call SetTile(GetPlayerMap(Index),MapX,MapY,suelox,sueloy,Tileset,0) 'el último 1 es la máscara ya que construiremos sobre esa capa
End Sub
Sub techo(Index) 'crea tileset en la capa superior1
techox = GetVar("Scripts/estructuras.ini", "techos", "techox") 'toma informacion de los tileset segun item
techoy = GetVar("Scripts/estructuras.ini", "techos", "techoy")
MapX = GetPlayerX(Index)
MapY = GetPlayerY(Index)
Map = GetPlayerMap(Index)
Call SetTile(Map,MapX,MapY,techox,techoy,Tileset,7) 'el último 1 es la máscara ya que construiremos sobre esa capa
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------
Sub GiveItem(Index, Item, value) 'no creado por mi, otorga item
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(Index, SLOT) = 0 Then
Call SetPlayerInvItemNum(Index, SLOT, item)
Call SetPlayerInvItemValue(Index, SLOT, value)
Call SendInventoryUpdate(Index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub
Sub TakeItem(Index, item, value)
If value = "all" Then
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(Index, SLOT) = item Then
Call SetPlayerInvItemNum(Index, SLOT, 0)
Call SetPlayerInvItemValue(Index, SLOT, 0)
Call SendInventoryUpdate(Index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
Else
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(Index, SLOT) = item Then
Call SetPlayerInvItemNum(Index, SLOT, 0)
Call SetPlayerInvItemValue(Index, SLOT, GetPlayerInvItemValue(index, SLOT) - value)
Call SendInventoryUpdate(Index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End If
End Sub
-------------------------------------------------------------------------------------------------------------
Sub QueryBox(index, Prompt) 'Construccion de Cartel
X = GetPlayerX(Index)
Y = GetPlayerY(Index)
Map = GetPlayerMap(Index)
Value = GetVar("responses.ini","Responses",Cstr(index))
Call SetSign(Map, X, Y, Value, "", "")
End Sub
3) Recomendarme como futuro Desarrollador de AE así les puedo traer más, jajaj... les agradezco a todos.
Acá les dejo el Server/Cliente con todo instalado para los máximos novatos:
RapidShare:
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
4Shared:
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Acá un video en baja calidad del Script, subirlo en mayor calidad me tarda 3 horas y muchos merecen este Script ya mismo:
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Mensajes: 85
Registro en: Jan 2012
Reputación: 8 AEPoints: 76
Gracias: 14
21 agradecimientos en 10 posts
RE: MegaScript Construccion (By IkiCapitan)
(03-02-2012 06:42 AM)blopaaa escribió: Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.que groso Iki, me voy a armar un juego al mejor estilo sims. Gracias!!
Me leiste la mente xD.
Sasuke va estar feliz cuando lo vea xD
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Mensajes: 44
Registro en: Jul 2011
Reputación: 0 AEPoints: 0
Gracias: 0
0 agradecimientos en 0 posts
RE: MegaScript Construccion (By IkiCapitan)
Es inmenso xD
Vere si logro colocarlo y ver mis resultados xD
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Mensajes: 809
Registro en: Aug 2011
Reputación: 26 AEPoints: 1070
Gracias: 90
14 agradecimientos en 12 posts
RE: MegaScript Construccion (By IkiCapitan)
Iki el que tiene lo que quiere el que tiene todo a la mano te odio sabes y este script no es el mejor pero eras buen amigo(aunque algo pesado )y te mereces un aplauso por hacer este scripts servirá a los juegos tipo habbo.
Yo pensaba que estaría copado hacer como una tienda donde vendan esas cosas así ya tienes un habbo!!
(si ya esta incorporado perdón no me eh dado cuenta!!)
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces. Soy: Mapper,Admin y tengo buenas ideas
Mensajes: 837
Registro en: Oct 2009
Reputación: 31 AEPoints: 445
Gracias: 41
32 agradecimientos en 17 posts
RE: MegaScript Construccion (By IkiCapitan)
muy interesante, aunque creo que se le podria hacer un comrpobante de si se ecvnuentra en un scripted tile de su casa, la cual se deberia comprar con comandos y hacer un sistema de casas que se puedan construir muy bueno, si quieres veo si lo hago, o te lo dejo .
Increible script, parece que aprovechas tu tiempo libre jajajaj, que bien que ya sepas usar perfectamente los comandos de tiles .
PD: estaria bueno una especie de martillo o item que te permitiera romper esos objetos de maneraque los recuperaras en caso de equivocarte, claro que eso seria extremadamente complicado, ya que tendrias que guardar las posiciones de cada item construido, y recogerlas al usar el itme para ver si se encuentra y removerlo .
PD2: otra sugerencia es hacer que al usar el item te diga que clickies donde lo quieres colocar, guardando una variable con la informacion del objeto que al hacer click se recoja y utilize, haciendo mas facil la colocacion de algunos objetos a mi parecer.
PD3:hacer mas subs suelos o que tenga un Index, tileset por si se desea usar un mas de un tileset.
PD4:creo que tu objeto de techo crea en la capa superior 1, estaria bueno que hicieras uno de techo mas original hecho en la capa superior 2 que agregue el atributo de tejado, y que al usarlo si encuentra un bloqueo en ve de tejado use bloquear tejado, ademas que al usar el bloqueo si ya hay un tejado lo haga bloquear tejado.
PD5:Buen script :;.
--- Te gustan mis firmas?? pasate por mi post: Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces. ---
Mensajes: 1,432
Registro en: Mar 2009
Reputación: 39 AEPoints: 674
Gracias: 117
192 agradecimientos en 81 posts
RE: MegaScript Construccion (By IkiCapitan)
Gracias a todos, en cuanto a las sugerencias el Script es ampliable y viable hacía donde ustedes quieran... los casos que me especifican dependerían más de sus ambiciones de juego.
Lo del martillo que borra, la Bomba se ocupa de eso, lo único que no hace es recuperar el objeto pero se podría hacer sin tanta complicación con un GetTile como identificador de objeto con una lista de objetos en un .ini, aunque mi Script llega hasta acá.
Lo de especificar el lugar donde se inserta con click no es mala idea, pero me oriente más a hacer un tipo de juego que no utilice mouse ya que los MMORPG 2D en AE me suenan más a juegos de Consola y me gusta ese estilo, aunque es totalmente aplicable.
Lo de ocupar varios TIleset es una idea que la pense, es bastante aplicable para terminar un cuarto determinando de XN a XN2 más fácil, pero se los dejo a ustedes, como dije el script depende de su imaginación y eso que exigís está muy bueno y requiere pocas líneas de código.
El objeto techo crea en la capa superior 2, lo de incluir otra capa obviamente es optativo, también podes incluir capas de animación para el agua pero como dije eso depende de la finalidad que busquen ustedes y obviamente puede que alguno llegue a hacer alguna excelente futura reversión.
Los amo, gracias.
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
MegaScript Construccion (By IkiCapitan)
![[Imagen: f33c4b9af6b5c54732734a06bd2136b7o.png]](http://fotos.subefotos.com/f33c4b9af6b5c54732734a06bd2136b7o.png)
![[Imagen: loading2.gif]](http://miarroba.st/loading2.gif)
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.![[Imagen: b54a02d15bae6d2fb59fe737d0c26aa0o.png]](http://fotos.subefotos.com/b54a02d15bae6d2fb59fe737d0c26aa0o.png)
)y te mereces un aplauso por hacer este scripts servirá a los juegos tipo habbo.
![[Imagen: logonovcv.png]](http://www.imagenes.alterengine.net/images/logonovcv.png)
. 
.![[Imagen: itachi1.png]](http://www.imagenes.alterengine.net/images/itachi1.png)
![[Imagen: ichigoqvq.png]](http://www.imagenes.alterengine.net/images/ichigoqvq.png)
