INKIEV . NET

   
Работа     Автомобили     Рефераты     Домены
Главная | Галерея счетчиков | Вход | Регистрация

Просмотр кода прорисовки счетчика:

 

Использованы Background(s):



Код прорисовки счетчика:
ENGINE(2)
SET $E = "2" * "1"

LoadBackground(10)
DefineColor(1, 0, 0, 0)


if ("$E" = "2") GOTO("VER2_TEXT1")
TextRight(1, 6, 7, 0, 86, 10, "$HITS_TODAY")
TextRight(1, 6, 7, 0, 86, 20, "$HOSTS_TODAY")
GOTO("END_TEXT1")
LABEL "VER2_TEXT1"
TextRight(1, 6, 10, 0, 86, 10, "$HITS_TODAY")
TextRight(1, 6, 10, 0, 86, 20, "$HOSTS_TODAY")

LABEL "END_TEXT1"



if ("$E" = "2") GOTO("VER2_TEXT2")
Text(1, 3, 7, 0, 33, 29, "inkiev.net")
GOTO("END_TEXT2")
LABEL "VER2_TEXT2"
Text(1, 3, 10, 0, 33, 29, "inkiev.net")
LABEL "END_TEXT2"

DefineRandomColor(2)
FILL(2, 15, 15)

DefineRandomColor(10)
DefineRandomColor(11)
DefineRandomColor(12)
DefineRandomColor(13)
DefineRandomColor(14)
DefineRandomColor(15)
DefineRandomColor(16)
DefineRandomColor(17)
DefineRandomColor(18)

SetFrameDelay(10)


SET $H = substr("$HITS_TODAY", -0, 1)

SET $D = "25" * "1"
SET $D2 = "100" * "1"

if ("$H" = "0") GOTO("ALL_RANDOM")
if ("$H" = "1") GOTO("L1")
if ("$H" = "2") GOTO("L2")
if ("$H" = "3") GOTO("L3")
if ("$H" = "4") GOTO("L4")
if ("$H" = "5") GOTO("L5")
if ("$H" = "6") GOTO("L6")
if ("$H" = "7") GOTO("L7")
if ("$H" = "8") GOTO("L8")
if ("$H" = "9") GOTO("ALL_RANDOM")
GOTO("EXIT")

LABEL "L1"
NewFrame(2,1)
SetFrameDelay($D)
FILL(10, 12, 25)
GOTO("EXIT")


LABEL "L2"

NewFrame(2,1)
SetFrameDelay($D)
FILL(10, 12, 25)

NewFrame(3,1)
SetFrameDelay($D)
FILL(11, 7, 20)

GOTO("EXIT")

LABEL "L3"

NewFrame(2,1)
SetFrameDelay($D)
FILL(10, 12, 25)

NewFrame(3,1)
SetFrameDelay($D)
FILL(11, 7, 20)

NewFrame(4,1)
SetFrameDelay($D)
FILL(12, 7, 12)

GOTO("EXIT")


LABEL "L4"
NewFrame(2,1)
SetFrameDelay($D)
FILL(10, 12, 25)

NewFrame(3,1)
SetFrameDelay($D)
FILL(11, 7, 20)

NewFrame(4,1)
SetFrameDelay($D)
FILL(12, 7, 12)

NewFrame(5,1)
SetFrameDelay($D)
FILL(13, 12, 7)
GOTO("EXIT")


LABEL "L5"
NewFrame(2,1)
SetFrameDelay($D)
FILL(10, 12, 25)

NewFrame(3,1)
SetFrameDelay($D)
FILL(11, 7, 20)

NewFrame(4,1)
SetFrameDelay($D)
FILL(12, 7, 12)

NewFrame(5,1)
SetFrameDelay($D)
FILL(13, 12, 7)

NewFrame(6,1)
SetFrameDelay($D)
FILL(14, 20, 7)
GOTO("EXIT")


LABEL "L6"
NewFrame(2,1)
SetFrameDelay($D)
FILL(10, 12, 25)

NewFrame(3,1)
SetFrameDelay($D)
FILL(11, 7, 20)

NewFrame(4,1)
SetFrameDelay($D)
FILL(12, 7, 12)

NewFrame(5,1)
SetFrameDelay($D)
FILL(13, 12, 7)

NewFrame(6,1)
SetFrameDelay($D)
FILL(14, 20, 7)

NewFrame(7,1)
SetFrameDelay($D)
FILL(15, 25, 12)
GOTO("EXIT")


LABEL "L7"
NewFrame(2,1)
SetFrameDelay($D)
FILL(10, 12, 25)

NewFrame(3,1)
SetFrameDelay($D)
FILL(11, 7, 20)

NewFrame(4,1)
SetFrameDelay($D)
FILL(12, 7, 12)

NewFrame(5,1)
SetFrameDelay($D)
FILL(13, 12, 7)

NewFrame(6,1)
SetFrameDelay($D)
FILL(14, 20, 7)

NewFrame(7,1)
SetFrameDelay($D)
FILL(15, 25, 12)

NewFrame(8,1)
SetFrameDelay($D)
FILL(16, 25, 20)
GOTO("EXIT")


LABEL "L8"
NewFrame(2,1)
SetFrameDelay($D)
FILL(10, 12, 25)

NewFrame(3,1)
SetFrameDelay($D)
FILL(11, 7, 20)

NewFrame(4,1)
SetFrameDelay($D)
FILL(12, 7, 12)

NewFrame(5,1)
SetFrameDelay($D)
FILL(13, 12, 7)

NewFrame(6,1)
SetFrameDelay($D)
FILL(14, 20, 7)

NewFrame(7,1)
SetFrameDelay($D)
FILL(15, 25, 12)

NewFrame(8,1)
SetFrameDelay($D)
FILL(16, 25, 20)

NewFrame(9,1)
SetFrameDelay($D)
FILL(17, 20, 25)
GOTO("EXIT")


LABEL "ALL_RANDOM"
NewFrame(2,1)
SetFrameDelay($D)
FILL(10, 12, 25)

NewFrame(3,1)
SetFrameDelay($D)
FILL(11, 7, 20)

NewFrame(4,1)
SetFrameDelay($D)
FILL(12, 7, 12)

NewFrame(5,1)
SetFrameDelay($D)
FILL(13, 12, 7)

NewFrame(6,1)
SetFrameDelay($D)
FILL(14, 20, 7)

NewFrame(7,1)
SetFrameDelay($D)
FILL(15, 25, 12)

NewFrame(8,1)
SetFrameDelay($D)
FILL(16, 25, 20)

NewFrame(9,1)
SetFrameDelay($D)
FILL(17, 20, 25)


if ("$H" = "9") GOTO("L9")
GOTO("EXIT")

LABEL "L9"
NewFrame(10,1)
SetFrameDelay($D2)
SetPixel(1, 14,15)
SetPixel(1, 18,15)

SetPixel(1, 14,18)
SetPixel(1, 18,18)

SetPixel(1, 15,19)
SetPixel(1, 16,19)
SetPixel(1, 17,19)

LABEL "EXIT"


О проекте   Реклама на сайте   Правила использования  
  Inkiev.net.
  Создай свой уникальный счетчик.
  © 2006 - 2012 by INKIEV.net
  Хостинг от Winner-Hosting.com