Construction Set Der Scriptthread

Houdini · 4. Mai 2013

Danke^^
Die Dwemer Münzen waren nur als Beispiel

Nemesis1990 · 16. Juni 2013

hallo,
ich brauche folgendes script

ein schalter, lässt ein objekt um eine bestimmte länge, meinetwegen 100 einheiten nach oben fahren.
ein anderer schalter lässt das gleiche objekt um 100 einheiten nach unten fahren#

vielen dank

Killfetzer · 16. Juni 2013

Nemesis1990 schrieb:
hallo,
ich brauche folgendes script

ein schalter, lässt ein objekt um eine bestimmte länge, meinetwegen 100 einheiten nach oben fahren.
ein anderer schalter lässt das gleiche objekt um 100 einheiten nach unten fahren#

vielen dank

Ich verweise dich mal auf unseren Scriptkurs. Da gab es nämlich genau so eine Aufgabe:

http://forum.scharesoft.de/showthread.php?38475-Morrowind-Skriptkurs-Lektion-5&p=846136#post846136

Nemesis1990 · 16. Juni 2013

ok was muss ich jetzt eingeben damit der aufzug bei 400 ganz oben stehen bleibt und bei -700 ganz unten... wenn ich es so schreibe und den schalter einmal drücke fährt er einfach nach unten und hört nicht auf:

begin tera_aufzug_script

short state
float timer

if ( MenuMode == 1 )
return
endif

if ( state == 0 ) ;Aufzug wartet auf Aktivierung

if ( OnActivate == 1 )
set state to 1
endif

elseif ( state == 1 ) ;Aufzug fährt hoch

if ( GetPos, Z < 300 )
"tera_aufzug"->MoveWorld, Z, 50
else
set state to 2
endif

elseif ( state == 2 ) ;Aufzug hält oben und wartet auf erneute Aktivierung

if ( OnActivate == 1 )
set state to 3
endif

elseif ( state == 3 ) ;Aufzug fährt runter

if ( GetPos, Z > 0 )
"tera_aufzug"->MoveWorld, Z, -50
else
set state to 0
endif

endif

end

Killfetzer · 16. Juni 2013

Dein Aufzug befindet sich wahrscheinlich außerhalb der Grenzen dieses Beispielscriptes. Du setzt bei if ( GetPos, Z < 300 ) einfach deine Obergrenze ein und bei if ( GetPos, Z > 0 ) deine Untergrenze. Wenn sich der Aufzug beim ersten Aktivieren irgendwo in diesem Bereich befindet, sollte das Script funktionieren.

Nemesis1990 · 16. Juni 2013

jetz hab ichs nochmal geändert und n kleineren activator verwendet. es fährt jetzt zwar anfangs nach oben, aber hört wieder nicht auf zu fahren

begin tera_aufzug_script

short state
float timer

if ( MenuMode == 1 )
return
endif

if ( state == 0 ) ;Aufzug wartet auf Aktivierung

if ( OnActivate == 1 )
set state to 1
endif

elseif ( state == 1 ) ;Aufzug fährt hoch

if ( GetPos, Z < 1000 )
"tera_aufzug"->MoveWorld, Z, 50
else
set state to 2
endif

elseif ( state == 2 ) ;Aufzug hält oben und wartet auf erneute Aktivierung

if ( OnActivate == 1 )
set state to 3
endif

elseif ( state == 3 ) ;Aufzug fährt runter

if ( GetPos, Z > 400 )
"tera_aufzug"->MoveWorld, Z, -50
else
set state to 0
endif

endif

end

£exa · 16. Juni 2013

Ähm... nun ja, also wenn ich das Script richtig interpretiere, sollte es funktionieren. Aber dieses Script liegt auf dem Aufzugsaktivator, oder? Dann kann es nicht gehen, weil du mit der "GetPos"-Funktion nicht die Position des Aufzugs abfragst, sondern die des Aktivators und die ändert sich nicht. Daher wird der Aufzug nach dem Anschalten auch unendlich hochfahren. Setze also vor die "GetPos"-Anweisung jeweils noch dies:

"tera_aufzug"->

Des weiteren würde ich empfehlen, diejeweilige Endposition des Aufzugs mit "SetPos" nach Abschluß der Fahrt fest zu fixieren, sonst könnte die Endhöhe mit jeder Bewegung ein wenig variieren.

Nemesis1990 · 16. Juni 2013

das script liegt auf dem aufzugknopf ja. soll das auf den aufzug?

falls ichs auf dem schalter lasse, muss es dann so aussehen?

begin tera_aufzug_script

short state
float timer

if ( MenuMode == 1 )
return
endif

if ( state == 0 ) ;Aufzug wartet auf Aktivierung

if ( OnActivate == 1 )
set state to 1
endif

elseif ( state == 1 ) ;Aufzug fährt hoch

if ("tera_aufzug"-> GetPos, Z < 1000 )
"tera_aufzug"->MoveWorld, Z, 50
else
set state to 2
endif

elseif ( state == 2 ) ;Aufzug hält oben und wartet auf erneute Aktivierung

if ( OnActivate == 1 )
set state to 3
endif

elseif ( state == 3 ) ;Aufzug fährt runter

if ("tera_aufzug"-> GetPos, Z > 400 )
"tera_aufzug"->MoveWorld, Z, -50
else
set state to 0
endif

endif

end

und soll ich das getpos durch setpos ersetzen? ich kenn mich leider null aus mit dem scripten...

aber danke schonmal

£exa · 17. Juni 2013

So wie das Script jetzt ist, sollte es eigentlich funktionieren - wenn es auf dem Schalter liegt. Mein Hinweis mit dem SetPos bezog sich nicht auf das GetPos. Vielmehr solltest Du an dieser Stelle

Code:

if ("tera_aufzug"->GetPos, Z < 1000 )
  "tera_aufzug"->MoveWorld, Z, 50
else
[COLOR="#0000FF"] "tera_aufzug"->SetPos Z 1000 [/COLOR]
  set state to 2
endif

ein SetPos als Abschluß der Bewegung machen, damit die Plattform nach dem Hochfahren immer fest an der gleichen oberen Position steht. Sonst kann es aufgrund der unpräzise bemessenen Bewegung passieren, daß die Plattform nach der Bewegung bei 1001, 1002 oder sonstwo hängt, was je nach Konstruktion des Liftes möglicherweise unschön aussieht, weil sichtbare Spalten entstehen. Bei der unteren Halteposition gilt gleiches, da wäre es dann der untere Grenzwert, also 400, den man fest setzen sollte.

Houdini · 17. Juni 2013

Hallo,
Nochmals Danke für den einen Script.
Aber könnt ihr vielleicht eine Messagebox rein machen, es wäre wohl besser, wenn man vorher gefragt hat ob man den Tausch denn machen will.^^

Aber noch eine andere Frage:
Könnt ihr mir ein Script machen, der einen Teleportieren kann?
Ich dachte mir, dass man den auf ein Ring legt, denn dann mit irgend ein willkürlichen Zauber belegt und wenn man denn Zauber anwendet das der Script dann wirkt.
Also ähnlich wie der Rückkehr zauber.

£exa · 17. Juni 2013

Houdini schrieb:
Könnt ihr mir ein Script machen, der einen Teleportieren kann?

Was für ein Teleport soll es sein? Soll der Ring z.B. einen der Standard-Zauber wie "Rückkehr", "Göttl. Eingriff", etc. auf Dich wirken (ohne dass man es ihm ansieht), wenn man ihn benutzt oder aber soll statt dessen beim Anlegen ein Teleport an einen vordefinierten Ort erfolgen, z.B. ein Punkt in einer Zelle einer Hausmod?

Das erste ist zwar eingeschränkt möglich aber recht tricky - das zweite ist deutlich einfacher aber de facto ein Cheat, weil man damit vom Spiel vorgesehene Teleport-Sperren umgehen kann. Gut, genau betrachtet, ist auch das erste irgendwo ein Cheat, aber es würde sich an die Teleportsperre halten.

Houdini · 17. Juni 2013

Also der Ort an den der Ring ein bringen soll, sollte vordefiniert sein. Der Ring ist auch für ein Haus-Mod gedacht

Der Ring soll nur durch ein Tausch zu erhalten sein.
Ich wollte dazu den Script nutzen mit denn Dwemer Münzen beispiel:

begin my_script_1

if ( OnActivate == 1 )
if ( Player->GetItemCount, "misc_dwe_coin" >= 50 )
Player->RemoveItem, "misc_dwe_coin", 50
Player->AddItem, "my_item", xy
endif
endif

end

Der Script geht ganz gut. Ich lege denn auf ein Activator der, denn entsprechenden Gegenstand ähnlich sieht.
Aber dort müsste noch eine Messagebox rein, die einem fragt ob man wirklich tauschen möchte.

MfG

Killfetzer · 17. Juni 2013

£exa schrieb:
Gut, genau betrachtet, ist auch das erste irgendwo ein Cheat, aber es würde sich an die Teleportsperre halten.

Das könnte man aber mit entsprechenden Tricks abfangen.

Zum Teleportscript: Das gibt es hier im Thema bestimmt schon gefühlte 100mal. Suche einfach nach mal nach Teleport.

Houdini · 17. Juni 2013

Killfetzer schrieb:
Zum Teleportscript: Das gibt es hier im Thema bestimmt schon gefühlte 100mal. Suche einfach nach mal nach Teleport.

Mach ich am besten auch

Könntest du vielleicht den ein Tausch Script eine Message box einfügen?
Weil das wäre mir sehr wichtig.

Killfetzer · 17. Juni 2013

Code:

begin my_script_1

short state
short button

if ( state == 0 )
  if ( OnActivate == 1 )
    set state to 1
    MessageBox, "Austauschen?", "Ja", "Nein"
  endif
elseif ( state == 1 )
  set button to GetButtonPressed

  if ( button == 0 )
    set state to 0
    if ( Player->GetItemCount, "misc_dwe_coin" >= 50 )
      Player->RemoveItem, "misc_dwe_coin", 50
      Player->AddItem, "my_item", xy
    endif
  elseif ( button == 1 )
    set state to 0
  endif
endif

end

Das sollte funktionieren, den Text kannst du natürlich ändern.

Darkrai1991 · 7. August 2013

hey leute ich suche die Rogform eines Sortierscripts für die Alchemie zutaten. Rohform= ich muss nur die namen der gefäße und zutaten abändern xd

wäre echt cool wenn mir da wer helfen könnte xd

Lyali · 8. August 2013

@Darkrai1991: Erstmal willkommen im Forum. Nun zu deiner Anfrage:

Es gibt ein Skript von Aragon, welches als Ressource verwendet werden kann.

Ich habe das in meiner Hausmod auf zwei Schalter gelegt. Das erste Skript ist für die Morrowind-Zutaten, das zweite für Bloodmoon und Tribunal.
Skript 1:

Begin Sorterscript A

short itemCount
short totalCount
short loopControl

if ( MenuMode == 1 )
return
endif

set loopControl to 0

if ( OnActivate = 1 )

set loopControl to 1
set totalCount to 0

endif

if (loopControl == 1)
set itemCount to ( player->GetItemCount, "ingred_alit_hide_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_alit_hide_01", 1
"Container-ID"->AddItem, "ingred_alit_hide_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_bc_ampoule_pod" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_bc_ampoule_pod", 1
"Container-ID"->AddItem, "ingred_bc_ampoule_pod", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_ash_salts_01" )
; MessageBox "Player has %g pieces of Ash Salts", itemCount
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_ash_salts_01", 1
"Container-ID"->AddItem, "ingred_ash_salts_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_ash_yam_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_ash_yam_01", 1
"Container-ID"->AddItem, "ingred_ash_yam_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_bittergreen_petals_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_bittergreen_petals_01", 1
"Container-ID"->AddItem, "ingred_bittergreen_petals_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_black_anther_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_black_anther_01", 1
"Container-ID"->AddItem, "ingred_black_anther_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_black_lichen_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_black_lichen_01", 1
"Container-ID"->AddItem, "ingred_black_lichen_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_bloat_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_bloat_01", 1
"Container-ID"->AddItem, "ingred_bloat_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_bonemeal_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_bonemeal_01", 1
"Container-ID"->AddItem, "ingred_bonemeal_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_bread_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_bread_01", 1
"Container-ID"->AddItem, "ingred_bread_01", 1
endwhile
endif

set loopControl to 2

endif

if ( loopControl == 2)

set itemCount to ( player->GetItemCount, "ingred_bc_bungler's_bane" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_bc_bungler's_bane", 1
"Container-ID"->AddItem, "ingred_bc_bungler's_bane", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_chokeweed_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_chokeweed_01", 1
"Container-ID"->AddItem, "ingred_chokeweed_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_bc_coda_flower" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_bc_coda_flower", 1
"Container-ID"->AddItem, "ingred_bc_coda_flower", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_comberry_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_comberry_01", 1
"Container-ID"->AddItem, "ingred_comberry_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_coprinus_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_coprinus_01", 1
"Container-ID"->AddItem, "ingred_coprinus_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_corkbulb_root_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_corkbulb_root_01", 1
"Container-ID"->AddItem, "ingred_corkbulb_root_01", 1
endwhile
endif

; It's all the same Corprus Meat, really.
;
set itemCount to ( player->GetItemCount, "ingred_6th_corprusmeat_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_6th_corprusmeat_01", 1
"Container-ID"->AddItem, "ingred_6th_corprusmeat_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_6th_corprusmeat_02" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_6th_corprusmeat_02", 1
"Container-ID"->AddItem, "ingred_6th_corprusmeat_02", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_6th_corprusmeat_03" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_6th_corprusmeat_03", 1
"Container-ID"->AddItem, "ingred_6th_corprusmeat_03", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_6th_corprusmeat_04" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_6th_corprusmeat_04", 1
"Container-ID"->AddItem, "ingred_6th_corprusmeat_04", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_6th_corprusmeat_05" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_6th_corprusmeat_05", 1
"Container-ID"->AddItem, "ingred_6th_corprusmeat_05", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_6th_corprusmeat_06" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_6th_corprusmeat_06", 1
"Container-ID"->AddItem, "ingred_6th_corprusmeat_06", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_6th_corprusmeat_07" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_6th_corprusmeat_07", 1
"Container-ID"->AddItem, "ingred_6th_corprusmeat_07", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_corprus_weepings_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_corprus_weepings_01", 1
"Container-ID"->AddItem, "ingred_corprus_weepings_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_crab_meat_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_crab_meat_01", 1
"Container-ID"->AddItem, "ingred_crab_meat_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_daedras_heart_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_daedras_heart_01", 1
"Container-ID"->AddItem, "ingred_daedras_heart_01", 1
endwhile
endif

set loopControl to 3

endif

if (loopControl == 3)

set itemCount to ( player->GetItemCount, "ingred_daedra_skin_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_daedra_skin_01", 1
"Container-ID"->AddItem, "ingred_daedra_skin_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_diamond_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_diamond_01", 1
"Container-ID"->AddItem, "ingred_diamond_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_dreugh_wax_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_dreugh_wax_01", 1
"Container-ID"->AddItem, "ingred_dreugh_wax_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_raw_ebony_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_raw_ebony_01", 1
"Container-ID"->AddItem, "ingred_raw_ebony_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_ectoplasm_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_ectoplasm_01", 1
"Container-ID"->AddItem, "ingred_ectoplasm_01", 1
endwhile
endif

; Unless noted, all good above here.

set itemCount to ( player->GetItemCount, "food_kwama_egg_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "food_kwama_egg_01", 1
"Container-ID"->AddItem, "food_kwama_egg_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "food_kwama_egg_02" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "food_kwama_egg_02", 1
"Container-ID"->AddItem, "food_kwama_egg_02", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_emerald_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_emerald_01", 1
"Container-ID"->AddItem, "ingred_emerald_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_fire_petal_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_fire_petal_01", 1
"Container-ID"->AddItem, "ingred_fire_petal_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_fire_salts_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_fire_salts_01", 1
"Container-ID"->AddItem, "ingred_fire_salts_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_frost_salts_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_frost_salts_01", 1
"Container-ID"->AddItem, "ingred_frost_salts_01", 1
endwhile
endif

set loopControl to 4

endif

if (loopControl == 4)

; Ditto.
set itemCount to ( player->GetItemCount, "ingred_ghoul_heart_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_ghoul_heart_01", 1
"Container-ID"->AddItem, "ingred_ghoul_heart_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_raw_glass_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_raw_glass_01", 1
"Container-ID"->AddItem, "ingred_raw_glass_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_gold_kanet_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_gold_kanet_01", 1
"Container-ID"->AddItem, "ingred_gold_kanet_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_gravedust_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_gravedust_01", 1
"Container-ID"->AddItem, "ingred_gravedust_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_green_lichen_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_green_lichen_01", 1
"Container-ID"->AddItem, "ingred_green_lichen_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_guar_hide_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_guar_hide_01", 1
"Container-ID"->AddItem, "ingred_guar_hide_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_hackle-lo_leaf_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_hackle-lo_leaf_01", 1
"Container-ID"->AddItem, "ingred_hackle-lo_leaf_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_heather_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_heather_01", 1
"Container-ID"->AddItem, "ingred_heather_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_hound_meat_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_hound_meat_01", 1
"Container-ID"->AddItem, "ingred_hound_meat_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_bc_hypha_facia" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_bc_hypha_facia", 1
"Container-ID"->AddItem, "ingred_bc_hypha_facia", 1
endwhile
endif

set loopControl to 5

endif

if (loopControl == 5)

set itemCount to ( player->GetItemCount, "ingred_kagouti_hide_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_kagouti_hide_01", 1
"Container-ID"->AddItem, "ingred_kagouti_hide_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_kresh_fiber_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_kresh_fiber_01", 1
"Container-ID"->AddItem, "ingred_kresh_fiber_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_kwama_cuttle_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_kwama_cuttle_01", 1
"Container-ID"->AddItem, "ingred_kwama_cuttle_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_marshmerrow_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_marshmerrow_01", 1
"Container-ID"->AddItem, "ingred_marshmerrow_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_moon_sugar_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_moon_sugar_01", 1
"Container-ID"->AddItem, "ingred_moon_sugar_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_muck_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_muck_01", 1
"Container-ID"->AddItem, "ingred_muck_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_netch_leather_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_netch_leather_01", 1
"Container-ID"->AddItem, "ingred_netch_leather_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_pearl_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_pearl_01", 1
"Container-ID"->AddItem, "ingred_pearl_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_racer_plumes_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_racer_plumes_01", 1
"Container-ID"->AddItem, "ingred_racer_plumes_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_rat_meat_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_rat_meat_01", 1
"Container-ID"->AddItem, "ingred_rat_meat_01", 1
endwhile
endif

set loopControl to 6

endif

if (loopControl == 6)

set itemCount to ( player->GetItemCount, "ingred_red_lichen_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_red_lichen_01", 1
"Container-ID"->AddItem, "ingred_red_lichen_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_resin_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_resin_01", 1
"Container-ID"->AddItem, "ingred_resin_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_roobrush_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_roobrush_01", 1
"Container-ID"->AddItem, "ingred_roobrush_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_ruby_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_ruby_01", 1
"Container-ID"->AddItem, "ingred_ruby_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_russula_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_russula_01", 1
"Container-ID"->AddItem, "ingred_russula_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_saltrice_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_saltrice_01", 1
"Container-ID"->AddItem, "ingred_saltrice_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_scales_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_scales_01", 1
"Container-ID"->AddItem, "ingred_scales_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_scamp_skin_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_scamp_skin_01", 1
"Container-ID"->AddItem, "ingred_scamp_skin_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_scrap_metal_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_scrap_metal_01", 1
"Container-ID"->AddItem, "ingred_scrap_metal_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_scathecraw_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_scathecraw_01", 1
"Container-ID"->AddItem, "ingred_scathecraw_01", 1
endwhile
endif

set loopControl to 7

endif

if (loopControl == 7)

set itemCount to ( player->GetItemCount, "ingred_scrib_jerky_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_scrib_jerky_01", 1
"Container-ID"->AddItem, "ingred_scrib_jerky_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_scrib_jelly_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_scrib_jelly_01", 1
"Container-ID"->AddItem, "ingred_scrib_jelly_01", 1
endwhile
endif

; Meteor Slime is just Scrib Jelly with another name. The sooner you realise that, the
; happier you'll be.
set itemCount to ( player->GetItemCount, "ingred_scrib_jelly_02" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_scrib_jelly_02", 1
"Container-ID"->AddItem, "ingred_scrib_jelly_02", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_scuttle_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_scuttle_01", 1
"Container-ID"->AddItem, "ingred_scuttle_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_shalk_resin_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_shalk_resin_01", 1
"Container-ID"->AddItem, "ingred_shalk_resin_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_sload_soap_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_sload_soap_01", 1
"Container-ID"->AddItem, "ingred_sload_soap_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_bc_spore_pod" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_bc_spore_pod", 1
"Container-ID"->AddItem, "ingred_bc_spore_pod", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_stoneflower_petals_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_stoneflower_petals_01", 1
"Container-ID"->AddItem, "ingred_stoneflower_petals_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_trama_root_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_trama_root_01", 1
"Container-ID"->AddItem, "ingred_trama_root_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_vampire_dust_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_vampire_dust_01", 1
"Container-ID"->AddItem, "ingred_vampire_dust_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_void_salts_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_void_salts_01", 1
"Container-ID"->AddItem, "ingred_void_salts_01", 1
endwhile
endif

set loopControl to 8

endif

if ( loopControl == 8)

set itemCount to ( player->GetItemCount, "ingred_wickwheat_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_wickwheat_01", 1
"Container-ID"->AddItem, "ingred_wickwheat_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_willow_anther_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_willow_anther_01", 1
"Container-ID"->AddItem, "ingred_willow_anther_01", 1
endwhile
endif

set loopControl to 9

endif

; The following loop is all cursed items. It replaces them with uncursed items of the same
; type. This isn't a cheat as by the time the item gets to the sorter, the curse has already
; been activated (Dremora Lord summoned when the item is picked up).

if ( loopControl == 9 )

set itemCount to ( player->GetItemCount, "ingred_cursed_daedras_heart_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_cursed_daedras_heart_01", 1
"Container-ID"->AddItem, "ingred_daedras_heart_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_Dae_cursed_diamond_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_Dae_cursed_diamond_01", 1
"Container-ID"->AddItem, "ingred_diamond_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_Dae_cursed_emerald_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_Dae_cursed_emerald_01", 1
"Container-ID"->AddItem, "ingred_emerald_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_Dae_cursed_pearl_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_Dae_cursed_pearl_01", 1
"Container-ID"->AddItem, "ingred_diamond_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_Dae_cursed_raw_ebony_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_Dae_cursed_raw_ebony_01", 1
"Container-ID"->AddItem, "ingred_raw_ebony_01", 1
endwhile
endif

set itemCount to ( player->GetItemCount, "ingred_Dae_cursed_ruby_01" )
set totalCount to totalCount + itemCount
if ( itemCount > 0 )
while ( itemCount > 0 )
set itemCount to ( itemCount - 1 )
player->RemoveItem, "ingred_Dae_cursed_ruby_01", 1
"Container-ID"->AddItem, "ingred_ruby_01", 1
endwhile
endif

; The end is nigh!
set loopControl to 100

endif

if ( loopControl == 100)

if ( totalCount > 0 )
PlaySound "Item Misc Up"
MessageBox "%g Zutaten entfernt.", totalCount
else
PlaySound "Menu Click"
MessageBox "Ihr habt keine Zutaten bei Euch."
endif

endif

End

Hier musst du "Container-ID" nur durch die ID deines Containers ersetzen.

Skript 2:

Begin Sorterscript B

short itemCountB
short totalCountB
short loopControlB

if ( MenuMode == 1 )
return
endif

set loopControlB to 0

if ( OnActivate == 1 )

set loopControlB to 1
set totalCountB to 0

endif

; The following are the Bloodmoon ingredients.
; If you're using this without Bloodmoon (but with Tribunal), commend out
; the following code blocks (but leaving in the 'if' and 'set' statements
; which related to the 'loopControlB' variable.

if ( loopControlB == 1 )

; There are two forms of Belladonna (ripened and unripened).
; They're exactly the same, apart from the name.
set itemCountB to ( player->GetItemCount, "ingred_belladonna_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_belladonna_01", 1
"_ly_bx_belladonna01"->AddItem, "ingred_belladonna_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_belladonna_02" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_belladonna_02", 1
"_ly_bx_belladonna01"->AddItem, "ingred_belladonna_02", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_bear_pelt" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_bear_pelt", 1
"_ly_bx_bear_pelt"->AddItem, "ingred_bear_pelt", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_eyeball" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_eyeball", 1
"_ly_bx_eyeball"->AddItem, "ingred_eyeball", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_gravetar_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_gravetar_01", 1
"_ly_bx_gravetar"->AddItem, "ingred_gravetar_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_wolf_pelt" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_wolf_pelt", 1
"_ly_bx_wolfpelt"->AddItem, "ingred_wolf_pelt", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_holly_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_holly_01", 1
"_ly_bx_holly01"->AddItem, "ingred_holly_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_horker_tusk_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_horker_tusk_01", 1
"_ly_bx_horker_tusk"->AddItem, "ingred_horker_tusk_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_boar_leather" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_boar_leather", 1
"_ly_bx_boar_leather"->AddItem, "ingred_boar_leather", 1
endwhile
endif

; There was an icon for this, but there doesn't seem to be any ingredients.
;
; set itemCountB to ( player->GetItemCount, "ingred_alit_hide_01" )
; set totalCountB to totalCountB + itemCountB
; if ( itemCountB > 0 )
; while ( itemCountB > 0 )
; set itemCountB to ( itemCountB - 1 )
; player->RemoveItem, "ingred_alit_hide_01", 1
; "_ly_bx_alit_hide"->AddItem, "ingred_alit_hide_01", 1
; endwhile
; endif

set loopControlB to 2

endif

if ( loopControlB == 2 )

set itemCountB to ( player->GetItemCount, "ingred_raw_Stalhrim_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_raw_Stalhrim_01", 1
"_ly_bx_raw_stalhrim"->AddItem, "ingred_raw_Stalhrim_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_snowbear_pelt_unique" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_snowbear_pelt_unique", 1
"_ly_bx_snowbearpelt"->AddItem, "ingred_snowbear_pelt_unique", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_snowwolf_pelt_unique" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_snowwolf_pelt_unique", 1
"_ly_bx_snowwolfpelt"->AddItem, "ingred_snowwolf_pelt_unique", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_wolfsbane_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_wolfsbane_01", 1
"_ly_bx_wolfsbane"->AddItem, "ingred_wolfsbane_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_heartwood_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_heartwood_01", 1
"_ly_bx_heartwood"->AddItem, "ingred_heartwood_01", 1
endwhile
endif

set loopControlB to 3

endif

; The rest of the ingredients are Tribunal ingredients.

if ( loopControlB == 3 )

set itemCountB to ( player->GetItemCount, "ingred_adamantium_ore_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_adamantium_ore_01", 1
"_ly_bx_adamantium"->AddItem, "ingred_adamantium_ore_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "Ingred_scrib_cabbage_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "Ingred_scrib_cabbage_01", 1
"_ly_bx_scribgabbage"->AddItem, "Ingred_scrib_cabbage_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "ingred_durzog_meat_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "ingred_durzog_meat_01", 1
"_ly_bx_durzogmeat"->AddItem, "ingred_durzog_meat_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "Ingred_golden_sedge_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "Ingred_golden_sedge_01", 1
"_ly_bx_goldensedge"->AddItem, "Ingred_golden_sedge_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "Ingred_horn_lily_bulb_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "Ingred_horn_lily_bulb_01", 1
"_ly_bx_hornlilybulb"->AddItem, "Ingred_horn_lily_bulb_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "Ingred_meadow_rye_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "Ingred_meadow_rye_01", 1
"_ly_bx_meadow_rye"->AddItem, "Ingred_meadow_rye_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "Ingred_nirthfly_stalks_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "Ingred_nirthfly_stalks_01", 1
"_ly_bx_nirthfly"->AddItem, "Ingred_nirthfly_stalks_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "Ingred_noble_sedge_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "Ingred_noble_sedge_01", 1
"_ly_bx_noblesedge"->AddItem, "Ingred_noble_sedge_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "Ingred_lloramor_spines_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "Ingred_lloramor_spines_01", 1
"_ly_bx_lloramorspines"->AddItem, "Ingred_lloramor_spines_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "Ingred_sweetpulp_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "Ingred_sweetpulp_01", 1
"_ly_bx_sweetpulp"->AddItem, "Ingred_sweetpulp_01", 1
endwhile
endif

set itemCountB to ( player->GetItemCount, "Ingred_timsa-come-by_01" )
set totalCountB to totalCountB + itemCountB
if ( itemCountB > 0 )
while ( itemCountB > 0 )
set itemCountB to ( itemCountB - 1 )
player->RemoveItem, "Ingred_timsa-come-by_01", 1
"_ly_bx_timsa"->AddItem, "Ingred_timsa-come-by_01", 1
endwhile
endif

; The end is nigh!
set loopControlB to 100

endif

if ( loopControlB == 100 )

if ( totalCountB > 0 )
PlaySound "Item Misc Up"
MessageBox "%g Zutaten aus 'Solstheim' und 'Gramfeste' entfernt.", totalCountB
else
PlaySound "Menu Click"
MessageBox "Ihr tragt keine Zutaten aus 'Solstheim' oder 'Gramfeste' bei Euch."
endif

endif

end

Hier müssen auch nur die Container-IDs ausgetauscht werden (schau dir im ersten Skript die entsprechenden Stellen an, war zu faul für das Ersetzen des Platzhalters

).

Denk daran, in deine Container ein erstelltes, nicht aufnehmbares Licht-Objekt zu legen, sonst klappt das Skript nicht. Nun auf jeden der beiden Hebel eines der beiden Skripte und fertig.

Darkrai1991 · 9. August 2013

omg is das script riesig xd da werde ich ja einiges zu tun haben xd aber danke sehr kopier ich mir gleich ma in ein dokument ums net zu verlieren xd

Lyali · 9. August 2013

Die Skriptanpassung geht eigentlich recht schnell. Zeitintensiv ist das Erstellen der Container (einer für jede Zutat). Man kann, wie ich es gemacht habe, immer die gleiche Meshdatei nehmen (z.B. ne Kiste, eine Urne). Einige habe jedoch für jeden Container ein eigenes Modell benutzt, wo man von außen sehen kann, was drin ist. Das dauert dann halt eben.

Darkrai1991 · 9. August 2013

ne ich denke ich ehme die gleichen meshes

Construction Set Der Scriptthread

Reisender

Abenteurer

Super-Moderator

Abenteurer

Super-Moderator

Abenteurer

Freund des Hauses

Abenteurer

Freund des Hauses

Reisender

Freund des Hauses

Reisender

Super-Moderator

Reisender

Super-Moderator

Neuankömmling

Abenteurer

Neuankömmling

Abenteurer

Neuankömmling

Ähnliche Themen