Current ScriptUO version is v239Follow THIS LINK to download the new version
0 Members and 1 Guest are viewing this topic.
;--------------------------------------------------------------sub ENs_FindHole2 If %Hole2LoopValueMax = N/A gosub SetupHole2LoopValues set !holefound #False set !Loopvalue 0 repeat gosub hole2move !loopvalue if !loopvalue > 10 { gosub findhole2 } until #result ; hole found; finish the loop.; repeat; gosub hole2move !loopvalue; Until !loopvalue >= %Hole2LoopValueMAxwait 15Return;--------------------------------------------------------------;--------------------------------------------------------------Sub Hole2Move set !x %Hole2LoopValuex . %1 set !y %Hole2LoopValuey . %1 set !z %Hole2LoopValuez . %1 set !Exit 20 Repeat set !Exit !exit - 1 event pathfind !x !y !z wait 1 Until ( #Charposx = !x && #charposy = !y ) || !exit < 1 set !loopvalue !loopValue + 1 If !loopvalue >= %Hole2LoopValueMAx set !LoopValue 1Return;--------------------------------------------------------------;--------------------------------------------------------------sub SetupHole2LoopValues gosub AddHole2loopvalue 5883 1864 4 gosub AddHole2loopvalue 5921 1797 0 gosub AddHole2loopvalue 5921 1797 0 gosub AddHole2loopvalue 5921 1797 0 gosub AddHole2loopvalue 5921 1808 1 gosub AddHole2loopvalue 5921 1808 1 gosub AddHole2loopvalue 5921 1808 1 gosub AddHole2loopvalue 5921 1819 2 gosub AddHole2loopvalue 5921 1819 2 gosub AddHole2loopvalue 5921 1819 2 gosub AddHole2loopvalue 5921 1834 3 gosub AddHole2loopvalue 5921 1834 3 gosub AddHole2loopvalue 5921 1851 1 gosub AddHole2loopvalue 5921 1851 1 gosub AddHole2loopvalue 5921 1851 1 gosub AddHole2loopvalue 5915 1861 3 gosub AddHole2loopvalue 5915 1861 3 gosub AddHole2loopvalue 5908 1872 4 gosub AddHole2loopvalue 5908 1872 4 gosub AddHole2loopvalue 5908 1872 4 gosub AddHole2loopvalue 5904 1876 2 gosub AddHole2loopvalue 5904 1876 2 gosub AddHole2loopvalue 5900 1872 0 gosub AddHole2loopvalue 5900 1872 0 gosub AddHole2loopvalue 5897 1875 0 gosub AddHole2loopvalue 5897 1875 0 gosub AddHole2loopvalue 5897 1875 0return;--------------------------------------------------------------;--------------------------------------------------------------sub AddHole2LoopValue if %Hole2LoopValueMAx = N/A set %Hole2LoopValueMax 0 set %Hole2LoopValueMax %Hole2LoopValueMax + 1 set %Hole2LoopValuex . %Hole2LoopValueMax %1 set %Hole2LoopValuey . %Hole2LoopValueMax %2 set %Hole2LoopValuez . %Hole2LoopValueMax %3Return;--------------------------------------------------------------;--------------------------------------------------------------;--------------------------------------------------------------