////////////// // // IMDB v1.0 by Pri (19th of March 2011) // This script requires Metis v2.80 & RoboMX v2.08 // Website: http://www.renmx.com // Forum: http://www.mxpulse.com/board // /////// COMMANDS // // !IMDB [Film Name] - Perform a query to locate information about a film from IMDB // !PrivateIMDB - Typing this will set IMDB to only give results privately to those who use the command // !PublicIMDB - Typing this will set IMDB to give results to the entire room when someone uses the command // !SetIMDBColour [Number] - Set the menu colours to something other than the default Green (#c4#) to better fit your room // // Dev commands: // /APIIMDB [Film Name] - This is for developers so that they can cache content from IMDB for later use by other scripts they make // /////// SERVER SUPPORT // // WCS, RCS, ZCS, RSWCS, FXServer and Ouka are all supported out of the box // ////////////// // This usergroup is only for your admins so that they can control some of the special commands. // Everyone even if they are not in this usergroup will be able to type !IMDB [Film Name] and see the results * ®ÊN Pri * !imdb %PARAM% !imbd %PARAM% /apiimdb %PARAM% // Check that the command[s] were used at the beginning of a sentance %TRIGGER% // Check that the scripts folder and settings file has been setup. If it hasn't do it. cmd.exe /c MD C:\Pri.Script.Dependencies\IMDB\Ratings 1 // Pop some varibles for later use 1 // Load in the menucolour selected by the admins, if nothing found default is #c4# // Check if the script has been set to Public or Private Mode // If the user has selected to use private commands formulate how it should look for this query // Check if there is a Cache for this Movie already and if there is, output it to the room %PARAM% // If this cache was made with an earlier version of this script then don't use the cache and use a new query instead 00-00-00 // Always bypass the cache if this lookup was triggered by the API command %USERVAR[Server_Private_Command]%%USERVAR[LOOKEDUPTODAY1]% #c63#(#c62#Cache#c63#) %USERVAR[Server_Private_Command]%%USERVAR[LOOKEDUPTODAY2]% %USERVAR[Server_Private_Command]%%USERVAR[LOOKEDUPTODAY3]% %USERVAR[Server_Private_Command]%%USERVAR[LOOKEDUPTODAY4]% %USERVAR[Server_Private_Command]%%USERVAR[LOOKEDUPTODAY5]% %USERVAR[Server_Private_Command]%%USERVAR[LOOKEDUPTODAY6]% %USERVAR[Server_Private_Command]%%USERVAR[LOOKEDUPTODAY7]% %USERVAR[Server_Private_Command]%%USERVAR[LOOKEDUPTODAY8]% %USERVAR[Server_Private_Command]%%USERVAR[LOOKEDUPTODAY9]% %USERVAR[Server_Private_Command]%%USERVAR[LOOKEDUPTODAY10]% %USERVAR[Server_Private_Command]%%USERVAR[LOOKEDUPTODAY11]% %USERVAR[Server_Private_Command]%#c1# #c62# %USERVAR[Server_Private_Command]%#c62# <· #c4#%USERVAR[Menu_Colour]%Room Rating %USERVAR[Server_Private_Command]%#c1# #c1# #c1# #c1# #c1# #c1#Liked By#c63#: #c10#%USERVAR[IMDB_LIKE]% #c62#·> %USERVAR[Server_Private_Command]%#c1# #c1# #c1# #c1# #c1# #c1#Hated By#c63#: #c10#%USERVAR[IMDB_HATE]% #c62#·> // Check for an updated version of this script v1.0 /opmsg #c4#%USERVAR[Menu_Colour]%IMDB #c63#(#c62#v1.0#c63#): #c9#%USERVAR[Version_Release_Message]% %DATE% // Download Advertisement/Credit Message // Setline 0 for a loopback 0 // Query the MXPulse IMDB API to get the films page ID (This is the v4 of the API, you can try the experimental v5 API if you want but it isn't supported by this script) %PARAM% http://imdb.mxpulse.com/v4/query.php?film=%USERVAR[PARAMTHING]% // Increase API_Response_Line by 1 // Create a cache of the 20 responses that the MXPulse API sends to the bot, but only if the first response didn't match the users query // Begin querying line 1 // Skip the Blank check if we've moved on to response 2 or above // Send a message to the user in the event that the movie couldn't be located %USERVAR[Server_Private_Command]%#c1# · #c9#Unable to locate this Movie at the IMDB, Please try again later. // Push the first result to API_Response if it has already reached a count of 21 on the reading // Locate the ID from this movie // Seperate the ID from the API's response and then compare the user query to the API's title response // The API makes avalible 20 logical suggestions of what the movie this user wants is, arranged in what the API believes is most likely at the top, least at the bottom // If the first response doesn't contain the query the user sent within it, then it checks the 2nd response then the 3rd and so on until all 20. If no match is found it chooses the 1st response // Create the URL to query using the IMDB number from MXPulse.com http://www.imdb.com/title/tt%USERVAR[IMDB_ID_Code]%/ // Query the first 1000 lines of the IMDB Page // Filter the results for reading back later on // Save the filtered output to file for reading back 1\n$string03$\n // Locate the Movie rating (out of 10) from the IMDB Page 0 $IMDB_Title_And_Year$ // Filter the rating output for outputting to the room and saving #c8#0.0 // Output the Movie Name, Rating and Page URL %USERVAR[Server_Private_Command]%#c62# <· #c4#%USERVAR[Menu_Colour]%%USERVAR[string02]% #c1#· %USERVAR[RATING]%#c63#/#c1#10 #c63#(#c62#Web#c63#) %USERVAR[Server_Private_Command]%#c1# #c1# #c1# #c1# #c1# http://www.imdb.com/title/tt%USERVAR[IMDB_ID_Code]%/ #c62#·> // Pop some Varibles for later use // Output the Director[s] of the Movie %USERVAR[Server_Private_Command]%#c1# #c62# %USERVAR[Server_Private_Command]%#c62# <· #c4#%USERVAR[Menu_Colour]%Direction %USERVAR[Server_Private_Command]%#c1# #c1# #c1# #c1# #c1# %USERVAR[string04]% #c62#·> // Read in the previous temp cache, change some .'s to Newlines, and save again $string05$ // Filter some more stuff from the temp cache // Output the Actors of the film %USERVAR[Server_Private_Command]%#c1# #c62# %USERVAR[Server_Private_Command]%#c62# <· #c4#%USERVAR[Menu_Colour]%Actors of Significance %USERVAR[Server_Private_Command]%#c1# #c1# #c1# #c1# #c1# %USERVAR[string05]% #c62#·> // Read in all the Genre information for this film 0 // Process all the possible Genres so they look nice #c9#,#c62# Action $GENRE_DATA$#c9#,#c62# Adventure $GENRE_DATA$#c9#,#c62# Animation $GENRE_DATA$#c9#,#c62# Biography $GENRE_DATA$#c9#,#c62# Comedy $GENRE_DATA$#c9#,#c62# Crime $GENRE_DATA$#c9#,#c62# Documentary $GENRE_DATA$#c9#,#c62# Drama $GENRE_DATA$#c9#,#c62# Family $GENRE_DATA$#c9#,#c62# Fantasy $GENRE_DATA$#c9#,#c62# History $GENRE_DATA$#c9#,#c62# Horror $GENRE_DATA$#c9#,#c62# Music $GENRE_DATA$#c9#,#c62# Musical $GENRE_DATA$#c9#,#c62# Romance $GENRE_DATA$#c9#,#c62# Short $GENRE_DATA$#c9#,#c62# Sci-Fi $GENRE_DATA$#c9#,#c62# Thriller $GENRE_DATA$#c9#,#c62# War No Genre Found #c63#(#c62#%USERVAR[GENRE_DATA]%#c63#) // Process the Plot 0 No Plot for that Title could be Found, try visiting the IMDB page manually using the above Address. %USERVAR[Server_Private_Command]%#c1# #c62# %USERVAR[Server_Private_Command]%#c62# <· #c4#%USERVAR[Menu_Colour]%Plot Summary %USERVAR[GENRE_DATA]% %USERVAR[Server_Private_Command]%#c1# #c1# #c1# #c1# #c1# %USERVAR[ESRESULTENTRY]% #c62#·> %USERVAR[Server_Private_Command]%#c1# #c62# %USERVAR[Server_Private_Command]%#c62# <· #c4#%USERVAR[Menu_Colour]%Room Rating %USERVAR[Server_Private_Command]%#c1# #c1# #c1# #c1# #c1# #c1#Liked By#c63#: #c10#%USERVAR[IMDB_LIKE]% #c62#·> %USERVAR[Server_Private_Command]%#c1# #c1# #c1# #c1# #c1# #c1#Hated By#c63#: #c10#%USERVAR[IMDB_HATE]% #c62#·> // Break here if the Plot for the movie wasn't found // Show an Advertisment from Pri when the script is run, create a random number between 1 and 15. If its 1 = Ad shows %RANDOMNUM[15]% // Output to room if Randum Number = 1 %USERVAR[Server_Private_Command]%#c1# #c62# %USERVAR[Server_Private_Command]%#c62# <· #c4#%USERVAR[Menu_Colour]%Advertisement %USERVAR[Server_Private_Command]%#c1# #c1# #c1# #c1# #c1# %USERVAR[Advertisement]% #c62#·> // Create a local cache of this data so that it can later be read back. This cache can last a maximum of 1 month. v1.0\n %MONTH%\n #c62# <· #c4#%USERVAR[Menu_Colour]%%USERVAR[string02]% #c1#· %USERVAR[RATING]%#c63#/#c1#10\n #c1# #c1# #c1# #c1# #c1# http://www.imdb.com/title/tt%USERVAR[IMDB_ID_Code]% #c62#·>\n #c1# #c62#\n #c62# <· #c4#%USERVAR[Menu_Colour]%Direction\n #c1# #c1# #c1# #c1# #c1# %USERVAR[string04]% #c62#·>\n #c1# #c62#\n #c62# <· #c4#%USERVAR[Menu_Colour]%Actors of Significance\n #c1# #c1# #c1# #c1# #c1# %USERVAR[string05]% #c62#·>\n #c1# #c62#\n #c62# <· #c4#%USERVAR[Menu_Colour]%Plot Summary %USERVAR[GENRE_DATA]%\n #c1# #c1# #c1# #c1# #c1# %USERVAR[ESRESULTENTRY]% #c62#·>\n !privateimdb !publicimdb // Check if the command was typed at the start of a sentence, if not break %TRIGGER% // Process which command the user typed 1\n 0 // Output to the Admins if it was set to Public Mode /opmsg #c4#%USERVAR[Menu_Colour]%IMDB #c63#(#c62#v1.0#c63#): #c1#IMDB Has been set to Public Mode /opmsg #c4#%USERVAR[Menu_Colour]%IMDB #c63#(#c62#v1.0#c63#): #c62#When this is set to Public, all IMDB results will be shown to the entire room // Break if the user selected to use Public // If the user selected PrivateIMDB, work out which server is in use 0 /hidecmd /privnotice :@:RAWNAME:@::@:SPACE:@: /hidecmd /privnotice :@:RAWNAME:@::@:SPACE:@: /message :@:RAWNAME:@::@:SPACE:@: #private :@:RAWNAME:@: #message:@:SPACE:@: // Because ZCS does not report itself as ZCS and instead as WinMX we are just going to assume that WinMX = ZCS /privnotice :@:RAWNAME:@::@:SPACE:@: // Save the command for later use %USERVAR[Server_Private_Command]% // Server not recognised Message /opmsg #c4#%USERVAR[Menu_Colour]%IMDB #c63#(#c62#v1.0#c63#): #c9#IMDB cannot be set to Private in your room as the Server #c63#(#c62#%SERVER%#c63#)#c9# is not supported by the script currently 0 // Output to the Admins if it was set to Private Mode /opmsg #c4#%USERVAR[Menu_Colour]%IMDB #c63#(#c62#v1.0#c63#): #c1#IMDB Has been set to Private Mode /opmsg #c4#%USERVAR[Menu_Colour]%IMDB #c63#(#c62#v1.0#c63#): #c62#When this is set to Private, only those who use the !IMDB command will see results // Check that WCS 1.8.8 is in use if the Server is reporting itself as WinMX 1 /stats WCS Version: %PARAM% // Tell the user that WCS was detected and that they may have seen some temporary garbled text /opmsg #c4#%USERVAR[Menu_Colour]%IMDB #c63#(#c62#v1.0#c63#): #c9#WCS %PARAM% has been detected, You may have seen some /privnotice commands above this is normal during WCS %PARAM% detection due to a bug in the server // If WCS was detected then save that 1\n/hidecmd /privnotice :@:RAWNAME:@::@:SPACE:@: // Push 0 to Checking for WCS 0 !setimdbcolour %PARAM% !setimdbcolor %PARAM% // Check if the command was typed at the start of a sentence, if not break %TRIGGER% // Encapsulate parameter with colour tags if none are present and save to file %PARAM%\n #c%PARAM%#\n // Output to the Admins what colour it has been set to /opmsg #c4#%PARAM%IMDB #c63#(#c62#v1.0#c63#): #c1#IMDB Has set its colours to#c63#: %PARAM% ||||| /opmsg #c4##c%PARAM%#IMDB #c63#(#c62#v1.0#c63#): #c1#IMDB Has set its colours to#c63#: #c%PARAM%# |||||