Script
TR_m7_Pub_Othmura

TR_Mainland.esm
Variables 10
Local Variables
TR_Map
control
controlQ
T_Local_NPC
NoLore
rent
rentDay
rentMonth
setup
cleanup
Source
  
    begin TR_m7_Pub_Othmura
  
    short TR_Map
  
    short control
  
    short controlQ
  
    short T_Local_NPC
  
    short NoLore
  
    ;Cell: Othmura, Muck-Raker's Hangout
  
    ;Publican: Muck-Raker (TR_m7_Muck-Raker)
  
    ;Flag: TR_m7_Rent_OthmuraMuck
  
    ;all rooms get rented for one day
  
    ;This guy must be in the map where the room is if you use the locked door cell loading cleanup
  
    ;rename the script for the guy and make a specific door to unlock or flag to set
  
    ;NO actual key is given to player, a global flag is set that removes the ownership on the beds.
  
    ;this script fires off when RENT is set true. Rent is set true through the BEDS topic in dialogue, which all Publicans have.
  
    ;Each publican will also have a separate response to buying the bed, so they can give simple directions. There is also a default one.
  
    short rent ;if room is rented, set through dialogue on this NPC
  
    short rentDay ;the day of the rental
  
    short rentMonth ;the month of the rental
  
    short setup ;if setup has been done
  
    short cleanup ;true if you want to cleanup all the flags, rental is over and can be reset
  
    ;this script also uses a global variable (TR_m7_Rent_OthmuraMuck). Make a new one for each rental. You can have as many
  
    ;beds as you want use that variable, it is used through the ownership data on the object reference
  
    if ( rent == 1 )
  
    if ( setup == 0 )
  
    set rentDay to Day
  
    set rentMonth to Month
  
    set setup to 1
  
    set TR_m7_Rent_OthmuraMuck to 1 ;this is the flag for the ownership on the bed
  
    "TR_m7_othm_door_RentMuck"->unlock ;also needed if you have locked the room, use a specific objectRef
  
    else ;setup is done so check to see if the day is over
  
    if ( Day != rentDay )
  
    set cleanup to 1
  
    elseif ( Month != rentMonth )
  
    set cleanup to 1
  
    endif
  
    endif
  
    if ( CellChanged == 1 ) ;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
  
    if ( cleanup == 1 ) ;this gets called when the rental is over and everything can be cleaned up
  
    set rent to 0
  
    set TR_m7_Rent_OthmuraMuck to 0
  
    "TR_m7_othm_door_RentMuck"->lock 30
  
    set setup to 0
  
    set rentDay to 0
  
    set rentMonth to 0
  
    set cleanup to 0
  
    endif
  
    endif
  
    endif
  
    set TR_Map to 7
  
    End