changeProfileOption("INV_AUTOSELL_FROMSLOT", 60) changeProfileOption("INV_AUTOSELL_TOSLOT", 120) Slots = 59 dura = 0.9 instancebuff = false --==New on Ver. 0.3==-- changeProfileOption("INV_AUTOSELL_ENABLE", "true") changeProfileOption("EGGPET_ENABLE_ASSIST", "false") Grassland_Mix = main_true Magic_Lute = main_true Magic_Tambourine = main_true Magic_Guitar = false __WPL:setWaypointIndex(__WPL:findWaypointTag("start")) changeProfileOption("LOOT_IN_COMBAT", "false") changeProfileOption("AUTO_ELITE_FACTOR", 1000) changeProfileOption("HARVEST_DISTANCE", 50) BuffCount = 0 Count = 0 zid = 0 if not eventparty then function eventparty() checkeventparty() end end if not checkeventparty then --cprintf(cli.red, "\t\t\t !!!Fatal error!!!\nMicroMacro Stop\nPlease instal the user function \"userfunction_partymonitoring.lua\" \n") function checkeventparty() close() end end function Countround() Count = Count+1; cprintf(cli.pink, "Round Nbr: %s\n\n", Count) end function checkdura() if dura > inventory:getMainHandDurability() then __WPL:setWaypointIndex(__WPL:findWaypointTag("mech")) end occupiedSlots, totalSlots = sendMacro("GetBagCount();") if( occupiedSlots > Slots ) then __WPL:setWaypointIndex(__WPL:findWaypointTag("mech")) end end function Boss_buff() if useGoodie then if Grassland_Mix == true then if inventory:itemTotalCount(206874) > 1 then useGoodie(206874) end else cprintf(cli.yellow, "Please instal the user function \"useGoodie\" \n") end end cprintf(cli.pink, "\n\n\nWaypoint create by Xm3n\n\n\n") if Magic_Tambourine == party_true then if inventory:itemTotalCount(204463) >= 1 then inventory:useItem(204463) -- 3 days yrest(4000) elseif inventory:itemTotalCount(204571) >= 1 then inventory:useItem(204571) -- 7 days yrest(4000) elseif inventory:itemTotalCount(206420) >= 1 then inventory:useItem(206420) -- 30 days yrest(4000) end elseif Magic_Tambourine == main_true then yrest(4000) end if Magic_Lute == party_true then if inventory:itemTotalCount(204544) >=1 then inventory:useItem(204544) -- 3 days yrest(4000) elseif inventory:itemTotalCount(204570) >= 1 then inventory:useItem(204570) -- 7 days yrest(4000) elseif inventory:itemTotalCount(206419) >= 1 then inventory:useItem(206419) -- 30 days yrest(4000) end elseif Magic_Lute == main_true then yrest(4000) end if Magic_Guitar == party_true then if inventory:itemTotalCount(204461) >= 1 then inventory:useItem(204461) -- 3 days yrest(4000) elseif inventory:itemTotalCount(206418) >= 1 then inventory:useItem(206418) -- 7 days yrest(4000) elseif inventory:itemTotalCount(204569) >= 1 then inventory:useItem(204569) -- 30 days yrest(4000) end elseif Magic_Guitar == main_true then yrest(4000) end end function findzi() keyboardHold( settings.hotkeys.MOVE_FORWARD.key ) yrest(500) keyboardRelease( settings.hotkeys.MOVE_FORWARD.key ) waitForLoadingScreen(2) local getinlvl = sendMacro('GetInstanceLevel()') if getinlvl == ("easy") then zid = 128 elseif getinlvl == ("normal") then zid = 127 elseif getinlvl == ("hard") then zid = 000 end end function selfname() sname = RoMScript("UnitName('player')") yrest(500) cprintf(cli.blue, "Player name is : %s\n", sname) sendpartychat(sname) end function gcheck() local _go = false local groupnumber = RoMScript("GetNumPartyMembers()") if groupnumber == 0 then _go = false else _go = true end return _go end function getbuff() player:harvest(114982) player:update() if player:hasBuff(506432) then __WPL:setWaypointIndex(__WPL:findWaypointTag("havebuff")) else BuffCount = BuffCount+1 if BuffCount > 8 then __WPL:setWaypointIndex(__WPL:findWaypointTag("havebuff")) end end end checkdura() local groupnumber = RoMScript("GetNumPartyMembers()") if gcheck() == false then cprintf(cli.red, "--==Not in a Groupe==--\n") repeat until gcheck() == true __WPL:setWaypointIndex(__WPL:findWaypointTag("enter")) else keyboardPress(key.VK_SPACE) repeat until checkparty(80) == true selfname() yrest(1000) end findzi() yrest(1000) local zoneid = RoMScript("GetZoneID()") if zoneid == 209 then __WPL:setWaypointIndex(__WPL:findWaypointTag("enter")) end repeat until checkparty(500) == true keyboardPress(key.VK_SPACE) repeat until checkparty(100) == true player:clearTarget() changeProfileOption("AUTO_ELITE_FACTOR", 1000) Boss_buff() sendMacro('TargetNearestEnemy()') player:fight() if instancebuff == true then player:update() if player:hasBuff(506432) then __WPL:setWaypointIndex(__WPL:findWaypointTag("buffok")) else __WPL:setWaypointIndex(__WPL:findWaypointTag("getbuff")) end else __WPL:setWaypointIndex(__WPL:findWaypointTag("buffok")) end getbuff() getbuff() getbuff() getbuff() player:harvest(114982) player:update() if player:hasBuff(506432) then __WPL:setWaypointIndex(__WPL:findWaypointTag("havebuff")) else BuffCount = BuffCount+1 if BuffCount > 8 then __WPL:setWaypointIndex(__WPL:findWaypointTag("havebuff")) else __WPL:setWaypointIndex(__WPL:findWaypointTag("object")) end end BuffCount = 0 findzi() local zoneid = RoMScript("GetZoneID()") if zoneid == zid then __WPL:setWaypointIndex(__WPL:findWaypointTag("exit")) else __WPL:setWaypointIndex(__WPL:findWaypointTag("start")) end --player:merchant(115536) --== no more works on Chapter IV ==-- if player:openStore(115536) then for i, item in pairs(inventory.BagSlot) do if item.SlotNumber >= settings.profile.options.INV_AUTOSELL_FROMSLOT and settings.profile.options.INV_AUTOSELL_TOSLOT >= item.SlotNumber then item:use() -- sells it to the store end end end __WPL:setWaypointIndex(__WPL:findWaypointTag("enter"))