Подсветка синтаксиса

[SubZer0]

проба подсветки синтаксиса

[highlight="blitzbasic"]Graphics3D 800,600,32,2
SetBuffer BackBuffer()

camera=CreateCamera()

PositionEntity camera,75,100,0
RotateEntity camera,60,0,0

RotateEntity CreateLight(1),0,50,0


Dim Map(15,15)

For i=0 To 15
For j=0 To 15
t%=CreateSphere ()
PositionEntity t%,i*10-5,0,j*10-5
ScaleMesh t%,0.5,0.5,0.5
Next
Next

For i=1 To 10
t%=CreateCube()
PositionEntity t%,i*10,1,i*10
ScaleEntity t%,5,2,5
Map(i,i)=1
Next



t%=CreateSphere()
ScaleMesh t%,1.3,1.3,1.8
EntityColor t%,10,250,30
PositionMesh t%,0,1,0

t1%=CreateSphere(8,t%)
PositionEntity t1%,-0.5,2,1.2
ScaleMesh t1%,0.3,0.3,0.3
EntityColor t1%,255,50,30

t2%=CreateSphere(8,t%)
PositionEntity t2%,0.5,2,1.2
ScaleMesh t2%,0.3,0.3,0.3
EntityColor t2%,255,50,30



ScaleEntity t%,2.5,2.5,2.5



Function SnakeGetY(id%)
For SnakeManager.snm = Each snm
If id=SnakeManager\id% Then
Return SnakeManager\y#
EndIf
Next
End Function[/highlight]

[SubZer0]

Так... вроде работает...

установил мод подсветки синтаксиса... сейчас буду ковырять...

поддерживаются 67 наборов синтаксиса:

actionscript
ada
apache
applescript
asm
asp
autoit
bash
blitzbasic
c
c_mac
caddcl
cadlisp
cfdg
cfm
cpp
csharp
css
d
delphi
diff
div
dos
eiffel
fortran
freebasic
gml
groovy
html4strict
ini
inno
java
java5
javascript
lisp
lua
matlab
mpasm
mysql
nsis
objc
ocaml
oobas
oracle8
pascal
perl
php
python
qbasic
reg
robots
ruby
sas
scheme
sdlbasic
smalltalk
smarty
sql
tcl
text
tsql
vb
vbnet
vhdl
visualfoxpro
winbatch
xml

юзать:

[ highlight = язык ] текст [ /highlight ]

[alcoSHoLiK]

Классно. Если баги подправишь, будет круто.

[SubZer0]

скажите куда копать... будем копать...

[alcoSHoLiK]

[highlight=cpp]
#include<winmustdie.h>

int main()
{
return 0;
}
[/highlight]
[highlight=vb]
Dim var As Integer

Public Sub Whatever()
End Sub
[/highlight]
Вроде работает. Только в ВБ по теории 'var' должна быть черной. А цифра в cpp не синей.

[alcoSHoLiK]

Хе. При копировании в текстовый редактор символы перевода строки исчезают.

[impersonalis]

Неплохо бы шаблон этого тега внести в панель ответа, вместо CODE

[ABTOMAT]

Круто! Я раньше и не знал что подсветка есть на булке

Просьба только сделать цвета синтаксиса blitzbasic "родными" , а то нынешняя палитра очень непривычна, и второе, включит дефолтом подсветку синтаксиса блитзбейсик при использовании тегов [blїtz] [/blїtz] и чтоб не было "дырки" посередине, если не затруднит

З.Ы. Извините, не удержался опробовать подсветку

[blitz][highlight="blitzbasic"]
Graphics 400,300,32,2
Print "Hello, world!" ; камент
WaitKey()
End.
[/highlight][/blitz]

[Данил]

[highlight=blitzbasic]
Include "Functions.bmx"
Global GUI_R = 120
Global GUI_G = 120
Global GUI_B = 135
Global SWindow:TList=New TList

'|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=|
Type DF_GUI
Field X,Y 'Положение объекта
Field Width, Height 'Ширина объекта

Field DrapNDrop[5] 'Перемещение окна и для всего.
Field Z 'Высота.
Field Alpha

Method UpdateWindow()
GUI_DrawRect (x,y,5, width , height , Alpha , GUI_R , GUI_G , GUI_B , 1, 1 )
End Method

End Type

Function Create_Window (x,y,width , height)
Local Window:DF_GUI=New DF_GUI
Window.x = x
Window.y = y
Window.width = width
Window.height = height
Window.z = z
Window.alpha = 1
Z=Z+1
ListAddLast (SWindow , Window)
End Function
[/highlight]

Добавьте плиз Method и камменты от бмакса ... Ну и цвет синий =) как в теге blitz. И будет круто...

[Phantom]

Пардон, я не понял две вещи.
1) Что-то у меня подсветка не работает.
2) Это чё за флудер во всех темах что-то на тарабарском пишет?

Phantom_wc
1) посмотри на дату темы
2) тут спамботы иногда появляются