| SCTX |
Scriptname Publican_LonelySuitorBogrum
;CellName: BravilLonelySuitorLodge
;Publican: Bogrum gro-Galash
;Room: only room on top floor (two beds, ownership changed on both)
;Door Ref: BravilLonelySuitorRentDoor
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
BravilLonelySuitorRentDoor.unlock
BravilLonelySuitorRentBed1.SetOwnership
BravilLonelySuitorRentBed2.SetOwnership
else
if ( GameDay != rentday )
set cleanup to 1
elseif ( GameMonth != rentmonth )
set cleanup to 1
endif
endif
if ( Player.GetinCell BravilLonelySuitorLodge == 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
BravilLonelySuitorRentDoor.SetOpenState 0
BravilLonelySuitorRentDoor.lock 30
BravilLonelySuitorRentBed1.SetOwnership BogrumgroGalash
BravilLonelySuitorRentBed2.SetOwnership BogrumgroGalash
endif
endif
End
|