Need workaround for AppleScripts Running

Question

I recently upgraded to Mavericks on my MacBook Pro. Now I am trying to use software that is requesting AppleScript Runner. I understand it is no longer supported in Mavericks. Is there a workaround that will let me use my software? [Software: Wiley CulinarE - Companion 4]
I saw the scripting thread on this online, but I am not a programmer or a proficient computer geek, so if you are going to recommend script, please give me step-by-step instructions on how to access the script and change it. I am such a novice!
Thanks for your help!

Answer 1

I was able to access the two script packages contained in the application. I think the second set of script is the one that applies to this issue.... The first one is:
on run argv
          tell application "AppleScript Utility"
                    set error_message to ""
                    try
                              if ((count of argv) is 0) then
                                        tell me to syslogger("ff.script", "no arguments")
                                        return "no arguments"
                              end if
                    on error the errmsg number the errn
                              tell me to syslogger("ff.script", "no arguments")
                              return errmsg
                    end try
                    set myUrl to item 1 of argv
                    tell application "System Events"
                              if not ((exists process "Firefox") or (exists process "firefox-bin")) then
                                        tell me to syslogger("ff.script", "not exists process Firefox")
                                        return "no url. Firefox does not exist"
  --return myUrl
                              end if
                    end tell
  --set myUrl to "http://127.0.0.1:49470/"
                    tell application "Firefox"
  --activate
                              try
                                        set numTabs to 0
  -- Get URLs of all tabs
                                        set urlList to {}
                                        set numWindows to count of windows
  --display dialog "numWindows = " & (numWindows as string)
                                        if (numWindows = 0) then
                                                  tell me to syslogger("ff.script", " no url. Firefox is not runing")
                                                  return "no url Firefox is not runing"
                                        else
                                                  repeat with w from 1 to numWindows
                                                            try
  --display dialog w as string
                                                                      properties of window w
                                                            on error the errmsg number the errn
  --beep 1
  --return properties
  --return myUrl
                                                            end try
                                                  end repeat
                                        end if
                              on error the errmsg number the errn
                                        tell me to syslogger("ff.script", errmsg & " error = " & (errn as string))
                                        return errmsg
  display dialog errmsg buttons {"OK"} default button 1
                              end try
                    end tell
  --return
                    tell me to set user_dir to system attribute "HOME"
  --set myUrl to "http://127.0.0.1:49395"
                    tell me to set profile_ini to user_dir & "/Library/Application Support/Firefox/profiles.ini"
  --display dialog profile_ini
                    tell me to set bbb to CheckIfExists(profile_ini)
                    if not bbb then
  --if not CheckIfExists(profile_ini) then
                              «event panSdlog» profile_ini & " does not exist"
                    end if
                    tell me to set file_content to ReadAFile(profile_ini)
  --display dialog file_content
                    tell me to set profile_file to getProperties(file_content, "Path")
                    tell me to set sessionstore_file to user_dir & "/Library/Application Support/Firefox/" & profile_file & "/sessionstore.js"
  --display dialog sessionstore_file
                    tell me to set parent_file to user_dir & "/Library/Application Support/Firefox/" & profile_file & "/.parentlock"
                    tell me to set bbb to CheckIfExists(parent_file)
                    if not bbb then
  --if not CheckIfExists(parent_file) then
                              «event panSdlog» parent_file & " does not exist. Firefos does not work"
                              return "no parentlock"
                    end if
                    tell me to set bbb to CheckIfExists(sessionstore_file)
                    if not bbb then
  --if not CheckIfExists(sessionstore_file) then
                              «event panSdlog» sessionstore_file & " does not exist"
                              return "no sessionstore.js"
                    end if
                    tell me to set store_content to ReadAFile(sessionstore_file)
  --display dialog store_content
                    tell me to set newFFformat to 0
                    tell me to set strWindows to "{windows:[]"
                    tell me to set strTabs to "{tabs:["
                    tell me to set strClosedTabs to "_closedTabs:["
                    tell me to set prefics to "{url:\""
                    tell me to set suffics to "\","
  --set prefics to "entries:[{url:\""
  --set suffics to "\", children:["
                    if (store_content contains "{\"tabs\":[") then
  --display dialog "new format"
                              tell me to set newFFformat to 1
                              tell me to set strTabs to "{\"tabs\":["
                              tell me to set strClosedTabs to "\"_closedTabs\":["
                              tell me to set prefics to "{\"url\":\""
                              tell me to set strWindows to "{\"windows\":[]"
                    end if
                    if (store_content contains strWindows) then
  --display dialog strWindows
                              tell me to syslogger("ff.script", "sessionstore file contains " & strWindows)
                              return "no url"
                    end if
  --display dialog (store_content)
                    tell me to set content_list to splitText(strTabs as Unicode text, store_content as Unicode text)
  --display dialog (content_list as Unicode text)
  --set length_list to number of items of (content_list)
                    set length_list to count of content_list
  --return (number of items of (content_list))
  --display dialog (length_list as Unicode text)
                    if (length_list < 2) then
                              tell me to syslogger("ff.script", "Error in the sessionstore.js")
  --display dialog "Error in the " & sessionstore_file
                              return "Error in the sessionstore.js"
                    end if
                    repeat with i from 2 to (length_list)
                              tell me to set content_listItem to ((item (i) of content_list) as Unicode text)
  --display dialog "wnd " & i as string
                              tell me to set window_list to splitText(strClosedTabs as Unicode text, content_listItem as Unicode text)
                              set length_window_list to count of window_list
  --display dialog (length_window_list as Unicode text)
                              if (length_window_list = 2) then
                                        tell me to set openedTabs to ((item (1) of window_list) as Unicode text)
                                        tell me to set closedTabs to ((item (2) of window_list) as Unicode text)
                                        tell me to set opened_tabs_list to splitText(prefics, openedTabs)
                                        repeat with j from 1 to (count of opened_tabs_list)
                                                  tell me to set url_item to ((item (j) of opened_tabs_list) as Unicode text)
  --display dialog url_item
                                                  if (url_item begins with myUrl) then
                                                            tell me to set pos to offset of suffics in url_item
                                                            if (pos > 0) then
  --display dialog (pos as string)
                                                                      tell me to set full_url to "" & (get characters 1 thru pos of url_item)
  --display dialog full_url
  --display dialog closedTabs
                                                                      if (closedTabs does not contain full_url) then --not closed yet
  --display dialog "wnd " & i as string
                                                                                return myUrl
                                                                      end if
                                                            end if
                                                  end if
                                        end repeat
                              end if
                    end repeat
                    if (length of error_message > 0) then
                              tell me to syslogger("ff.script", error_message)
                    end if
                    tell me to syslogger("ff.script", "return \"no url\"")
                    return "no url"
          end tell
end run
------------------  functions ------------------------------------
on ReadAFile(filePath)
          tell me to set str to "cat " & "\"" & filePath & "\""
          tell application "Finder"
                    tell me to set filecontent to do shell script str
          end tell
          return filecontent
end ReadAFile
on CheckIfExists(filePath)
          tell application "Finder"
                    tell me to set folder_cmd to ("find \"" & filePath & "\"")
                    try
  do shell script folder_cmd
                              tell me to set worked to true
                    on error
                              tell me to set worked to false
                    end try
          end tell
          return worked
end CheckIfExists
on getProperties(content, property_name)
          tell me to set property_str to ""
          tell me to set property_list to split_paragraphs(content)
          tell me to set number_depart to 0
          repeat with theItem in property_list
                    if theItem as string is not "" then
  --display dialog theItem
                              tell me to set items_list to splitText("=", theItem)
  --set count to number of items in items_list
                              if number of items in items_list is greater than 1 then
  --property_name is in contents of (item 2 of items_list as string)
                                        if ((item 1 of items_list as string) = property_name) then
                                                  tell me to set property_str to (item 2 of items_list as string)
  --display dialog property_str
                                        end if
                                        if ((item 1 of items_list as string) = "Default" and (item 2 of items_list as string) = "1") then
  --set property_str to (item 2 of items_list as string)
  --display dialog property_str
                                                  exit repeat
                                        end if
  --display dialog property_str
                              end if
                    end if
          end repeat
--display dialog property_str
          return property_str
end getProperties
on split_paragraphs(someText)
          tell me to set oldDelims to AppleScript's text item delimiters
          set AppleScript's text item delimiters to {return}
          tell me to set TheItems to text items of someText
          repeat with theItem in TheItems
                    if theItem as string is not "" then
                              display dialog theItem
                    end if
          end repeat
          tell me to set AppleScript's text item delimiters to oldDelims
          return TheItems
end split_paragraphs
on splitText(delimiter, someText)
--display dialog (delimiter & "   " & someText)
          tell me to set prevTIDs to AppleScript's text item delimiters
          set AppleScript's text item delimiters to delimiter
          tell me to set output to text items of someText
          set AppleScript's text item delimiters to prevTIDs
          return output
end splitText
on subString(the_string, start_index, end_index)
          return "" & (get characters start_index thru end_index of the_string)
end subString
to searchReplace(thisText, searchTerm, replacement)
          set AppleScript's text item delimiters to searchTerm
          tell me to set thisText to thisText's text items
          set AppleScript's text item delimiters to replacement
          tell me to set thisText to "" & thisText
          set AppleScript's text item delimiters to {""}
          return thisText
end searchReplace
(* Logs a message to the system log (which you can monitor in Console.app). The msg is tagged with a given sender. *)
on syslogger(sender, msg)
          if (length of msg is greater than 1500) then
                    tell me to set msg to (text 1 thru 500 of msg) & " <snip> *** Sorry, Message > 1500 chars will not be reliably logged by BSD's 'logger'."
          end if
          tell me to set cmd to "logger -t " & quoted form of sender & " " & quoted form of msg
do shell script cmd
end syslogger
THE SECOND ONE IS:
on run argv
          tell application "AppleScript Runner.app"
  --display dialog "++++++++"
                    tell me to set error_message to ""
                    try
  --tell me to log "no arguments"
  --display dialog "++22++++"
                              if ((count of argv) is 0) then
                                        tell me to syslogger("sf.script", "no arguments")
                                        return "no arguments"
                              end if
                    on error the errmsg number the errn
                              tell me to set error_message to "no arguments"
                              tell me to syslogger("sf.script", "no arguments")
                              return errmsg
                    end try
                    tell me to set urlArgv to item 1 of argv
  --display dialog urlArgv
  --set urlArgv to "http://127.0.0.1:49651/"
                    tell me to set res to 0
                    tell application "System Events"
                              if not (exists process "Safari") then
                                        tell me to syslogger("sf.script", "not exists process Safari")
                                        return "no url"
                              end if
                    end tell
                    tell application "Safari"
  --activate
                              try
                                        tell me to set numTabs to 0
  -- Get URLs of all tabs
                                        tell me to set urlList to {}
                                        set numDocs to (count of document)
                                        set numWnd to (count of window)
  --display dialog "Count wnd = " & (numWnd as string)
                                        repeat with w from 1 to numWnd
  --display dialog "Curent Wnd = " & (numWnd as string)
                                                  try
                                                            set numTabs to count of tab of window w
  --display dialog "Count Tab = " & (numTabs as Unicode text)
                                                            repeat with t from 1 to numTabs
                                                                      try
                                                                                set tabURL to (URL of item t of tabs of window w)
  --display dialog tabURL
                                                                                if (tabURL contains urlArgv) then
  --display dialog urlArgv
  --tell me to syslogger("sf.script", urlArgv)
                                                                                          return urlArgv
                                                                                end if
                                                                      on error
                                                                                tell me to set error_message to ("error  with tab = " & (t as string) & "   " & errmsg)
                                                                                tell me to syslogger("sf.script", "error  with tab = " & (t as string) & "   " & errmsg)
                                                                      end try
                                                            end repeat
                                                  on error the errmsg number the errn
                                                            tell me to set error_message to ("error  with wnd = " & (w as string) & "   " & errmsg)
                                                            tell me to syslogger("sf.script", "error  with wnd = " & (w as string) & "   " & errmsg)
                                                  end try
                                        end repeat
                              on error the errmsg number the errn
                                        if errn is -1708 then
  --display dialog (errmsg & "  error = " & (errn as string)) buttons {"OK"} default button 1
                                                  tell me to syslogger("sf.script", errmsg & "  error = " & (errn as string))
                                                  return urlArgv
  --return "no url"
                                        end if
                                        tell me to set error_message to (errmsg & "  error = " & (errn as string))
                                        tell me to syslogger("sf.script", errmsg & "  error = " & (errn as string))
  --display dialog errmsg buttons {"OK"} default button 1
                              end try
                    end tell
                    if (length of error_message > 0) then
                              tell me to syslogger("sf.script", error_message)
                    end if
                    tell me to syslogger("sf.script", "return \"no url\"")
                    return "no url"
          end tell
end run
(* Logs a message to the system log (which you can monitor in Console.app). The msg is tagged with a given sender. *)
on syslogger(sender, msg)
          try
                    if (length of msg is greater than 1500) then
                              set msg to (text 1 thru 500 of msg) & " <snip> *** Sorry, Message > 1500 chars will not be reliably logged by BSD's 'logger'."
                    end if
                    set cmd to "logger -t " & quoted form of sender & " " & quoted form of msg
  do shell script cmd
          on error the errmsg number the errn
          end try
end syslogger