INKIEV . NET

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

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

 

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



Код прорисовки счетчика:
LoadBackground(19)
DefineColor(1, 0, 255, 0)
DefineColor(2, 255, 0, 0)
DefineColor(3, 255, 255, 255)

SET $X = "$HITS_TODAY" * "1"

##### !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ######
### УДАЛИТЕ ЭТУ СТРОКУ КОГДА БУДЕТЕ ИСПОЛЬЗОВАТЬ ЭТОТ СЧЕТЧИК ####
SET $X = rand(999999)
##### !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ######

SET $C1 = "0" + "0"
SET $C2 = "0" + "0"
SET $C3 = "0" + "0"
SET $C4 = "0" + "0"
SET $C5 = "0" + "0"
SET $C6 = "0" + "0"




if ("$X" < "99999") GOTO("Z5")
SET $C6 = substr("$X", -5, 1)

LABEL "Z5"

if ("$X" < "9999") GOTO("Z4")
SET $C5 = substr("$X", -4, 1)

LABEL "Z4"

if ("$X" < "999") GOTO("Z3")
SET $C4 = substr("$X", -3, 1)


LABEL "Z3"

if ("$X" < "99") GOTO("Z2")
SET $C3 = substr("$X", -2, 1)

LABEL "Z2"

if ("$X" < "9") GOTO("Z1")
SET $C2 = substr("$X", -1, 1)

LABEL "Z1"

SET $C1 = substr("$X", -0, 1)


SET $F = "1" + "0"
SET $FS = "8" + "0"

# draw all c(1-6)
Text(3, $F, $FS, 0, 47, 45, "$C1")
Text(3, $F, $FS, 0, 38, 45, "$C2")
Text(3, $F, $FS, 0, 29, 45, "$C3")
Text(3, $F, $FS, 0, 20, 45, "$C4")
Text(3, $F, $FS, 0, 11, 45, "$C5")
Text(3, $F, $FS, 0, 2,   45, "$C6")


if ("$C1" < "9") GOTO("SKIP_1_9")
Fill(2, 50, 2)
LABEL "SKIP_1_9"

if ("$C1" < "8") GOTO("SKIP_1_8")
Fill(2, 50, 6)
LABEL "SKIP_1_8"

if ("$C1" < "7") GOTO("SKIP_1_7")
Fill(2, 50, 10)
LABEL "SKIP_1_7"

if ("$C1" < "6") GOTO("SKIP_1_6")
Fill(1, 50, 14)
LABEL "SKIP_1_6"

if ("$C1" < "5") GOTO("SKIP_1_5")
Fill(1, 50, 18)
LABEL "SKIP_1_5"

if ("$C1" < "4") GOTO("SKIP_1_4")
Fill(1, 50, 22)
LABEL "SKIP_1_4"

if ("$C1" < "3") GOTO("SKIP_1_3")
Fill(1, 50, 26)
LABEL "SKIP_1_3"

if ("$C1" < "2") GOTO("SKIP_1_2")
Fill(1, 50, 30)
LABEL "SKIP_1_2"

if ("$C1" < "1") GOTO("SKIP_1_1")
Fill(1, 50, 34)
LABEL "SKIP_1_1"


###### c2 #######


if ("$C2" < "9") GOTO("SKIP_2_9")
Fill(2, 40, 2)
LABEL "SKIP_2_9"

if ("$C2" < "8") GOTO("SKIP_2_8")
Fill(2, 40, 6)
LABEL "SKIP_2_8"

if ("$C2" < "7") GOTO("SKIP_2_7")
Fill(2, 40, 10)
LABEL "SKIP_2_7"

if ("$C2" < "6") GOTO("SKIP_2_6")
Fill(1, 40, 14)
LABEL "SKIP_2_6"

if ("$C2" < "5") GOTO("SKIP_2_5")
Fill(1, 40, 18)
LABEL "SKIP_2_5"

if ("$C2" < "4") GOTO("SKIP_2_4")
Fill(1, 40, 22)
LABEL "SKIP_2_4"

if ("$C2" < "3") GOTO("SKIP_2_3")
Fill(1, 40, 26)
LABEL "SKIP_2_3"

if ("$C2" < "2") GOTO("SKIP_2_2")
Fill(1, 40, 30)
LABEL "SKIP_2_2"

if ("$C2" < "1") GOTO("SKIP_2_1")
Fill(1, 40, 34)
LABEL "SKIP_2_1"

############ c3 ############

if ("$C3" < "9") GOTO("SKIP_3_9")
Fill(2, 30, 2)
LABEL "SKIP_3_9"

if ("$C3" < "8") GOTO("SKIP_3_8")
Fill(2, 30, 6)
LABEL "SKIP_3_8"

if ("$C3" < "7") GOTO("SKIP_3_7")
Fill(2, 30, 10)
LABEL "SKIP_3_7"

if ("$C3" < "6") GOTO("SKIP_3_6")
Fill(1, 30, 14)
LABEL "SKIP_3_6"

if ("$C3" < "5") GOTO("SKIP_3_5")
Fill(1, 30, 18)
LABEL "SKIP_3_5"

if ("$C3" < "4") GOTO("SKIP_3_4")
Fill(1, 30, 22)
LABEL "SKIP_3_4"

if ("$C3" < "3") GOTO("SKIP_3_3")
Fill(1, 30, 26)
LABEL "SKIP_3_3"

if ("$C3" < "2") GOTO("SKIP_3_2")
Fill(1, 30, 30)
LABEL "SKIP_3_2"

if ("$C3" < "1") GOTO("SKIP_3_1")
Fill(1, 30, 34)
LABEL "SKIP_3_1"


#### c4 #####


if ("$C4" < "9") GOTO("SKIP_4_9")
Fill(2, 20, 2)
LABEL "SKIP_4_9"

if ("$C4" < "8") GOTO("SKIP_4_8")
Fill(2, 20, 6)
LABEL "SKIP_4_8"

if ("$C4" < "7") GOTO("SKIP_4_7")
Fill(2, 20, 10)
LABEL "SKIP_4_7"

if ("$C4" < "6") GOTO("SKIP_4_6")
Fill(1, 20, 14)
LABEL "SKIP_4_6"

if ("$C4" < "5") GOTO("SKIP_4_5")
Fill(1, 20, 18)
LABEL "SKIP_4_5"

if ("$C4" < "4") GOTO("SKIP_4_4")
Fill(1, 20, 22)
LABEL "SKIP_4_4"

if ("$C4" < "3") GOTO("SKIP_4_3")
Fill(1, 20, 26)
LABEL "SKIP_4_3"

if ("$C4" < "2") GOTO("SKIP_4_2")
Fill(1, 20, 30)
LABEL "SKIP_4_2"

if ("$C4" < "1") GOTO("SKIP_4_1")
Fill(1, 20, 34)
LABEL "SKIP_4_1"


##### c 5 #####

if ("$C5" < "9") GOTO("SKIP_5_9")
Fill(2, 10, 2)
LABEL "SKIP_5_9"

if ("$C5" < "8") GOTO("SKIP_5_8")
Fill(2, 10, 6)
LABEL "SKIP_5_8"

if ("$C5" < "7") GOTO("SKIP_5_7")
Fill(2, 10, 10)
LABEL "SKIP_5_7"

if ("$C5" < "6") GOTO("SKIP_5_6")
Fill(1, 10, 14)
LABEL "SKIP_5_6"

if ("$C5" < "5") GOTO("SKIP_5_5")
Fill(1, 10, 18)
LABEL "SKIP_5_5"

if ("$C5" < "4") GOTO("SKIP_5_4")
Fill(1, 10, 22)
LABEL "SKIP_5_4"

if ("$C5" < "3") GOTO("SKIP_5_3")
Fill(1, 10, 26)
LABEL "SKIP_5_3"

if ("$C5" < "2") GOTO("SKIP_5_2")
Fill(1, 10, 30)
LABEL "SKIP_5_2"

if ("$C5" < "1") GOTO("SKIP_5_1")
Fill(1, 10, 34)
LABEL "SKIP_5_1"


### c6 #####


if ("$C6" < "9") GOTO("SKIP_6_9")
Fill(2, 1, 2)
LABEL "SKIP_6_9"

if ("$C6" < "8") GOTO("SKIP_6_8")
Fill(2, 1, 6)
LABEL "SKIP_6_8"

if ("$C6" < "7") GOTO("SKIP_6_7")
Fill(2, 1, 10)
LABEL "SKIP_6_7"

if ("$C6" < "6") GOTO("SKIP_6_6")
Fill(1, 1, 14)
LABEL "SKIP_6_6"

if ("$C6" < "5") GOTO("SKIP_6_5")
Fill(1, 1, 18)
LABEL "SKIP_6_5"

if ("$C6" < "4") GOTO("SKIP_6_4")
Fill(1, 1, 22)
LABEL "SKIP_6_4"

if ("$C6" < "3") GOTO("SKIP_6_3")
Fill(1, 1, 26)
LABEL "SKIP_6_3"

if ("$C6" < "2") GOTO("SKIP_6_2")
Fill(1, 1, 30)
LABEL "SKIP_6_2"

if ("$C6" < "1") GOTO("SKIP_6_1")
Fill(1, 1, 34)
LABEL "SKIP_6_1"




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