Page 1 of 1

Who can tell me whats wrong with it?

Posted: Sun May 26, 2013 9:38 pm
by matias
the owner panel works but the public access doesnt and cant find whats wrong

Code: Select all

//---------------------------------------------------- 
//  Medieval - Blacksmith 
// [Config] 

$kMedBlacksmithBuildingNum = 20 
//---------------------------------------------------- 
// 
// BuildingVars : 
// 
//   3 - Number of Axes (1) made here (ever) 
//   4 - Number of Bag of nails (7) made here (ever) 
//   5 - Number of pickaxes (5) made here (ever) 
//   6 - Stick buy-in limit 
//   7 - Steel buy-in limit 
//   8 - Coal buy-in limit 
//   9 - Worker wage per item 
//   10 - Wage to be collected by worker 
// 
//  12 - Number of Ploughs (8) made here (ever) 
//  13 - Number of hammer (9 made here (ever) 
//  

$kAxeStickRequired = 1 
$kPickaxeStickRequired = 1 
$kploughStickRequired = 5 
$kBag of nailStickRequired = 0
$khammerStickRequired = 1

$kAxesteelRequired = 1 
$kPickaxesteelRequired = 1 
$kploughsteelRequired = 5 
$kBag of nailsteelRequired = 1
$khammersteelRequired = 1

$kAxeCoalRequired = 1 
$kPickaxeCoalRequired = 1
$kploughCoalRequired = 5 
$kBag of nailCoalRequired = 1
$khammerCoalRequired = 1

$kMaxStickInStorage = 50 
$kMaxSteelInStorage = 50 
$kMaxCoalInStorage = 50 




Function   MedBlacksmithShowOwnerEmployeeDisplay( $osdX, $osdY, $wage, $minJobInvest, $currInvest ) 
{ 
   $wageText = sysGetPriceText( $wage ) 
   if ( $gBuildingNumEmployees == 1 ) 
   { 
      $employeeID = sysGetEmployeeID( 0 ) 
      $name = sysGetPlayerName( $employeeID ) 
      osdaddat(OSDTEXT, $osdX, $osdY, 500, 20, "", "Currently employing $name for $wageText per item") 
   } 
   else if ( $wage == 0 ) 
   { 
      osdaddat(OSDTEXT, $osdX, $osdY, 500, 20, "", "Not currently advertising for staff") 
   } 
   else 
   { 
      if ( $currInvest > $minJobInvest ) 
      { 
         osdaddat(OSDTEXT, $osdX, $osdY, 500, 20, "", "Job vacancy for a Blacksmith ($wageText per item)") 
      } 
      else 
      { 
         $minInvText = sysGetPriceText( $minJobInvest ) 
         osdaddat(OSDTEXT, $osdX, $osdY, 500, 20, "", "Requires minimum of $minInvText invested to take on a worker.") 
      } 
   } 
} 



Event( "OSDSelect", "MedSmithOSD:StickAdminApply" ) 
{ 
   *setbuyprice $gBuildingNum,Stick,$gParam[1] 
   $gBuildingVar[6] = $gParam[2] 

   *setbuyprice $gBuildingNum,Steel,$gParam[3] 
   $gBuildingVar[7] = $gParam[4] 

  *setbuyprice $gBuildingNum,Coal,$gParam[5] 
   $gBuildingVar[8] = $gParam[6] 
   $ret = MedBlacksmithDisplayOwnerStickSuppliesOSD() 
} 


Event( "OSDSelect", "MedSmithOSD:AddStick" ) 
{ 
   $hasStick = sysPlayerInventory( "Stick" ) 
   if ( $hasStick > 0 ) 
   { 
      $stickInStocks = sysAmountInStocks( "Stick" ) 
      if ( $stickInStocks < $kMaxStickInStorage ) 
      { 
         *grantitem %PLAYER% -1 Stick 
         *addtostocks $gBuildingNum,1,Stick 
      } 
   } 
   $ret = MedBlacksmithDisplayOwnerStickSuppliesOSD() 
} 

Event( "OSDSelect", "MedSmithOSD:AddSteel" ) 
{ 
   $hasSteel = sysPlayerInventory( "Steel" ) 
   if ( $hasSteel > 0 ) 
   { 
      $steelInStocks = sysAmountInStocks( "Steel" ) 
      if ( $steelInStocks < $kMaxSteelInStorage ) 
      { 
         *grantitem %PLAYER% -1 Steel 
         *addtostocks $gBuildingNum,1,Steel 
      } 
   } 
   $ret = MedBlacksmithDisplayOwnerStickSuppliesOSD() 
} 

Event( "OSDSelect", "MedSmithOSD:AddCoal" ) 
{ 
   $hasCoal = sysPlayerInventory( "Coal" ) 
   if ( $hasCoal > 0 ) 
   { 
      $CoalInStocks = sysAmountInStocks( "Coal" ) 
      if ( $CoalInStocks < $kMaxCoalInStorage ) 
      { 
         *grantitem %PLAYER% -1 Coal 
         *addtostocks $gBuildingNum,1,Coal
      } 
   } 
   $ret = MedBlacksmithDisplayOwnerStickSuppliesOSD() 
} 


Event( "OSDSelect", "MedSmithOSD:WorkerAddStick" ) 
{ 
   $hasStick = sysPlayerInventory( "Stick" ) 
   if ( $hasStick > 0 ) 
   { 
      $stickInStocks = sysAmountInStocks( "Stick" ) 
      if ( $stickInStocks < $kMaxStickInStorage ) 
      { 
         *grantitem %PLAYER% -1 Stick 
         *addtostocks $gBuildingNum,1,Stick 
      } 
   } 
   $ret = MedBlacksmithVisitorOSD() 
} 

Event( "OSDSelect", "MedSmithOSD:WorkerAddSteel" ) 
{ 
   $hasSteel = sysPlayerInventory( "Steel" ) 
   if ( $hasSteel > 0 ) 
   { 
      $steelInStocks = sysAmountInStocks( "Steel" ) 
      if ( $steelInStocks < $kMaxSteelInStorage ) 
      { 
         *grantitem %PLAYER% -1 Steel 
         *addtostocks $gBuildingNum,1,Steel 
      } 
   } 
   $ret = MedBlacksmithVisitorOSD() 
} 

Event( "OSDSelect", "MedSmithOSD:WorkerAddCoal" ) 
{ 
   $hasCoal = sysPlayerInventory( "Coal" ) 
   if ( $hasCoal > 0 ) 
   { 
      $CoalInStocks = sysAmountInStocks( "Coal" ) 
      if ( $CoalInStocks < $kMaxCoalInStorage ) 
      { 
         *grantitem %PLAYER% -1 Coal 
         *addtostocks $gBuildingNum,1,Coal
      } 
   } 
   $ret = MedBlacksmithVisitorOSD() 
} 

Event( "OSDSelect", "MedSmithOSD:Main" ) 
{ 
   CustomEvent( "MedBlacksmithAccessInit" ) 
} 

Function      MedBlacksmithDisplayOwnerStickSuppliesOSD( ) 
{ 
   osdcreate(OSDBUILDING,"MedSmithOSD", "" ) 

   $stickInStocks = sysAmountInStocks( "Stick" ) 
   $steelInStocks = sysAmountInStocks( "Steel" )
   $coalInStocks = sysAmountInStocks( "Coal" )  
   $stickBuyPrice = sysGetBuyPrice( "Stick" ) 
   $steelBuyPrice = sysGetBuyPrice( "Steel" ) 
   $CoalBuyPrice = sysGetBuyPrice( "Coal" )
   $hasStick = sysPlayerInventory( "Stick" ) 
   $hasSteel = sysPlayerInventory( "Steel" ) 
   $hasCoal = sysPlayerInventory( "Coal" ) 
   osdaddat(OSDTEXT, 20, 10, 0, 0, "", "$stickInStocks Stick, $steelInStocks Steel, $coalInStocks Coal  currently in storage") 
  
   if ( $hasStick > 0 ) 
   { 
      if ( $stickInStocks < $kMaxStickInStorage ) 
      { 
         osdaddat(OSDBUTTON, 20, 35, 175, 25, "AddStick", "Add Stick") 
      } 
      else 
      { 
         osdaddat(OSDFADEDBUTTON, 20, 35, 175, 25, "", "Add Stick") 
      } 
   } 
   else 
   { 
      osdaddat(OSDFADEDBUTTON, 20, 35, 175, 25, "", "Add Stick") 
   } 

   if ( $hasSteel > 0 ) 
   { 
      if ( $steelInStocks < $kMaxSteelInStorage ) 
      { 
         osdaddat(OSDBUTTON, 213, 35, 175, 25, "AddSteel", "Add Steel") 
      } 
      else 
      { 
         osdaddat(OSDFADEDBUTTON, 213, 35, 175, 25, "", "Add Steel") 
      } 
   } 
   else 
   { 
      osdaddat(OSDFADEDBUTTON, 213, 35, 175, 25, "", "Add Steel") 
   } 

   if ( $hasCoal > 0 ) 
   { 
      if ( $CoalInStocks < $kMaxCoalInStorage ) 
      { 
         osdaddat(OSDBUTTON, 405, 35, 175, 25, "AddCoal", "Add Coal") 
      } 
      else 
      { 
         osdaddat(OSDFADEDBUTTON, 405, 35, 175, 25, "", "Add Coal") 
      } 
   } 
   else 
   { 
      osdaddat(OSDFADEDBUTTON, 405, 35, 175, 25, "", "Add Coal") 
   } 


   $lineY = 80
   osdaddat(OSDTEXT, 20, $lineY, 0, 0, "", "Stick buy price :") 

   $valLineY = $lineY - 5 
   osdaddat(OSDTEXT, 150, $lineY, 0, 0, "", "1 Stick for") 
   osdaddat(OSDCASHVALUE, 225, $valLineY, 100, 25, "stickbuyval", "$stickBuyPrice|0|999") 

   $lineY = $lineY + 25 

   if ( $stickBuyPrice == 0 ) 
   { 
      osdaddat(OSDTEXT, 150, $lineY, 0, 0, "", "(Not currently buying Stick)") 
   } 
   else 
   { 
      $stickBuyPriceText = sysGetPriceText( $stickBuyPrice ) 
      osdaddat(OSDTEXT, 150, $lineY, 0, 0, "", "(Currently buying at 1 Stick for $stickBuyPriceText)") 
   } 

   $lineY = 80
   $valLineY = $lineY - 5 
   osdaddat(OSDTEXT, 345, $lineY, 0, 0, "", "Max in storage :") 
   $stickInStorageLimit = $gBuildingVar[6] 
   osdaddat(OSDVALUE, 450, $valLineY, 100, 25, "stickbuylimit", "$stickInStorageLimit|5|50|5")
 

   // --------------------- Steel 
 
   $lineY = 150
   osdaddat(OSDTEXT, 20, $lineY, 0, 0, "", "Steel buy price :") 

   $valLineY = $lineY - 5 
   osdaddat(OSDTEXT, 150, $lineY, 0, 0, "", "1 Steel for") 
   osdaddat(OSDCASHVALUE, 225, $valLineY, 100, 25, "Steelbuyval", "$SteelBuyPrice|0|999") 

   $lineY = $lineY + 25 

   if ( $SteelBuyPrice == 0 ) 
   { 
      osdaddat(OSDTEXT, 150, $lineY, 0, 0, "", "(Not currently buying Steel)") 
   } 
   else 
   { 
      $SteelBuyPriceText = sysGetPriceText( $SteelBuyPrice ) 
      osdaddat(OSDTEXT, 150, $lineY, 0, 0, "", "(Currently buying at 1 Steel for $steelBuyPriceText)") 
   } 

   $lineY = 150
   $valLineY = $lineY - 5 
   osdaddat(OSDTEXT, 345, $lineY, 0, 0, "", "Max in storage :") 
   $SteelInStorageLimit = $gBuildingVar[7] 
   osdaddat(OSDVALUE, 450, $valLineY, 100, 25, "Steelbuylimit", "$SteelInStorageLimit|5|50|5")

  // --------------------- Coal
 
   $lineY = 220
   osdaddat(OSDTEXT, 20, $lineY, 0, 0, "", "Coal buy price :") 

   $valLineY = $lineY - 5 
   osdaddat(OSDTEXT, 150, $lineY, 0, 0, "", "1 Coal for") 
   osdaddat(OSDCASHVALUE, 225, $valLineY, 100, 25, "Coalbuyval", "$CoalBuyPrice|0|999") 

   $lineY = $lineY + 25 

   if ( $CoalBuyPrice == 0 ) 
   { 
      osdaddat(OSDTEXT, 150, $lineY, 0, 0, "", "(Not currently buying Coal)") 
   } 
   else 
   { 
      $CoalBuyPriceText = sysGetPriceText( $CoalBuyPrice ) 
      osdaddat(OSDTEXT, 150, $lineY, 0, 0, "", "(Currently buying at 1 Coal for $CoalBuyPriceText)") 
   } 

   $lineY = 220
   $valLineY = $lineY - 5 
   osdaddat(OSDTEXT, 345, $lineY, 0, 0, "", "Max in storage :") 
   $CoalInStorageLimit = $gBuildingVar[8] 
   osdaddat(OSDVALUE, 450, $valLineY, 100, 25, "Coalbuylimit", "$CoalInStorageLimit|5|50|5")

   osdaddat(OSDAPPLYBUTTON, 380, 300, 200, 25, "StickAdminApply|&stickbuyval|&stickbuylimit|&steelbuyval|&steelbuylimit|&coalbuyval|&coalbuylimit", "Apply Changes") 

   osdaddat(OSDBUTTON, 50, 300, 200, 25, "Main", "Main Page") 
   osdaddat(OSDEXITBUTTON, 50, 330, 200, 20, "", "Close") 
   osdactivate() 
} 


  

Event( "OSDSelect", "MedSmithOSD:StickAdmin" ) 
{ 
   $ret = MedBlacksmithDisplayOwnerStickSuppliesOSD() 
} 

Event( "OSDSelect", "MedSmithOSD:SetPrice" ) 
{ 
   $itemNum = $gParam[1] 
   $price = $gParam[2] 
   $itemName = sysGetItemName( $itemNum ) 
   *setsellprice $gBuildingNum,$itemName,$price 
   $ret = MedBlacksmithOwnerSetPricesOSD() 
} 

Event( "OSDSelect", "MedSmithOSD:ApplySellPrice" ) 
{ 
   $itemNum = $gParam[1] 
   $newPrice = $gParam[2] 
   $itemName = sysGetItemName( $itemNum ) 
   *setsellprice $gBuildingNum,$itemName,$newPrice 
   $ret = MedBlacksmithOwnerSetPricesOSD() 
} 

Function      MedBlacksmithShowItemSetPriceOSD( $itemNum ) 
{ 
   $itemName = sysGetItemName( $itemNum ) 
   $sellPrice = sysGetSellPrice( $itemNum ) 

   osdcreate(OSDBUILDING,"MedSmithOSD", "" ) 
   osdaddat(OSDTEXT, 20, 10, 560, 0, "", "Note the building can only make and sell items if you have a worker") 
   $stickRequired = 0 
   $steelRequired = 0 

   if ( $itemNum == 1 )      // Axe 
   { 
      $stickRequired = $kAxeStickRequired
      $steelRequired = $kAxeSteelRequired 
      $CoalRequired = $kAxeCoalRequired 
   } 
   else if ( $itemNum == 7 )      // Bag of nail 
   { 
      $stickRequired = $kBag of nailStickRequired
      $steelRequired = $kBag of nailSteelRequired 
      $CoalRequired = $kBag of nailCoalRequired
   } 
   else if ( $itemNum == 5 )      // Pickaxe 
   { 
      $stickRequired = $kPickaxeStickRequired
      $steelRequired = $kPickaxeSteelRequired 
      $CoalRequired = $kPickaxeCoalRequired
   } 
   else if ( $itemNum == 8 )      // Plough 
   { 
      $stickRequired = $kPloughStickRequired
      $steelRequired = $kPloughSteelRequired 
      $CoalRequired = $kPloughCoalRequired
   } 
   else if ( $itemNum == 9 )      // Hammer 
   { 
      $stickRequired = $kHammerStickRequired
      $steelRequired = $kHammerSteelRequired 
      $CoalRequired = $kHammerCoalRequired
   } 

   $lineY = 50 
   osdaddat(OSDBIGTEXT, 50, $lineY, 0, 0, "", "Set Sell Price for $itemName") 
   $lineY = $lineY + 30 
   if ( $sellPrice > 0 ) 
   { 
      $priceText = sysGetPriceText( $sellPrice ) 
      osdaddat(OSDTEXT, 50, $lineY, 500, 0, "", "Currently selling at $priceText.") 
   } 
   else 
   { 
      osdaddat(OSDTEXT, 50, $lineY, 500, 0, "", "Not currently selling") 
   } 
   $lineY = $lineY + 50 
   osdaddat(OSDCASHVALUE, 250, $lineY, 100, 25, "sellprice", "$sellPrice|0|10000") 
   $lineY = $lineY + 40 
   osdaddat(OSDBUTTON, 200, $lineY, 200, 25, "ApplySellPrice|$itemNum|&sellPrice", "Apply") 

   $lineY = $lineY + 40 

   if ( $gBuildingWage > 0 ) 
   { 
      $wageText = sysGetPriceText( $gBuildingWage ) 
      osdaddat(OSDTEXT, 50, $lineY, 500, 0, "", "Your employee will take $wageText of the price for their wages.") 
   } 
   else 
   { 
      osdaddat(OSDTEXT, 50, $lineY, 500, 0, "", "Don't forget your blacksmith's wages will be taken from this price.") 
   } 
   $lineY = $lineY + 16 


   // TODO - Give description of the amount of resource required to make 

    
   { 
      $stickBuyPrice = sysGetBuyPrice( "Stick" ) 
      if ( $stickBuyPrice > 0 ) 
      { 
         $stickBuyText = sysGetPriceText( $stickBuyPrice ) 
         osdaddat(OSDTEXT, 50, 235, 500, 0, "", "Requires $stickRequired Stick (which you currently buy for $stickBuyText)") 
      } 
      else 
      { 
         osdaddat(OSDTEXT, 50, 235, 500, 0, "", "Requires $stickRequired Stick to make.") 
      } 
   
      $steelBuyPrice = sysGetBuyPrice( "Steel" ) 
      if ( $steelBuyPrice > 0 ) 
      { 
         $steelBuyText = sysGetPriceText( $steelBuyPrice ) 
         osdaddat(OSDTEXT, 50, 250, 500, 0, "", "Requires $steelRequired Steel (which you currently buy for $steelBuyText)") 
      } 
      else 
      { 
         osdaddat(OSDTEXT, 50,250, 500, 0, "", "Requires $steelRequired Steel to make.") 
      } 
   
      $CoalBuyPrice = sysGetBuyPrice( "Coal" ) 
      if ( $steelBuyPrice > 0 ) 
      { 
         $CoalBuyText = sysGetPriceText( $CoalBuyPrice ) 
         osdaddat(OSDTEXT,50, 265, 500, 0, "", "Requires $CoalRequired Coal (which you currently buy for $CoalBuyText)") 
      } 
      else 
      { 
         osdaddat(OSDTEXT, 50, 265, 500, 0, "", "Requires $steelRequired Steel to make.") 
      } 
   } 

   osdaddat(OSDBUTTON, 50, 300, 200, 25, "Main", "Main Page") 
   osdaddat(OSDEXITBUTTON, 50, 330, 200, 20, "", "Close") 
   osdactivate() 
} 

Event( "OSDSelect", "MedSmithOSD:ChangePrice" ) 
{ 
   $itemNum = $gParam[1] 

   if ( $itemNum == 0 ) 
   { 
      *msg %PLAYER% You cannot currently make Hammer 
      $ret = MedBlacksmithOwnerSetPricesOSD( ) 
   } 
   else 
   { 
      $ret = MedBlacksmithShowItemSetPriceOSD( $itemNum ) 
   } 
} 

Function      MedBlacksmithShowSetPriceListItem( $itemNum, $lineY ) 
{ 
   $itemName = sysGetItemName( $itemNum ) 
   $sellPrice = sysGetSellPrice( $itemNum ) 

   if ( $sellPrice > 0 ) 
   { 
      $priceText = sysGetPriceText( $sellPrice ) 
      osdaddat(OSDBUTTON, 150, $lineY, 250, 20, "ChangePrice|$itemNum", "$itemName ($priceText)") 
   } 
   else 
   { 
      osdaddat(OSDBUTTON, 150, $lineY, 250, 20, "ChangePrice|$itemNum", "$itemName (Not selling)") 
   } 

} 

Function      MedBlacksmithOwnerSetPricesOSD( ) 
{ 
   osdcreate(OSDBUILDING,"MedSmithOSD", "" ) 
   osdaddat(OSDTEXT, 20, 10, 560, 0, "", "Note the building can only make and sell items if you have a worker") 
    
   osdaddat(OSDSMALLTEXT, 150, 31, 0, 0, "", "Sell Price") 
   $lineY = 50 

   $ret = MedBlacksmithShowSetPriceListItem( 1, $lineY )      // Axe 
   $lineY = $lineY + 30 
   $ret = MedBlacksmithShowSetPriceListItem( 7, $lineY )      // Bag of nail 
   $lineY = $lineY + 30 
   $ret = MedBlacksmithShowSetPriceListItem( 5, $lineY )      // pickaxe 
   $lineY = $lineY + 30 
   $ret = MedBlacksmithShowSetPriceListItem( 8 , $lineY )      // Plough 
   $lineY = $lineY + 30 
   $ret = MedBlacksmithShowSetPriceListItem( 9 , $lineY )      // Hammer 
   $lineY = $lineY + 30 

   osdaddat(OSDBUTTON, 50, 300, 200, 25, "Main", "Main Page") 
   osdaddat(OSDEXITBUTTON, 50, 330, 200, 20, "", "Close") 
   osdactivate() 
} 


Event( "OSDSelect", "MedSmithOSD:SetPrices" ) 
{ 
   $ret = MedBlacksmithOwnerSetPricesOSD() 
} 

Event( "OSDSelect", "MedSmithOSD:SetWage" ) 
{ 
   *setwage $gBuildingNum $gParam[1] 
   $ret = MedBlacksmithOwnerWorkerAdminOSD() 
} 

Event( "OSDSelect", "MedSmithOSD:Sack" ) 
{ 
   if ( $gBuildingNumEmployees > 0 ) 
   { 
      $employeeID = sysGetEmployeeID( 0 ) 
      $name = sysGetPlayerName( $employeeID ) 
      *removeemployee $gBuildingNum $name 
       
      // Clear the ore that was going to go to the employee 
      if ( $gBuildingVar[10] > 0 ) 
      { 
         *grantitem $name $gBuildingVar[10] Gold 
         $gBuildingVar[10] = 0 
      } 
      *msg %PLAYER% You fired your worker 
   } 
   CustomEvent( "MedBlacksmithAccessInit" ) 
} 

Function      MedBlacksmithOwnerWorkerAdminOSD() 
{ 
   osdcreate(OSDBUILDING,"MedSmithOSD", "" ) 
//   osdaddat(OSDIMAGE, 30, 10, 128, 128, "", "http://gameislands.net/gamecontent/civilization/menus/constructfarm1.jpg") 

   $wageText = sysGetPriceText( $gBuildingWage ) 
   if ( $gBuildingNumEmployees > 0 ) 
   { 
      $employeeID = sysGetEmployeeID( 0 ) 
      $name = sysGetPlayerName( $employeeID ) 
       
      osdaddat(OSDTEXT, 160,115,440,0, "", "You currently employ $name at a rate of $wageText per item") 
      osdaddat(OSDBUTTON, 220,140,300,25, "Sack", "Fire Worker") 
   } 
   else 
   { 
      osdaddat(OSDBIGTEXT, 20,100,560,0, "", "Set Wage (cost per item made)") 
      osdaddat(OSDVALUE, 215, 140, 150, 25, "wageval", "$gBuildingWage|1|500" ) 
      osdaddat(OSDBUTTON, 200,180,150,20, "SetWage|&wageval", "Confirm") 
      osdaddat(OSDBUTTON, 400,180,150,20, "SetWage|0", "Not employing") 
   } 

   if ( $gBuildingWage > 0 ) 
   { 
      osdaddat(OSDTEXT, 20, 250, 560, 20, "", "Current wage is $wageText per item produced.") 
   } 
   else 
   { 
      osdaddat(OSDTEXT, 20, 250, 560, 20, "", "You currently have no wage set so will not be employing anyone") 
   } 

   osdaddat(OSDBUTTON, 20, 300, 200, 25, "Main", "Main Page") 
   osdaddat(OSDEXITBUTTON, 20, 335, 150, 20, "", "Close") 
   osdactivate() 
} 

Event( "OSDSelect", "MedSmithOSD:Admin" ) 
{ 
   $ret = MedBlacksmithOwnerWorkerAdminOSD() 
} 




Function      MedBlacksmithOwnerOSD( ) 
{ 
   osdcreate(OSDBUILDING,"MedSmithOSD", "" ) 
   $stickInStocks = sysAmountInStocks( "Stick" ) 
   $steelInStocks = sysAmountInStocks( "Steel" )
   $coalInStocks = sysAmountInStocks( "Coal" ) 
   $stickBuyPrice = sysGetBuyPrice( "Stick" ) 
   $steelBuyPrice = sysGetBuyPrice( "Steel" ) 
   $CoalBuyPrice = sysGetBuyPrice( "Coal" )
   $investText = sysGetPriceText( $gBuildingInvestment ) 
   osdaddat(OSDTEXT, 20, 10, 560, 0, "", "Current investment : $investText") 

   if ( $stickBuyPrice == 0 ) 
   { 
      osdaddat(OSDTEXT, 20, 35, 560, 0, "", "$stickInStocks Stick currently in storage - Not currently buying") 
   } 
   else 
   { 
      $stickBuyPriceText = sysGetPriceText( $stickBuyPrice ) 
      osdaddat(OSDTEXT, 20, 35, 560, 0, "", "$stickInStocks Stick currently in storage - Buying at $stickBuyPriceText each (Until $gBuildingVar[6] in storage)") 
   } 


   if ( $steelBuyPrice == 0 ) 
   { 
      osdaddat(OSDTEXT, 20, 50, 560, 0, "", "$steelInStocks Steel currently in storage - Not currently buying") 
   } 
   else 
   { 
      $steelBuyPriceText = sysGetPriceText( $steelBuyPrice ) 
      osdaddat(OSDTEXT, 20, 50, 560, 0, "", "$steelInStocks Steel currently in storage - Buying at $steelBuyPriceText each (Until $gBuildingVar[7] in storage)") 
   } 


   if ( $CoalBuyPrice == 0 ) 
   { 
      osdaddat(OSDTEXT, 20, 65, 560, 0, "", "$CoalInStocks Coal currently in storage - Not currently buying") 
   } 
   else 
   { 
      $CoalBuyPriceText = sysGetPriceText( $CoalBuyPrice ) 
      osdaddat(OSDTEXT, 20, 65, 560, 0, "", "$CoalInStocks Coal currently in storage - Buying at $CoalBuyPriceText each (Until $gBuildingVar[8] in storage)") 
   } 


   osdaddat(OSDBUTTON, 200, 100, 200, 25, "StickAdmin", "Supplies Admin") 


   osdaddat(OSDFADEDTEXT, 20, 140, 560, 20, "", "Made here so far:") 
   $lineY = 165 
   osdaddat(OSDTEXT, 100, $lineY, 0, 20, "", "$gBuildingVar[3] Axes") 
   $lineY = $lineY + 20 
   osdaddat(OSDTEXT, 100, $lineY, 0, 20, "", "$gBuildingVar[4] Bag of nails") 
   $lineY = $lineY + 20 
   osdaddat(OSDTEXT, 100, $lineY, 0, 20, "", "$gBuildingVar[5] Pickaxes") 
   $lineY = 165 
   osdaddat(OSDTEXT, 350, $lineY, 0, 20, "", "$gBuildingVar[12] Ploughs") 
   $lineY = $lineY + 20 
   osdaddat(OSDTEXT, 350, $lineY, 0, 20, "", "$gBuildingVar[13] Hammer") 
   $lineY = $lineY + 20 

   $lineY = $lineY + 30 
   osdaddat(OSDBUTTON, 200, $lineY, 200, 25, "SetPrices", "Set Prices") 

   $ret = MedBlacksmithShowOwnerEmployeeDisplay( 50, 300, $gBuildingWage, 0, 100 ) 

   osdaddat(OSDBUTTON, 200, 320, 200, 25, "Admin", "Worker Admin") 
   osdactivate() 

} 

Function   MedBlacksmithTaskComplete( $taskNum ) 
{ 
   if ( $taskNum == 1 )      // Axe 
   { 
      $itemNum = 1 
      $gBuildingVar[3] = $gBuildingVar[3] + 1 
   } 
   else if ( $taskNum == 2 )   // Bag of Nail 
   { 
      $itemNum = 7 
      $gBuildingVar[4] = $gBuildingVar[4] + 1 
   } 
   else if ( $taskNum == 3 )   // Pickaxe 
   { 
      $itemNum = 5 
      $gBuildingVar[5] = $gBuildingVar[5] + 1 
   } 
   else if ( $taskNum == 4 )   // Plough 
   { 
      $itemNum = 8 
      $gBuildingVar[12] = $gBuildingVar[12] + 1 
   } 
   else if ( $taskNum == 5 )      // Hammer 
   { 
      $itemNum = 9 
      $gBuildingVar[13] = $gBuildingVar[13] + 1 
   } 

   $itemName = sysGetItemName( $itemNum ) 
   *grantitem %PLAYER% 1 $itemName 

} 

Event( "OSDSelect", "MedSmithOSD:Make" ) 
{ 
   $price = sysGetSellPrice( $gParam[1] ) 
   if ( $gParam[1] == 1 )      // Axe 
   { 
      $stickRequired = $kAxeStickRequired 
	$steelRequired = $kAxesteelRequired
 	$coalRequired = $kAxecoalRequired
   } 
   else if ( $gParam[1] == 7 )      // Bag of Nail 
   { 
       $stickRequired = $kBag of Nail StickRequired 
	$steelRequired = $kBag of Nail steelRequired
 	$coalRequired = $kBag of Nail coalRequired
   } 
   else if ( $gParam[1] == 5 )      // Pickaxe 
   { 
       $stickRequired = $kPickaxe StickRequired 
	$steelRequired = $kPickaxe steelRequired
 	$coalRequired = $kPickaxe coalRequired
   } 
   else if ( $gParam[1] == 8 )      // Plough 
   { 
      $stickRequired = $kPloughStickRequired 
	$steelRequired = $kPloughsteelRequired
 	$coalRequired = $kPloughcoalRequired
   } 
   else if ( $gParam[1] == 9 )      // Hammer 
   { 
       $stickRequired = $kHammerStickRequired 
	$steelRequired = $kHammersteelRequired
 	$coalRequired = $kHammercoalRequired
   } 



   if ( $price <= $gPlayerCash ) 
   { 
     
      if ( $gBuildingWage < $price ) 
      { 
	else if ( $coalRequired > 0 )
         { 
            $coalInStocks = sysAmountInStocks( "coal" ) 

            if ( $stickRequired <= $stickInStocks )
		else if ( $steelRequired <= $steelInStocks )
		else if ( $coalRequired <= $coalInStocks ) 
            {    
               $amountForInvest = $price - $gBuildingWage 
               
               $gBuildingVar[10] = $gBuildingVar[10] + $gBuildingWage 

              
               *grantcash %PLAYER% -$price 
               *addtoinvestment $gBuildingNum $amountForInvest 
               *removefromstocks $gBuildingNum,$stickRequired,Stick 
		*removefromstocks $gBuildingNum,$steelRequired,steel
		*removefromstocks $gBuildingNum,$coalRequired,coal 
	
              
               if ( $gParam[1] == 1 )      // Axe 
               { 
                  *dobuildingtask %PLAYER% $gBuildingAccessNum 13 Waiting for the blacksmith to make your Axe 
               } 
               else if ( $gParam[1] == 7 )      // Bag of Nail 
               { 
                  *dobuildingtask %PLAYER% $gBuildingAccessNum 14 Waiting for the blacksmith to make your Bag of Nail 
               } 
               else if ( $gParam[1] == 5 )      // Pickaxe 
               { 
                  *dobuildingtask %PLAYER% $gBuildingAccessNum 15 Waiting for the blacksmith to make your pickaxe 
               } 
		else ( $gParam[1] == 8 )      // Plough 
               { 
                  *dobuildingtask %PLAYER% $gBuildingAccessNum 16 Waiting for the blacksmith to make your Plough 
               } 
               else if ( $gParam[1] == 9 )      // Hammer 
               { 
                  *dobuildingtask %PLAYER% $gBuildingAccessNum 17 Waiting for the blacksmith to make your Hammer 
               } 
            
	    }
         } 
     } 
} 
}
}
}

//------------------------------------------------------------- 
//  Visitor item OSD 



Function      MedBlacksmithVisitorShowItemOSD( $lineY, $itemNum, $stickRequired, $steelRequired, $coalRequired ) 
{ 
   $itemName = sysGetItemName( $itemNum ) 
   $sellPrice = sysGetSellPrice( $itemNum ) 

   $textY = $lineY + 5 
   osdaddat(OSDBIGTEXT, 50, $lineY, 0, 0, "", "$itemName") 
   if ( $sellPrice > 0 ) 
   { 
      $sellPriceText = sysGetPriceText( $sellPrice ) 
      osdaddat(OSDTEXT, 130, $textY, 0, 0, "", "for $sellPriceText") 
    
      $bCanMake = 0; 

      if ( $stickRequired > 0 ) 
      { 
         $stickInStocks = sysAmountInStocks( "Stick" ) 
         if ( $stickInStocks >= $stickRequired ) 
         { 
            $bCanMake = 1 
         } 
      } 
      else 
      { 
         $steelInStocks = sysAmountInStocks( "Steel" ) 
         if ( $steelInStocks >= $steelRequired ) 
         { 
            $bCanMake = 1 
         } 

      } 
      else 
      { 
         $coalInStocks = sysAmountInStocks( "coal" ) 
         if ( $coalInStocks >= $coalRequired ) 
         { 
            $bCanMake = 1 
         } 

      } 


      if ( $bCanMake == 1 ) 
      { 
         if ( $gPlayerCash >= $sellPrice ) 
         { 
            osdaddat(OSDEXITBUTTON, 400, $lineY, 150, 25, "Make|$itemNum", "Make $itemName") 
         } 
         else 
         { 
            osdaddat(OSDFADEDBUTTON, 400, $lineY, 150, 25, "", "(Not enough cash)") 
         } 
      } 
      else 
      { 
         if ( $stickRequired > 0 ) 
         { 
            osdaddat(OSDFADEDBUTTON, 400, $lineY, 150, 25, "", "(Not enough stick)") 
         } 
         else 
         { 
            osdaddat(OSDFADEDBUTTON, 400, $lineY, 150, 25, "", "(Not enough steel)") 
         } 
	 else 
         { 
            osdaddat(OSDFADEDBUTTON, 400, $lineY, 150, 25, "", "(Not enough coal)") 
         } 
      } 
   } 
   else 
   { 
      osdaddat(OSDTEXT, 130, $textY, 0, 0, "", "(Not for sale)") 
      osdaddat(OSDFADEDBUTTON, 400, $lineY, 150, 25, "", "Purchase $itemName") 
   } 
   $textY = $lineY + 19 
   if ( $stickRequired > 0 ) 
   { 
      osdaddat(OSDSMALLTEXT, 70, $textY, 0, 0, "", "Requires $stickRequired Stick in building") 
   } 
   else 
   { 
      osdaddat(OSDSMALLTEXT, 70, $textY, 0, 0, "", "Requires $steelRequired Steel in building") 
   } 
   else 
   { 
      osdaddat(OSDSMALLTEXT, 70, $textY, 0, 0, "", "Requires $coalRequired Coal in building") 
   } 
} 

Event( "OSDSelect", "MedSmithOSD:SellStick" ) 
{ 
   $stickBuyPrice = sysGetBuyPrice( "Stick" ) 
   if ( $stickBuyPrice > 0 ) 
   { 
      $stickInStocks = sysAmountInStocks( "Stick" ) 
      if ( $stickInStocks < $gBuildingVar[6] ) 
      { 
         if ( $gBuildingInvestment >= $stickBuyPrice ) 
         { 
            $hasStick = sysPlayerInventory("Stick") 
            if ( $hasStick >= 1 ) 
            { 
               *grantitem %PLAYER% -1 Stick 
               *addtostocks $gBuildingNum,1,Stick 
               *removefrominvestment $gBuildingNum $stickBuyPrice 
               *grantcash %PLAYER% $stickBuyPrice 
            } 
         } 
      } 
   } 
   $ret = MedBlacksmithVisitorOSD() 
} 

Event( "OSDSelect", "MedSmithOSD:Sellsteel" ) 
{ 
   $steelBuyPrice = sysGetBuyPrice( "steel" ) 
   if ( $stickBuyPrice > 0 ) 
   { 
      $steelInStocks = sysAmountInStocks( "steel" ) 
      if ( $steelInStocks < $gBuildingVar[7] ) 
      { 
         if ( $gBuildingInvestment >= $steelBuyPrice ) 
         { 
            $hassteel = sysPlayerInventory("steel") 
            if ( $hassteel >= 1 ) 
            { 
               *grantitem %PLAYER% -1 steel
               *addtostocks $gBuildingNum,1,steel 
               *removefrominvestment $gBuildingNum $steelBuyPrice 
               *grantcash %PLAYER% $steelBuyPrice 
            } 
         } 
      } 
   } 
   $ret = MedBlacksmithVisitorOSD() 
} 

Event( "OSDSelect", "MedSmithOSD:Sellcoal" ) 
{ 
   $coalBuyPrice = sysGetBuyPrice( "coal" ) 
   if ( $coalBuyPrice > 0 ) 
   { 
      $coalInStocks = sysAmountInStocks( "coal" ) 
      if ( $coalInStocks < $gBuildingVar[8] ) 
      { 
         if ( $gBuildingInvestment >= $coalBuyPrice ) 
         { 
            $hascoal = sysPlayerInventory("coal") 
            if ( $hascoal >= 1 ) 
            { 
               *grantitem %PLAYER% -1 coal
               *addtostocks $gBuildingNum,1,coal
               *removefrominvestment $gBuildingNum $coalBuyPrice 
               *grantcash %PLAYER% $coalBuyPrice 
            } 
         } 
      } 
   } 
   $ret = MedBlacksmithVisitorOSD() 
} 


Event( "OSDSelect", "MedSmithOSD:Collect" ) 
{ 
   $employeeID = sysGetEmployeeID( 0 ) 
   if ( $employeeID == $gPlayerID ) 
   { 
      if ( $gBuildingVar[10] > 0 ) 
      { 
         *grantcash %PLAYER% $gBuildingVar[10] 
         $gBuildingVar[10] = 0 
      } 
   } 
   $ret = MedBlacksmithVisitorOSD() 
} 

Event( "OSDSelect", "MedSmithOSD:JobApply" ) 
{ 
   osdcreate(OSDBUILDING,"MedSmithOSD", "" ) 
   $hasSkill = sysPlayerSkillLevel("Blacksmith") 

   if ( $hasSkill < 1 ) 
   { 
      osdaddat(OSDTEXT, 10, 160, 580, 20, "", "You need the 'Blacksmith' skill to be able to take a job here.") 
   } 
   else 
   { 
      $oldJobCount = $gPlayerNumJobs 
      *addemployee $gBuildingNum %PLAYER% 
      if ( $gPlayerNumJobs > $oldJobCount ) 
      { 
         osdaddat(OSDTEXT, 10, 160, 580, 20, "", "Welcome to your new job.") 
         osdaddat(OSDTEXT, 50, 190, 500, 20, "", "You don't need to do anything to work here - though filling the building with Sticks, Steel or Coal may help keep wages regular - just come back occasionally to collect your pay") 
      } 
      else 
      { 
         osdaddat(OSDTEXT, 10, 160, 580, 20, "", "There was a problem with your application.")     
         osdaddat(OSDTEXT, 10, 190, 580, 20, "", "Please try again later.")     
      } 
   } 
    
   osdaddat(OSDEXITBUTTON, 50, 330, 200, 20, "", "Close") 
   osdactivate() 
} 

Event( "OSDSelect", "MedSmithOSD:QuitJob" ) 
{ 
   *removeemployee $gBuildingNum %PLAYER% 
   *msg %PLAYER% You left your job at the Blacksmith 
   $ret = MedBlacksmithVisitorOSD() 
} 


Function      MedBlacksmithVisitorOSD( ) 
{ 
   $numEmployed = $gBuildingNumEmployees; 
   $maxEmployed = $gBuildingMaxEmployees; 
   $employeeID = sysGetEmployeeID( 0 ) 
   $stickInStocks = sysAmountInStocks( "Stick" ) 
   $steelInStocks = sysAmountInStocks( "Steel" ) 
   $coalInStocks = sysAmountInStocks( "Coal" ) 

   osdcreate(OSDBUILDING,"MedSmithOSD", "" ) 

   if ( $numEmployed > 0 ) 
   { 
      if ( $gBuildingInvestment > 0 ) 
      { 
         $investText = sysGetPriceText( $gBuildingInvestment ) 
      } 
      else 
      {    
         $investText = "nothing" 
      } 
      osdaddat(OSDTEXT, 50, 0, 0, 0, "", "The smith will make items for you for a price..") 
      osdaddat(OSDFADEDSMALLTEXT, 90, 15, 0, 0, "", "  (Current stocks : $stickInStocks Stick, $steelInStocks Steel, $coalInStocks Coal. Investment : $investText)") 

      $ret = MedBlacksmithVisitorShowItemOSD( 40, 229, $kAxeStickRequired,$kAxesteelRequired,$kAxecoalRequired  )              // Axe 
      $ret = MedBlacksmithVisitorShowItemOSD( 80, 115, $kBag of nailStickRequired,$kBag of nailsteelRequired,$kBag of nailcoalRequired  )      // Bag of nail 
      $ret = MedBlacksmithVisitorShowItemOSD( 120, 117, $kPickaxeStickRequired,$kPickaxesteelRequired,$kPickaxecoalRequired  )         // Pickaxe 
      $ret = MedBlacksmithVisitorShowItemOSD( 160, 224, $kPloughStickRequired,$kPloughsteelRequired,$kPloughcoalRequired )       // Plough 
      $ret = MedBlacksmithVisitorShowItemOSD( 200, 242, $kHammerStickRequired,$kHammersteelRequired,$kHammercoalRequired  )      // Hammer 

      $name = sysGetPlayerName( $employeeID ) 
      osdaddat(OSDTEXT, 20, 250, 560, 20, "", "Employs: $name (Blacksmith)") 

      if ( $employeeID == $gPlayerID ) 
      { 
         osdaddat(OSDBUTTON, 30, 250, 100, 20, "QuitJob", "Quit Job") 

         if ( $gBuildingVar[10] > 0 ) 
         { 
            osdaddat(OSDBUTTON, 460, 250, 100, 20, "Collect", "Collect pay") 
         } 
         else 
         { 
            osdaddat(OSDFADEDBUTTON, 460, 250, 100, 20, "", "Collect pay") 
         } 

         $wageText = sysGetPriceText( $gBuildingVar[10] ) 
         osdaddat(OSDSMALLTEXT, 460, 275, 100, 20, "", "$wageText") 
      } 
   } 
   else 
   { 
      osdaddat(OSDTEXT, 20, 80, 560, 0, "", "The Blacksmith building does not function unless it has an employee") 
       
      if ( $gBuildingWage == 0 ) 
      { 
         osdaddat(OSDTEXT, 20, 170, 560, 20, "", "Not currently seeking an employee") 
      } 
      else if ( $numEmployed < $maxEmployed ) 
      { 
         $wageText = sysGetPriceText( $gBuildingWage ) 
         osdaddat(OSDTEXT, 40, 170, 520, 20, "", "There is currently a job available for a Blacksmith at $wageText per item produced.") 
         if ( $gPlayerNumJobs < $kMaxNumJobs ) 
         { 
            $isBlacksmith = sysPlayerSkillLevel("Blacksmith") 
            if ( $isBlacksmith > 0 ) 
            { 
               if ( $gPlayerNumJobs < $kMaxNumJobs ) 
               { 
                  osdaddat(OSDBUTTON, 150, 200, 300, 30, "JobApply", "Apply for Job")           
               } 
               else 
               { 
                  osdaddat(OSDFADEDBUTTON, 150, 200, 300, 30, "", "(You already have a job elsewhere)")           
               } 
            } 
            else 
            { 
               osdaddat(OSDFADEDBUTTON, 150, 200, 300, 30, "", "(Blacksmith skill required)")           
            } 
         } 
         else 
         { 
            osdaddat(OSDFADEDBUTTON, 150, 200, 300, 30, "", "(You already have a job)") 
         }    
      } 
   } 

   $hasShownMessage = 0 
   $stickBuyPrice = sysGetBuyPrice( "Stick" ) 
   $steelBuyPrice = sysGetBuyPrice( "Steel" ) 
   $coalBuyPrice = sysGetBuyPrice( "Coal" ) 
   if ( $stickBuyPrice > 0 ) 
   { 
      if ( $stickInStocks < $gBuildingVar[6] ) 
      { 
         if ( $gBuildingInvestment >= $stickBuyPrice ) 
         { 
            $stickBuyPriceText = sysGetPriceText( $stickBuyPrice ) 
            if ( $steelBuyPrice > 0 ) 
            { 
               $steelBuyPriceText = sysGetPriceText( $steelBuyPrice ) 
               osdaddat(OSDTEXT, 40, 290, 520, 20, "", "This building will buy Stick at $stickBuyPriceText and Steel at $steelBuyPriceText") 
            } 
            else 
            { 
               osdaddat(OSDTEXT, 40, 290, 520, 20, "", "This building will buy Stick at $stickBuyPriceText per stick") 
            } 
            $hasShownMessage = 1 
            $buttonX = 310 
            $hasStick = sysPlayerInventory("Stick") 
            if ( $hasStick > 0 ) 
            { 
               osdaddat(OSDBUTTON, $buttonX, 310, 130, 25, "SellStick", "Sell Stick") 
            } 
            else 
            { 
               osdaddat(OSDFADEDBUTTON, $buttonX, 310, 130, 25, "", "Sell Stick") 
            }    
         } 
      }       
   } 

   if ( $steelBuyPrice > 0 ) 
   { 
      if ( $steelInStocks < $gBuildingVar[7] ) 
      { 
         if ( $gBuildingInvestment >= $steelBuyPrice ) 
         { 
            $buttonX = 380 
            $hasSteel = sysPlayerInventory("Steel") 
            if ( $hasSteel > 0 ) 
            { 
               osdaddat(OSDBUTTON, $buttonX, 310, 140, 25, "SellSteel", "Sell Steel") 
            } 
            else 
            { 
               osdaddat(OSDFADEDBUTTON, $buttonX, 310, 140, 25, "", "Sell Steel") 
            }    
         } 
      } 
   } 
   if ( $CoalBuyPrice > 0 ) 
   { 
      if ( $CoalInStocks < $gBuildingVar[8] ) 
      { 
         if ( $gBuildingInvestment >= $CoalBuyPrice ) 
         { 
            $buttonX = 450 
            $hasCoal = sysPlayerInventory("Coal") 
            if ( $hasCoal > 0 ) 
            { 
               osdaddat(OSDBUTTON, $buttonX, 310, 140, 25, "SellCoal", "Sell Coal") 
            } 
            else 
            { 
               osdaddat(OSDFADEDBUTTON, $buttonX, 310, 140, 25, "", "Sell Coal") 
            }    
         } 
      } 
   } 

   if ( $employeeID == $gPlayerID ) 
   { 
      if ( $hasShownMessage == 0 ) 
      { 
         osdaddat(OSDTEXT, 20, 290, 560, 0, "", "$stickInStocks Stick, $steelInStocks Steel, $coalInStocks Coal currently in storage") 
      } 

      if ( $stickInStocks < $kMaxStickInStorage ) 
      { 
         $hasStick = sysPlayerInventory("Stick") 
         if ( $hasStick > 0 ) 
         { 
            osdaddat(OSDBUTTON, 40, 310, 120, 25, "WorkerAddStick", "Add Stick") 
         } 
         else 
         { 
            osdaddat(OSDFADEDBUTTON, 40, 310, 120, 25, "", "Add Stick") 
         } 
      } 
      else 
      { 
         osdaddat(OSDFADEDBUTTON, 40, 310, 120, 25, "", "Add Stick") 
      } 

      if ( $steelInStocks < $kMaxSteelInStorage ) 
      { 
         $hasSteel = sysPlayerInventory("Steel") 
         if ( $hasSteel > 0 ) 
         { 
            osdaddat(OSDBUTTON, 170, 310, 120, 25, "WorkerAddSteel", "Add Steel") 
         } 
         else 
         { 
            osdaddat(OSDFADEDBUTTON, 170, 310, 120, 25, "", "Add Steel") 
         } 
      } 
      else 
      { 
         osdaddat(OSDFADEDBUTTON, 170, 310, 120, 25, "", "Add Steel") 
      } 
      
      if ( $CoalInStocks < $kMaxCoalInStorage ) 
      { 
         $hasCoal = sysPlayerInventory("Coal") 
         if ( $hasCoal > 0 ) 
         { 
            osdaddat(OSDBUTTON, 170, 310, 120, 25, "WorkerAddCoal", "Add Coal") 
         } 
         else 
         { 
            osdaddat(OSDFADEDBUTTON, 170, 310, 120, 25, "", "Add Coal") 
         } 
      } 
      else 
      { 
         osdaddat(OSDFADEDBUTTON, 170, 310, 120, 25, "", "Add Coal") 
      } 
   } 
   else 
   { 
      if ( $hasShownMessage == 0 ) 
      { 
         osdaddat(OSDTEXT, 20, 290, 560, 0, "", "$stickInStocks Stick, $steelInStocks Steel, $coalInStocks Coal currently in storage") 
      } 
   } 

   osdaddat(OSDEXITBUTTON, 10, 340, 150, 20, "", "Close") 
   osdactivate() 
} 



Event( "Custom", "MedBlacksmithAccessInit" ) 
{ 
   if ( $gBuildingOwnerID == $gPlayerID ) 
   { 
      $ret = MedBlacksmithOwnerOSD() 
   } 
   else 
   { 
      $ret = MedBlacksmithVisitorOSD() 
   } 

} 



Event( "AccessBuilding", "$kMedBlacksmithBuildingNum" ) 
{ 
   CustomEvent( "MedBlacksmithAccessInit" ) 
} 

Event( "NewBuilding", "$kMedBlacksmithBuildingNum" ) 
{ 
   $gBuildingVar[6] = 10 
}

Posted: Mon May 27, 2013 7:17 pm
by zaroba
(posts a 1500 pixel line just to make the topic wider so the script text wont wrap and it is easier to copy/paste)

Image