setwindow("Dark Crystal") changeProfileOption("HARVEST_WOOD", false) changeProfileOption("HARVEST_HERB", false) changeProfileOption("HARVEST_ORE", true) changeProfileOption("LOOT", false) changeProfileOption("playerDETECT", true); function beingfollowed() player:rest(); player:sleep(); end player:harvest(); player:harvest(); player:harvest(); player:harvest(); if inventory:itemTotalCount(0) == 0 then player:sleep() end player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); if inventory:itemTotalCount(0) == 0 then player:sleep() end player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); if inventory:itemTotalCount(0) == 0 then player:sleep() end player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); if inventory:itemTotalCount(0) == 0 then player:sleep() end player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); if inventory:itemTotalCount(0) == 0 then player:sleep() end player:harvest(); player:harvest(); player:harvest(); player:harvest(); player:harvest(); if inventory:itemTotalCount(0) == 0 then player:sleep() end player:harvest(); player:harvest(); player:harvest(); player:harvest(); repeat parallelID = RoMScript("GetCurrentParallelID()"); yrest(500) until parallelID if (parallelID == 1) then sendMacro("ChangeParallelID(3);"); player:rest(25); end if (parallelID == 2) then sendMacro("ChangeParallelID(1);"); player:rest(25); end if (parallelID == 3) then sendMacro("ChangeParallelID(2);"); player:rest(25); end