INKIEV . NET

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

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

 

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



Код прорисовки счетчика:
LoadBackground(125)
DefineColor(1, 0, 0, 0)
TextRight(1, 5, 8, 0, 85, 35, "$HITS_TODAY")
TextRight(1, 5, 8, 0, 85, 45, "$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)

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

 Set $tmp = rand(7)
 IF ("$H7" > "22") Goto("dec7")
 SET $H7 = "$H7" + "$tmp"
 Goto("end7")
 Label "dec7"
 SET $H7 = "$H7" - "$tmp"
 Label "end7"
 RectangleFilled(17, 20, $H7, 25, 29)

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

Set $tmp = rand(7)
 IF ("$H8" > "22") Goto("dec8")
 SET $H8 = "$H8" + "$tmp"
 Goto("end8")
 Label "dec8"
 SET $H8 = "$H8" - "$tmp"
 Label "end8"
 RectangleFilled(18, 10, $H8, 15, 29)

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



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