Scribd Logo
Upload

Welcome to Scribd!

  • 42 views

    Rotasi Lua

    Uploaded by

    Galang

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd

    Rotasi Lua

    Uploaded by

    Galang
    42 views3 pages

    Original Title

    rotasi.lua

    Copyright

    © © All Rights Reserved

    Available Formats

    TXT, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    42 views3 pages

    Rotasi Lua

    Uploaded by

    Galang

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    You are on page 1of 3

    blockid = 4584 -- set blockid

    hitcounts = 4 -- set the hitcount


    delay = 200 -- delay plant , harvest
    delaybreak = 100 -- delay pnb
    trashslot1 = 5028 -- essance
    trashslot2 = 5038 -- block

    PosPnb = blockid + 1

    seedid = blockid + 1
    name = (GetLocal().name:gsub("`.",''))

    function drop()
    SendPacket(2,"action|drop\n|itemID|"..seedid)
    end

    function inv(itemid)
    for _, item in pairs(GetInventory()) do
    if item.id == itemid then
    return item.amount
    end
    end
    return 0
    end

    function trash(trashing)
    SendPacket(2,"action|trash\n|itemID|"..trashing.."")
    SendPacket(2,"action|dialog_return\ndialog_name|trash_item\
    nitemID|"..trashing.."|\ncount|180")
    end

    function plants(x,y)
    pkt = {}
    pkt.px = x;
    pkt.py = y;
    pkt.x = x*32
    pkt.y = y*32
    pkt.type = 3;
    pkt.value = seedid;
    SendPacketRaw (false, pkt);
    end

    function place(x,y,itemID)
    pkt = {}
    pkt.x = GetLocal().posX
    pkt.y = GetLocal().posY
    pkt.px = x;
    pkt.py = y;
    pkt.type = 3
    pkt.value = itemID;
    SendPacketRaw(false, pkt)
    Sleep(150)
    end

    function punchs(x,y)
    pkt = {}
    pkt.x = GetLocal().posX
    pkt.y = GetLocal().posY pkt.px = x;
    pkt.py = y;
    pkt.type = 3;
    pkt.value = 18
    SendPacketRaw(false, pkt)
    Sleep(220)
    end

    function pnb()
    while inv(blockid) > 10 do
    place(math.floor(GetLocal().posX/32-1), math.floor(GetLocal().posY/32),blockid)
    for i = 1, hitcounts do
    punchs(math.floor(GetLocal().posX/32-1), math.floor(GetLocal().posY/32))
    end
    end
    end

    function baris()
    for _,tile in pairs(GetTiles()) do
    if tile.fg == PosPnb or tile.bg == PosPnb then
    Sleep(300)
    FindPath(tile.x,tile.y+6)
    return false
    end
    end
    end

    function punch(x, y)
    local packet = {}
    packet.px = math.floor(GetLocal().posX / 32) + x
    packet.py = math.floor(GetLocal().posY / 32) + y
    packet.type = 3
    packet.value = 18
    packet.x = GetLocal().posX
    packet.y = GetLocal().posY
    SendPacketRaw(false, packet)
    end

    function harvest(itemid)
    for _, tile in pairs(GetTiles()) do
    if(tile.fg == itemid) and (tile.readyharvest == true) and inv(blockid) <=
    180 then
    Sleep(500)
    FindPath(tile.x,tile.y)
    Sleep(1000)
    punchs(math.floor(GetLocal().posX/32),math.floor(GetLocal().posY/32))
    end
    end
    end

    function plant()
    for _, tile in pairs (GetTiles()) do
    if tile.fg == 0 and GetTile(tile.x, tile.y + 1).fg ~= 0 and
    GetTile(tile.x, tile.y + 1).fg % 2 == 0 then
    if inv(seedid) > 0 then
    Sleep(delay)
    FindPath(tile.x, tile.y)
    Sleep(delay)
    plants(math.floor(GetLocal().posX/32), math.floor(GetLocal().posY/32))
    end
    end
    end
    end

    function main()
    if inv(trashslot1) >= 180 then
    trash(trashslot1)
    elseif inv(trashslot2) >= 180 then
    trash(trashslot2)
    elseif inv(seedid) >= 190 then
    Sleep(300)
    Sleep(300)
    drop()
    elseif inv(blockid) > 10 then
    Sleep(500)
    baris()
    Sleep(500)
    pnb()
    plant()
    elseif inv(blockid) <= 10 then
    harvest(seedid)
    end
    end

    function AvoidError()
    if pcall(function()
    main()
    end) == false then
    Sleep(100)
    AvoidError()
    end
    Sleep(100)
    AvoidError()
    end

    var = {}
    var.v1 = "OnTextOverlay"
    var.v2 = "Rotasi by Rhy Universe"

    SendPacket(2,"action|input\n|text|Rotation Start")
    SendVariant(var)
    AvoidError()

    You might also like