[Script] Pesca

[6Dragon6]

Autor: 6dragon6
Dificultad: Baja
Funcionalidad: 100%

---

Descripción

Aquí les traigo este Script que algunos ya han visto accidentalmente en mi canal de Youtube (deathrubik).

Se trataba de un Script privado del grupo de desarrollo, pero no le veíamos futuro a ese proyecto y volvimos con nuevas ideas así que tengo unos cuantos Scripts que puedo liberar.

El Script emula el sistema de pesca de los juegos de Pokémon, solo que requiere de una caña y cebo, se pueden editar las probabilidades de pesca y demás.

Hace mucho tiempo que lo hice así que no recuerdo los detalles, pueden ver el vídeo.

La funcionalidad está al 95%, esto significa que el Script funciona perfectamente, pero no se ha programado el "dónde" se puede pescar, por lo que podrían ponerse a pescar en cualquier sitio... incluso en la arena de un desierto. Esto lo arreglaré probablemente con el tiempo.

---

Código para Inserción Manual
[spoiler="Código"]
Al final del Main.txt:

Código:

Function PuedePescar(Index)
    PuedePescar = GetVar("Scripts\talapesca.ini","PESCA",""&GetPlayerName(Index))
End Function

Sub pescaexitosa(Index,cebo)
    Call RemoveTimer("call pescaexitosa("& Index &","&cebo&")")
    HechizoAnim = 1
    Pez = CInt(Rnd * 5)
    Select Case Pez
        Case 0
            PezItem = 2
            Pez = "Trucha"
        Case 1
            PezItem = 2
            Pez = "Trucha"
        Case 2
            PezItem = 3
            Pez = "Sardina"
        Case 3
            PezItem = 4
            Pez = "Carpa"
        Case 4
            PezItem = 5
            Pez = "Vieja"
        Case 5
            PezItem = 6
            Pez = "Anguila"
    End Select
    Call SpellAnim(HechizoAnim,GetPlayerMap(Index),GetPlayerX(Index),GetPlayerY(Index)-1)
    Call BattleMsg(Index,"Has pescado una " & Pez & ".",GREEN,0)
    Call TakeItem(Index,cebo,1)
    Call GiveItem(Index,PezItem,1)
    Call LockPlayer(Index,0)
End Sub

Sub pescafracasada(Index)
    Call RemoveTimer("call pescafracasada("& Index &")")
    Call BattleMsg(Index,"No han picado...",GREEN,0)
    Call LockPlayer(Index,0)
End Sub

Sub GiveItem(Index, Item, value)
    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

Function CheckItem(Index, Item)
    CheckItem = 0
    SLOT = 1
    Do While SLOT < 24
        If GetPlayerInvItemNum(Index, SLOT) = item Then
            CheckItem = 1
            SLOT = 24
        End If
        SLOT = SLOT+1
    Loop
End Function
'<6dragon6>
Function GetPlayerWeapon(Index)
    weaponslot = GetPlayerWeaponSlot(Index)
    weaponid = GetPlayerInvItemNum(Index,weaponslot)
    GetPlayerWeapon = weaponid
End Function
'</6dragon6>

En el Sub Commands:

Código:

'<6dragon6 pesca>
        Case "/pesca"
If PuedePescar(Index) = 1 Then
TiempoPesca = 5
ItemPesca = 7
cebo = 8
If GetPlayerWeapon(Index) = ItemPesca Then
    If CheckItem(Index,Cebo) = 1 Then
        Probabilidad = CInt(Rnd * 3)
        Call LockPlayer(Index,1)
        Call BattleMsg(Index,"Te pones a pescar...",BRIGHTBLUE,0)
        If Probabilidad = 2 Then
            Call SetTimer("call pescaexitosa("& Index &","&cebo&")",TiempoPesca*1000)
        Else
            Call SetTimer("call pescafracasada("& Index &")",TiempoPesca*1000)
        End If
    Else
        Call BattleMsg(Index,"No tienes cebo!",RED,0)
    End If
Else
    Call BattleMsg(Index,"No tienes caña de pesca!",RED,0)
End If
Else
Call BattleMsg(Index,"No puedes pescar aqui!",RED,0)
End If
Exit Sub
'</6dragon6 pesca>

En el Sub ScriptedTiles:
(Si vas a instalar los 2 (Tala y Pesca) solo necesitas esto una vez)

Código:

Case 1 'Talar=True
    Call PutVar("Scripts\talapesca.ini","TALA",""&GetPlayerName(Index),1)
    Exit Sub
Case 2 'Pescar=True
    Call PutVar("Scripts\talapesca.ini","PESCA",""&GetPlayerName(Index),1)
    Exit Sub
Case 3 'Talar=False
    Call PutVar("Scripts\talapesca.ini","TALA",""&GetPlayerName(Index),0)
    Exit Sub
Case 4 'Pescar=False
    Call PutVar("Scripts\talapesca.ini","PESCA",""&GetPlayerName(Index),0)
    Exit Sub

[/spoiler]

---

Archivo Main.txt con el Script listo para usar

***link caído***

---

Instrucciones para después de la Instalación

Dónde se puede pescar o talar...
Para que se pueda talar en un Tile, pon el Scripted Tile 1.
Para que se pueda pescar en un Tile, pon el Scripted Tile2.
Rodea la zona en la que se puede talar/pescar con el Scripted Tile correspondiente para que no se pueda talar/pescar fuera de esa zona, es decir, rodea la zona en que se puede talar/pescar con el Scripted Tile 3 o 4, el que corresponda.(3 Talar, 4 Pescar)

Los que no lo hayan entendido miren la imagen:
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.

---

Vídeo
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.

---

Autor: 6dragon6
Dificultad: Baja
Funcionalidad: 100%

[darkdino]

Este estaba buscando , ahora lo pongo primo XD jeje oie una pregunta si se puede cambiar y hacerlo como si fuera tambien MINERIA verdad =D!? =3

[Shikamaru]

TE RE SARPASTEE!

Bn ahi dragon

[6Dragon6]

Si, se puede, bastaría con cambiar la caña por el pico, quitar lo del cebo y cambiar los mensajes.

[Mr. Jeshuem]

Bien Dragon pero mi pregunta es que como indicas el lugar donde puedes pescar xD

[6Dragon6]

Ya lo haré ya... va a funcionar por Scripted Tiles, muy fácil.

[Mr. Jeshuem]

Jeje me lo suponia xD Gracias igualmente me sirve para practicar con algunas variables aunque todavia tengo que comprender los timers jeje

[6Dragon6]

Este y el de Tala ya están preparados para utilizarse al 100%, incluyendo lo que faltaba de especificar dónde se puede pescar/talar y dónde no.

[6Dragon6]

Añadido archivo Main.txt con el Script listo: Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.

[BenjiroKun]

el de tala es el mismo?
osea.... qe en ves de pedirte una caña te pida un hacha...

pero entonces lo del ansuelo deveria borrarse

bueno. supongo qe eso se puede hacer facil...

muy bueno el script.
era de J4F pero igual nunca lo habia visto...

te habia qedado bueno alfinal...