|
|
|
|
Канал Игры Мечты: «С Новым Годом!!» |
|
|
|
VBKesha
 817 EGP
     
Рейтинг канала: 3(31)
Репутация: 132
Сообщения: 3330
Откуда: обл.Брянская г. Трубчевск
Зарегистрирован: 07.12.2005
  |
|
Чтой то программистский канал такой серьёзный. Что мы не люди чтоли. В грядущем году желаю поменьше багов, побольше выполненных идей, ну и конечно же увидеть/написать наконец игру свой мечты и чтобы это стала не только игра вашей мечты но и всего плотского сообщества.
Ну и конечно же С Новым Годом!!!
| Код: |
Dim TimeX As Date, CurTime As Date, NewYear as Boolean
Dim Pilots as object,Bocal as object, BotleChampagne as object, CommLink as object
Dim X as Long
TimeX = #01/01/2007 00:00:00#
NewYear=False
While NewYear=False
CurTime = Format$(Date$ + " " + Time$, "dd/mm/yyyy h:m:s")
If CurTime >= NewYear Then NewYear=True
DoEvents
Wend
Set Pilots = CreateObject("http://www.elite-games.ru/conference/memberlist.php")
Set CommLink=CreateOject("http://www.elite-games.ru/conference/viewtopic.php?p=1528199")
Set Bocal=CreateOject("World.bocal")
Set BotleChampagne=CreateOject("World.champagne")
BotleChampagne.Open nyWithBoom
Bocal.contents.add BotleBotleChampagne.contents
For X=0 to Pilots.count
Pilots(X).Comunication=CommLink
If Pilots(X).Lefthander=False the Pilots(X).Hands.Right=Bocal else Pilots(X).Hands.left=Bocal
Next x
CommLink.BroadcastMessage "Всех с новым годом"
Pilots.Drink
Pilots.Happy nyVery
|
|
|
|
|
Jurec
 348 EGP
Рейтинг канала: 4(76)
Репутация: 102
Сообщения: 1441 Заблокирован
Откуда: Seattle
Зарегистрирован: 25.02.2006
 |
|
Всех с новым годом  
_________________
MOV topka, C++ |
|
|
|
Crimson
560 EGP
  
Рейтинг канала: 4(83)
Репутация: 130
Сообщения: 3041
Зарегистрирован: 03.09.2003
|
|
Угу, с ним, родимым 
|
|
|
|
Olorin
70 EGP
Рейтинг канала: 1(6)
Репутация: 12
Сообщения: 97
Откуда: Хьёрвард
Зарегистрирован: 27.02.2006
|
|
Исчо раз поздр всех)
ЗЫЖ А VB (6ой во всяком случае) многократные присвоения в 1ой строчке не допускает.
_________________
Мы на многое не отваживаемся не потому что оно трудно; оно трудно именно потому, что мы на него не отваживаемся.
Сенека Старший |
|
|
|
Мамонт
1818 EGP
        
Рейтинг канала: 1(1)
Репутация: 470
Сообщения: 9083
Откуда: Кайнозойская эра
Зарегистрирован: 29.09.2003
|
|
Поздравляю  С Новым Годом!  
_________________
Misereatur nostri omnipotens Deus et, dimissis peccatis nostris, perducat nos ad vitam aeternam. Amen. |
|
|
|
VBKesha
817 EGP
Рейтинг канала: 3(31)
Репутация: 132
Сообщения: 3330
Откуда: обл.Брянская г. Трубчевск
Зарегистрирован: 07.12.2005
|
|
| Olorin : |
|
ЗЫЖ А VB (6ой во всяком случае) многократные присвоения в 1ой строчке не допускает.
|
Там не представление а объявление......хотя о чём это я новый год всетаки
|
|
|
|
Olorin
70 EGP
Рейтинг канала: 1(6)
Репутация: 12
Сообщения: 97
Откуда: Хьёрвард
Зарегистрирован: 27.02.2006
|
|
Я имел ввиду в одной)
| VBKesha : |
|
If Pilots(X).Lefthander=False the Pilots(X).Hands.Right=Bocal else Pilots(X).Hands.left=Bocal
|
Сглючило меня, else'а не увидел с ходу... 
Но всеравно, VB на эту строчку стопудняк ругнулся бы (в таком виде) 
И исчо раз с новым годом, в конце концов фиг с ними, с очепятками)
_________________
Мы на многое не отваживаемся не потому что оно трудно; оно трудно именно потому, что мы на него не отваживаемся.
Сенека Старший |
|
|
|
VBKesha
817 EGP
Рейтинг канала: 3(31)
Репутация: 132
Сообщения: 3330
Откуда: обл.Брянская г. Трубчевск
Зарегистрирован: 07.12.2005
|
|
Ну это да заругался бы полюбому
|
|
|
|
NRG
2526 EGP
   
Рейтинг канала: 3(32)
Репутация: 435
Сообщения: 10010
Откуда: Odessa, Ukraine
Зарегистрирован: 07.02.2001
|
|
поздравляю вас всех. творческих вам бобров и материальных радостей
_________________
Единица измерения равнодушия - один хер. |
|
|
|
NRG
2526 EGP
Рейтинг канала: 3(32)
Репутация: 435
Сообщения: 10010
Откуда: Odessa, Ukraine
Зарегистрирован: 07.02.2001
|
|
Нет, просто мне не обязательно шерстить весь канал и закрывать ВСЕ темы.
Мне достаточно будет лишь примерно наказать одного-двух археологов или лиц, не понимающих, когда не стоит, пусть даже от скуки, насиловать клавиатуру в неподобающем канале.
Я, надеюсь, намек понятен?
_________________
Единица измерения равнодушия - один хер. |
|
|
|
|
|
|
|
|
Канал Игры Мечты: «С Новым Годом!!» |
|
|
