Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 4
+121
if
(MatchPattern MatData Pattern:"MeshID *: *") and (
local Params = (FilterString (SubString MatData 8 -1) ":")
Params.Count == 2 and (
MatData = (TrimLeft (TrimRight Params[2]))
MID = (Params[1] as integer)
if
MID < 1 or
MID > 1000
then
InputOK = false
)
)
then (
...
)
MAXScript
Чумачечая валидация ввода информации о материале по несложному паттерну:
MeshID <Mesh material ID, a number from 1 to 1000>: <Material name>
...
Use LINQ, Luke!
3Doomer,
01 Октября 2013
+125
Синтаксический сахар в #MAXScript такой сахар!
Надоели конструкции такого вида?
if (SomeShit == undefined) then (...)
Запили в парочку функций - и всё ок!
fn Have Obj = (Obj != undefined)
fn No Obj = (not (Have Obj))
...
......
Профит!
if (Have Beer) then (...)
if (No Glass) then (...)
Миллисекунда оверхеда на вызов функции - в подарок!Уроки ленивого программирования для самых ленивых или берегущих клавиатуру xD
3Doomer,
24 Сентября 2013
+125
fn AsText Val BufferID:undefined AppendLast:false Prefix:"" Postfix:"" ArraySeparators:#("#(", ",", ")") ValClass:undefined AncestorName:undefined PushVar:undefined = (
if PushVar == undefined then PushVar = GIMS.Core.BufferMgr.PushVar
case (ClassOf Val) of (
ArrayParameter:
AsText Val BufferID:BufferID AppendLast:AppendLast Prefix:Prefix Postfix:Postfix ArraySeparators:ArraySeparators ValClass:Array AncestorName:AncestorName PushVar:PushVar
Array: (
if BufferID != undefined then (
PushVar BufferID (Prefix + ArraySeparators[1]) AppendLast:AppendLast
for ItemID = 1 to Val.Count do (
if ItemID != Val.Count then
AsText Val[ItemID] BufferID:BufferID AppendLast:AppendLast Postfix:ArraySeparators[2] AncestorName:AncestorName PushVar:PushVar
else
AsText Val[ItemID] BufferID:BufferID AppendLast:AppendLast AncestorName:AncestorName PushVar:PushVar
)
PushVar BufferID (ArraySeparators[3] + Postfix) AppendLast:AppendLast
) else (
local Res = (Prefix + ArraySeparators[1])
for ItemID = 1 to Val.Count do (
if ItemID != Val.Count then
Res += (AsText Val[ItemID] Postfix:ArraySeparators[2] AncestorName:AncestorName PushVar:PushVar)
else
Res += (AsText Val[ItemID] AncestorName:AncestorName PushVar:PushVar)
)
Res += (ArraySeparators[3] + Postfix)
)
Res
)
String: (
if BufferID != undefined then
PushVar BufferID (Prefix + "\"" + (GIMS.Core.StringOps.ReplaceChars Val ReplaceTags:#(#("\"", "\\"), #("\\\"", "\\\\")) MultiChar:true) + "\"" + Postfix) AppendLast:AppendLast
else
(Prefix + "\"" + (GIMS.Core.StringOps.ReplaceChars Val ReplaceTags:#(#("\"", "\\"), #("\\\"", "\\\\")) MultiChar:true) + "\"" + Postfix)
)
Name: (
if BufferID != undefined then
PushVar BufferID (Prefix + "#" + Val as string + Postfix) AppendLast:AppendLast
else
(Prefix + "#" + Val as string + Postfix)
)
BitmapTexture: (
GIMS.Core.MaterialOps.FixTexName Val
local FileName = (GetFileNameFile Val.FileName)
if BufferID != undefined then (
if (DoesFileExist Val.FileName) then (
local FilePath = (GIMS.CurrentGame.ResourceCachePath + AncestorName + "/")
MakeDir FilePath All:true
CopyFile Val.FileName (FilePath + (FileNameFromPath Val.FileName))
)
PushVar BufferID (Prefix + "(GIMS.Core.MaterialOps.CreateBitmapFile (GIMS.CurrentGame.ResourceCachePath + \"" + AncestorName + "/\") \"" + FileName + "\")" + Postfix) AppendLast:AppendLast
) else
(Prefix + "(GIMS.Core.MaterialOps.CreateBitmapFile \"" + (GetFileNamePath Val.FileName) + "\" \"" + FileName + "\")" + Postfix)
)
default: (
local VarType = (SuperClassOf Val)
if VarType == StructDef or VarType == GeometryClass or VarType == Material then (
if BufferID == undefined then
throw "Undefined BufferID!"
local AllTagNames = (GetPropNames Val),
StructNameTagID = (FindItem AllTagNames #StructName),
StructName = (
if StructNameTagID != 0 then
(GetProperty Val AllTagNames[StructNameTagID])
else
((ClassOf Val) as string)
),
Tags = (
for TempTag in AllTagNames where
TempTag != #StructName and
not (IsKindOf (GetProperty Val TempTag) MAXScriptFunction)
collect
TempTag
)
if Tags.Count == 1 then
PushVar BufferID (Prefix + "(" + StructName + "())") AppendLast:AppendLast
else (
PushVar BufferID (Prefix + "(") AppendLast:AppendLast
PushVar BufferID (StructName + " \\") AppendLast:AppendLast
case VarType of (
GeometryClass: (
PushVar BufferID ("Name:" + (AsText Val.Name AncestorName:AncestorName PushVar:PushVar) + " \\") AppendLast:AppendLast
PushVar BufferID ("Pos:" + Val.Pos as string + " \\") AppendLast:AppendLast
)
Material: (
PushVar BufferID ("Name:" + (AsText Val.Name AncestorName:AncestorName PushVar:PushVar) + " \\") AppendLast:AppendLast
PushVar BufferID ("ShowInViewPort:" + Val.ShowInViewPort as string + " \\") AppendLast:AppendLast
)
)
for TagID = 1 to Tags.Count do
AsText (GetProperty Val Tags[TagID]) BufferID:BufferID AppendLast:AppendLast Prefix:(Tags[TagID] as String + ":") Postfix:" \\" AncestorName:AncestorName PushVar:PushVar
PushVar BufferID (")" + Postfix) AppendLast:AppendLast
)
) else (
if BufferID != undefined then
PushVar BufferID (Prefix + Val as string + Postfix) AppendLast:AppendLast
else
(Prefix + Val as string + Postfix)
)
)
)
)MAXScript. Сериализация от бога!
3Doomer,
29 Августа 2013
+133
try
HeapSize += 268435456 -- +100500 могучих байт в кучу во имя производительности
catch (
try
HeapSize += 67108864 -- жалкая попытка добавить хоть что - то
catch
GIMS.Core.SystemMgr.ThrowError "init error" "Cannot extend the heap :(" -- сглотнуть обиду, поднасрав в лог
)
GC, you shall not pass!
Первая ступень попыток ускорить тормозной MAXScript
3Doomer,
04 Июня 2013
Follow us!