Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > Blitz3D > Полезные функции

Полезные функции Выкладываем полезные функции, чтоб не изобретать велосипед заново...

Ответ
 
Опции темы
Старый 21.09.2013, 10:50   #1
Beholder
AnyKey`щик
 
Регистрация: 09.07.2013
Сообщений: 2
Написано одно полезное сообщение
(для 5 участников)
Работа с текстом

Здесь я выложу две функции (одна моя, другая не совсем) которые тем или иным способом облегчают работу с текстом. Может кому-нибудь пригодится

Первая функция это RandomText$(txtInput$), где txtInput$ это строка текста разделенная символами |, например "AAA|BBB|CCC|DDD". Функция возвращает AAA, BBB, CCC или DDD с одинаковым шансом
Также можно использовать для рандома чисел, например в ситуациях где нужно рандомить только 0 или 2, поэтому функция Rand(0,2) не подходит тк. может выдать 1. Выглядит это вот так: Int(RandomText$("0|2"))

Dim array$(31)

Function randomText$(textInput$)
	Local numberOfPossibleStrings=1
	
	If Right(textInput$,1)="|" Then numberOfPossibleStrings=0
	Local i,x,c=1
	Local strForReturn$
	
	For x=1 To Len(textInput$)
		If Mid(textInput$,x,1)="|"
			numberOfPossibleStrings=numberOfPossibleStrings+1
		EndIf
	Next
	
	For x=1 To numberOfPossibleStrings
		Repeat
			i=i+1
			If Mid(textInput$,i,1)<>"|"
				array$(x)=array$(x)+Mid(textInput$,i,1)
			EndIf
		Until i>Len(textInput$) Or Mid(textInput$,i,1)="|"
	Next
	
	Return array$(Rand(1,numberOfPossibleStrings))
End Function
Вторая функция с другой стороны была скопирована с какого-то сайта с двумя пользователями в год, и называется она WrapText%(x, y, txt$, mode=0, align=0, width=-1, justified=0, height=-1). По сути это форматировка текста, с автоматическим переходом на следующую строку, возможностью отцентрировать текст слева, справа или посередине и так далее.
Внизу простая программа показывающая возможности этой функции, её копировать не надо

; Environment Settings
Graphics 800, 600, 0, 2
SetBuffer BackBuffer()
SeedRnd MilliSecs()
AppTitle "Wrap Text"

; Main loop
t = MilliSecs() + 1000
While Not KeyDown(1)
	
    ; Frame rate
    If MilliSecs() >= t Then
        lastFPS = FPS
        FPS = 0
        t = MilliSecs() + 1000
    End If
    FPS = FPS + 1
    
    ; Select mode
    If KeyHit(57) Then
        mode = (mode + 1) Mod 3
    End If
    If KeyHit(28) Then
        amode = (amode + 1) Mod 3
    End If
    If KeyHit(15) Then
        jmode = (jmode + 1) Mod 2
    End If
    
    ; Render
    Cls
    Text 0, 0, "Wrap mode: " + mode + " (press space to change)"
    Select mode
        Case 0
            Text 10, 15, "None"
        Case 1
            Text 10, 15, "Wrapped"
        Case 2
            Text 10, 15, "Direct"
    End Select
    Text 0, 30, "Align mode: " + amode + " (press enter to change)"
    Select amode
        Case 0
            Text 10, 45, "Left"
        Case 1
            Text 10, 45, "Center"
        Case 2
            Text 10, 45, "Right"
    End Select
    Text 0, 60, "Justified mode: " + jmode + " (press tab to change)"
    Select jmode
        Case 0
            Text 10, 75, "OFF"
        Case 1
            Text 10, 75, "ON"
    End Select
    Text 0, 90, "Text Height: " + h
    Text 0, 115, "FPS: " + lastFPS
    h = WrapText(100, 150, "Word wrap" + Chr$(13) + "From Wikipedia, the free encyclopedia" + Chr$(13) + "Word wrap refers to a feature supported by most text editors that allows them to insert soft returns (or hard returns for some text editors) at the right margins of a document. As the full view of the text would show excessively long text strings, word wrapping confines text to the viewable window, allowing text to be edited or read from top to bottom without any left to right scrolling." + Chr$(13) + "In word processors, word wrapping usually does not cause actual soft returns to be inserted into the actual document, but while editing the viewed text will be displayed as if soft returns had been inserted. If the user changes the margins, the editor will either automatically reposition the soft returns to ensure that all the text will 'flow' within the margins and remain visible, or provide the typist some convenient way to reposition the soft returns.", mode, amode, 400, jmode)
    Flip False
	
Wend

;---------------------САМА ФУНКЦИЯ-----------------------

Const WRAP_MODE_NONE = 0
Const WRAP_MODE_WRAPPED = 1
Const WRAP_MODE_DIRECT = 2
Const ALIGN_MODE_LEFT = 0
Const ALIGN_MODE_CENTER = 1
Const ALIGN_MODE_RIGHT = 2
Const JUSTIFIED_OFF = 0
Const JUSTIFIED_ON = 1
Function WrapText%(x, y, txt$, mode = WRAP_MODE_NONE, align = ALIGN_MODE_LEFT, width = -1, justified = JUSTIFIED_OFF, height = -1)
    Local i, l, o, h
    Local w#, wx#
    Local c$
    l = Len(txt)
    If width < 0 And mode > WRAP_MODE_NONE Then
        RuntimeError "Cannot have no width with a wrap mode"
    End If
    If width < 0 And justified > JUSTIFIED_OFF Then
        RuntimeError "Cannot have no width and be justified"
    End If
    If height = -1 Then
        height = StringHeight(txt)
    End If
    Select mode
        Case WRAP_MODE_NONE
            For i = 1 To l
                If Mid(txt, i, 1) = Chr$(13) Or Mid(txt, i, 1) = Chr$(10) Then
                    h = WrapText(x, y, Left(txt, i - 1), WRAP_MODE_DIRECT, align, width, JUSTIFIED_OFF, height)
                    Return h+WrapText(x, y+height, Mid(txt, i + 1), mode, align, width, justified, height)
                End If
            Next
            Return WrapText(x, y, txt, WRAP_MODE_DIRECT, align, width, JUSTIFIED_OFF, height)
        Case WRAP_MODE_WRAPPED
            For i = 1 To l
                If Mid(txt, i, 1) = Chr$(13) Or Mid(txt, i, 1) = Chr$(10) Then
                    h = WrapText(x, y, Left(txt, i - 1), WRAP_MODE_DIRECT, align, width, JUSTIFIED_OFF, height)
                    Return h+WrapText(x, y+height, Mid(txt, i + 1), mode, align, width, justified, height)                
                End If
                If StringWidth(Left(txt, i - 1)) > width Then
                    i = i - 1
                    While i > 0 And Mid(txt, i, 1) <> " "
                        i = i - 1
                    Wend
                    If i = 0 Then
                        i = 1
                    End If
                    h = WrapText(x, y, Left(txt, i - 1), WRAP_MODE_DIRECT, align, width, justified, height)
                    Return h+WrapText(x, y+height, Mid(txt, i + 1), mode, align, width, justified, height)    
                End If
            Next
            Return WrapText(x, y, txt, WRAP_MODE_DIRECT, align, width, JUSTIFIED_OFF, height)
        Case WRAP_MODE_DIRECT
            Select justified
                Case JUSTIFIED_OFF
                    Select align
                        Case ALIGN_MODE_LEFT
                            Text x, y, txt
                        Case ALIGN_MODE_CENTER
                            Text x + width/2 - StringWidth(txt)/2, y, txt
                        Case ALIGN_MODE_RIGHT
                            Text x + width - StringWidth(txt), y, txt
                    End Select        
				Case JUSTIFIED_ON
                    w = (Float(width) - Float(StringWidth(txt))) / Float(l-1)
                    wx = x
                    For i = 1 To l
                        c$ = Mid(txt, i, 1)
                        Text wx, y, c
                        wx = wx + w + StringWidth(c)
                    Next
            End Select
            Return height
    End Select
End Function
Всем удачи :^)
(Offline)
 
Ответить с цитированием
Эти 5 пользователя(ей) сказали Спасибо Beholder за это полезное сообщение:
ant0N (04.10.2013), Arton (21.09.2013), Кирпи4 (21.09.2013), Snogg (22.09.2013), Susanin (22.09.2013)
Старый 22.09.2013, 20:02   #2
Snogg
AnyKey`щик
 
Регистрация: 22.09.2013
Сообщений: 19
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Работа с текстом

Огромное спасибо за функции! От первой пользу ещё не получил, а вот вторая намного облегчила форматировку текста и правильные переносы.
(Offline)
 
Ответить с цитированием
Старый 02.10.2013, 21:33   #3
Snogg
AnyKey`щик
 
Регистрация: 22.09.2013
Сообщений: 19
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Работа с текстом


WrapText(90,80, dlgtext,WRAP_MODE_WRAPPED, ALIGN_MODE_LEFT, 620,1,12)
Вывожу вот такой командой текст, но он выводиться не полностью. Часть текста просто исчезает, как на скрине. Полный текст, который должен быть на скрине:
Если ты говоришь правду, то тебе очень повезло. Так как все остальные выжившие с корабля были ещё вчера забраны. Ты хочешь знать что это значит? Но для начала разгадай мою загадку. Если разгадаешь - расскажу тебе всё об этом острове, иначе... Впрочем, сам узнаешь что будет иначе.
(Offline)
 
Ответить с цитированием
Старый 04.10.2013, 19:37   #4
Snogg
AnyKey`щик
 
Регистрация: 22.09.2013
Сообщений: 19
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Работа с текстом

Форум вымер что-ли? Подскажите в чём может быть проблема?
(Offline)
 
Ответить с цитированием
Старый 04.10.2013, 19:57   #5
SBJoker
Злобный Админ
 
Аватар для SBJoker
 
Регистрация: 04.09.2005
Сообщений: 5,926
Написано 3,415 полезных сообщений
(для 9,330 пользователей)
Ответ: Работа с текстом

Очевидно в ошибке в алгоритме функции.
__________________
(Offline)
 
Ответить с цитированием
Старый 04.10.2013, 20:00   #6
tormoz
Гигант индустрии
 
Аватар для tormoz
 
Регистрация: 14.12.2005
Сообщений: 2,785
Написано 1,183 полезных сообщений
(для 4,437 пользователей)
Ответ: Работа с текстом

Сообщение от Snogg Посмотреть сообщение
Форум вымер что-ли? Подскажите в чём может быть проблема?
в StringWidth
__________________
(Offline)
 
Ответить с цитированием
Старый 04.10.2013, 20:06   #7
Snogg
AnyKey`щик
 
Регистрация: 22.09.2013
Сообщений: 19
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Работа с текстом

Можете помочь? Просто делаю игру на конкурс, и вникать во все подробности функции банально нет времени. Что именно исправить в функции чтобы она нормально отображала текст?
(Offline)
 
Ответить с цитированием
Старый 04.10.2013, 21:17   #8
tormoz
Гигант индустрии
 
Аватар для tormoz
 
Регистрация: 14.12.2005
Сообщений: 2,785
Написано 1,183 полезных сообщений
(для 4,437 пользователей)
Ответ: Работа с текстом

Попробуй так

Function TextInRect(x,y,mes$,xs)
     Local det_byte$=Chr$(32)
     Local ptr=1
info_str=0
     While True
          d_len=0
          bool=0
          For i=ptr To Len(mes$)
               d_len=d_len+StringWidth(Mid(mes$,i,1))
               If d_len>xs bool=1:Exit
          Next
          tex$=Mid(mes$,ptr,i-ptr)

          If bool
               For i2=Len(tex$) To 1 Step -1
                    If Mid$(tex$,i2,1)=det_byte$ Exit
               Next

               ptr=ptr+i2
               If i2
                  tex$=Left(tex$,i2-1)
               EndIf
          EndIf
               
          For ii=1 To Len(tex$)
           If info_al>.3 Text x+StringWidth(Left(tex$,ii-1)),y,Mid(tex$,ii,1)
                  
          Next
          y=y+32*fxa;StringHeight(tex$)
               info_str=info_str+1
          If bool=0 Exit
     Wend
     Return it
End Function
и подруби инклюды из аттача

ftext.rar
__________________
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Arton (05.10.2013)
Старый 04.10.2013, 21:25   #9
Snogg
AnyKey`щик
 
Регистрация: 22.09.2013
Сообщений: 19
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Работа с текстом

Я думал по поводу использования Fast Text, но это же платная DLL и постоянно будет вылазить сообщение о том, что это триальная версия. Или ты мне скинул полную версию?
(Offline)
 
Ответить с цитированием
Старый 04.10.2013, 22:22   #10
tormoz
Гигант индустрии
 
Аватар для tormoz
 
Регистрация: 14.12.2005
Сообщений: 2,785
Написано 1,183 полезных сообщений
(для 4,437 пользователей)
Ответ: Работа с текстом

полную
__________________
(Offline)
 
Ответить с цитированием
Старый 05.10.2013, 02:02   #11
Arton
Быдлокодер
 
Аватар для Arton
 
Регистрация: 05.07.2009
Адрес: Проспит
Сообщений: 5,019
Написано 2,312 полезных сообщений
(для 5,349 пользователей)
Ответ: Работа с текстом

Сообщение от tormoz Посмотреть сообщение
tormoz, может файл стоит скрыть, не?

И да, ничего если я взял, для некоммерческого использования конечно?

Блиц почему-то упорно ругается "User lib not found" на "LoadFont_"...
Заюзать не получается... Я уже тупо имена повторил, не помогло...
(Offline)
 
Ответить с цитированием
Старый 05.10.2013, 02:48   #12
Arton
Быдлокодер
 
Аватар для Arton
 
Регистрация: 05.07.2009
Адрес: Проспит
Сообщений: 5,019
Написано 2,312 полезных сообщений
(для 5,349 пользователей)
Ответ: Работа с текстом

Ох, похоже дело в совместимости с блицем... Слишком новый блиц для библиотеке...

Последний раз редактировалось Arton, 05.10.2013 в 03:52.
(Offline)
 
Ответить с цитированием
Старый 05.10.2013, 09:23   #13
Snogg
AnyKey`щик
 
Регистрация: 22.09.2013
Сообщений: 19
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Работа с текстом

У меня тоже самое, блитз 1.98 версии. Что я делаю не так? DLL запихнул в папку с проектом и в папку userlibs, decls туда же.
(Offline)
 
Ответить с цитированием
Старый 05.10.2013, 12:07   #14
Черный крыс
 
Сообщений: n/a
Ответ: Работа с текстом

попробуй запихнуть в папку ..\Blitz3d\bin
 
Ответить с цитированием
Старый 05.10.2013, 13:21   #15
Snogg
AnyKey`щик
 
Регистрация: 22.09.2013
Сообщений: 19
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Работа с текстом

Закинул, не помогло.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 20:08.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com