TR_m3_Pub_Empress_Katariah
TR_Mainland.esm
Variables
10
Local Variables
TR_Map
controlQ
control
rent
rentDay
rentMonth
setup
cleanup
T_Local_NPC
NoLore
Source
1begin TR_m3_Pub_Empress_Katariah
2
3;Cell: Old Ebonheart, The Empress Katariah
4;Publican: "TR_m3_Naamalvu Erendi"
5;Flag: TR_m3_Rent_Empress_Katariah
6;Room Door: TR_m3_rd_Empress_Katariah
7
8;all rooms get rented for one day
9;This NPC must be in the map where the room is if you use the locked door cell loading cleanup
10;rename the script for the NPC and make a specific door to unlock or flag to set
11;NO actual key is given to player, a global flag is set that removes the ownership on the beds.
12
13;this script fires off when RENT is set true. Rent is set true through the BEDS topic in dialogue, which all Publicans have.
14;Each publican will also have a separate response to buying the bed, so they can give simple directions. There is also a default one.
15
16short TR_Map
17short controlQ
18short control
19short rent ;if room is rented, set through dialogue on this NPC
20short rentDay ;the day of the rental
21short rentMonth ;the month of the rental
22short setup ;if setup has been done
23short cleanup ;true if you want to cleanup all the flags, rental is over and can be reset
24short T_Local_NPC
25short NoLore
26;this script also uses a global variable (TR_m3_Rent_Empress_Katariah). Make a new one for each rental. You can have as many
27;beds as you want use that variable, it is used through the ownership data on the object reference
28
29if ( GetJournalIndex "TR_m3_TG_Moranie3" >= 250 )
30 if ( GetDisabled == 0 )
31 disable
32 endif
33endif
34
35if ( rent == 1 )
36
37 if ( setup == 0 )
38 set rentDay to Day
39 set rentMonth to Month
40 set setup to 1
41 set TR_m3_Rent_Empress_Katariah to 1 ;this is the flag for the ownership on the bed
42 TR_m3_rd_Empress_Katariah->unlock ;opens the door
43
44 else ;setup is done so check to see if the day is over
45
46 if ( Day != rentDay )
47 set cleanup to 1
48
49 elseif ( Month != rentMonth )
50 set cleanup to 1
51
52 endif
53
54 endif
55
56 if ( CellChanged ) ;this is only needed if you've done a locked door. If so, you only want to do this on cell change so you don't lock them in the room
57 if ( cleanup == 1 ) ;this gets called when the rental is over and everything can be cleaned up
58 set rent to 0
59 set TR_m3_Rent_Empress_Katariah to 0
60 TR_m3_rd_Empress_Katariah->lock 50 ;locks the door
61 set setup to 0
62 set rentDay to 0
63 set rentMonth to 0
64 set cleanup to 0
65 endif
66 endif
67
68endif
69
70if ( TR_Map )
71 return
72endif
73
74set TR_Map to 3
75
76
77End