API tools faq
paste
Baoulettes

Classmith 2014 (almost done.)

Baoulettes
Jul 20th, 2015
349
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.21 KB | None | 0 0
raw download clone embed print report
  1. #SingleInstance force
  2. ; 20th July 2014 by Baoulettes aka Joffrey Panisset
  3. ; [email protected]
  4. ; Unauthorized use is forbidden.
  5. ; Here are my credit list :
  6. ; Autohotkey to allow such code stuff :)
  7. ; fabianosan for Rocksmith Custom Song Toolkit unpacker.
  8. ; Snakez for Rocksmith Custom Song Toolkit unpacker.
  9. ; Maveth for Rocksmith Custom Song Toolkit unpacker.
  10. ; Raynebc for Rocksmith Custom Song Toolkit unpacker.
  11. ; Dreddfoxx for Rocksmith Custom Song Toolkit unpacker.
  12. ; Alex360 (L0fka) for Rocksmith Custom Song Toolkit unpacker.
  13. ; Shrubbery (otaznik) for Rocksmith Custom Song Toolkit unpacker.
  14. ; Cozy1 for Rocksmith Custom Song Toolkit unpacker.
  15. ; Zephyrix for Rocksmith Custom Song Toolkit unpacker.
  16. ; Xavatar (PowerSlinky) for Rocksmith Custom Song Toolkit unpacker.
  17. ; Chlipouni for Rocksmith Custom Song Toolkit unpacker.
  18. ; Cgeorge for Rocksmith Custom Song Toolkit unpacker.
  19.  
  20. ;Variables Setting :
  21. Appname = Classmith 2014
  22. Appversion = V1.0.0
  23.  
  24. ; Reading various Variables
  25. IniRead, Languages, Options.ini, Options, Languages
  26. IniRead, SelectedRS2014Folder, Options.ini, Options, R2014dir
  27. IniRead, DLCWantingNameInput, Options.ini, Options, WantedPsarcName
  28. IniRead, Platform, Options.ini, Options, Platform
  29. IniRead, YesnoDL, Options.ini, Options, SeparateInFolderQS
  30. If SelectedRS2014Folder = ERROR
  31. {
  32. FileSelectFolder, SelectedRS2014Folder,, 3,Please choice Rocksmith 2014 directory.
  33. IniWrite, %SelectedRS2014Folder%, Options.ini, Options, R2014dir
  34. }
  35. If SelectedRS2014Folder =
  36. {
  37. FileSelectFolder, SelectedRS2014Folder,, 3,Please choice Rocksmith 2014 directory.
  38. IniWrite, %SelectedRS2014Folder%, Options.ini, Options, R2014dir
  39. }
  40. If Languages = ERROR
  41. {
  42. Languages=En
  43. }
  44. If Languages =
  45. {
  46. Languages=En
  47. }
  48. If YesnoDL = ERROR
  49. {
  50. YesnoDL = Yes||No
  51. }
  52. If YesnoDL =
  53. {
  54. YesnoDL = Yes||No
  55. }
  56. If YesnoDL = Yes
  57. {
  58. YesnoDL = Yes||No
  59. }
  60. If YesnoDL = No
  61. {
  62. YesnoDL = Yes|No||
  63. }
  64. If Platform = ERROR
  65. {
  66. Platform = PC||Mac
  67. }
  68. If Platform =
  69. {
  70. Platform = PC||Mac
  71. }
  72. If Platform = PC
  73. {
  74. Platform = PC||Mac
  75. }
  76. If Platform = Mac
  77. {
  78. Platform = PC|Mac||
  79. }
  80. If DLCWantingNameInput = ERROR
  81. {
  82. DLCWantingNameInput=`%A`%_`%SN`%_`%AN`%_V`%V`%
  83. }
  84. If DLCWantingNameInput =
  85. {
  86. DLCWantingNameInput=`%A`%_`%SN`%_`%AN`%_V`%V`%
  87. }
  88.  
  89. ;Variables for translation :
  90. ;Base - English :
  91. If Languages = EN
  92. {
  93. about = About
  94. choiceRSDir = Please choice Rocksmith 2014 directory.
  95. RS2014FSelectB = Browse
  96. DLCWantedName = Please set a name scheme. (More information about variables name at right)
  97. BasicInfoFileNaming = use `%A`% for Artist Name`n use `%SN`% for Song Name`n use `%AN`% for Album Name`n use `%V`% for Package Version (Recommended.)`nAll space will be replaced by underscores.
  98. SelectPFText = Target platform :
  99. SeparateInFolderQS = Would you like to sort song in a Artist folder inside DLC folder?
  100. AppsUsageText = 1st You have to select a Rocksmith 2014 directory (NOT dlc just root folder!)`n2nd Config the application as you wish.`n3rd Press "Let do it".`nCommon error possible :`nNo dlc in DLC folder so nothing to do`nAlready sorted .psarc (This application don't look in subfolder to prevent unwanted error)`nFolder isn't Rocksmith 2014 root.`nPlease becareful and make Backups if you're unsure !`nThe more CDLC/DLC you have the more time it will take so please be patient !`nIf you have Any problem contact me over: `nFacebook : Page: Baoulettes`nSkype : mysticia26
  101.  
  102. StartProcess = Let do it !
  103. CreditText = This Application has been mady by Baoulettes. 2015
  104. AboutTextWindows = Credits List:`nAutohotkey`nBaoulettes`nRocksmith Custom Song Toolkit maker :`nfabianosan`nSnakez`nMaveth`nRaynebc`nDreddfoxx`nAlex360 (L0fka)`nShrubbery (otaznik)`nCozy1`nZephyrix`nXavatar`nChlipouni`nCgeorge
  105. }
  106. ;Gui Making !
  107. Gui,1: Add, Button, x412 y5 w60 h20 gaboutwin, %about%
  108. Gui,1: Add, Text, x100 y29 w370 h30 +Center, %choiceRSDir%
  109. Gui,1: Add, Button, x412 y29 w60 h20 gSelRS2014Folder, %RS2014FSelectB%
  110. Gui,1: Add, Edit, x2 y59 w470 h30 vactualdir +Center, %SelectedRS2014Folder%
  111. Gui,1: Add, Text, x2 y95 w250 h30 +Center, %DLCWantedName%
  112. Gui,1: Add, Edit, x2 y129 w250 h40 vnameinput +Center, %DLCWantingNameInput%
  113. Gui,1: Add, Text, x262 y95 w210 h80 +Center, %BasicInfoFileNaming%
  114. Gui,1: Add, DropDownList, x362 y187 w100 h20 r2 vSelPlatform, %Platform%
  115. Gui,1: Add, Text, x262 y191 w100 h30 , %SelectPFText%
  116. Gui,1: Add, Text, x2 y185 w150 h30 , %SeparateInFolderQS%
  117. Gui,1: Add, DropDownList, x152 y187 w100 h21 r2 vFolderYesNo, %YesnoDL%
  118. Gui,1: Add, Text, x2 y223 w470 h160 +Center, %AppsUsageText%
  119. Gui,1: Add, Button, x12 y399 w450 h30 gGoforIt, %StartProcess%
  120. Gui,1: Add, Text, x2 y429 w470 h20 +Center, %CreditText%
  121. Gui,1: Show, x379 y162 h450 w476, %Appname% - %Appversion%
  122. Gui,1: Add, Picture, x0 y0 w180 h60, D:\RS2014SongClassifier\Baoulettes.png
  123. Return
  124.  
  125. aboutwin:
  126. Gui,1: Hide
  127. Gui,2: Add, Picture, x0 y0 w150 h150 , D:\RS2014SongClassifier\Baoulettes.png
  128. Gui,2: Add, Text, x0 y149 w150 h230 +Center, %AboutTextWindows%
  129. Gui,2: Show, x379 y162 h381 w150, %Appname% - %Appversion%
  130. Return
  131.  
  132.  
  133. ;Functions :
  134. SelRS2014Folder:
  135. FileSelectFolder, SelectedRS2014Folder,, 3,%choiceRSDir%
  136. GuiControl,1:,actualdir, %SelectedRS2014Folder%
  137. IniWrite, %SelectedRS2014Folder%, Options.ini, Options, R2014dir
  138. Return
  139.  
  140. GoforIt:
  141. Gui,1: Submit
  142. GuiControlGet, actualdir,1:,
  143. GuiControlGet, nameinput,1:,
  144. GuiControlGet, SelPlatform,1:,
  145. GuiControlGet, FolderYesNo,1:,
  146. DLCWantingNameInput = %nameinput%
  147. SelectedRS2014Folder = %actualdir%
  148. Platform = %SelPlatform%
  149. YesnoDL = %FolderYesNo%
  150. If SelectedRS2014Folder = ERROR
  151. {
  152. FileSelectFolder, SelectedRS2014Folder,, 3,%choiceRSDir%
  153. GuiControl,1:,actualdir, %SelectedRS2014Folder%
  154. IniWrite, %SelectedRS2014Folder%, Options.ini, Options, R2014dir
  155. Gui,1: Restore
  156. return
  157. }
  158. If SelectedRS2014Folder =
  159. {
  160. FileSelectFolder, SelectedRS2014Folder,, 3,%choiceRSDir%
  161. GuiControl,1:,actualdir, %SelectedRS2014Folder%
  162. IniWrite, %SelectedRS2014Folder%, Options.ini, Options, R2014dir
  163. Gui,1: Restore
  164. return
  165. }
  166. If DLCWantingNameInput = ERROR
  167. {
  168. Msgbox, Please set a name other than Error... Use Variables too!
  169. Gui,1: Restore
  170. return
  171. }
  172. If DLCWantingNameInput =
  173. {
  174. Msgbox, Please set a name other than Error... Use Variables too!
  175. Gui,1: Restore
  176. return
  177. }
  178. If Platform = PC||Mac
  179. {
  180. Platform = PC
  181. }
  182. If Platform = PC|Mac||
  183. {
  184. Platform = Mac
  185. }
  186. If YesnoDL = Yes||No
  187. {
  188. YesnoDL = Yes
  189. }
  190. If YesnoDL = Yes|No||
  191. {
  192. YesnoDL = No
  193. }
  194. IniWrite, %Languages%, Options.ini, Options, Languages
  195. IniWrite, %SelectedRS2014Folder%, Options.ini, Options, R2014dir
  196. IniWrite, %DLCWantingNameInput%, Options.ini, Options, WantedPsarcName
  197. IniWrite, %Platform%, Options.ini, Options, Platform
  198. IniWrite, %YesnoDL%, Options.ini, Options, SeparateInFolderQS
  199. If Platform = PC
  200. {
  201. endfilename = _p.psarc
  202. PT = _Pc
  203. }
  204. If Platform = Mac
  205. {
  206. endfilename = _m.psarc
  207. PT = _Mac
  208. }
  209. FileCreateDir, %A_ScriptDir%\tmp
  210. FileCreateDir, %A_ScriptDir%\tmp\ToRename
  211. Gui,3: Add, Text, x0 y0 w240 h90 vGui3Txt +Center, %Gui3Text%
  212. Gui,3: Show, x268 y174 h88 w244, Working . . .
  213. Loop Files, %SelectedRS2014Folder%\dlc\*.psarc,
  214. {
  215. ;FileName = %A_LoopFileName%
  216. StringReplace, CutedName, A_LoopFileName, .psarc, , All
  217. UnpackFDName = %CutedName%%PT%
  218. FileCreateDir, %A_ScriptDir%\tmp\ToRename\Unpack
  219. FileMove, %SelectedRS2014Folder%\dlc\%A_LoopFileName%, %A_ScriptDir%\tmp\ToRename
  220. RunWait, %A_ScriptDir%\ressources\packer\packer.exe --unpack -i="%A_ScriptDir%\tmp\ToRename\%A_LoopFileName%" -o="%A_ScriptDir%\tmp\ToRename\Unpack",,Hide
  221. Loop Files, %A_ScriptDir%\tmp\ToRename\Unpack\%UnpackFDName%\*.nt,
  222. {
  223. StringTrimRight, UniqueID, A_LoopFileName, 18
  224. }
  225. FileRead, VersionCheck, %A_ScriptDir%\tmp\ToRename\Unpack\%UnpackFDName%\toolkit.version
  226. if not ErrorLevel
  227. {
  228. Checkif = Package Version:
  229. IfInString, VersionCheck, %Checkif%
  230. FoundV := InStr(VersionCheck, Checkif)
  231. FoundV+=16
  232. StringTrimLeft, PVersion2Split, VersionCheck, %FoundV%
  233. StringLeft, PVersion, PVersion2Split, 2
  234. }
  235. else
  236. {
  237. PVersion =1
  238. }
  239. FileRead, HSANFile, %A_ScriptDir%\tmp\ToRename\Unpack\%UnpackFDName%\manifests\songs_dlc_%UniqueID%\songs_dlc_%UniqueID%.hsan
  240.  
  241. Check4AN = `"AlbumName`": `"
  242. IfInString, HSANFile, %Check4AN%
  243. FoundAN := InStr(HSANFile, Check4AN)
  244. FoundAN+=13
  245. StringTrimLeft, AlbumName2Split, HSANFile, %FoundAN%
  246. CheckNameEnd = `",
  247. IfInString, AlbumName2Split, %CheckNameEnd%
  248. FoundANEnd := InStr(AlbumName2Split, CheckNameEnd)
  249. FoundANEnd-=1
  250. StringLeft, AlbumNameCuted, AlbumName2Split, %FoundANEnd%
  251. Gui3Text = Working on : %ArtistNameCuted% - %SongNameCuted%
  252. GuiControl,3:,Gui3Txt, %Gui3Text%
  253. Check4ArtN = `"ArtistName`": `"
  254. IfInString, HSANFile, %Check4ArtN%
  255. FoundArtN := InStr(HSANFile, Check4ArtN)
  256. FoundArtN+=14
  257. StringTrimLeft, ArtistName2Split, HSANFile, %FoundArtN%
  258. IfInString, ArtistName2Split, %CheckNameEnd%
  259. FoundArtNEnd := InStr(ArtistName2Split, CheckNameEnd)
  260. FoundArtNEnd-=1
  261. StringLeft, ArtistNameCuted, ArtistName2Split, %FoundArtNEnd%
  262. Gui3Text = Working on : %ArtistNameCuted% - %SongNameCuted%
  263. GuiControl,3:,Gui3Txt, %Gui3Text%
  264. Check4SN = `"SongName`": `"
  265. IfInString, HSANFile, %Check4SN%
  266. FoundSN := InStr(HSANFile, Check4SN)
  267. FoundSN+=12
  268. StringTrimLeft, SongName2Split, HSANFile, %FoundSN%
  269. IfInString, SongName2Split, %CheckNameEnd%
  270. FoundSNEnd := InStr(SongName2Split, CheckNameEnd)
  271. FoundSNEnd-=1
  272. StringLeft, SongNameCuted, SongName2Split, %FoundSNEnd%
  273. Gui3Text = Working on : %ArtistNameCuted% - %SongNameCuted%
  274. GuiControl,3:,Gui3Txt, %Gui3Text%
  275. StringReplace, AlbumName, AlbumNameCuted, %A_SPACE%, -, All
  276. StringReplace, ArtistName, ArtistNameCuted, %A_SPACE%, -, All
  277. StringReplace, SongName, SongNameCuted, %A_SPACE%, -, All
  278. StringReplace, PackVersion, PVersion, %A_SPACE%, ., All
  279. StringReplace, AlbumName, AlbumName, `%, %A_SPACE%, All
  280. StringReplace, ArtistName, ArtistName, `%, %A_SPACE%, All
  281. StringReplace, SongName, SongName, `%, %A_SPACE%, All
  282. StringReplace, PackVersion, PackVersion, `%, %A_SPACE%, All
  283. DLCWantingNameInputCorrect = %DLCWantingNameInput%
  284. StringReplace, DLCWantingNameInput, DLCWantingNameInput, `%A`%, %ArtistName%
  285. StringReplace, DLCWantingNameInput, DLCWantingNameInput, `%SN`%, %SongName%
  286. StringReplace, DLCWantingNameInput, DLCWantingNameInput, `%AN`%, %AlbumName%
  287. StringReplace, DLCWantingNameInput, DLCWantingNameInput, `%V`%, %PackVersion%
  288. StringReplace, DLCWantingNameInput, DLCWantingNameInput, `%, , All
  289. If YesnoDL = Yes
  290. {
  291. FileCreateDir, %SelectedRS2014Folder%\dlc\%ArtistName%
  292. FileMove, %A_ScriptDir%\tmp\ToRename\%A_LoopFileName%, %SelectedRS2014Folder%\dlc\%ArtistName%\%DLCWantingNameInput%%endfilename%
  293. }
  294. If YesnoDL = No
  295. {
  296. FileMove, %A_ScriptDir%\tmp\ToRename\%A_LoopFileName%, %SelectedRS2014Folder%\dlc\%DLCWantingNameInput%%endfilename%
  297. }
  298. FileRemoveDir, %A_ScriptDir%\tmp\ToRename\Unpack, 1
  299. DLCWantingNameInput = %DLCWantingNameInputCorrect%
  300. }
  301. If YesnoDL = Yes
  302. {
  303. YesnoDL = Yes||No
  304. }
  305. If YesnoDL = No
  306. {
  307. YesnoDL = Yes|No||
  308. }
  309. If Platform = PC
  310. {
  311. Platform = PC||Mac
  312. }
  313. If Platform = Mac
  314. {
  315. Platform = PC|Mac||
  316. }
  317. GuiControl,1:,actualdir, %SelectedRS2014Folder%
  318. GuiControl,1:,nameinput, %DLCWantingNameInput%
  319. GuiControl,1:,SelPlatform, %Platform%
  320. GuiControl,1:,FolderYesNo, %YesnoDL%
  321. FileRemoveDir, %A_ScriptDir%\tmp, 1
  322. Gui,3: Destroy
  323. MsgBox, Work Done.`nYou can now play as you wish :)
  324. Gui,1: Restore
  325. return
  326.  
  327.  
  328.  
  329. 1GuiClose:
  330. Gui,1: Destroy
  331. Gui,2: Destroy
  332. Gui,3: Destroy
  333. ExitApp
  334.  
  335. 2GuiClose:
  336. Gui,1: Restore
  337. Gui,2: Destroy
  338. Gui,3: Destroy
  339. Return
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!