INKIEV . NET

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

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

 

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



Код прорисовки счетчика:
ENGINE(2)
LoadBackground(16)
DefineColor(1, 255,255,255)
Text(1, 1, 11, 0, 2, 10, "$HITS_TODAY")
TextRight(1, 1, 11, 0, 86, 10, "$HOSTS_TODAY")
SET $C = "$HITS_TODAY" * "1"
SET $C = substr("$C", -0, 1)
DefineColor(2, 255,0,0)
SET $D = "10" * "1"

if ("$C" = "0") Goto("EXIT")

NewFrame(2,1)
SetFrameDelay($D)
Fill(2, 5, 30)

NewFrame(3,1)
SetFrameDelay($D)
Fill(2, 9, 30)
if ("$C" < "2") Goto("EXIT")

NewFrame(4,1)
SetFrameDelay($D)
Fill(2, 13, 30)

NewFrame(5,1)
SetFrameDelay($D)
Fill(2, 17, 30)
if ("$C" < "3") GOTO("EXIT")

NewFrame(6,1)
SetFrameDelay($D)
Fill(2, 21, 30)

NewFrame(7,1)
SetFrameDelay($D)
Fill(2, 25, 30)
if ("$C" < "4") GOTO("EXIT")

NewFrame(8,1)
SetFrameDelay($D)
Fill(2, 29, 30)

NewFrame(9,1)
SetFrameDelay($D)
Fill(2, 33, 30)
if ("$C" < "5") GOTO("EXIT")

NewFrame(10,1)
SetFrameDelay($D)
Fill(2, 37, 30)

NewFrame(11,1)
SetFrameDelay($D)
Fill(2, 41, 30)
if ("$C" < "6") GOTO("EXIT")

DefineColor(2, 72,255,0)

NewFrame(12,1)
SetFrameDelay($D)
Fill(2, 45, 30)

NewFrame(13,1)
SetFrameDelay($D)
Fill(2, 49, 30)
if ("$C" < "7") GOTO("EXIT")

NewFrame(14,1)
SetFrameDelay($D)
Fill(2, 53, 30)

NewFrame(15,1)
SetFrameDelay($D)
Fill(2, 57, 30)
if ("$C" < "8") GOTO("EXIT")

NewFrame(16,1)
SetFrameDelay($D)
Fill(2, 61, 30)

NewFrame(17,1)
SetFrameDelay($D)
Fill(2, 65, 30)
if ("$C" < "9") GOTO("EXIT")

NewFrame(18,1)
SetFrameDelay($D)
Fill(2, 69, 30)

NewFrame(19,1)
SetFrameDelay($D)
Fill(2, 73, 30)

NewFrame(20,1)
SetFrameDelay($D)
Fill(2, 77, 30)

NewFrame(21,1)
SetFrameDelay($D)
Fill(2, 81, 30)

Label "EXIT"


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