From b7a59dc346471d442dab5e72c4306b7d10344ac7 Mon Sep 17 00:00:00 2001
From: UcanPatates <56081921+UcanPatatess@users.noreply.github.com>
Date: Fri, 3 May 2024 12:27:27 +0300
Subject: [PATCH] Create DiademFishing.lua

---
 Community Scripts/Gathering/DiademFishing.lua | 394 ++++++++++++++++++
 1 file changed, 394 insertions(+)
 create mode 100644 Community Scripts/Gathering/DiademFishing.lua

diff --git a/Community Scripts/Gathering/DiademFishing.lua b/Community Scripts/Gathering/DiademFishing.lua
new file mode 100644
index 00000000..97741f3a
--- /dev/null
+++ b/Community Scripts/Gathering/DiademFishing.lua	
@@ -0,0 +1,394 @@
+--[[
+    
+    *******************************************
+    *             Diadem Fishing              *
+    *******************************************
+
+    Author: UcanPatates  
+
+    **********************
+    * Version  |  1.0.1  *
+    **********************
+
+    -> 1.0.1  : Now You don't have to touch the snd settings.
+    -> 1.0.0  : Added food usage safety checks and more.
+    -> 0.0.2  : Beta version not finished
+    -> 0.0.1  : Fishing script with auto repair.
+
+
+    ***************
+    * Description *
+    ***************
+
+    This script will fish for you at diadem (Sweetfish) you need to have preset ready for it here it is if you don't have one
+
+    Preset:
+    AH4_H4sIAAAAAAAACuVXS3PTMBD+KxlfuAQmcR5NejNpaZkppYPDcGA4qI4Sa6JYQZZbQif/nV1LcizHrlM4wAynuqvdb799SLt58oJMiRlJVTpbrrzzJ+8yIfecBpx750pmtOvh4Q1L6OFwYY/ew5c/mXa9O8mEZGrnnfdBml7+iHi2oIuDGPX3GuuDEFGMYPmHj185znjS9a6281jSNBYcJP1ez0F+HjrHmJ45Fr1WMrM421gGw35v2ELBWgnOaaRKhv2ymt/uVsgFI7whpX1/PJ5WmAxdJi7R4F48QH2WhKfWwzuWxpc7mpY4jiqQo5EDObb1IWsaxmyp3hKWh4iC1ApCRaI1oAKYqdoxbhl1alDviGI0iWiJz7hqN3aT7VtTyX7SGVG6az6n9GPCd1+YioNIsQcacrJ1GhIoVaH9Sh0HBnoeE87IOn1HHoREdEdgYx10XfknGkG+Qb+PGay7E0Bh6Dgc78Hj5Q8liblmmMu5CB/J9n2iMqaYSK4IS2x6XkND3ZINpMu7FXD3wLrG4kak6hmLO4if1nvxXnsN5xozPz94DLfQ7pLwWSYlTdTJTCt2L+Bb6/GIdS1+rhUkK06hgmKLN4Elq1BRaJN+mZ3WSQN5KqmyAXgpTo1J+EiJWoI78H/DUvVxib6ggb7qeiMT62nQ8ycHZxeMLOimc41t9SjkBqFv4S/h10Ks0cbeny+U5P/rrsNT8I/cbP+haM42VFb68gNLiiPIw/ANtK4xn++2QGLYP8PLah2FSookb1WjVeDlz0y3mUF+PWOa3Ap1fEMrLnuDkssbuqLJgshda4BVBHgULkRm9K2iltiE/XZe/DGmRYO1JqXR0ontdGMIbC7Z1g1MS/48sLORj8nTcC8MzbF9eXDGHO9nsFRUzki2imHN2ODIwTFbvEf2Anyi3zMm6QIeZZXhAMJ9oXorXtTQ7T1Yp3jcVad1ymktUdY6LvOppTu1RqcWA9WRR6XD8vYCCE0R061lmk+DsiWL6dTSglmDRYn5wQh9Fj3yDK9C55hgm3lFq5ZyG8axYjWIi+v5dY2xdt5wWKDWnDdV8ZudSWb//loI9FiCGeXMJ3+KO5OZT1cS5lNn2IHJx1KSEN4J17v7jPEFjMNXncPga24j3IxgRLMIpjVsXuhHKwQbkSWOGqRoNK2ucAN3W52gp0wuSWTGi1krR9NRy+43Ast/5jfIYRl5ZgXBY1ScYaLyHJWXErPw4KcWW7V9t/TrwrzCboknmKxKiZ3CBmn818tas183VflCJGpG4BXnpsAm6v+x+rpi7vK7/7b/BS5IxOjxDwAA
+
+
+    *********************
+    *  Required Plugins *
+    *********************
+
+    -> SomethingNeedDoing (Expanded Edition) [Make sure to press the lua button when you import this] -> https://puni.sh/api/repository/croizat
+    -> AutoHook : https://love.puni.sh/ment.json
+    -> vnavmesh : https://puni.sh/api/repository/veyn
+
+    **************
+    *  SETTINGS  *
+    **************
+]]
+
+SelfRepair = true
+StopTheScripIfThereIsNoDarkMatter = false
+RepairAmount = 99
+--When do you want to repair your own gear? From 0-100.
+  -- Options
+    -- SelfRepair : true | false (default is true)
+    -- StopTheScripIfThereIsNoDarkMatter : true | false (default is false)
+    -- RepairAmount : Number between 1 to 99 
+UseFood = true 
+StopTheScripIfThereIsNoFood = false
+FoodKind = "Jhinga Curry <HQ>"
+-- If you would like to use food while in diadem, and what kind of food you would like to use.
+    -- Options
+        -- UseFood : true | false (default is true)
+        -- StopTheScripIfThereIsNoFood : true | false (default is false)
+        -- FoodKind : "Jhinga Curry <HQ>" (make sure to have the name of the food IN the "")
+
+AutoHookPreset = "Your Preset Name Here"
+HowManyMinutes = 20
+--Preset settings here
+  --Options
+    -- AutoHookPreset : you put your preset name here get it from AutoHook.
+    -- HowManyMinutes : this setting is to move every x minutes
+    -- (defoult is 20 not recomended to make it more than 45)
+
+
+--[[
+
+  ************
+  *  Script  *
+  *   Start  *
+  ************
+
+]]
+
+
+--4th var
+-- 0 means First spot to randomly select
+-- 1 means Second spot to randomly select
+-- 99 is bailout and clear the 500cast thingy
+FishingSpot =
+{
+  {520.7,193.7,-518.1,0}, -- First spot
+  {521.4,193.3,-522.2,0},
+  {526.3,192.6,-527.2,0},
+
+  {544.6,192.4,-507.8, 1}, -- Second spot
+  {536.9,192.2,-503.2, 1},
+  {570.3,189.4,-502.7, 1},
+
+  {455.9,255.3,535.1, 99} --bailout
+}
+
+
+-- Functions
+function setPropertyIfNotSet(propertyName, value)
+  if GetSNDProperty(propertyName) == false then
+      SetSNDProperty(propertyName, value)
+      LogInfo("[SetSNDPropertys] " .. propertyName .. " set to " .. tostring(value))
+  end
+end
+
+
+function unsetPropertyIfSet(propertyName, value)
+  if GetSNDProperty(propertyName) then
+      SetSNDProperty(propertyName, value)
+      LogInfo("[SetSNDPropertys] " .. propertyName .. " set to " .. tostring(value))
+  end
+end
+
+function NomNomDelish()
+  local EatThreshold = HowManyMinutes * 60
+  while (GetStatusTimeRemaining(48) <= EatThreshold or HasStatusId(48) == false) and UseFood do 
+    yield("/item "..FoodKind)
+    yield("/wait 2")
+    if GetNodeText("_TextError",1) == "You do not have that item." and IsAddonVisible("_TextError") then
+      UseFood = false
+      if StopTheScripIfThereIsNoFood then
+        if GetCharacterCondition(34) then
+          DutyLeave()
+        end
+        LogInfo("[FoodCheck] StopTheScripIfThereIsNoFood is true stopping the script")
+        yield("/snd stop")
+      end
+      LogInfo("[FoodCheck] Set to False No Food Remaining")
+      break
+    end
+  end
+  LogInfo("[FoodCheck] Completed")
+end
+
+function PlayerTest()
+  repeat
+    yield("/wait 0.1")
+  until IsPlayerAvailable()
+end
+
+function RandomSpot(Value)
+  local availableSpots = {}  -- Table to store available spot indices
+  
+  for i, spot in ipairs(FishingSpot) do
+    if spot[4] == Value then 
+      table.insert(availableSpots, i)  
+    end
+  end
+  if #availableSpots > 0 then
+    local randomIndex = math.random(1, #availableSpots)
+    local spotIndex = availableSpots[randomIndex]
+    
+    local spot = FishingSpot[spotIndex]
+    local x, y, z = spot[1], spot[2], spot[3]
+    return x, y, z
+
+  else
+    LogInfo("[Debug]No available spots")
+    return nil, nil, nil
+  end
+end
+
+function DistanceToAurvael()
+  local distance = GetDistanceToPoint(-18.6, -16.0, 141.2)
+  if distance and distance > 100 then
+    LogInfo("[Debug]Distance to Aurvael is further than 100 units")
+    return nil
+  end
+  return distance
+end
+
+function MountAndFly()
+  while IsInZone(939) and GetCharacterCondition(4, false) and GetCharacterCondition(77, false) do
+    PathStop()
+    while GetCharacterCondition(4, false) and IsInZone(939) do 
+      while GetCharacterCondition(27, false) and IsInZone(939) do
+        yield("/wait 0.1")
+        yield('/gaction "mount roulette"')
+      end
+      while GetCharacterCondition(27) and IsInZone(939) do 
+        yield("/wait 0.3")
+      end 
+      yield("/wait 1")
+    end
+  end
+  if GetCharacterCondition(77) == false and IsInZone(939) then
+    yield("/gaction jump")
+    yield("/wait 0.1")
+    yield("/gaction jump")
+  end
+  LogInfo("[MountAndFly] Completed")
+end
+
+function Repair()
+  if NeedsRepair(RepairAmount) and SelfRepair then
+    while not IsAddonVisible("Repair") do
+      yield("/generalaction repair")
+      yield("/wait 0.5")
+    end
+    yield("/pcall Repair true 0")
+    yield("/wait 0.1")
+    if GetNodeText("_TextError",1) == "You do not have the dark matter required to repair that item." and IsAddonVisible("_TextError") then
+      SelfRepair = false
+      LogInfo("[Repair] Set to False not enough dark matter")
+      if StopTheScripIfThereIsNoDarkMatter then
+        if GetCharacterCondition(34) then
+          DutyLeave()
+        end
+        yield("/snd stop")
+      end
+    end
+    if IsAddonVisible("SelectYesno") then
+      yield("/pcall SelectYesno true 0")
+    end
+    while GetCharacterCondition(39) do
+      yield("/wait 1")
+    end
+    yield("/wait 1")
+    if IsAddonVisible("Repair") then
+      yield("/pcall Repair true -1")
+    end
+    LogInfo("[Repair] Completed")
+  end
+end
+function WalkTo(valuex, valuey, valuez)
+  PathfindAndMoveTo(valuex, valuey, valuez, false)
+  while PathIsRunning() or PathfindInProgress() do
+      yield("/wait 0.1")
+  end
+  LogInfo("[WalkTo] Completed")
+end
+
+function Dismount()
+  local a=0
+  if GetCharacterCondition(4) or GetCharacterCondition(77) and IsInZone(886) == false then
+      yield("/ac dismount")
+      yield("/wait 0.3")
+  while GetCharacterCondition(77) and a < 3 and IsInZone(886) == false do
+      yield("/wait 0.5")
+      a=a+1
+  end
+      if a == 3 then
+          yield("/wait 0.1")
+          yield("/send SPACE")
+          LogInfo("[Debug] Dismount BailoutCommanced")
+      end
+  end
+  LogInfo("[Dismount] Completed")
+end
+
+function MoveToDiadem(RandomSelect)
+  local X, Y, Z
+  if IsInZone(939) then
+    X, Y, Z = RandomSpot(RandomSelect)
+    local distance = GetDistanceToPoint(X, Y, Z)
+    if distance >= 50 then
+      if not (GetCharacterCondition(4) and GetCharacterCondition(77)) then 
+        MountAndFly()
+      end
+      if not (PathIsRunning() or IsMoving()) then 
+        PathfindAndMoveTo(X, Y, Z, true)  -- Fly to spot
+        while PathfindInProgress() or PathIsRunning() and IsInZone(939) do
+          yield("/wait 0.1")
+          if not (GetCharacterCondition(4) and GetCharacterCondition(77)) then 
+            MountAndFly()
+          end
+        end
+        Dismount() 
+      end
+    else
+      if not (PathIsRunning() or IsMoving()) then 
+        PathfindAndMoveTo(X, Y, Z, false)  -- Walk to spot
+        while PathfindInProgress() or PathIsRunning() and IsInZone(939) do
+          yield("/wait 0.1")
+        end 
+        Dismount()
+      end
+    end
+    if RandomSelect == 0 then
+      local oceanX, oceanY, oceanZ = X -1.2, Y, Z -1.2
+      WalkTo(oceanX, oceanY, oceanZ)
+    elseif RandomSelect==1 then
+      local oceanX, oceanY, oceanZ = X +1.2, Y, Z +1.2
+      WalkTo(oceanX, oceanY, oceanZ)
+    elseif RandomSelect==99 then
+      local oceanX, oceanY, oceanZ = X +1.2, Y, Z -1.2
+      WalkTo(oceanX, oceanY, oceanZ)
+    end
+    LogInfo("[MoveToDiadem] Completed")
+  end
+end
+
+function Bailout500Cast()
+  MoveToDiadem(99)
+  PlayerTest()
+  yield("/ahon")
+  yield("/wait 3")
+  while GetCharacterCondition(6) do
+    yield("/ac Quit")
+    yield("/wait 1")
+  end
+  LogInfo("[Bailout500Cast] Completed")
+end
+
+function Dofishing()
+  local MoveEveryMin = HowManyMinutes * 60
+  if IsInZone(939) then
+    yield("/wait 0.1")
+    yield("/ahon")
+    fishing_start_time = os.time()
+    yield("/ac Cast")
+    while fishing_start_time + MoveEveryMin > os.time() and IsInZone(939) do
+      if GetNodeText("_TextError",1) == "The fish here have grown wise to your presence. You might have better luck in a new location..." and IsAddonVisible("_TextError") then
+        Bailout500Cast()
+      end
+      yield("/wait 5")
+    end
+    while GetCharacterCondition(6) do
+      yield("/ac Quit")
+      yield("/wait 1")
+    end
+    PlayerTest()
+    LogInfo("[Fishing] Completed")
+  end
+end
+
+function WeGoIn()
+  while IsInZone(886) do
+    local distance = DistanceToAurvael()
+    if distance and distance > 4 then
+      WalkTo(-18.4, -16.0, 143.2)
+    end
+    if distance and distance < 4 then
+      if IsAddonVisible("ContentsFinderConfirm") then
+        yield("/pcall ContentsFinderConfirm true 8")
+      elseif GetTargetName() == "" then
+        yield("/target Aurvael")
+      elseif GetCharacterCondition(32, false) then
+        yield("/interact")
+      elseif IsAddonVisible("Talk") then
+        yield("/click talk")
+      elseif IsAddonVisible("SelectString") then
+        yield("/pcall SelectString true 0")
+      elseif IsAddonVisible("SelectYesno") then
+        yield("/pcall SelectYesno true 0")
+      end
+      yield("/wait 0.5")
+    end
+  end
+  PlayerTest()
+  LogInfo("[WeGoIn] Completed")
+end
+
+-- Setting up the some stuff
+yield("/ahpreset " .. AutoHookPreset)
+CurrentJob = GetClassJobId()
+
+-- Set properties if they are not already set
+setPropertyIfNotSet("UseItemStructsVersion", "true")
+setPropertyIfNotSet("UseSNDTargeting", "true")
+
+-- Unset properties if they are set
+unsetPropertyIfSet("StopMacroIfTargetNotFound", "false")
+unsetPropertyIfSet("StopMacroIfCantUseItem", "false")
+unsetPropertyIfSet("StopMacroIfItemNotFound", "false")
+
+-- Main loop
+while true do
+  if GetInventoryFreeSlotCount() == 0 then 
+    LogInfo("It seems like your inventory has reached Max Capacity slot wise. For the safety of you (and to help you not just stand there for hours on end), we're going to stop the script here and leave the instance")
+    yield("/e It seems like your inventory has reached Max Capacity slot wise. For the safety of you (and to help you not just stand there for hours on end), we're going to stop the script here and leave the instance")
+    if GetCharacterCondition(34) then
+      DutyLeave()
+    end
+    yield("/snd stop")
+  end
+
+if IsInZone(886) or IsInZone(939) then
+  if CurrentJob == 18 then
+  else
+    yield("/e Switch to Fisher and start the script again.")
+    yield("/snd stop")
+  end
+  Repair()
+  WeGoIn()
+  MoveToDiadem(0)
+  NomNomDelish()
+  Dofishing()
+  MoveToDiadem(1)
+  NomNomDelish()
+  Dofishing()
+else
+  yield("/e Maybe go into firmament hee ?")
+  yield("/snd stop")
+end
+end