Advertisement
FractalFusion

Comparison AVISynth script

Aug 20th, 2012
102
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. function sub(clip c, int num, int ff, int lf)
  2. {
  3.    Subtitle(c,string(num),4,142,ff,ff+59, text_color=$00FF0000)
  4.    Subtitle(string(num),4,142,ff+60,lf, text_color=$00FFFFFF)
  5. }
  6.  
  7. function pause(clip c, int frame, int dur)
  8. {
  9.    b=BlankClip(c)
  10.  
  11.    x=Trim(c,0,frame)
  12.    y=Trim(c,frame,frame)
  13.    z=Trim(c,frame+1,0)
  14.    y=Loop(y,dur)
  15.    y=AudioDub(y,b)
  16.    x++y++z
  17. }
  18.  
  19. old=AVISource("old.avi")
  20. new=AVISource("new.avi")
  21.  
  22. ee=blankclip(old, height=16, color=$00000000)
  23.  
  24.  
  25. StackVertical(old,ee)
  26. AudioDub(old)
  27. Subtitle("OLD",2,142, text_color=$00FFFFFF)
  28. ScriptClip("""Subtitle(string(current_frame), 60,142, text_color=$00FFFFFF)""")
  29. pause(32,1)
  30. pause(3780,41)
  31. pause(6094,17)
  32. pause(10080,12)
  33. pause(12262,3)
  34. pause(25603,1)
  35. pause(27982,78)
  36. pause(44221,2)
  37. old=last
  38.  
  39. StackVertical(new,ee)
  40. AudioDub(new)
  41. Subtitle("NEW",120,142, text_color=$00FFFFFF)
  42. ScriptClip("""Subtitle(string(current_frame), 60,142, text_color=$00FFFFFF)""")
  43. pause(1601,1)
  44. pause(8294,105)
  45. pause(18259,126)
  46. pause(19154,36)
  47. pause(20315,12)
  48. pause(20518,64)
  49. pause(30240,134)
  50. pause(32893,3)
  51. pause(44747,78)
  52. Subtitle("0",4,142,0,33, text_color=$00FFFFFF)
  53. sub(-1,34,1602)
  54. sub(0,1603,3821)
  55. sub(-41,3822,6111)
  56. sub(-58,6112,8399)
  57. sub(47,8400,10092)
  58. sub(35,10093,12265)
  59. sub(32,12266,18385)
  60. sub(158,18386,19190)
  61. sub(194,19191,20327)
  62. sub(206,20328,20582)
  63. sub(270,20583,25604)
  64. sub(269,25605,28060)
  65. sub(191,28061,30374)
  66. sub(325,30375,32896)
  67. sub(328,32897,44223)
  68. sub(326,44224,50000)
  69. new=last
  70.  
  71. e=blankclip(old, width=4, color=$00000000)
  72.  
  73. c=StackHorizontal(old,e,new)
  74.  
  75. d=MergeChannels(ConvertToMono(old),ConvertToMono(new))
  76. res=AudioDub(c,d)
  77.  
  78. ef=BlankClip(res,width=240,height=16, color=$00FFFFFF)
  79. eg=BlankClip(res,width=60,height=16, color=$00000000)
  80.  
  81.  
  82. a1=Trim(res,0,299)
  83. a2=Trim(res,300,499)
  84. a3=Trim(res,500,1099)
  85. a4=Trim(res,1100,44223)
  86. a5=Trim(res,44224,0)
  87.  
  88. a1=Overlay(a1,ef,40,0)
  89. a3=Overlay(a3,ef,40,0)
  90. a5=Overlay(a5,eg,60,144)
  91. a5=Overlay(a5,eg,220,144)
  92. a1++a2++a3++a4++a5
  93. Subtitle("44068",60,142,44224,50000,text_color=$00FFFFFF)
  94. Subtitle("43742",222,142,44224,50000,text_color=$00FFFFFF)
  95.  
  96. text="Super Mario Land TAS\n 12:13.08         Time         12:08.75  \nMUGG           Author           MUGG"
  97. subtitle(text,-1,0,0,299, "Arial", 14, $FFFFFF, lsp=1, align=8)
  98.  
  99. text="VBA-rr v22        Emulator        VBA-rr v24\n v1.1         Game Version          v1.0\n35904         Rerecords         34834\n"
  100. subtitle(text,-1,0,500,799, "Arial", 14, $FFFFFF, lsp=1, align=8)
  101.  
  102.  
  103. text="This is a tool-assisted recording.\nFor more information,\nsee http://TASVideos.org/"
  104. subtitle(text,-1,0,800,1099, "Arial", 14, $FFFFFF, lsp=1, align=8)
  105.  
  106. Trim(0,46499)
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement