Сообщений в теме: 22874

[Gonzo]

ты - каза

Ты как всегда оперативна, неотразима и вообще мимими

[Magistr]

Всё.
До дому, а потом в биллик.
Всем пока.

[Gonzo]

Удачи...

А я вот поведаю вам об эксплойтах в быту... помните, раньше были автоматы для размена монет? Теперь их нет, а надо бы. Впрочем, если надо, такому автомату замену найдем. Понадобилось разменять сто тг. Помещаем их в автомат для продажи кофе. Ничего не покупаем, тут же жмём на возврат. А возвращать купюры автомат не умеет, только монеты. Слышен звон — и стошка превращается в десять золотых.

[Magistr]

Удачи...

А я вот поведаю вам об эксплойтах в быту... помните, раньше были автоматы для размена монет? Теперь их нет, а надо бы. Впрочем, если надо, такому автомату замену найдем. Понадобилось разменять сто тг. Помещаем их в автомат для продажи кофе. Ничего не покупаем, тут же жмём на возврат. А возвращать купюры автомат не умеет, только монеты. Слышен звон — и стошка превращается в десять золотых.

"Не мог покинуть, решил вернуться." ©
Разменять по сто тг? Тысячу? Нет у нас стошки купюры, на Аблае кончились.
Точно, всем пока.

Пы.Сы. А Ричи рассказала, почему Вы сволочь?

[Gonzo]

Разменять по сто тг? Тысячу? Нет у нас стошки купюры, на Аблае кончились.

Не купюры... монеты... а то что на Абылае кончились эт я помню...
Так вот, кидаешь стошку и получаешь горстку десяток...

А Ричи рассказала, почему Вы сволочь?

Это ещё почему, то есть как?

[Мастер]

как-то так

[Gonzo]

Ну ребятки вы даёте...
Заставляете народ напрягаться...
А правила никто не соблюдает как я посмотрю...
Что уж тут теперь говорить...

[Мастер]

Ну ребятки вы даёте...

не, нуачо

[Gonzo]

как-то так

Да нет, молодцы... хотя бы настоящее, а не в прошлом копаются...
Вперёд смотреть надо...

[Gonzo]

Дрррын-дыр-дыр-дыр-дыр... пошла-поехала...

[zavuch]

уфф.. дома с работы. и завтра опять работа.

[zavuch]

никово?

[zavuch]

Dim pole2(1 To 5, 1 To 5)
Dim pole As Range
Dim zhizn, zapas

Sub Worksheet_SelectionChange(ByVal Target As Range)
r = Target.Row: c = Target.Column
If r > 5 Or c > 5 Then Exit Sub
n = pole2(r, c)
If n = "mina" Then
Cells(r, c).Interior.Color = RGB(255, 0, 0)
pole2(r, c) = ""
zhizn = zhizn - 1
Range("g1") = "Жизни: " & zhizn
MsgBox "BOOM!!"
If zhizn = 0 Then Call konec
ElseIf n = "zhizn" Then
Cells(r, c).Interior.Color = RGB(0, 255, 0)
pole2(r, c) = ""
zhizn = zhizn + 1
zapas = zapas - 1
Range("g1") = "Жизни: " & zhizn
If zapas = 0 Then Call vyigral
Else
Cells(r, c).Interior.Color = RGB(220, 220, 220)
End If
End Sub

Sub igra()
'pole
Set pole = Range("a1:e5")
pole.ColumnWidth = 2
pole.RowHeight = 13
pole.Borders.Color = RGB(100, 100, 100)
Range("a1:iv65535").Interior.Color = RGB(220, 220, 220)
Call chistka_pole1
Call chistka_pole2
'shadow screen
For miny = 1 To 5
povtor_miny:
Randomize
r = Int(Rnd * 5) + 1
Randomize
c = Int(Rnd * 5) + 1
If pole2(r, c) = "mina" Then GoTo povtor_miny
pole2(r, c) = "mina"
Next
zapas = 2
For zhizn = 1 To zapas
povtor_zhizni:
Randomize
r = Int(Rnd * 5) + 1
Randomize
c = Int(Rnd * 5) + 1
If pole2(r, c) = "zhizn" Or pole2(r, c) = "mina" Then GoTo povtor_zhizni
pole2(r, c) = "zhizn"
Next
zhizn = 3
Range("g1") = "Жизни: " & zhizn
End Sub

Sub konec()
MsgBox "Пи*дец"
Call igra
End Sub

Sub vyigral()
MsgBox "Круто!!"
Call igra
End Sub

Sub cheat()
For r = 1 To 5
For c = 1 To 5
n = pole2(r, c)
If n = "mina" Then
Cells(r, c).Interior.Color = RGB(255, 0, 0)
ElseIf n = "zhizn" Then
Cells(r, c).Interior.Color = RGB(0, 255, 0)
End If
Next
Next
End Sub

Sub chistka_pole1()
pole.Interior.Color = RGB(255, 255, 255)
End Sub

Sub chistka_pole2()
For r = 1 To 5
For c = 1 To 5
pole2(r, c) = ""
Next
Next
End Sub

Сообщение отредактировал zavuch: 12.11.2011, 13:06:04

[zavuch]

таки никто и не вылез (

[Мастер]

[Мастер]

Взрыв в Таразе устроили последователи джихадизма

[zavuch]

Dim hor0, ver0, hor1, ver1, hor2, ver2, shag_hor, shag_ver, razm_ver, razm_hor, rost0, rost1, rost2

Private Sub Form_Click()
Unload Me
End Sub

Private Sub Form_Load()
Randomize: oval(0).Left = Rnd * screen.Width
Randomize: oval(0).Top = Rnd * screen.Height
Randomize: oval(1).Left = Rnd * screen.Width
Randomize: oval(1).Top = Rnd * screen.Height
Randomize: oval(2).Left = Rnd * screen.Width
Randomize: oval(2).Top = Rnd * screen.Height
Call tmrNapr_Timer
End Sub

Private Sub tmrCvet_Timer()
Randomize
oval(0).BackColor = RGB(100 + Rnd * 50, 0, 0)
oval(1).BackColor = RGB(0, 0, 100 + Rnd * 50)
oval(2).BackColor = RGB(0, 100 + Rnd * 50, 0)
End Sub

Private Sub tmrNapr_Timer()
Randomize: hor0 = Int(Rnd * 3)
Randomize: ver0 = Int(Rnd * 3)
Randomize: hor1 = Int(Rnd * 3)
Randomize: ver1 = Int(Rnd * 3)
Randomize: hor2 = Int(Rnd * 3)
Randomize: ver2 = Int(Rnd * 3)
End Sub

Private Sub tmrPolet_Timer()
If hor0 = 1 Then
oval(0).Left = oval(0).Left - shag_hor
ElseIf hor0 = 2 Then
oval(0).Left = oval(0).Left + shag_hor
End If
If hor1 = 1 Then
oval(1).Left = oval(1).Left - shag_hor
ElseIf hor1 = 2 Then
oval(1).Left = oval(1).Left + shag_hor
End If
If hor2 = 1 Then
oval(2).Left = oval(2).Left - shag_hor
ElseIf hor2 = 2 Then
oval(2).Left = oval(2).Left + shag_hor
End If

If ver0 = 1 Then
oval(0).Top = oval(0).Top - shag_ver
ElseIf ver0 = 2 Then
oval(0).Top = oval(0).Top + shag_ver
End If
If ver1 = 1 Then
oval(1).Top = oval(1).Top - shag_ver
ElseIf ver1 = 2 Then
oval(1).Top = oval(1).Top + shag_ver
End If
If ver2 = 1 Then
oval(2).Top = oval(2).Top - shag_ver
ElseIf ver2 = 2 Then
oval(2).Top = oval(2).Top + shag_ver
End If

If oval(0).Left + oval(0).Width > screen.Width Then
hor0 = 1
ElseIf oval(0).Left < 0 Then
hor0 = 2
End If
If oval(1).Left + oval(1).Width > screen.Width Then
hor1 = 1
ElseIf oval(1).Left < 0 Then
hor1 = 2
End If
If oval(2).Left + oval(2).Width > screen.Width Then
hor2 = 1
ElseIf oval(2).Left < 0 Then
hor2 = 2
End If

If oval(0).Top < 0 Then
ver0 = 2
ElseIf oval(0).Top + oval(0).Height > screen.Height Then
ver0 = 1
End If
If oval(1).Top < 0 Then
ver1 = 2
ElseIf oval(1).Top + oval(1).Height > screen.Height Then
ver1 = 1
End If
If oval(2).Top < 0 Then
ver2 = 2
ElseIf oval(2).Top + oval(2).Height > screen.Height Then
ver2 = 1
End If

Randomize: r = Rnd * 50
If rost0 = 1 Then
oval(0).Width = oval(0).Width + r
oval(0).Height = oval(0).Height + r
End If
If rost0 = 0 And oval(0).Width > 100 And oval(0).Height > 100 Then
oval(0).Width = oval(0).Width - r
oval(0).Height = oval(0).Height - r
End If


Randomize: r = Rnd * 50
If rost1 = 1 Then
oval(1).Width = oval(1).Width + r
oval(1).Height = oval(1).Height + r
End If
If rost1 = 0 And oval(1).Width > 100 And oval(1).Height > 100 Then
oval(1).Width = oval(1).Width - r
oval(1).Height = oval(1).Height - r
End If

Randomize: r = Rnd * 50
If rost2 = 1 Then
oval(2).Width = oval(2).Width + r
oval(2).Height = oval(2).Height + r
End If
If rost2 = 0 And oval(2).Width > 100 And oval(2).Height > 100 Then
oval(2).Width = oval(2).Width - r
oval(2).Height = oval(2).Height - r
End If
End Sub

Private Sub tmrRazmer_Timer()
Randomize: rost0 = Int(Rnd * 2)
Randomize: rost1 = Int(Rnd * 2)
Randomize: rost2 = Int(Rnd * 2)
End Sub

Private Sub tmrShag_Timer()
Randomize: shag_hor = Rnd * 300
Randomize: shag_ver = Rnd * 300
End Sub

[Richy]

Удачи...

А я вот поведаю вам об эксплойтах в быту... помните, раньше были автоматы для размена монет?

не помню.
помню только менял на дворе храма в иерусалиме

[Richy]

Умирает язычник и, к своему большому удивлению, оказывается перед сияющими воротами.
Святой Петр спрашивает его: «Могу я вам помочь?»
Язычник спрашивает: «Где я?»
Петр говорит: «Ты находишься у врат, ведущих на Небеса».
Язычник отвечает: «Но я в это не верю».
Петр хмурится и говорит: «Ты ведь один из этих язычников,да?»
«Да. Я думаю, я не там, где я должен быть. Я должен отправиться в Страну Вечного Лета».
Петр говорит: «Извини, мы забрали Страну Вечного Лета себе.Сейчас она закрыта на реставрацию».
«И что мне делать?».
Петр говорит: «Что ж, язычникам в рай у нас нельзя, поэтому тебе придется
пойти в ад. Извини. Просто иди по этому пути, который ведет вниз и
налево».
Язычник спускается в ад и видит открытые врата. Он
заходит вниз и видит красивые луга, счастливых животных и чистые
источники воды.
Он идет дальше, изучая все вокруг. Через
некоторое время к нему приближается учтивый джентльмен, вежливо
кланяется и говорит: «Привет, я Сатана. Должно быть ты тот, из-за кого
мне звонил Петр. Ты язычник?»
«Да. И что со мной будет?»
Сатана говорит: «Ну, у нас тут можно порыбачить, если тебе такое по душе.
Колодез с кристально чистой водой – дальше по дороге. А прямо за следующим
холмом язычники проводят свои обряды и празднования».
Вдруг над ними разверзается небо, а у ног появляется расщелина. Чувствуется запах серы.
Сотни кричащих, измученных душ сваливаются в огненную яму, и все
исчезает.
Язычник, которому трудно поверить в то, что он увидел,спрашивает: «И что ЭТО было???»
Сатана закатывает глаза и говорит: «Ой, да не обращай внимания. Это христиане, они по-другому не могут»

[Мастер]

Сатана закатывает глаза и говорит: «Ой, да не обращай внимания. Это христиане, они по-другому не могут»

есть мнение, что не только христиане... но у другие ссущие перед богом богобоязненные людишки

Сообщение отредактировал Мастер: 13.11.2011, 16:17:35