16
General UO Chat / Easy UO and afk macroing friendly shard
« on: April 20, 2009, 05:22:45 AM »
I was wondering if anyone can recommend me a shard where it's allowed to use Easy UO and afk macroing, preferebly without skillcap.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
gosub badSpots %x %y
set %poleType NSL_KSL
set %pathReconnect reconnect.txt
set %maxTimeOutScan 20
sub fishing
for %x -5 5
{
for %y -5 5
{
if #contkind = ORLB
call %pathReconnect
if #weight < %maxweight
{
event sysmessage %x %y
gosub badSpots
if #result = good
{
gosub usePole
gosub scan
deletejournal
gosub pickupFish
}
}
}
}
return
sub pickUpFish
finditem %fishType G_2
if #findkind <> -1
call pickupFish.txt
return
sub badSpots
if %x = -5 && %y = -5 ; too far
return bad
if %x = -5 && %y = 5 ; too far
return bad
if %x = -1 && %y = 0 ; too close
return bad
if %x = -1 && %y = -1 ; too close
return bad
if %x = -1 && %y = 1 ; too close
return bad
if %x = 0 && %y = -1 ; too close
return bad
if %x = 0 && %y = 0 ; too close
return bad
if %x = 0 && %y = 1 ; too close
return bad
if %x = 1 && %y = 0 ; too close
return bad
if %x = 1 && %y = -1 ; too close
return bad
if %x = 1 && %y = 1 ; too close
return bad
if %x = 5 && %y = -4 ; too far
return bad
if %x = 5 && %y = -5 ; too far
return bad
return good
sub scan
set %timeout #scnt + %maxTimeOutScan
set %jrnl #jindex
scanjournal %jrnl
while #scnt < %timeout
{
if %jrnl < #jindex
{
set %jrnl %jrnl + 1
scanjournal %jrnl
}
if ( mala_suerte in #journal || Pescaste in #journal )
{
set %timeout #scnt + %maxTimeOutScan
gosub usePole
}
if ( no_hay_peces in #journal || demasiado_lejos in #journal
+ || no_puedes_pescar in #journal || mejor_pesca in #journal )
{
wait 5
return
}
}
sub UsePole
set #lTargetKind 2
set #lTargetX #CHARPOSX + %x
set #lTargetY #CHARPOSY + %y
finditem %poleType
set #LOBJECTID #FINDID
event macro 17
target 3s
event macro 22
return
sub pickUpFish
finditem %fishType G_2
if #findkind <> -1
call pickupFish.txt
return
set %amount 30
click 240 80 x %amount ; It clicks 30 times on the first element of the menu list
click 315 420 ; accept button
gosub waitForGumpDisappear
finditem %fishType C_ , #backpackID
}
set %amount #findStack
click 240 80 x %amount ; It clicks 30 times on the first element of the menu list
click 315 420 ; accept button
gosub waitForGumpDisappear
finditem %fishType C_ , #backpackID
}
finditem %vendor G_10
if #FINDCNT > 0
exevent Popup #findid 1
halt
;==================================
; Script Name: SellSub
; Author: VicVega
; Version: 0.1
; Client Tested with: 5. Something
; EUO version tested with: 1.5 (Version 148)
; Shard: Epsilon UO
; Revision Date: 12-04-09
; Public Release:
; PSL Release:
; Purpose: Sells all fish in your Backpack to an NPC
;==================================
set %fishType GQD_TLW_VLW_DMW_LGW_NGW_GMW_FQD_OGW_WLW_
+YLW_DQD_SLW_ULW_FMW_EMW_XLW_RLW_EQD
set %vendor Conway
sell:
;open vendor's popup menu and click sell option
finditem %fishType C_ , #backpackID
while #findkind <> -1
{
msg %vendor sell $
gosub waitForgump
set %amount 30
click 240 80 x %amount
click 315 420 ; accept button
gosub waitForGumpDisappear
finditem %fishType C_ , #backpackID
}
exit
sub waitForGump
set %timeout #scnt + 5
loop:
If #contname <> bill_gump
{
if #scnt > %timeout
return
else
goto loop
}
return
sub waitForGumpDisappear
set %timeout #scnt + 5
loop2:
If #contname = bill_gump
{
if #scnt > %timeout
return
else
goto loop2
}
return