Небольшая прога на циклы и ветвление

s1=100 'ваша стартовая сумма
s2=100 'стартовая сумма компа
While s1<199 And s2<199
  i=i+1 'вычисление числа бросков
bet1=Math.GetRandomNumber(6)+Math.GetRandomNumber(6)
bet2=Math.GetRandomNumber(6)+Math.GetRandomNumber(6)
TextWindow.Write("ваш бросок "+bet1)
TextWindow.Write(" бросок компа "+bet2)
If (bet1>bet2) Then
  s1=s1+1
  s2=s2-1
  TextWindow.WriteLine(" ваш бросок удачнее ")
ElseIf (bet1<bet2) Then
  s1=s1-1
  s2=s2+1
  TextWindow.WriteLine(" бросок компа удачнее ")
Else
  TextWindow.WriteLine(" ничья ")
EndIf
EndWhile
TextWindow.Write(" ваш счет "+s1)
TextWindow.WriteLine(" счет компа "+s2)
TextWindow.WriteLine(" потребовалось бросков "+i)

Small Basic - переменные

Для объявления переменной достаточно ввести ее и присвоить ей значение
переменная=N 


Для ввода переменной с клавиатуры, нужно ввести команду
переменная=TextWindow.Read() - то, что вы вводите с клавы будет присвоено переменной 
переменная=TextWindow.ReadNumber() - то, что вы вводите с клавы будет присвоено переменной как числовой тип




TextWindow.WriteLine(Переменная) - вывод переменной с переносом на новую строку
TextWindow.WriteLine("текст") - вывод содержимого между кавычками, как текста
TextWindow.WriteLine("текст" + переменная) выведет текст, а следом переменную
TextWindow.WriteLine(Переменная) - вывод без переноса на новую строку


Можно изменять настройки текстового поля
TextWindow.ForegroundColor = "Red" - после этого текст будет выводится красного цвета


Выполнение операций над переменными
Переменная1=10
Переменная2=50
Переменная3=Переменная1+Переменная2
TextWindow.WriteLine(Переменная3) - выведет 60
Можно складывать, делить, умножать, вычитать


Коментарии в тексте программы создаются вводом этого знака'


Типов данных два - числовые и строковые
Если складывать строковые со строковыми, получится контеканация.
Если чисто со строковой - тоже.
Если два числовых - вычисление.

a=12

b=77.13

c= " число"

d= " тоже число"

sum1=a + b

sum2=c + d

sum3=a + c

TextWindow.WriteLine (sum1) `выведет 89,13
TextWindow.WriteLine (sum2) `выведет число тоже число
TextWindow.WriteLine (sum3) `выведет 12 число

Циклы в Simple Basic

Простейший цикл построен на метках и сильно охаянной команды GoTo
Синтаксис


metka:
...код...
Goto metka 


Дойдя до команды Goto, программа перепрыгнет на указанную метку. Цикл, епт...


Цикл For
For i=1 To N Step N
...код...
Endfor


Пример нубкода с циклом For (заполняет экран цветными линиями)

GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.Width = 600
GraphicsWindow.Height =400
For i=1 To 1000
x1=20+Math.GetRandomNumber(560)
x2=20+Math.GetRandomNumber(560)
y1=20+Math.GetRandomNumber(360)
y2=20+Math.GetRandomNumber(360)
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
GraphicsWindow.DrawLine(x1, y1, x2, y2)
EndFor

Цикл While
While (условия)
...код...
EndWhile

Ветвление в small basic

Если два условия
If (условие в скобках) Then
...код...
Else (условие в скобках)
...код...
Endif

Если нужно несколько условий

If (условие в скобках) Then

...код...

Elseif (условие в скобках)

...код...

Endif

Операторы сравнения
< - меньше
> - больше
<= -меньше или равно
>= -больше или равно
= -равно
<> -не равно


And - если оба условия истинны
Or - Истина, если истинно хотя бы одно

Подключение FCK Editor на drupal 6.20

Задача. Есть "голый" друпал 6.20 - нужно прикрутить визуальный редактор. 


Давно уже сталкивался с FCKeditor, потому решил подключить его. В целом, функционал богатый и позволяет забить все нужное.
Я ставил на денвер. В папке sites/all создаются две папки libraries и modules.
С сайта drupal.org качаются модули Image, IMCE, FCKeditor, IMCE wysimyg, wisimyg.
В modules закидываются wisimyg, IMCE wysimyg, Image, IMCE
В libraries нужно закинуть FCKeditor.
Все модули в админке/модули включается.


Потом нужно зайти в настройки сайта/wisimyg profiles и поставить на оба пункта FCKeditor.
Потом нужно зайти на той же странице в "редактировать" напротив названия  FCKeditor и там, в закладке buttons and plugins включить нужные для редактирования пункты, а главное IMCE.