Dark Paradise

Kód: Vybrat vše

sub vyrobashaftu()
    While NOT UO.Dead() 
        UO.FindType("0x1BDD,0x0000","-1","ground")
        If UO.FindCount() < 1 Then
            goto end
        EndIf
        UO.MoveItem("finditem","1","backpack")
            wait(1000)
        UO.Exec("waitmenu 'What do you want to carve the wood''Shafts'")
        UO.UseType("0x0F51")
        UO.WaitTargetType("0x1BDD")
            wait(2500)
        UO.UseType("0x1BD6,0x0742")
            wait(1000)
    wend
end:
end sub