INKIEV . NET

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

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

 

Код прорисовки счетчика:
ENGINE(2)
SetImageSize(88, 31)

DefineColor(1, 0, 0, 0)
DefineColor(2, 255, 255, 255)
Rectangle(1, 0, 0, 87, 30)

DefineColor(11, 0,0,0)
DefineColor(12, 0,0,0)
DefineColor(13, 0,0,0)
DefineColor(14, 0,0,0)
DefineColor(15, 0,0,0)
DefineColor(16, 0,0,0)

#DefineRandomColor(11)
#DefineRandomColor(12)
#DefineRandomColor(13)
#DefineRandomColor(14)
#DefineRandomColor(15)
#DefineRandomColor(16)

SET $MAX = "26" + "0"
SET $H1 = rand($MAX)
SET $H2 = rand($MAX)
SET $H3 = rand($MAX)
SET $H4 = rand($MAX)
SET $H5 = rand($MAX)
SET $H6 = rand($MAX)



Text(1, 6, 9, 0, 3, 9, "$HITS_TODAY")
Text(1, 6, 9, 0, 3, 18, "$HOSTS_TODAY")

Repeat (2-6,1) to "A"
 SetFrame(1)

 IF ("$_" = "1") Goto("skip_new_fr")
  NewFrame($_,1)
 Label "skip_new_fr"

 SetFrameDelay(10)

 Set $tmp = rand(7)
 IF ("$H1" > "22") Goto("dec1")
 SET $H1 = "$H1" + "$tmp"
 Goto("end1")
 Label "dec1"
 SET $H1 = "$H1" - "$tmp"
 Label "end1"
 RectangleFilled(11, 80, $H1, 85, 29)

#################

 Set $tmp = rand(7)
 IF ("$H2" > "22") Goto("dec2")
 SET $H2 = "$H2" + "$tmp"
 Goto("end2")
 Label "dec2"
 SET $H2 = "$H2" - "$tmp"
 Label "end2"
 RectangleFilled(12, 70, $H2, 75, 29)

#################

 Set $tmp = rand(7)
 IF ("$H3" > "22") Goto("dec3")
 SET $H3 = "$H3" + "$tmp"
 Goto("end3")
 Label "dec3"
 SET $H3 = "$H3" - "$tmp"
 Label "end3"
 RectangleFilled(13, 60, $H3, 65, 29)

#################

 Set $tmp = rand(7)
 IF ("$H4" > "22") Goto("dec4")
 SET $H4 = "$H4" + "$tmp"
 Goto("end4")
 Label "dec4"
 SET $H4 = "$H4" - "$tmp"
 Label "end4"
 RectangleFilled(14, 50, $H4, 55, 29)

#################

 Set $tmp = rand(7)
 IF ("$H5" > "22") Goto("dec5")
 SET $H5 = "$H5" + "$tmp"
 Goto("end5")
 Label "dec5"
 SET $H5 = "$H5" - "$tmp"
 Label "end5"
 RectangleFilled(15, 40, $H5, 45, 29)

#################

 Set $tmp = rand(7)
 IF ("$H6" > "22") Goto("dec6")
 SET $H6 = "$H6" + "$tmp"
 Goto("end6")
 Label "dec6"
 SET $H6 = "$H6" - "$tmp"
 Label "end6"
 RectangleFilled(16, 30, $H6, 35, 29)

#################

Label "A"



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