Взломщик миссий Worms: Armageddon

[Metallikus]

Вобшем вот. Надо чтоб кто-нить потестил и арфаграфические ашыпки устранил, а ещё нада чтоп кто-то на английский превёл, ибо английский я знаю не на много лучше русского . Весь текст хранится в файлах *.lng, а все баги - в файле *.exe. Чтобы прога работала её надо кинуть в папку с игрой Worms: Armageddon.

Трайнер.rar

[alibek]

А зачем было паковать exe?
Если подозрения подтвердятся, то участь твоя будет печальна.

[Metallikus]

В смысле "паковать"? Разве размер не увеличился когда ты его разархивировал??? У меня лично разархивированный ехешник весит 172 Кб, а весь архив (с файлами *.lng и *.cfg - 92Kб)... Хду проверки орфографии и пунктуации, а также перевода и список багов. Ибо это мой первый опыт обработки текста. И вообще йа новайс в VB .net

[Joo]

А зачем было паковать exe?
Если подозрения подтвердятся, то участь твоя будет печальна.

Ты что-то путаешь, ехе не упакованный PEiD говорит Microsoft Visual C# / Basic .NET

[Metallikus]

Ты что-то путаешь, ехе не упакованный PEiD говорит Microsoft Visual C# / Basic .NET

Люди!!! Вы про что вообще? Я начинаю чувствовать себя блондинкой . Не обессудте, но я неделю назад первый раз запустил VS, так что по-подронее можно чё там у меня запакованное оказалось? Вот апдейт, там у меня ещё на 4 строчки меньше кода и он работает быстрее на 0,0002%:

Release.rar

[MIT]

и он работает быстрее на 0,0002%

Хорошо сказал, прям в цытаты можно А как ты так точно посчитал-то?

Ты что-то путаешь, ехе не упакованный PEiD говорит Microsoft Visual C# / Basic .NET

2Alibek: Не упакованый, даже не обфусцированный. С чего ты взял?

По теме: а почему все окошки открываются где попало? Лучше, имхо, в CenterScreen поставить. Да, и поправь кнопку Cancell.

[Metallikus]

А, и ещё, я хотел спросить куда в vb.nea дели функцию left("string", kolvo_simvolov)? А то щас я вместо неё юзаю mid("string",1,kolvo_simvolov), у которой больше параметнов => больше ресурсов кушает...

[MIT]

больше параметнов => больше ресурсов кушает

Не показатель.

Microsoft.VisualBasic.Strings.Left(String, Integer) As String

[Metallikus]

[quote="MIT"]и он работает быстрее на 0,0002% -
Хорошо сказал, прям в цытаты можно А как ты так точно посчитал-то?

Да эт я к слову))) Просто у меня раньше было вот так:

Код: Выделить всё

        TextBox1.Text = Mid(tmpstr.ToString(), 1, tmpstr.ToString.Length - 2)


(это я 6 дней назад намалевал, когда был сАвсем зелёным новичком)
А щаз у меня вот как написано:

Код: Выделить всё

        tmpstr.Length -= 2
        TextBox1.Text = tmpstr.ToString()


(Эт я сегодня сотворил, когда я уже немного данный форум почитал, опыту немеренно набрался... )
Добавлено:
tmpstr это Dim tmpstr As New System.Text.StringBuilder()

[Metallikus]

больше параметнов => больше ресурсов кушает -
Не показатель.

Но ведь для каждого параметра выделяется память, а потом наоборот обделяется))), а пока она туда-сюда выделяется этож скока времени пройдёт?... А для Left("string", kolvo) памяти аж на 32 бита выделять надо...

Microsoft.VisualBasic.Strings.Left(String, Integer) As String

Спасибо огромное! Ща переделывать всё буду.

ЗЫ.

MIT ацкий сотона! С юбилеем тебя

[MIT]

Спс.
Если ты так заботишься о производительности (а передача параметров - не самое узкое место, не дураки делали - там все по-умному), то забей на left и mid и почиткай msdn по поводу класса string.

пишу с кпк - дойду до компа, аргументирую поинтересней...

[alibek]

Если подозрения подтвердятся, то участь твоя будет печальна.

Показалось, сорри.
Для профилактики можно было приложить исходники.

[Williams]

String.Substring(0, Count) - тот же самый Left...

[MIT]

String.Substring(0, Count) - тот же самый Left...

Если быть точнее, то это Substring с проверками:

Код: Выделить всё

Public Shared Function Left(ByVal str As String, ByVal Length As Integer) As String
    If (Length < 0) Then
        Throw New ArgumentException(Utils.GetResourceString("Argument_GEZero1", New String() { "Length" }))
    End If
    If ((Length = 0) OrElse (str Is Nothing)) Then
        Return ""
    End If
    If (Length >= str.Length) Then
        Return str
    End If
    Return str.Substring(0, Length)
End Function

И Mid, между прочим тоже самое, но опять же с лишними проверками:

Код: Выделить всё

Public Shared Function Mid(ByVal str As String, ByVal Start As Integer, ByVal Length As Integer) As String
    If (Start <= 0) Then
        Throw New ArgumentException(Utils.GetResourceString("Argument_GTZero1", New String() { "Start" }))
    End If
    If (Length < 0) Then
        Throw New ArgumentException(Utils.GetResourceString("Argument_GEZero1", New String() { "Length" }))
    End If
    If ((Length = 0) OrElse (str Is Nothing)) Then
        Return ""
    End If
    Dim length As Integer = str.Length
    If (Start > length) Then
        Return ""
    End If
    If ((Start + Length) > length) Then
        Return str.Substring((Start - 1))
    End If
    Return str.Substring((Start - 1), Length)
End Function

Так что Substring в чистом виде полюбому быстрее обоих вариантов (правда юзать следует, если ты уверен в ненужности проверок)

А еще можно и так:

Код: Выделить всё

Private Function InternalSubString(ByVal startIndex As Integer, ByVal length As Integer, ByVal fAlwaysCopy As Boolean) As String
    If (((startIndex = 0) AndAlso (length = Me.Length)) AndAlso Not fAlwaysCopy) Then
        Return Me
    End If
    Dim str As String = String.FastAllocateString(length)
    Dim chRef As Char*
    Fixed chRef = AddressOf str.m_firstChar
        Dim chRef2 As Char*
        Fixed chRef2 = AddressOf Me.m_firstChar
            String.wstrcpy(chRef, (chRef2 + startIndex), length)
        End Fixed
    End Fixed
    Return str
End Function

Private Shared Sub wstrcpy(ByRef dmem As Char, ByRef smem As Char, ByVal charCount As Integer)
    If (charCount > 0) Then
        If ((CInt(dmem) And 2) <> 0) Then
            dmem(0) = smem(0)
            dmem += 1
            smem += 1
            charCount -= 1
        End If
        Do While (charCount >= 8)
            DirectCast(dmem, Integer*) = DirectCast(smem, UInt32*)
            DirectCast((dmem + 2), Integer*) = DirectCast((smem + 2), UInt32*)
            DirectCast((dmem + 4), Integer*) = DirectCast((smem + 4), UInt32*)
            DirectCast((dmem + 6), Integer*) = DirectCast((smem + 6), UInt32*)
            dmem = (dmem + 8)
            smem = (smem + 8)
            charCount = (charCount - 8)
        Loop
        If ((charCount And 4) <> 0) Then
            DirectCast(dmem, Integer*) = DirectCast(smem, UInt32*)
            DirectCast((dmem + 2), Integer*) = DirectCast((smem + 2), UInt32*)
            dmem = (dmem + 4)
            smem = (smem + 4)
        End If
        If ((charCount And 2) <> 0) Then
            DirectCast(dmem, Integer*) = DirectCast(smem, UInt32*)
            dmem = (dmem + 2)
            smem = (smem + 2)
        End If
        If ((charCount And 1) <> 0) Then
            dmem(0) = smem(0)
        End If
    End If
End Sub

Но это уже, конечно, на любителя

[Metallikus]

А я вот методом прогноза и корректировки нашёл метод Sring.Remove(Integer) - вроде то же самое делает что и Left(String, Integer)... Проверки не нужны, т.к я это применяю к Textbox1.Lines(i), чтобы получить из неё слово, которое в ней уже было найдено, а так я переменные типа string вообще не использую ибо тормозят жутко, вместо них юзаю StringBuilder (правда его приходится ToString делать прежде чем чьему-нибудь .text присваивать )

[MIT]

Пишу опять с кпк, поэтому коротко.
String медленен при использовани его в качестве числа, а builder и вовсе надстройка над string'ом.
Если не влом, приведи пример "торможения" стинга. Скорее всего дело в неверном его использовании.
А substring и remove - не одно и то же: первый возвращает новую строку на основе данной, а второй менят данную.

[Metallikus]

Вот так не тормозит:

Dim tmpstr As New System.Text.StringBuilder()
While Not EOF(1)
tmpstr.Append(LineInput(1)&Chr(13) & Chr(10))
End While
FileClose(1)
Form3.TextBox1.Text = tmpstr.ToString()

А вот так тормозит и даже зависает иногда:
Dim tmpstr As String
FileOpen(1, "DATA\Mission\Mission" & nmb & ".wam", OpenMode.Input)
While Not EOF(1)
tmpstr=tnpstr + LineInput(1)&Chr(13) & Chr(10)) 'Не помню так у мя было или через += всё делал...
End While
FileClose(1)
Form3.TextBox1.Text = tmpstr

[MIT]

Такой способ работы с файлами для .NET некорректен, для этого есть system.io в целом, filestream, text/binary-reader в частности. Стринг как таковой здесь не при чем

[Metallikus]

Ещё как при чём! Почему же тогда StringBuilder() работает в 4К раз быстрее? Уж не знаю надстройка ли он над стрингом, или стринг просто являяется частным случаем StringBuilder-а, но если переменная должна часто менять своё значение, StringBuilder намного быстрее.

Такой способ работы с файлами для .NET некорректен, для этого есть system.io в целом, filestream, text/binary-reader в частности.

А вот за это спс, ща потыкаюсь.

ЗЫ Есть тут грамадные люди, или мне так и оставить этот PROMT-овский перевод на англицкий? Тот английский что у меня сейчас - это ж ужос просто! Да и русский не намнога лучши. Помогите кто-нибудь!!! Языки хранятся в файлах *.lng, открываются обычным блокнотом.

[Metallikus]

Вот чё получилось:

Код: Выделить всё

            Dim reader As System.IO.TextReader
            reader = System.IO.File.OpenText("DATA\Mission\Mission" & nmb & ".wam")
            Form3.TextBox1.Text = reader.ReadToEnd()


А вот здесь вот например нельзя как-нибудь наподобии чё-нибудь сделать?:

Код: Выделить всё

        Dim i As Int32
        Dim tmpstr As New System.Text.StringBuilder()
            For i = 2 To TextBox1.Lines.Length - 1
                If (InStr(TextBox1.Lines(i).ToLower(), "enviroment") < 1) Then
                    tmpstr.Append(TextBox1.Lines(i - 2) & Chr(13) & Chr(10))
                Else
                    tmpstr.Append(TextBox1.Lines(i - 2) & Chr(13) & Chr(10))
                    tmpstr.Append("   JetPackTimeLimit=0" & Chr(13) & Chr(10))
                End If
            Next
            tmpstr.Append(TextBox1.Lines(TextBox1.Lines.Length - 2) & Chr(13) & Chr(10))
            tmpstr.Append(TextBox1.Lines(TextBox1.Lines.Length - 1))
        End If
        tmpstr.Length -= 2
        TextBox1.Text = tmpstr.ToString()


Стринг тут тоже тормозил и подвисал пока я его на StringBuilder не поменял.

[MIT]

StringBuilder.Append выглядит следующим образом:

Код: Выделить всё

Public Function Append(ByVal value As String) As StringBuilder
        If (Not value Is Nothing) Then
            Dim stringValue As String = Me.m_StringValue
            Dim currentThread As IntPtr = Thread.InternalGetCurrentThread
            If (Me.m_currentThread <> currentThread) Then
                stringValue = String.GetStringForStringBuilder(stringValue, stringValue.Capacity)
            End If
            Dim length As Integer = stringValue.Length
            Dim requiredLength As Integer = (length + value.Length)
            If Me.NeedsAllocation(stringValue, requiredLength) Then
                Dim newString As String = Me.GetNewString(stringValue, requiredLength)
                newString.AppendInPlace(value, length)
                Me.ReplaceString(currentThread, newString)
            Else
                stringValue.AppendInPlace(value, length)
                Me.ReplaceString(currentThread, stringValue)
            End If
        End If
        Return Me
    End Function

Отсюда можно сделать вывод, что вся суть в stringValue.AppendInPlace. Процедура довольно производительна, поэтому объединение строк таким методом намного быстрее, чем str1 & str2

А вообще для этой задачи хорошо подойдет IO.File.ReadAllText

т.к я это применяю к Textbox1.Lines(i)

Я так понял, Textbox1 у тебя для вытаскивания строк. Верно? Если да, то такой способ никуда не годится, юзай что-то типа этого:

Код: Выделить всё

Dim t() as string=split(tmpstr,vbcrlf)

А вот здесь вот например нельзя как-нибудь наподобии чё-нибудь сделать?:

Наподобие чему? Увеличить производительность можно отказавшись от TextBox1.Lines в пользу массива строк.

[Metallikus]

Я так понял, Textbox1 у тебя для вытаскивания строк. Верно?

Не совсем. Он нужен для ручного редактирования скрипта миссии. А "кнопки чит функций" просто облегчают это редактирование. Я привёл код одной такой кнопки (события Click(ByVal sender As System.Object, ByVal e As System.EventArgs) одной такой кнопки). В цикле у меня сравнивается каждая строка Textbox1 с шаблоном, если не совпало - тогда tmpstr.Append(эта строка), ну а если совпало - тогда tmpstr.Append(чит функция), после цикла всё то что накопилось в tmpstr загружается обратно в Textbox1. Короче тупой поиск и замена у меня там, а остальной код нужен для нестандартных ситуаций (например если совпадений вообще нет, или если редактировать надо только те строки после которых встречается второй шаблон...).

[Хакер]

ЗЫ Есть тут грамадные люди, или мне так и оставить этот PROMT-овский перевод на англицкий? Тот английский что у меня сейчас - это ж ужос просто! Да и русский не намнога лучши. Помогите кто-нибудь!!! Языки хранятся в файлах *.lng, открываются обычным блокнотом.

Ты приведи в порядок хотя бы русский, и lng файлы сделай как положено, а не так как сейчас.

[Metallikus]

Ты приведи в порядок хотя бы русский

Абратно в школу ни вернузь!

lng файлы сделай как положено, а не так как сейчас.

А что в них не правильно сейчас? Кодировка не та? Или разширение? Или их в отдельный архив упаковать?.. Скажи чё с ними сделать надо, сделаю всё чё надо.

[Хакер]

А ты сам подумай.

[Debugger]

Код: Выделить всё

Caption=Заголовок
Label1=Лейбл1
Label2=Лейбл2
NextButton=Далее
BackButton=Назад

Как-то так. То есть, похоже на INI, если не ошибаюсь. А то, что у тебя - просто списочек строчек. Так нельзя.

[Metallikus]

Код: Выделить всё

Caption=Заголовок
Label1=Лейбл1
Label2=Лейбл2
NextButton=Далее
BackButton=Назад

Как-то так. То есть, похоже на INI, если не ошибаюсь. А то, что у тебя - просто списочек строчек. Так нельзя.

Блин, а я с ini не знаком ... Ладно, ща посмотрим чё тут у вас на сайте про ini имеется...

Вот апдейт, версия альфа 3, список изменений:
1)Незначительно увеличено быстродействие,
2)Устранён глюк из-за которого в игре мог возникнуть оверфлоу при слишком больших значениях времени хода или времени раунда,
3)Чёта ещё делал ведь... Теперь я понимаю что значит когда пишут "И другие незначительные изменения"...
4)В русский язык добавлено две запятые)))
5)Раньше формы Settings и About появлялись по-уродски, а сейчас они появляются совсем по-уродски. Будет исправлено в следующей версии.

отсюда

[Хакер]

Ну сделай не ini, а XML. Вся же эта противная реклама противного дотнета кричит о том, как в дотнете легко работать с XML...

[MIT]

Раньше формы Settings и About появлялись по-уродски, а сейчас они появляются совсем по-уродски.

Прикольное улучшение

Вся же эта противная реклама противного дотнета кричит о том, как в дотнете легко работать с XML

И чем же тебе так нагадил в душу этот противный дотнет? А XML - не самая легкая его часть, ИМХО.

[Metallikus]

Ну сделай не ini, а XML. Вся же эта противная реклама противного дотнета кричит о том, как в дотнете легко работать с XML...

Да неужели с XML работать проще чем с набором строк?