misc/tools/shadescript/shade.vbs

   1 option explicit
   2
   3
   4 Const ForReading = 1\r
   5 Const ForWriting = 2\r
   6 Const ForAppending = 8\r
   7
   8 dim CRLF
   9
  10 CRLF = Chr(13) & Chr(10)\r
  11
  12 dim scriptFullName, scriptPath \r
  13 scriptFullName = WScript.ScriptFullName\r
  14 scriptPath = Left ( scriptFullName, InStrRev ( scriptFullName, WScript.ScriptName) - 1 )
  15 \r
  16 dim objFSO, setfolder, re, shader, objShaderTemplate, shaderTemplate
  17 Set objFSO = CreateObject("Scripting.FileSystemObject")\r
  18 Set setfolder = objFSO.GetFolder(scriptPath)\r
  19 Set re = New RegExp
  20
  21 re.IgnoreCase = True
  22 re.Global = True
  23 re.Pattern = ""\r
  24 \r
  25 Set shader = objFSO.OpenTextFile (scriptPath & "\" & setfolder.name & ".shader", ForWriting, True)\r
  26
  27 Set objShaderTemplate = objFSO.OpenTextFile(scriptPath & "\template.shader", ForReading)
  28 shaderTemplate = objShaderTemplate.ReadAll()
  29
  30 function filetitle(sfilename)
  31         filetitle = Left(sfilename, len(sfilename) - 4)
  32 end function
  33 \r
  34 dim noLightmap, isLiquid, isTransparent, bounceScale, shaderString
  35 dim shaderHead, shaderTail, shaderQUI, shaderDiffuse, diffuseExtra
  36 dim subfold, texfile, fn
  37
  38 For Each subfold in setfolder.Subfolders\r
  39         ' shader.write "Folder: " & subfold.Name & CRLF\r
  40         For Each texfile In subfold.Files
  41                 'Defaults
  42                 noLightmap              = false
  43                 isLiquid                = false
  44                 isTransparent   = false
  45                 bounceScale     = 1
  46                 shaderString    = shaderTemplate
  47
  48                 shaderHead              = ""
  49                 shaderTail              = ""
  50                 shaderQUI               = ""
  51                 shaderDiffuse   = ""
  52                 diffuseExtra    = ""
  53
  54                 ' First ignore any extra map or Thumbs.db
  55                 re.Pattern = "_bump.|_gloss.|_norm.|_glow.|Thumbs.db"
  56                 if not re.test(texfile.name) then                       \r
  57                         re.pattern = "decal"
  58                         if re.test(texfile.name) then
  59                                 noLightmap = true
  60                         end if
  61
  62                         re.pattern = "water"
  63                         if re.test(texfile.name) then
  64                                 noLightmap = true
  65                                 isLiquid = true
  66                                 shaderHead = shaderHead & "     surfaceparm trans" & CRLF
  67                                 shaderHead = shaderHead & "     surfaceparm water" & CRLF
  68                                 shaderHead = shaderHead & "     qer_trans 20" & CRLF
  69                                 diffuseExtra = "blendfunc blend"
  70                         end if
  71
  72                         re.pattern = "slime"
  73                         if re.test(texfile.name) then
  74                                 noLightmap = true
  75                                 isLiquid = true
  76                                 shaderHead = shaderHead & "     surfaceparm trans" & CRLF
  77                                 shaderHead = shaderHead & "     surfaceparm slime" & CRLF
  78                                 shaderHead = shaderHead & "     qer_trans 20" & CRLF
  79                         end if
  80
  81                         re.pattern = "lava"
  82                         if re.test(texfile.name) then
  83                                 noLightmap = true
  84                                 isLiquid = true
  85                                 shaderHead = shaderHead & "     surfaceparm trans" & CRLF
  86                                 shaderHead = shaderHead & "     surfaceparm lava" & CRLF
  87                                 shaderHead = shaderHead & "     qer_trans 20" & CRLF
  88                                 diffuseExtra = "                blendfunc add"
  89                         end if
  90
  91                         re.pattern = "glass"
  92                         if re.test(texfile.name) then
  93                                 noLightmap = true
  94                                 shaderHead = shaderHead & "     surfaceparm trans" & CRLF
  95                                 diffuseExtra = "                blendfunc add"
  96                         end if
  97
  98                         re.pattern = "metal"
  99                         if re.test(texfile.name) then
 100                                 bounceScale = bounceScale + 0.25
 101                                 shaderHead = shaderHead & "     surfaceparm metalsteps" & CRLF
 102                         end if
 103
 104                         re.pattern = "grate"
 105                         if re.test(texfile.name) then
 106                                 bounceScale = bounceScale + 0.25
 107                                 shaderHead = shaderHead & "     surfaceparm trans" & CRLF
 108                                 diffuseExtra = "                blendfunc blend"
 109                         end if
 110
 111                         re.pattern = "shiny"
 112                         if re.test(texfile.name) then
 113                                 bounceScale = bounceScale + 0.25
 114                         end if
 115
 116                         re.pattern = "dirt|terrain|old"
 117                         if re.test(texfile.name) then
 118                                 bounceScale = bounceScale - 0.25
 119                                 shaderHead = shaderHead & "     surfaceparm dust" & CRLF
 120                         end if
 121
 122                         shaderDiffuse = "textures/" & setfolder.name & "/" & subfold.name & "/" & texfile.name
 123
 124                         fn = scriptPath & "/" & subfold.name & "/" & filetitle(texfile.name) & "_gloss.tga"
 125                         if objFSO.FileExists(fn) Then
 126                                 bounceScale = bounceScale + 0.25
 127                         end if
 128
 129                         fn = scriptPath & "/" & subfold.name & "/" & filetitle(texfile.name) & "_qei.tga"
 130                         if objFSO.FileExists(fn) Then
 131                                 shaderQUI = "textures/" & setfolder.name & "/" & subfold.name & "/" & filetitle(texfile.name) & "_qei.tga"
 132                         else
 133                                 shaderQUI = shaderDiffuse
 134                         end if
 135
 136                         if not noLightmap then
 137                                 shaderTail = "  {" & CRLF & "           map $lightmap" & CRLF & "               rgbGen identity" & CRLF & "             tcGen lightmap" & CRLF & "              blendfunc filter" & CRLF & "    }"
 138                         end if
 139
 140                         if not bounceScale = 1 then
 141                                 re.pattern = ","
 142                                 shaderHead = shaderHead & "     q3map_bounceScale " & re.Replace(bounceScale, ".") & CRLF
 143                         end if
 144
 145                         re.Pattern = "%shader_name%"
 146                         shaderString = re.Replace(shaderTemplate, "textures/" & setfolder.name & "/" & subfold.name & "-" & filetitle(texfile.name))
 147
 148                         re.Pattern = "%qei_name%"
 149                         shaderString = re.Replace(shaderString, shaderQUI)
 150
 151                         re.Pattern = "%shader_head%"
 152                         shaderString = re.Replace(shaderString, shaderHead)
 153
 154                         re.Pattern = "%diffuse_map%"
 155                         shaderString = re.Replace(shaderString, shaderDiffuse)
 156
 157                         re.Pattern = "%diffuse_map_extra%"
 158                         shaderString = re.Replace(shaderString, diffuseExtra)
 159
 160                         re.Pattern = "%shader_tail%"
 161                         shaderString = re.Replace(shaderString, shaderTail)
 162
 163
 164
 165                         shader.write shaderString & CRLF & CRLF
 166                 end if\r
 167         Next\r
 168 Next\r
 169 shader.Close\r
 170 \r
 171 \r
 172 \r