Construction Set Skriptthread zum Construction Set

Scriptname Publican_RoxeyMalene

;CellName: RoxeyInn
;Publican: Malene
;Room: upstairs, second door on the left
;Door Ref: RoxeyRentDoor

short rent
short rentday
short rentmonth
short cleanup
short setup

begin gamemode

if ( rent == 1 )	
         if ( setup == 0 )
		set rentday to GameDay
		set rentmonth to GameMonth
		set setup to 1
		RoxeyRentDoor.unlock	
		RoxeyRentBed0.SetOwnership
;Setzt die Besitzgüter der Fraction wärend der Zimmermiete auf die des Players. Alles kann berührt und genutzt werden. So dachte ich mir das.
		Player.SetFactionRank RoxeyInnFaction 0
	else	
		if ( GameDay != rentday )
			set cleanup to 1
		elseif ( GameMonth != rentmonth )
			set cleanup to 1
		endif
	endif

	if ( Player.GetinCell RoxeyInn == 0 )		
		if ( Cleanup == 1 )
			set Cleanup to 2
		endif
	endif

	if ( Cleanup == 2 )
		set rent to 0 
		set setup to 0
		set rentday to 0
		set rentmonth to 0
		set cleanup to 0
		RoxeyRentDoor.SetOpenState 0
		RoxeyRentDoor.lock 30
		RoxeyRentBed0.SetOwnership Malene
; Soll das wieder rückgängig machen
		Player.SetFactionRank PlayerFaction 0
	endif
endif

End

ref pDoor
...
set pDoor to GetFirstRef 24 1
while (pDoor)
  ; do something with pDoor
  set pDoor to GetNextRef
loop

ref Ingredient
...
set Ingredients to GetFirstRef 25 1
while (Ingredient)
  Ingredient.SetOwnership Player
  set Ingredient to GetNextRef
loop

ref Ingredient
...
set Ingredient to GetFirstRef 25 1
while (Ingredient)
  Ingredient.SetOwnership Player
  set Ingredient to GetNextRef
loop

ref Ingredient
...
set Ingredient to GetFirstRef 25 1
while (Ingredient)
  [COLOR="Red"]If Var1 == 1[/COLOR]
  Ingredient.SetOwnership Player
  set Ingredient to GetNextRef
  Endif
loop

ref Ingredient
...
set Ingredient to GetFirstRef 25 1
while (Ingredient)
  If Var1 == 1
  Ingredient.SetOwnership Player
  set Ingredient to GetNextRef
  [COLOR="Red"]Elseif Var1 != 1[/COLOR]
  Ingredient.SetOwnership Person
  set Ingredient to GetNextRef
  Endif
loop