Allgemein
News
News-Archiv
Partner
Netzwerk
Banner
Header
Media
Downloads
Impressum

The Elder Scrolls
Arena
Daggerfall
Spin-offs
Romane
Jubiläum
Reviews
Welt von TES
Lore-Bibliothek
Namens-
generator

FRPGs

Elder Scrolls Online
Allgemein
Fraktionen
Charakter
Kargstein
Technik
Tamriel-
Manuskript

Media

Skyrim
Allgemein
Lösungen
Tipps & Tricks
Steam-Kniffe
Review
Media
Plugins & Mods

Oblivion
Allgemein
Lösungen
Tipps & Tricks
Technik
Charakter
Media
Plugins & Mods
Kompendium

Morrowind
Allgemein
Lösungen
Tipps & Tricks
Media
Plugins & Mods

Foren
The Elder Scrolls Online
Hilfe & Diskussion

Skyrim
Hilfe & Diskussion
Plugins & Mods

Ältere TES-Spiele
TES-Diskussion
Oblivion-Plugins
Morrowind-Plugins

Community
Taverne zum Shalk
Adventures of Vvardenfell
Tales of Tamriel
Ergebnis 1 bis 5 von 5

Thema: [REL] Fuse´s Spielautomat v1.1 DV

  1. #1

    [REL] Fuse´s Spielautomat v1.1 DV

    ========================================
    Fuse´s Spielautomat v1.1 übersetzt von MC King
    ========================================

    Was macht diese Mod:

    ========================================

    Gibt es einen besseren Weg an Geld heranzukommen, als durchs Glücksspiel?
    Gewinnt große Preise in der Herberge zur Westebene in Skingrad.

    Diese Mod fügt eine Glückspielmaschine in das Spiel ein.



    Screenshots

    Klick

    Klick

    Changelog (orginal text)
    ========================================

    1.1:

    * Retextured part of the machine.
    * Rebalanced the wheels.

    1.0:

    * Initial release.



    Installation notes:
    ========================================

    1. Entpacke das Archiv und kopier die Daten ins Oblivion Data Verzeichniss
    2. Starte das Spiel und aktiviere die esp.


    Credits:
    ========================================

    Fuse - Original Englische Modifikation
    Bodman - Testing
    MC King - Übersetzung

    Kontakt:
    MC King : Sharesoft Forum oder per email mc.king@hotmail.de

    Ich übersetze gerne Modifikationen und diese Mod hat es mir besonders angetan und ich hoffe ich kann euch damit eine Freude bereiten.
    Ich arbeite mich langsam weiter hoch und werde immer größere Sachen übersetzen, diese Mod finde ich aber sehr schön, wer sie nicht möchte ist nicht gezwungen sie herunterzuladen, von daher möchte ich bitte Post wie: Das passt doch garnicht wirklich in Oblivion vermeiden.

    Ich hoffe ihr habt euren Spaß damit.

    Lieben Gruß

    MC King

  2. #2
    Coooool, nete idde. 1+

    ich finde es schon toll wie du das geschaft hast. ich farg mich nur, wie soll die maschine erkennen welche zeichen das sind? hast du einen script benutzt?
    was rede ich den da. ohne script geht das doch nciht, aber welchen hast du benutzt und wie funtkioniert er?

  3. #3
    Ich bin zwar nur der Übersetzer aber ich kann dir das benötigte Skript von Fuse dennoch zeigen

    Code:
    scn FruitMachineMain
    
    float 	timer
    short 	init
    float 	fQuestDelayTime	; for quest script timing
    long 	FuseFruitStage
    short 	open
    
    short	Stopped1
    short	Stopped2
    short	Stopped3
    
    short 	Reel1Val
    short 	Reel2Val
    short 	Reel3Val
    
    float 	NewAngle1
    float 	NewAngle2
    float 	NewAngle3
    
    long 	Movements
    short	RNDmin
    short	RNDmax
    short 	randVal
    
    short 	NoOfCherries
    short 	NoOfApples
    short 	NoOfMellons
    short 	NoOfSnails
    short 	NoOfRings
    
    Begin OnActivate
    
    	if open == 0 && player.GetGold > 0
    		playgroup forward 1
    		set open to 1
    		set init to 0
    		player.RemoveItem Gold001 1
    	endif
    
    	if player.GetGold < 1
    			messagebox "Du hast nicht genug Gold um zu spielen."
    	endif
    
    End
    
    Begin GameMode
    
    	if init == 0 
    		;set the timer value
    		set timer to 1 ;delay
    		set init to 1
    		;set fQuestDelayTime to 1
    		set Movements to 0
    		
    		set RNDmin to 1
    		set RNDmax to 14
    		set randVal to 0
    
    		set Stopped1 to 0
    		set Stopped2 to 0
    		set Stopped3 to 0
    
    		set NoOfCherries to 0
    		set NoOfApples to 0
    		set NoOfMellons to 0
    		set NoOfSnails to 0
    		set NoOfRings to 0
    
    		set NewAngle1 to 334
    		set NewAngle2 to 282
    		set NewAngle3 to 358
    
    		set FuseFruitStage to 10
    		
    	else
    
    		if FuseFruitStage == 10 && open == 1		
    
    			if timer > 0
    				set timer to timer - getSecondsPassed
    			else
    
    				set NewAngle1 to NewAngle1 + 8
    				set NewAngle2 to NewAngle2 + 8
    				set NewAngle3 to NewAngle3 + 8
    				
    				if Stopped1 == 0
    					"010011D1".SetAngle x, NewAngle1
    				endif
    				if Stopped2 == 0
    					"010011D2".SetAngle x, NewAngle2
    				endif
    				if Stopped3 == 0
    					"01000CE7".SetAngle x, NewAngle3
    				endif
    
    				;if NewAngle > 2000
    
    
    				set Movements to Movements + 1
    
    				if Movements == 200
    				
    					PlaySound DRSBarrelOpen
    					set Stopped1 to 1
    
    					set randVal to RNDmin + (GetRandomPercent * (RNDmax - RNDmin)) / 99
    
    					if randVal == 1
    						"010011D1".SetAngle x, 77
    					elseif randVal == 2
    						"010011D1".SetAngle x, 51
    					elseif randVal == 3
    						"010011D1".SetAngle x, 25
    					elseif randVal == 4
    						"010011D1".SetAngle x, 358
    					elseif randVal == 5
    						"010011D1".SetAngle x, 334
    					elseif randVal == 6
    						"010011D1".SetAngle x, 308
    					elseif randVal == 7
    						"010011D1".SetAngle x, 282
    					elseif randVal == 8
    						"010011D1".SetAngle x, 257
    					elseif randVal == 9
    						"010011D1".SetAngle x, 232
    					elseif randVal == 10
    						"010011D1".SetAngle x, 206
    					elseif randVal == 11
    						"010011D1".SetAngle x, 181
    					elseif randVal == 12
    						"010011D1".SetAngle x, 155
    					elseif randVal == 13
    						"010011D1".SetAngle x, 129
    					elseif randVal == 14
    						"010011D1".SetAngle x, 103
    					endif
    
    					set Reel1Val to randVal
    
    				endif
    
    				if Movements == 300
    
    					PlaySound DRSBarrelOpen
    					set Stopped2 to 1
    
    					set randVal to RNDmin + (GetRandomPercent * (RNDmax - RNDmin)) / 99
    
    					if randVal == 1
    						"010011D2".SetAngle x, 77
    					elseif randVal == 2
    						"010011D2".SetAngle x, 51
    					elseif randVal == 3
    						"010011D2".SetAngle x, 25
    					elseif randVal == 4
    						"010011D2".SetAngle x, 358
    					elseif randVal == 5
    						"010011D2".SetAngle x, 334
    					elseif randVal == 6
    						"010011D2".SetAngle x, 308
    					elseif randVal == 7
    						"010011D2".SetAngle x, 282
    					elseif randVal == 8
    						"010011D2".SetAngle x, 257
    					elseif randVal == 9
    						"010011D2".SetAngle x, 232
    					elseif randVal == 10
    						"010011D2".SetAngle x, 206
    					elseif randVal == 11
    						"010011D2".SetAngle x, 181
    					elseif randVal == 12
    						"010011D2".SetAngle x, 155
    					elseif randVal == 13
    						"010011D2".SetAngle x, 129
    					elseif randVal == 14
    						"010011D2".SetAngle x, 103
    					endif
    
    					set Reel2Val to randVal
    
    				endif
    
    				if Movements == 400
    
    					PlaySound DRSBarrelOpen
    					set Stopped3 to 1
    
    					set randVal to RNDmin + (GetRandomPercent * (RNDmax - RNDmin)) / 99
    
    					if randVal == 1
    						"01000CE7".SetAngle x, 77
    					elseif randVal == 2
    						"01000CE7".SetAngle x, 51
    					elseif randVal == 3
    						"01000CE7".SetAngle x, 25
    					elseif randVal == 4
    						"01000CE7".SetAngle x, 358
    					elseif randVal == 5
    						"01000CE7".SetAngle x, 334
    					elseif randVal == 6
    						"01000CE7".SetAngle x, 308
    					elseif randVal == 7
    						"01000CE7".SetAngle x, 282
    					elseif randVal == 8
    						"01000CE7".SetAngle x, 257
    					elseif randVal == 9
    						"01000CE7".SetAngle x, 232
    					elseif randVal == 10
    						"01000CE7".SetAngle x, 206
    					elseif randVal == 11
    						"01000CE7".SetAngle x, 181
    					elseif randVal == 12
    						"01000CE7".SetAngle x, 155
    					elseif randVal == 13
    						"01000CE7".SetAngle x, 129
    					elseif randVal == 14
    						"01000CE7".SetAngle x, 103
    					endif
    
    					set Reel3Val to randVal
    
    					set FuseFruitStage to 20
    
    				endif
    
    			endif
    
    		elseif FuseFruitStage == 20	
    
    			if Reel1Val == 1 || Reel1Val == 5 || Reel1Val == 8 || Reel1Val == 11 
    				set NoOfCherries to NoOfCherries +1
    
    			elseif Reel1Val == 2 || Reel1Val == 4 || Reel1Val == 9 || Reel1Val == 13 
    				set NoOfApples to NoOfApples +1
    
    			elseif Reel1Val == 3 || Reel1Val == 6 || Reel1Val == 12
    				set NoOfMellons to NoOfMellons +1
    
    			elseif Reel1Val == 10 || Reel1Val == 14
    				set NoOfSnails to NoOfSnails +1
    
    			elseif Reel1Val == 7
    				set NoOfRings to NoOfRings +1
    			endif
    
    			if Reel2Val == 1 || Reel2Val == 5 || Reel2Val == 8 || Reel2Val == 11 
    				set NoOfCherries to NoOfCherries +1
    
    			elseif Reel2Val == 2 || Reel2Val == 4 || Reel2Val == 9 || Reel2Val == 13 
    				set NoOfApples to NoOfApples +1
    
    			elseif Reel2Val == 3 || Reel2Val == 6 || Reel2Val == 12
    				set NoOfMellons to NoOfMellons +1
    
    			elseif Reel2Val == 10 || Reel2Val == 14
    				set NoOfSnails to NoOfSnails +1
    
    			elseif Reel2Val == 7
    				set NoOfRings to NoOfRings +1
    			endif
    
    			if Reel3Val == 1 || Reel3Val == 5 || Reel3Val == 8 || Reel3Val == 11 
    				set NoOfCherries to NoOfCherries +1
    
    			elseif Reel3Val == 2 || Reel3Val == 4 || Reel3Val == 9 || Reel3Val == 13 
    				set NoOfApples to NoOfApples +1
    
    			elseif Reel3Val == 3 || Reel3Val == 6 || Reel3Val == 12
    				set NoOfMellons to NoOfMellons +1
    
    			elseif Reel3Val == 10 || Reel3Val == 14
    				set NoOfSnails to NoOfSnails +1
    
    			elseif Reel3Val == 7
    				set NoOfRings to NoOfRings +1
    			endif
    
    			set FuseFruitStage to 30
    
    		elseif FuseFruitStage == 30
    
    			if NoOfCherries == 2
    				messagebox "Du hast 2 Kirschen in einer Reihe, du gewinnst  1 Gold!"
    				player.additem Gold001 "1"
    			elseif NoOfCherries == 3
    				messagebox "Du hast 3 Kirschen in einer Reihe und bekommst 3  Gold!"
    				player.additem Gold001 "5"
    			elseif NoOfApples == 3
    				messagebox "Du hast 3 Äpfel in einer Reihe und gewinnst 10 Gold!"
    				player.additem Gold001 "10"
    			elseif NoOfMellons == 3
    				messagebox "Du hast 3 Melonen in einer Reihe und bekommst 20 Gold!"
    				player.additem Gold001 "20"
    			elseif NoOfSnails == 3
    				messagebox "Du hast 3 Schnecken, du gewinnst 50 Gold!"
    				player.additem Gold001 "50"
    			elseif NoOfRings == 3
    				messagebox "Du hast 3 Ringe und gewinnst 100 Gold!"
    				player.additem Gold001 "100"
    			endif
    			
    			set FuseFruitStage to 40
    			set open to 0
    
    		endif
    	endif
    
    End

    Freut mich das man mir hier auch mal antwortet, kam mir schon vor wie ein endloser Monolog...
    Geändert von Low Post (12.04.2009 um 02:04 Uhr) Grund: Code-Block ^^

  4. #4
    oO
    Oo

    ist der laaaaaang. aber och find es cool, das wer so ein Script zsammen bringt. ob einer aus unserem forum das kann, weis ich nicht?unsere Scripter herausfordere

  5. #5
    Lang ist das nun wirklich nicht Oo


    schau dir mal eins der Skripte z.B. aus dem Elder Council an, das ist lang

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •