Lootteilscript

[epy]

So ich habe grade ein Lootscript für bis zu 15 Questteilnehmer erstellt.
Es ist für Easy UO in der neuesten Version.
Es teilt jedes Item in der Lootkiste auf verschiedene Bags auf. Der Stapel muss zum teilen natürlich mindestens so groß wie die Teilnehmeranzahl sein.
Das einzige was man einstellen muss is die Teilnehmeranzahl in einer der oberen Zeilen das sieht man aber eh. Gibt man als Teilnehmeranzahl 1 ein wird der Bag einfach geleert und in einen anderen geschlichtet.

Zur Zeit konnte ich das Script allerdings nur im kleinen testen. Kann also durchaus sein dass das Script noch einige Fehler aufweist und wenn das so ist wäre es cool wenn man mir bescheid sagt

Code: Alles auswählen

;Koreis Lootteiler für bis zu 15 Teilnehmer
; Überzählige oder nicht teilbare Items hinterlässt das Script in der Lootkiste
; Es kann Probleme beim Teilen geben wenn von einer Itemart mehrere Stapel vorhanden sind.
initevents
; Hier die Anzahl der Questteilnehmer einführen
set %Teilnehmer 2
; Ab hier muss man nix mehr ändern
for %Zaehler 1 %Teilnehmer
{
event sysmessage Wähle den Bag des %Zaehler Teilnehmers.
set #targcurs 1
targloop1:
if #targcurs = 1
{
goto targloop1
}

if %Zaehler = 1
{
set %Playerbag1 #ltargetid
goto Bagende
}

if %Zaehler = 2
{
set %Playerbag2 #ltargetid
goto Bagende
}
if %Zaehler = 3
{
set %Playerbag3 #ltargetid
goto Bagende
}
if %Zaehler = 4
{
set %Playerbag4 #ltargetid
goto Bagende
}

if %Zaehler = 5
{
set %Playerbag5 #ltargetid
goto Bagende
}

if %Zaehler = 6
{
set %Playerbag6 #ltargetid
goto Bagende
}

if %Zaehler = 7
{
set %Playerbag7 #ltargetid
goto Bagende
}

if %Zaehler = 8
{
set %Playerbag8 #ltargetid
goto Bagende
}

if %Zaehler = 9
{
set %Playerbag9 #ltargetid
goto Bagende
}

if %Zaehler = 10
{
set %Playerbag10 #ltargetid
goto Bagende
}

if %Zaehler = 11
{
set %Playerbag11 #ltargetid
goto Bagende
}

if %Zaehler = 12
{
set %Playerbag12 #ltargetid
goto Bagende
}

if %Zaehler = 13
{
set %Playerbag13 #ltargetid
goto Bagende
}

if %Zaehler = 14
{
set %Playerbag14 #ltargetid
goto Bagende
}

if %Zaehler = 15
{
set %Playerbag15 #ltargetid
goto Bagende
}

Bagende:
}

;;;;;;

event sysmessage Wähle die Kiste die den Loot enthält.
set #targcurs 1
targloop2:
if #targcurs = 1
{
goto targloop2
}
set %Lootkiste #ltargetid
set #lobjectid #ltargetid
event macro 17 0


;;;;;
AufteilerAnfang:
finditem * C_ , %Lootkiste
if #findstack < %Teilnehmer
{
ignoreitem #findid
goto AufteilerAnfang
}
set %Teilungsitem #findtype
set %Teilungszahl #findstack / %Teilnehmer

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag1

if %Teilnehmer = 1
{
goto AufteilerAnfang
}


finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag2

if %Teilnehmer = 2
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag3

if %Teilnehmer = 3
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag4

if %Teilnehmer = 4
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag5

if %Teilnehmer = 5
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag6

if %Teilnehmer = 6
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag7

if %Teilnehmer = 7
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag8

if %Teilnehmer = 8
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag9

if %Teilnehmer = 9
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag10

if %Teilnehmer = 10
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag11

if %Teilnehmer = 11
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag12

if %Teilnehmer = 12
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag13

if %Teilnehmer = 13
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag14

if %Teilnehmer = 14
{
goto AufteilerAnfang
}

finditem %Teilungsitem C_ , %Lootkiste
exevent Drag #findid %Teilungszahl
wait 5
exevent Dropc %Playerbag15

if %Teilnehmer = 15
{
goto AufteilerAnfang
}

[Mulong]

Das ist doch schon mal eine feine Sache!
Kann man das Script auch auf externe Kiste (in den meisten Fällen kommt ja alles in eine "Teilekiste") anwenden oder müssen die Sachen im Mainback sein?

[epy]

Das ist doch schon mal eine feine Sache!
Kann man das Script auch auf externe Kiste (in den meisten Fällen kommt ja alles in eine "Teilekiste") anwenden oder müssen die Sachen im Mainback sein?

Jo klar. Also die Lootkiste wo alle ihr Zeug reingetan haben steht am Boden und auch die bags der Spieler können am Boden stehen aber auch im Rucksack von dem der das Script anwendet sein.

edit: Nachdem man alle Bags der Teilnehmer angeklickt hat wird man eh darauf hingewiesen die lootkiste anzuklicken.

edit2: Achja, das Script sagt einem net wenn es fertig ist. Da wusst ich net wie ich das am besten einbau und fands auch net so tragisch. Man muss es einfach beenden wenn es aufhört dinge zu nehmen. Das sieht man eh ganz gut

[Mulong]

*applaud*
Werde es mir mal für alle Fälle abspeichern!

[epy]

Wie in meiner Signatur ersichtlich hab ichs mir mit meinen Sripten im Wiki gemütlich gemacht. Zur Zeit sind nur 2 Scripte vorhanden aber ich werde versuchen so schnell wie möglich neue hinzuzufügen. Aber das is leider gar nicht so einfach weil man die noch extra für den Wiki aufarbeiten muss

[Sateless]

warum schreibst du die nicht einfach zu den anderen skripten dazu?

[epy]

warum schreibst du die nicht einfach zu den anderen skripten dazu?

Keine Ahnung.
Ich hatte bis gestern Abend gar netmal gewusst wie man Beiträgeim Wiki macht deswegen wollt ich erst an meiner Userseite rumpfuschen.
Die Scripte ansich ohne die Erklärung hätten sowieso ne neue Seite bekommen wegen der Übersicht.

Ich kann sie immer noch im Nachhinein in der Scriptkategorie verlinken. Ich werd aber trotzdem weiterhin auch das ganze über meine Namensseite machen weil ich die Scripte das besser erklären kann.

[ChaosOrb]

ein Script nur für Mediation wär Klasse

[epy]

ein Script nur für Mediation wär Klasse

MAch ich dir dann. Aber jetz ruft erstmal die Schule ^^

[ChaosOrb]

danke für das mediations script das dumme ist nur mir ist aufgefallen das ich
erst 40% evaluating intelligence hab und nach suchen in der wiki und im forum habe
ich auch ein script gefunden was aber leider nur für easy uo gilt bzw hab es im icq bekommen...daher frag ich hier noch mal ein evaluating intelligence script für sikection wär echt klasse!
hab schon selbst ein wenig rum gestestet hab mein script leider aber nicht zum laufen bekommen *g*

[ChaosOrb]

hat sich gerade erledigt benutze nun doch easyuo trozdem ist wär es für neuanfänger sicherlich einfacher wenn es das script für sijection gibt

[Lorgan]

Hier ist eins für #jection: Einfach starten und passendes Ziel auswählen. Mit "beenden" beendet man dieses Script.

Code: Alles auswählen

SUB EvalInt()
 UO.DeleteJournal()
 UO.DeleteJournal()
 UO.DeleteJournal()

 UO.print("Ziel auswaehlen!")
 UO.AddObject('Ziel','0x66666666') 
 UO.AddObject('Ziel')      
 
 REPEAT
   wait(500)
 UNTIL (UO.GetSerial('Ziel')<>'0x66666666')

 REPEAT
   wait(100)
   UO.waittargetobject('Ziel') 
   UO.useskill ("Evaluating Intelligence")
   wait (11000)
 UNTIL (uo.injournal("beenden")<>0)
 UO.PRINT("Script beendet")

END SUB


#Allgemeine Funktionen
SUB addObjectByName(name)
  UO.AddObject(name,'0x66666666') 
  UO.AddObject(name)   
  UO.Print("adding type" + name)
  REPEAT
    wait(500)
  UNTIL (UO.GetSerial(name)<>'0x66666666')
END SUB

Viel Spaß damit