UO Sigena

; Konfiguration zum Fischen:
; Variable fish auf ja setzten
; Variable xrichtung zum fischen in Ost (1) West (-1) Richtung passend einstellen
; Variable yrichtung zum fischen in Süd (1) Nord (-1) Richtung passend einstellen
; sonst alles auf 0
; funktioniert nur an geraden Teilstücken 100%
; *********************************************************************
; Konfiguration zum Minen:
; Variable Anzahl ist auf die Schaufelanzahl im Backpack einzustellen
; Variable Schritte ist auf die Anzahl der Durchläufe des Scripts einzustellen
; Variable xrichtung gibt hier die Laufrichtung an
; Variable yrichtung genauso
; Nach jedem Durchlauf wird in die entspechende Richtung weitergegangen es wird nicht gefroggt
; *********************************************************************
; Das Script ist auf eigene Gefahr zu nutzen. Fehler können auftreten.
; Für Schäden oder Verluste kann der Autor nicht zur Rechenschaft gezogen werden.
; Dieses Script wurde getestet und hat keine Mängel gezeigt.
; *********************************************************************

initevents
event SysMessage Mining / Fisch - Script startet
set %fish ja
set %anzahl 1
set %schritte 12
set %xrichtung 1 ;-1
set %yrichtung 0
set %aktx #charposx 3306
set %akty #charposy 1035
set %time 0
start:
if ja in %fish
gosub fish
set %more true
back:
set %feld 1
if true in %more
{
set %felder 0
for %x -2 2
{
for %y -2 2
{
set #ltargetx %aktx + %x
set #ltargety %akty + %y
gosub minen
set %feld %feld + 1
}
}
goto back
}
;msg all come$
;event SysMessage Ins Packpferd umladen
set %schritte %schritte - 1
if %schritte > 0
{
;pause
if %xrichtung > 0
{
set %aktx %aktx + 5
}
if %xrichtung < 0
{
set %aktx %aktx - 5
}
if %yrichtung > 0
{
set %akty %akty + 5
}
if %yrichtung < 0
{
set %akty %akty - 5
}
move %aktx %akty 0 100s
goto start
}
deleteJournal
event SysMessage Script beendet
halt

sub minen
event SysMessage Feld %feld
nextry:
set %time %time + 1
if %time = 200
gosub feed
if #weight > 6000
gosub load
FindItem TWF 1
set #LObjectID #FindID
set #LTargetKind 2
deleteJournal
event macro 17 0
target 5s
event macro 22 0
wait 30
for %scan 2 1
{
scanjournal %scan
if your_tool_broke in #journal
gosub broke
if there_is_no_more in #journal
gosub nomore
if fail_to_find in #journal
gosub fail
deleteJournal
wait 30
}
wait 15
return

sub feed
msg all come$
event SysMessage Packtier fuettern #Time
set %time 0
pause
return

sub load
msg all come$
event SysMessage Packtier beladen
pause

sub broke
set %anzahl %anzahl - 1
event SysMessage Noch %anzahl Schaufeln
wait 30
return

sub nomore
set %felder %felder + 1
if %felder > 8
{
set %more false
}
return

sub fail
set %felder %felder + 1
if %felder > 8
{
set %more false
}
return

sub fish
startfisch:
set %feld 1
if %xrichtung = 0
{
set %xs -3
set %xe 3
if %yrichtung > 0
{
set %ys 2
set %ye 5
}
if %yrichtung < 0
{
set %ys -2
set %ye -5
}
}
if %yrichtung = 0
{
if %xrichtung > 0
{
set %xs 2
set %xe 5
}
if %yrichtung < 0
{
set %xs -2
set %xe -5
}
set %ys -3
set %ye 3
}
for %x %xs %xe
{
for %y %ys %ye
{
set #ltargetx %aktx + %x
set #ltargety %akty + %y
gosub fisch
set %feld %feld + 1
}
}
goto startfisch

sub fisch
event SysMessage Feld %feld
FindItem XHF 1
set #LObjectID #FindID
set #LTargetKind 2
event macro 17 0
target 5s
event macro 22 0
wait 150
return