use uo;
use os;

program textcmd_readonly(character)
   SendSysMessage(character, "Target a book to switch between read-only and read/write");
   var book := Target(character);
   if ( !book or book.errortext )
      SendSysMessage(character, "Cancelled.");
      return 0;
   endif

   // check to see if it's an itemdesc based book. If so, exit
   var cfg := ReadConfigFile(":*:itemdesc");
   cfg := cfg[book.objtype];
   var author := GetConfigString(cfg, "Author");
   if ( author and !author.errortext )
      SendSysMessage(character, "This is a shared book and cannot be changed.");
      return 0;
   endif

   if ( book.IsWritable() )
      book.ReadOnly(1);
      SendSysMessage(character, "This book is now read-only.");
   else
      book.ReadOnly(0);
      SendSysMessage(character, "This book is now read-write.");
   endif
endprogram

checkpoint: load_itemdesc
Couldn't find an Armor Zone in armrzone.cfg for layer 0
Error in ObjType 0x1b72. Package armor.
Server Shutdown: load_itemdesc
Execution aborted due to: Configuration file error

Armor 0x1B72
{
   //Main Stuff
   Name      BronzeShield
   Desc      round shield
   VendorBuysFor   45
   VendorSellsFor   91

   //Equipment Info
   MaxHP      28
   StrRequired   20

   //Armor Info
   AR      10
   Coverage   Shield

   //Scripts
   DestroyScript   onDestroy

   //Custom Values
   Repairable   1
   MedLoss      nomed
}

Armor 0x1515
{
   //Main Stuff   
   Name   cloak
   VendorBuysFor   21
   VendorSellsFor   43
   
   //Equipment Info   
   MaxHP   20
   
   //Armor Info   
   AR   1

   //Scripts   
   DestroyScript   clothOnDestroy
   
   //Custom Values   
   candye   1
}