was aber läuft mit dem ich Sand und Lehm abbaue
Probier es mal aus,
da ich nur noch in open EasyUo Scripte werde ich das auch nicht mehr fertig stellen.
1x Vorminen
Packpferd Tasche öffnen und mit alt + b bestätigen (setzt die Tasche des Packpferds als Ziel für das Sand)
Spoiler: Zeigen
- Code: Alles auswählen
; All-Mining-Script von Fourier für den UO-Shard Sigena www.uosigena.de
; Code Schnipsel aus dem Mining Script von Maxim Perdon Kopiert, Vielen Dank an der Stelle
; Das Auswählen des abzubauenden Materials ist für das umlagern in Packy von Bedeutung
; die Zahl für die gewüschte Farbe des Menüs Farben können mit dem Unten angehangenen Script
; ermittelt werden
;############ Variablen Setzen ###########################
;set %PackyBagId DVRPOIF
set %Kristall #false
set %packy BO_WN
set %wdist 5 ;Schrittweite
set %color1 39 ;Farbe für Schrittweite
set %color2 6 ;Farbe für sonstiges Menü
set #ltargetx #charposx
set #ltargety #charposy
set %k 0
set #sysmsgcol %color1
event SysMessage Packpferd auswaehlen!
event SysMessage ( Packpferd Tasche oeffnen )
event SysMessage mit ( alt + b ) bestätigen
set #sysmsgcol 0
repeat
onhotkey b alt
{
set %PackyBagId #contid
gosub menu
}
until #false
;################### Menü #################################
sub menu
set #sysmsgcol %color1
event Sysmessage Schrittweite auf %wdist gesetzt
set #sysmsgcol %color2
event SysMessage Ore (Alt + O)
event SysMessage Lehm (Alt + L)
event SysMessage Sand (Alt + S)
event SysMessage Schrittweite aendern (Alt + W)
set #sysmsgcol 0
set #lpc 1000
repeat
{
onhotkey o alt ;Ore setzen
{
set %Stein DWJ
event SysMessage Startet Ore Mining!
gosub feld
}
onhotkey l alt ;Lehm setzen
{
set %Stein TMK
event SysMessage Startet Lehm Mining!
gosub feld
}
onhotkey s alt ;Sand setzen
{
set %Stein POF
event SysMessage Startet Sand Mining!
gosub feld
}
onhotkey w alt ;Schritt setzen
{
gosub schritt
}
sleep 1
until #false
event SysMessage watt
;################### Schrittweite ##########################
sub schritt
set #sysmsgcol %color2
event SysMessage 3 Schritte (Alt + 3)
event SysMessage 4 Schritte (Alt + 4)
event SysMessage 5 Schritte (Alt + 5)
set #sysmsgcol 0
set #lpc 1000
repeat
onhotkey 3 alt ;3 Schritte
{
set %wdist 3
gosub menu
}
onhotkey 4 alt ;4 Schritte
{
set %wdist 4
gosub menu
}
onhotkey 5 alt ;5 Schritte
{
set %wdist 5
gosub menu
}
sleep 1
until #false
;################### 25 Tilt ###############################
sub feld
for %xx -2 2
{
for %yy -2 2
{
gosub mine %xx %yy
wait 1s
}
}
gosub walk ;Feld komplett abgebaut in walk wird um Schrittweite weiter gegangen
;###########################################################
gosub feld
sub mine
set #ltargetx #charposx + %1 ;setz x Komponente des Tilt (%xx aus 25 Tilt)
set #ltargety #charposy + %2 ;setz y Komponente des Tilt (%yy aus 25 Tilt)
While #true ;Endlos-Schleife
{
if #false { ;%kristall zum ein und ausstellen vom Kristallabbau
;##################### Automatisches Kristallabbauen #################################
;hinzugefügt von FlamingBiFi (IG:Dlavdo/Fourier) am 09.09.2011
finditem JUO G
event Sysmessage TEST1!
if #findstack > 0
{
event macro 1 0 .disarm
set #lobjectid #findid
finditem NPF C_ , #Backpackid
if #FINDSTACK > 0
{
event macro 17 0
event macro 1 0 KRISTALLE!
}
wait 5s
goto weiter
}
}
else
{
goto weiter
}
;####################################################################################
weiter:
event Sysmessage TEST2!
finditem TWF C_ , #Backpackid ;Sucht Schaufel (TWF = Typ Bezeichnung von Schaufeln)
set #lobjectid #findid ;Gefunde Schaufel-ID wird als Last-Object-ID gesetzt
event macro 17 0 ;Use Last Object
target 1s ;wartet auf ein Target (max 1 Sekunde)
event macro 22 0 ;Auf letzes Ziel zielen
wait 20 ;Wartet (20 = 1sek)
;############### Überprüft ob auf dem Tilt noch Sand abzubauen ist ######
set %k ( %k + 1 )
for %i 1 5
{
scanjournal %i
if Hier_kann_kein_sand_mehr_abgebaut_werden in #journal || Hier_kann_kein_clay_mehr_abgebaut_werden in #journal || Hier_gibt_es_kein_Erz_mehr_abzubauen in #journal || Hier_ist_nichts_zu_holen in #journal || %k > 2
{
;msg %k $
set %k 0
;msg %k $
event SysMessage Tilt Wechsel!
deletejournal
return
}
;########################################################################
;#### Ins Packpferd lagern (Kopiert aus dem Mining Script von Maxim Perdon ) ####
if #weight => #maxweight
{
set #nextcposx 765
set #nextcposy 555
set %2 0
set %1 0
tryagain:
finditem %packy G_1
if #findkind = -1
{
set %1 %1 + 1
if %1 > 2
{
event sysmessage da ist was mit deinem packy kaputt!
event sysmessage kuemmer dich mal um das problem
pause
}
event macro 1 0 All come
wait 2s
goto tryagain:
}
if #findkind > -1
{
set #lobjectid #findid
event macro 17 0
wait 1s
}
erzumlagern:
set %2 %2 + 1
if %2 > 6
{
event sysmessage Packpferd voll?
pause
set %2 0
}
finditem %Stein C_ , #backpackid
if #findkind = -1
{
return
}
if #findcol = 0
{
exevent drag #findid #findstack
msg $
exevent dropc %PackyBagId
wait 1s
goto erzumlagern
}
if #findcol <> 0
{
exevent drag #findid #findstack
msg $
exevent dropc %PackyBagId
wait 1s
goto erzumlagern
}
}
}
}
return
}
;#### Geht weiter in die Richtung in die der Char schaut (Kopiert aus dem Mining Script von Maxim Perdon ) ####
sub walk
if #chardir = 0
{
set %x #charposx
set %y #charposy
set %x2 %x
set %y2 %y - %wdist
move %x2 %y2 0 10s
wait 3s
return
}
if #chardir = 1
{
set %x #charposx
set %y #charposy
set %x2 %x + %wdist
set %y2 %y - %wdist
move %x2 %y2 0 10s
wait 3s
return
}
if #chardir = 2
{
set %x #charposx
set %y #charposy
set %x2 %x + %wdist
set %y2 %y
move %x2 %y2 0 10s
wait 3s
return
}
if #chardir = 3
{
set %x #charposx
set %y #charposy
set %x2 %x + %wdist
set %y2 %y + %wdist
move %x2 %y2 0 10s
wait 3s
return
}
if #chardir = 4
{
set %x #charposx
set %y #charposy
set %x2 %x
set %y2 %y + %wdist
move %x2 %y2 0 10s
wait 3s
return
}
if #chardir = 5
{
set %x #charposx
set %y #charposy
set %x2 %x - %wdist
set %y2 %y + %wdist
move %x2 %y2 0 10s
wait 3s
return
}
if #chardir = 6
{
set %x #charposx
set %y #charposy
set %x2 %x - %wdist
set %y2 %y
move %x2 %y2 0 10s
wait 3s
return
}
if #chardir = 7
{
set %x #charposx
set %y #charposy
set %x2 %x - %wdist
set %y2 %y - %wdist
move %x2 %y2 0 10s
wait 3s
return
}
;##############Anhang######################
;für die Farbermittlung
;in Neue Datei laden und laufen lasse, wenn die gewünscht Farbe gefunden wurde
;das Script einfach Stoppen.
;Die zugehörige Zahl unter "Variablen Setzen" ändern
;set %color1 39 ;Farbe für Schrittweite <<< Bsp 39 = Rot
;set %color2 6 ;Farbe für sonstiges Menü <<< Bsp 6 =Blau
for %i 1 1000
{
set #sysmsgcol %i
event Sysmessage %i
wait 1
}