|
Veteran Member
|
06-04-2009
, 15:19
Re: All Approved AMXX Plugins in one zip
|
#9
|
Completing this project was a learning experience for me, so my first attempt was very messy and hard to follow. I don't want to bother trying to explain how I initially approached the problem, so I put all of the steps into one script, and it worked!
If you have AutoHotkey, you can try my script. I welcome suggestions to improve the script. There are some lazy steps and possibly some mistakes.
However, One's plugin was downloaded this time, so I must be doing something right. 
I won't post the zips anymore because they are large. If you want to download all of the plugins, you can try running my script. It usually takes ~5-10 minutes to complete.
Code:
;
; Approved AMXX Plugin Downloader
; Language: English
; Platform: Win9x/NT
; Author: stupok <[email protected]>
;
; Script Function:
; This script downloads all AMXX approved plugins to a folder called "Approved AMXX Plugins" by parsing html code.
;
#NoEnv
#SingleInstance FORCE
SendMode Input
SetWorkingDir %A_ScriptDir%
; number of entries in the approved plugins list
MAXPLUGINS := 1783
; name of main folder
MAINFOLDER := "Approved AMXX Plugins"
; temp file for storing stuff
TEMPFILE = temp.txt
; debug file
POSTIDFILE = postids.ini
; list of approved plugins
URL = http://www.amxmodx.org/compiler.php?mod=1&cat=0&plugin=&author=&go=search
; download the list
ToolTip, Downloading list of approved plugins..., 0, 0
UrlDownloadToFile,%URL%,%TEMPFILE%
; put the list in a variable
FileRead,MYBUFFER,%TEMPFILE%
FileDelete,%TEMPFILE%
; clean up the variable's contents
StringReplace,MYBUFFER,MYBUFFER,`n,,All
StringReplace,MYBUFFER,MYBUFFER,`r,,All
; remove characters that aren't happy in folder names
MYBUFFER := RegExReplace(MYBUFFER,"&[^a][qlg#]?[ut\d]?[o\d]?[t\d]?\d?\d?;?","_")
MYBUFFER := RegExReplace(MYBUFFER,"&am?p?;?","&")
MYBUFFER := RegExReplace(MYBUFFER,"<img src='images/(.*?)\.gif' title=''>","$U1")
MYBUFFER := RegExReplace(MYBUFFER,">\.",">")
MYBUFFER := RegExReplace(MYBUFFER,"\.?\.?\.?<","<")
; parse the list to get post number, name, author, mod, category
REGEX := "<a\shref='http://forums\.alliedmods\.net/showthread\.php\?p=(\d{1,10})'\starget='_blank'>(.{1,35})</a></td>[\s\t\r\n]{1,4}<td>(.*?)</td>[\s\t\r\n]{1,4}<td>(.*?)</td>[\s\t\r\n]{1,4}<td>(.*?)</td>"
; make the main folder
FileCreateDir,%MAINFOLDER%
i := 0
TotalFiles := 0
ETA := 0
FoundPos := 1
while FoundPos != 0
{
; record starting time
StartTime := A_TickCount
FoundPos := RegexMatch(MYBUFFER,REGEX,Match,FoundPos)
; display errors
if ErrorLevel
MsgBox, %ErrorLevel%
; we found a match
if FoundPos
{
FoundPos += StrLen(Match)
i++
; replace wacky characters with an underscore
Match2 := RegExReplace(Match2,"[^\w\d\s&]","_")
Match3 := RegExReplace(Match3,"[^\w\d\s&]","_")
; debug file
;IniWrite, %Match1%, %POSTIDFILE%, %i%, postid
;IniWrite, %Match2%, %POSTIDFILE%, %i%, name
;IniWrite, %Match3%, %POSTIDFILE%, %i%, author
;IniWrite, %Match4%, %POSTIDFILE%, %i%, mod
;IniWrite, %Match5%, %POSTIDFILE%, %i%, category
; make the folder for the plugin
FileCreateDir,%MAINFOLDER%\%Match3%\%Match2%
URL = http://forums.alliedmods.net/showpost.php?p=%Match1%&postcount=1
; download the post and put it in a variable
UrlDownloadToFile,%URL%,%TEMPFILE%
FileRead,POSTBUFFER,%TEMPFILE%
FileDelete,%TEMPFILE%
; clean up the contents
StringReplace,POSTBUFFER,POSTBUFFER,`n,,All
StringReplace,POSTBUFFER,POSTBUFFER,`r,,All
StartingPosition := 1
while (StartingPosition != 0)
{
; look for attachment links
StartingPosition := RegExMatch(POSTBUFFER,"attachmentid=(\d{1,10}).*?>Get Source</a> \((.*?) -",PluginMatch,StartingPosition)
if ErrorLevel
MsgBox, %ErrorLevel%
; we found a valid attachment
if StartingPosition
{
StartingPosition += StrLen(Match)
TotalFiles++
URL = http://forums.alliedmods.net/attachment.php?attachmentid=%PluginMatch1%&d
; download the plugin to the correct folder
UrlDownloadToFile,%URL%,%MAINFOLDER%\%Match3%\%Match2%\%PluginMatch2%
}
}
}
; no more results
else
{
break
}
; smooth the estimated time left display
if(!Mod(i,2))
{
ElapsedTime := A_TickCount - StartTime
if ElapsedTime
ETA := ((ElapsedTime * (MAXPLUGINS - i)) / 1000) / 60
}
ToolTip,Downloading... %i%/%MAXPLUGINS% Time Left: %ETA% minutes`n%Match3%`n%Match2%, 0, 0
}
MsgBox, Finished!`nTotal plugins: %i%`nTotal files: %TotalFiles%
|
|
hihi but its realy awesome. GJ & +k+k+k+k+k 
Linear Mode
