1 Mart 2012 Perşembe

Qbasicle Uzay Oyunu Denemesi

DECLARE SUB OFont (Text$, x%, y%, Fore%, Back%)
DECLARE SUB OCenter (Text$, y%, Fore%, Back%)
DECLARE SUB PressAndClear ()



SCREEN 13
OCenter "UZAYDA ISYAN", 30, 2, 144
REM OFont "Version 1.0", 60, 25, 43, 114
PressAndClear

ON ERROR GOTO hata
DIM sakla(500), ben(500), hak(500)
CLS
r = 4
r1 = 15
r2 = 1
r3 = 14
v = 0
a = 1.2
REM a = 2.4
LINE (0 * a, 160)-(24 * a, 184), r
LINE (32 * a, 144)-(24 * a, 184), r
LINE (32 * a, 144)-(40 * a, 160), r
LINE (48 * a, 152)-(40 * a, 160), r
LINE (48 * a, 152)-(56 * a, 168), r
LINE (56 * a, 168)-(64 * a, 152), r
LINE (64 * a, 152)-(56 * a, 144), r
LINE (56 * a, 144)-(80 * a, 144), r
LINE (80 * a, 144)-(72 * a, 152), r
LINE -(88 * a, 160), r
LINE -(96 * a, 104), r
LINE -(104 * a, 128), r
LINE -(120 * a, 128), r
LINE -(112 * a, 144), r
LINE -(128 * a, 168), r
LINE -(136 * a, 152), r
LINE -(144 * a, 168), r
LINE -(160 * a, 136), r
LINE -(160 * a, 160), r
LINE -(176 * a, 120), r
LINE -(184 * a, 144), r
LINE -(200 * a, 128), r
LINE -(216 * a, 128), r
LINE -(232 * a, 144), r
LINE -(236 * a, 128), r
LINE -(208 * a, 96), r
LINE -(224 * a, 80), r
LINE -(256 * a, 136), r
LINE (56 * a, 142)-(80 * a, 142), r1
LINE (105 * a, 126)-(121 * a, 126), r1
LINE (200 * a, 126)-(216 * a, 126), r1
LINE (0 * a, 0)-(256 * a, 195), r, B
REM PAINT (10, 180), 12, r
REM PAINT (10, 100), v, r
CIRCLE (0, 0), 70 / 2.4, 14
REM PAINT (10, 10), 14, r
LINE (200 * a, 184)-(224 * a, 192), r2, B
LINE (208 * a, 184)-(208 * a, 192), r2
LINE (216 * a, 184)-(216 * a, 192), r2
oku:
DATA 00111000
DATA 01111101
DATA 00111110
DATA 01111111
DATA 11111111
DATA 01111100
DATA 00111110
DATA 00011111

RESTORE oku
FOR i = 1 TO 8
READ a$
FOR B = 1 TO 8
s = VAL(MID$(a$, B, 1))
IF s = 1 THEN s = 14
LINE (31 + B * a, 55 + i)-(32 + B * a, 55 + i), s
REM PSET (32 + b * a, 55 + i), s
NEXT B
NEXT i
GET (30, 56)-(36 + B * a, 55 + i), sakla
 PUT (40 * a, 92), sakla
REM PUT (148 * a, 54), sakla
REM  PUT (104 * a, 50), sakla
REM PUT (208 * a, 50), sakla
  PUT (112 * a, 92), sakla
  PUT (184 * a, 90), sakla
   PUT (160 * a, 20), sakla

oku1:

DATA 00011000
DATA 00011000
DATA 00111100
DATA 00111100
DATA 00111100
DATA 11111111
DATA 10000001
DATA 10000001



RESTORE oku1
FOR i = 1 TO 8
READ a$
FOR B = 1 TO 8

s = VAL(MID$(a$, B, 1))
IF s = 1 THEN s = 15
PSET (128 + B * a, 10 + i), s
NEXT B
NEXT i
GET (128, 6)-(128 + B * a, 10 + i), ben
PUT (245 * a, 180), ben
PUT (245 * a, 170), ben
PUT (245 * a, 160), ben
PUT (245 * a, 150), ben

oku2:
DATA 00000000
DATA 00011000
DATA 00011000
DATA 01111110
DATA 00011000
DATA 00111100
DATA 00111100
DATA 00000000
RESTORE oku2
FOR i = 1 TO 7
READ a$
FOR B = 1 TO 8

s = VAL(MID$(a$, B, 1))
IF s = 1 THEN s = 14
PSET (202 * 2.4 + B, 184 + i), s
NEXT B
NEXT i
 REM GET (202 * 2.4, 184)-(202+ B * a, 10 + i), hak
REM PUT (245 * a, 185), ben

x = 128
y = 10
x(1) = 2: y(1) = 9
x(2) = 100: y(2) = 18
x(3) = 10: y(3) = 27
x(4) = 60: y(4) = 36
x(5) = 112: y(5) = 45
x(6) = 224: y(6) = 9
x(7) = 72: y(7) = 18
a = 2.4
PUT (128, 6), ben, XOR
goster:
PUT (x * a, y), ben
FOR i = 1 TO 7
PUT (x(i) * a, y(i)), sakla
NEXT i
y = y + .01
FOR i = 1 TO 7
REM x(i) = x(i) + .1
IF x(i) = 256 * a THEN x(i) = 0
NEXT i
GOTO goster
a$ = INPUT$(1)

hata:
RESUME NEXT



DEFINT A-Z
SUB OCenter (Text$, y, Fore, Back)
OFont Text$, 160 - INT(LEN(Text$) * 4), y, Fore, Back 'Call with appropriate
END SUB                                              'Starting X coordinate

SUB OFont (Text$, x, y, Fore, Back)
DEF SEG = &HFFA6                              'Stores masks for letters
FOR Letter = 1 TO LEN(Text$)                  'Does each letter
Address = (8 * ASC(MID$(Text$, Letter))) + 14 'Address for start of letter
FOR Height = 0 TO 7                       'Each letter is an 8x8 pixel matrix
Mask = PEEK(Address + Height) * 128   'Address for mask of each line of letter
LINE (x + Curntx + 1, y + Height + 1)-(x + 9 + Curntx, y + Height + 1), Fore, , Mask
NEXT
Curntx = Curntx + 8                   'Advances X axis by 8 for next letter
NEXT                                  'Continue to next letter
DEF SEG = &HA000                      'Change to video memory
IF Back > 0 THEN                      'Background color can't be color 0
FOR v = y TO y + 7                    'Again, they're 8x8 pixels
FOR H = x TO (LEN(Text$) * 8) - 1 + x 'Calculates length of text in pixels
PK0& = PEEK(H + v * 320&)             'Is point at H,V = to foreground color?
PK1& = PEEK(H + 1 + (v + 1) * 320&)   'Is point at H+1, V+1 = to foreground?
PK2& = PEEK(H + 1 + v * 320&)         'Is point at H+1, V = to foreground?
PT& = H + v * 320&                    'Video memory pointer
IF PK0& <> Fore THEN                  'If this is foreground, don't overlap it
IF PK1& = Fore OR PK2& = Fore THEN POKE PT&, Back    'Put pixel into memory
END IF
NEXT H     'Next horizontal
NEXT v     'Next vertical
END IF
DEF SEG    'Put us back where
END SUB    'We started

SUB PressAndClear
Buffer = &H1A
DEF SEG = &H40
POKE Buffer, PEEK(Buffer + 2)    'Clear keyboard buffer
DEF SEG
DO: LOOP WHILE INKEY$ = ""       'Wait for key press
LINE (4, 45)-(315, 180), 25, BF  'Clear our working area
END SUB

toplist.bas

DECLARE SUB kutu (y, x, yy, uz)
DECLARE SUB ortala (x$)
DECLARE SUB sagla (x$)
DECLARE SUB bold (y, x)
DECLARE SUB bharf ()
DECLARE SUB kharf ()
DECLARE SUB ozelad ()
DECLARE SUB abold (y, x)
DECLARE SUB bos ()
DECLARE SUB menu (menuno, y, x)
DECLARE SUB hile ()
DECLARE SUB kategori ()
DIM p(20)
                  
COMMON SHARED a$, p(), hle$, i$, id

hle$ = ""

FOR a = 1 TO 20: p(a) = 1: NEXT a


SCREEN , , 0, 0
CLS
COLOR 7
kutu 1, 1, 22, 78
bos
oku1:
i$ = INKEY$
IF i$ = "" THEN GOTO oku1
IF i$ = CHR$(27) THEN GOSUB mn1
hile
GOTO oku1

mn1:
PCOPY 0, 1
SCREEN , , 1, 1
menu 1, 3, 4
SCREEN , , 0, 0
GOTO oku1





















' Data MenuSays,GeniŸlik,™nrenk,Arkarenk
menu1:
DATA 9,24,4,15,0
DATA Kategoriler,1,Girdi ˜Ÿlemleri,2,Top List ˜Ÿlemleri,1
DATA Dzenleme,1,Bul,1,Se‡enekler,8,Hakknda,2,Register,1,€kŸ,1

menu2:
DATA 4,24,4,15,0
DATA Kategorileri G”ster,5,Yeni Kategori OluŸtur,6,Kategori Sil,10,Geri D”n,7

menu3:
menu4:
menu5:
menu6:
menu7:
menu8:
menu9:
menu10:
menu11:
menu12:
menu13:
menu14:
menu15:
menu16:
menu17:
menu18:
menu19:
menu20:

SUB abold (y, x)
r = SCREEN(y, x, 1)
renk1 = 0
r2 = 0
WHILE r > 15
r2 = r2 + 1
r = r - 15
WEND
renk1 = r


IF renk1 > 7 THEN renk1 = renk1 - 8

LOCATE y, x: COLOR renk1, r2
x$ = CHR$(SCREEN(y, x))
PRINT x$

END SUB

SUB bharf
bh$ = "ABC€DEFG¦HI˜JKLMNO™PRSžTUšVYZQXW"
kh$ = "abc‡defg§hijklmno”prsŸtuvyz"

FOR a = 1 TO LEN(a$)
x$ = MID$(a$, a, 1)
x = INSTR(kh$, x$)
IF x > 0 THEN x$ = MID$(bh$, x)
MID$(a$, a, 1) = x$
NEXT a
END SUB

SUB bold (y, x)
r = SCREEN(y, x, 1)
renk1 = 0
r2 = 0
WHILE r > 15
r2 = r2 + 1
r = r - 15
WEND
renk1 = r


IF renk1 < 8 THEN renk1 = renk1 + 8

LOCATE y, x: COLOR renk1, r2
x$ = CHR$(SCREEN(y, x))
PRINT x$


END SUB

SUB bos
COLOR 8, 0
FOR a = 2 TO 21
LOCATE a, 2
PRINT STRING$(78, 177)
NEXT a
END SUB

SUB hile
hle$ = hle$ + i$
IF LEN(hle$) > 10 THEN hle$ = LEFT$(hle$, 10)
a$ = hle$
kharf
IF INSTR(a$, "exit") > 0 OR INSTR(a$, "‡") > 0 THEN COLOR 7, 0: CLS : END

END SUB

SUB kategori
p = p(id)
COLOR 7, 0
menu 2, 14, 4



i$ = INPUT$(1)
SCREEN , , 1, 1
p(id) = p
END SUB

SUB kharf
bh$ = "ABC€DEFG¦HI˜JKLMNO™PRSžTUšVYZQXW"
kh$ = "abc‡defg§hijklmno”prsŸtuvyz"

FOR a = 1 TO LEN(a$)
x$ = MID$(a$, a, 1)
x = INSTR(bh$, x$)
IF x > 0 THEN x$ = MID$(kh$, x)
MID$(a$, a, 1) = x$
NEXT a

END SUB

SUB kutu (y, x, yy, uz)
LOCATE y, x: PRINT "É"; STRING$(uz, 205); "»"
FOR i = y + 1 TO yy - 1
LOCATE i, x: PRINT "º"; SPACE$(uz); "º"
NEXT i
LOCATE yy, x: PRINT "È"; STRING$(uz, 205); "¼"

END SUB

SUB menu (id, y, x)
REDIM m$(25), sira(25)
p = p(id)
'IF p = 0 THEN p = 1
SELECT CASE id
CASE 1
RESTORE menu1
CASE 2
RESTORE menu2
CASE 3
RESTORE menu3
CASE 4
RESTORE menu4
CASE 5
RESTORE menu5
CASE 6
RESTORE menu6
CASE 7
RESTORE menu7
CASE 8
RESTORE menu8
CASE 9
RESTORE menu9
CASE 10
RESTORE menu10
END SELECT









READ msay, uz, c1, c2, c3
COLOR c3, c2
kutu y, x, y + msay + 1, uz
LOCATE y, x + uz - 3
COLOR c3
PRINT "[";
COLOR 8: PRINT CHR$(25); CHR$(24); : COLOR c3: PRINT "]"

FOR a = 1 TO msay
READ x$, sira
LOCATE a + y, x + 1
COLOR c1, c2
h$ = SPACE$(uz)
MID$(h$, 2, LEN(x$)) = x$
m$(a) = h$
sira(a) = sira
PRINT h$
LOCATE a + y, x + sira + 1
COLOR c3
PRINT MID$(h$, sira + 1, 1)
NEXT a

GOSUB altyazi1:

GOSUB yeni

oku:
i$ = INKEY$
IF i$ = "" THEN GOTO oku
IF i$ = CHR$(0) + "P" THEN GOTO asagi
IF i$ = CHR$(0) + "H" THEN GOTO yukari
IF i$ = CHR$(27) THEN GOTO menuson
IF i$ = CHR$(13) OR i$ = CHR$(34) THEN GOTO git
hile
GOTO oku

asagi:
GOSUB eski
p = p + 1
IF p > msay THEN p = 1
GOSUB yeni
GOSUB asagiok
GOTO oku

yukari:
GOSUB eski
p = p - 1
IF p = 0 THEN p = msay
GOSUB yeni
GOSUB yukariok
GOTO oku


yeni:
LOCATE p + y, x + 1
COLOR c2, c1
PRINT m$(p)
GOSUB ihf
GOSUB cursor
RETURN

eski:
LOCATE p + y, x + 1
COLOR c1, c2
PRINT m$(p)
GOSUB ihf
RETURN


ihf:
LOCATE p + y, x + sira(p) + 1
COLOR c3
PRINT MID$(m$(p), sira(p) + 1, 1)
RETURN

cursor:
LOCATE p + y, x + uz - 1
COLOR c3 + 16
z$ = ""
IF p = 1 THEN z$ = CHR$(25)
IF p = msay THEN z$ = CHR$(24)
IF z$ = "" THEN z$ = CHR$(18)
PRINT z$
RETURN

asagiok:
LOCATE y, x + uz - 2
COLOR c1, c2
PRINT CHR$(25); : COLOR 8, c2: PRINT CHR$(24);
RETURN

yukariok:
LOCATE y, x + uz - 2
COLOR 8, c2
PRINT CHR$(25); : COLOR c1, c2: PRINT CHR$(24)
RETURN

altyazi1:
LOCATE 23, 1
COLOR 15, 0
PRINT SPACE$(78)
LOCATE 23, 2: PRINT "€kmak i‡in ";
COLOR 14
PRINT "[ESC], ";
COLOR 15: PRINT "se‡im yapmak i‡inse ";
COLOR 14: PRINT "[ENTER] ";

COLOR 15: PRINT "tuŸlarn kullanabilirsiniz..."
RETURN

git:
GOSUB eski
PCOPY 1, 2
SCREEN , , 2, 2
p(id) = p
ON id GOTO git1
GOSUB yeni
GOTO oku

git1:
IF p = 1 THEN kategori
GOSUB yeni
GOTO oku

menuson:
p(id) = p
END SUB

SUB ortala (x$)
x = INT((80 - LEN(x$)) / 2)
LOCATE , x
PRINT x$
END SUB

SUB ozelad
bh$ = "ABC€DEFG¦HI˜JKLMNO™PRSžTUšVYZQXW"
kh$ = "abc‡defg§hijklmno”prsŸtuvyzqxw"
t = 1
FOR a = 1 TO LEN(a$)

x$ = MID$(a$, a, 1)
x = INSTR(bh$, x$)
xx = INSTR(kh$, x$)
IF xx > 0 AND t = 1 THEN t = 0: x$ = MID$(bh$, xx)
IF x > 0 AND t = 0 THEN x$ = MID$(kh$, x)
MID$(a$, a, 1) = x$
IF x$ = " " OR x$ = "." THEN t = 1
NEXT a

END SUB

SUB sagla (x$)
x = INT((80 - LEN(x$)))
LOCATE , x: PRINT x$
END SUB

Qbasicle Kaset Çizimi Denemesi

SCREEN 9
CLS
a = 5
x = 100
y = 10

LINE (1 * a + x, 4 * a + y)-(65 * a + x, 51 * a + y), , B
LINE (3 * a + x, 51 * a + y)-(62 * a + x, 52 * a + y), , B
LINE (8 * a + x, 52 * a + y)-(10 * a + x, 52 * a + y), , B
LINE (3 * a + x, 3 * a + y)-(64 * a + x, 4 * a + y), , B
LINE (0 * a + x, 7 * a + y)-(1 * a + x, 10 * a + y), , B
LINE (65 * a + x, 7 * a + y)-(66 * a + x, 10 * a + y), , B
LINE (4 * a + x, 2 * a + y)-(8 * a + x, 3 * a + y), , B
LINE (9 * a + x, 2 * a + y)-(13 * a + x, 3 * a + y), , B
LINE (14 * a + x, 2 * a + y)-(18 * a + x, 3 * a + y), , B
LINE (19 * a + x, 2 * a + y)-(23 * a + x, 3 * a + y), , B
LINE (24 * a + x, 2 * a + y)-(28 * a + x, 3 * a + y), , B
LINE (29 * a + x, 2 * a + y)-(33 * a + x, 3 * a + y), , B
LINE (38 * a + x, 2 * a + y)-(42 * a + x, 3 * a + y), , B
LINE (2 * a + x, 5 * a + y)-(63 * a + x, 15 * a + y), , B
LINE (3 * a + x, 6 * a + y)-(62 * a + x, 9 * a + y), , B
LINE (27 * a + x, 10 * a + y)-(51 * a + x, 11 * a + y), , B
LINE (1 * a + x, 16 * a + y)-(65 * a + x, 16 * a + y)
LINE (51 * a + x, 7 * a + y)-(59 * a + x, 7 * a + y)
LINE (51 * a + x, 8 * a + y)-(59 * a + x, 8 * a + y)
LINE (51 * a + x, 11 * a + y)-(59 * a + x, 11 * a + y)
LINE (1 * a + x, 17 * a + y)-(65 * a + x, 17 * a + y)
LINE (3 * a + x, 13 * a + y)-(63 * a + x, 14 * a + y), , B
LINE (65 * a + x, 11 * a + y)-(66 * a + x, 22 * a + y), , B
LINE (66 * a + x, 12 * a + y)-(67 * a + x, 21 * a + y), , B
LINE (66 * a + x, 12 * a + y)-(70 * a + x, 21 * a + y), , B
LINE (65 * a + x, 18 * a + y)-(60 * a + x, 18 * a + y)
LINE (58 * a + x, 18 * a + y)-(3 * a + x, 18 * a + y)
LINE -(3 * a + x, 40 * a + y)
LINE -(65 * a + x, 40 * a + y)
LINE (65 * a + x, 40 * a + y)-(63 * a + x, 40 * a + y)
CIRCLE (59 * a + x, 18 * a + y), 5
CIRCLE (52 * a + x, 30 * a + y), 55
CIRCLE (52 * a + x, 30 * a + y), 60
LINE (4 * a + x, 19 * a + y)-(38 * a + x, 39 * a + y), , B
LINE (8 * a + x, 20 * a + y)-(31 * a + x, 38 * a + y), , B
LINE (9 * a + x, 21 * a + y)-(30 * a + x, 37 * a + y), , B
LINE (9 * a + x, 23 * a + y)-(30 * a + x, 23 * a + y), , B
LINE (9 * a + x, 34 * a + y)-(30 * a + x, 34 * a + y), , B
LINE (17 * a + x, 26 * a + y)-(22 * a + x, 30 * a + y), , B
REM LINE (30 * a + x, 27 * a + y)-(28 * a + x, 29 * a + y)
CIRCLE (14 * a + x, 28 * a + y), 10
CIRCLE (27 * a + x, 28 * a + y), 10

Qbasicle Gölgeli Menü Şablonu

DECLARE SUB kutu (y, x, yy, uz)
DECLARE SUB ortala (x$)
DECLARE SUB sagla (x$)
DECLARE SUB bold (y, x)
DECLARE SUB bharf ()
DECLARE SUB kharf ()
DECLARE SUB ozelad ()
DECLARE SUB abold (y, x)
DECLARE SUB menu (A$)


                   

COMMON SHARED A$

CLS
kutu 1, 1, 10, 70

SUB abold (y, x)
r = SCREEN(y, x, 1)
renk1 = 0
r2 = 0
WHILE r > 15
r2 = r2 + 1
r = r - 15
WEND
renk1 = r


IF renk1 > 7 THEN renk1 = renk1 - 8

LOCATE y, x: COLOR renk1, r2
x$ = CHR$(SCREEN(y, x))
PRINT x$

END SUB

SUB bharf
bh$ = "ABC€DEFG¦HI˜JKLMNO™PRSžTUšVYZQXW"
kh$ = "abc‡defg§hijklmno”prsŸtuvyz"

FOR A = 1 TO LEN(A$)
x$ = MID$(A$, A, 1)
x = INSTR(kh$, x$)
IF x > 0 THEN x$ = MID$(bh$, x)
MID$(A$, A, 1) = x$
NEXT A
END SUB

SUB bold (y, x)
r = SCREEN(y, x, 1)
renk1 = 0
r2 = 0
WHILE r > 15
r2 = r2 + 1
r = r - 15
WEND
renk1 = r


IF renk1 < 8 THEN renk1 = renk1 + 8

LOCATE y, x: COLOR renk1, r2
x$ = CHR$(SCREEN(y, x))
PRINT x$


END SUB

SUB kharf
bh$ = "ABC€DEFG¦HI˜JKLMNO™PRSžTUšVYZQXW"
kh$ = "abc‡defg§hijklmno”prsŸtuvyz"

FOR A = 1 TO LEN(A$)
x$ = MID$(A$, A, 1)
x = INSTR(bh$, x$)
IF x > 0 THEN x$ = MID$(kh$, x)
MID$(A$, A, 1) = x$
NEXT A

END SUB

SUB kutu (y, x, yy, uz)
LOCATE y, x: PRINT "É"; STRING$(uz, 205); "»"
FOR i = y + 1 TO yy - 1
LOCATE i, x: PRINT "º"; SPACE$(uz); "º"
NEXT i
LOCATE yy, x: PRINT "È"; STRING$(uz, 205); "¼"

END SUB

SUB ortala (x$)
x = INT((80 - LEN(x$)) / 2)
LOCATE , x
PRINT x$
END SUB

SUB ozelad
bh$ = "ABC€DEFG¦HI˜JKLMNO™PRSžTUšVYZQXW"
kh$ = "abc‡defg§hijklmno”prsŸtuvyzqxw"
t = 1
FOR A = 1 TO LEN(A$)

x$ = MID$(A$, A, 1)
x = INSTR(bh$, x$)
xx = INSTR(kh$, x$)
IF xx > 0 AND t = 1 THEN t = 0: x$ = MID$(bh$, xx)
IF x > 0 AND t = 0 THEN x$ = MID$(kh$, x)
MID$(A$, A, 1) = x$
IF x$ = " " OR x$ = "." THEN t = 1
NEXT A

END SUB

SUB sagla (x$)
x = INT((80 - LEN(x$)))
LOCATE , x: PRINT x$
END SUB

Soru-Cevap.bas

DECLARE SUB kutu (y!, x!, uz!, yy!, cc!)
SCREEN 0
COLOR 7, 0: CLS
LOCATE , , 0
 x = 1: y = 1: uz = 78: yy = 22:  kutu y, x, uz, yy, 1
DATA 5
DATA "Soru Cevap Platformuna HoŸgeldiniz.",2,15
DATA "copyright Luciin",3,4
DATA luciin@hotmail.com,4,1
DATA "http://luciin.sitemynet.com",5,1
DATA "Bu b”lmde merak etti§iniz sorular sorabilirsiniz.",7,14
READ d
FOR i = 1 TO d
READ a$, y, col
GOSUB ortala


NEXT i
REM  a$ = INPUT$(1)
oyna:
COLOR 0, 4
kutu 8, 4, 72, 20, 0
y = 9: col = 15
a$ = "Sorularm...": COLOR 15: GOSUB ortala
COLOR 14
LOCATE 10, 6: PRINT "Sorum žu: "
LOCATE 10, 16: COLOR 0, 15: PRINT SPACE$(60)
LOCATE 12, 6: COLOR 15, 4: PRINT "Cevap:"
COLOR 15, 0: FOR a = 12 TO 19: LOCATE a, 16: PRINT SPACE$(60): NEXT a
LOCATE 10, 17: COLOR 0, 15: LINE INPUT b$(1)

LOCATE , , 0
COLOR 7, 0
REM FOR i = 1 TO 20: PRINT CHR$(13)
REM FOR t = 1 TO 5000: NEXT t
REM NEXT i
bulundu = 0
              LOCATE 3, 10
y = 12
FOR i = 1 TO 1
COLOR 7
kucuk$ = "abc‡defg§hijklmno”prsŸtuvyzqwx"
buyuk$ = "ABC€DEFG¦HI˜JKLMNO™PRSžTUšVYZQWX"

COLOR 7, 0: LOCATE y, 17, 1, 1, 10
PRINT "Sorun";
b$ = b$(i)
IF LEN(b$) <= 2 OR b$ = CHR$(13) OR b$ = "" OR b$ = SPACE$(LEN(b$)) THEN b$ = "000"
FOR tt = 1 TO LEN(b$)
s$ = MID$(b$, tt, 1)
m = INSTR(buyuk$, s$)
IF m > 0 THEN MID$(b$, tt, 1) = MID$(kucuk$, m)
NEXT tt
GOSUB senben
COLOR 7
IF b$ = "000" THEN COLOR 7, 0: PRINT "u anlayamadm..." ELSE COLOR 15: PRINT " "; CHR$(34); b$; CHR$(34);
LOCATE , , 0
COLOR 7, 0
n$ = RIGHT$(b$, 1)
IF INSTR("aeo”ui", n$) > 0 THEN PRINT "y"; : unsuz$ = "d"
v$ = "fstk‡Ÿhp"
vv = INSTR(v$, n$)



kk = 0
unsuz$ = "d"
unlu$ = ""
FOR bb = 1 TO 2
IF LEN(b$) > 1 THEN n$ = MID$(b$, LEN(b$) - bb + 1, 1) ELSE n$ = " "
IF vv > 0 THEN unsuz$ = "t"
IF n$ = "e" OR n$ = "i" THEN unlu$ = "i"
IF n$ = "o" OR n$ = "u" THEN unlu$ = "u"
IF n$ = "”" OR n$ = "" THEN unlu$ = ""
NEXT bb
 IF b$ = "000" THEN vvv = 1 ELSE PRINT unsuz$; unlu$; "."
REM IF INSTR(n$, "a") OR INSTR(n$, "") > 0 THEN PRINT "t..."
LOCATE y + 2, 10: COLOR 4
c = 1
CLOSE : OPEN "i", #1, "answer.luc"
WHILE c <> 0
IF EOF(1) THEN GOTO bitti
REM READ x$, cevap$
REM IF x$ = "0" THEN c = 0
REM IF INSTR(b$, x$) > 0 THEN PRINT cevap$: c = 0
INPUT #1, aks
FOR a = 1 TO aks
INPUT #1, aks$(a)
NEXT a
INPUT #1, cevap
FOR a = 1 TO cevap
LINE INPUT #1, cevap$(a)
NEXT a
INPUT #1, t1$
INPUT #1, t2$
FOR a = 1 TO aks
IF INSTR(aks$(a), b$) > 0 THEN GOSUB bulundu
NEXT a
WEND
bitti:

RESTORE
NEXT i
IF bulundu = 0 THEN GOSUB bulunmadi
donn:
COLOR 1
LOCATE 21, 6, 0: COLOR 15: PRINT "BaŸka sorun varsa";
COLOR 14: PRINT " ENTER/RETURN ";
COLOR 15: PRINT "tuŸuna... €kmak i‡inse ";
COLOR 14: PRINT "ESC";
COLOR 15: PRINT " tuŸuna bas!"
bitir:
a$ = INPUT$(1): IF a$ = CHR$(13) THEN RUN
IF a$ = CHR$(27) THEN COLOR 7, 0: CLS : END
GOTO bitir


END
ortala:
x = ((80 - LEN(a$)) / 2)
LOCATE y, x
COLOR col

REM PRINT a$
FOR k = 1 TO LEN(a$)
PRINT MID$(a$, k, 1);
REM FOR t = 1 TO 3000: NEXT t
NEXT k

RETURN
senben:
l = INSTR(b$, "seni ")
IF l > 0 THEN MID$(b$, l, 4) = "beni": RETURN
l = INSTR(b$, "kendimi ")
IF l > 0 THEN MID$(b$, l, 7) = "kendini"



RETURN

bulundu:
IF bulundu = 1 THEN RETURN
bulundu = 1
c = cevap
IF c > 6 THEN c = 6
col = 15
COLOR col, 4
a$ = "  1 adet sonu‡ bulundu! "
y = 23
GOSUB ortala
COLOR 14, 0
FOR a = 1 TO c
LOCATE 12 + a, 17
PRINT cevap$(a)
NEXT a
COLOR 7, 1
LOCATE 19, 16: PRINT SPACE$(60)
LOCATE 19, 17: PRINT "Soru Eklenme Tarihi:";
COLOR 15
t$ = STR$(VAL(MID$(t1$, 4, 2)))
s = VAL(MID$(t1$, 1, 2))
GOSUB tarih
t$ = t$ + " " + ay$ + " " + MID$(t1$, 7, 4)
PRINT t$;
COLOR 7: PRINT "   Saat:";
COLOR 15
PRINT t2$
COLOR 15, 0
RETURN

tarih:
RESTORE tarih
FOR tr = 1 TO s
READ ay$
NEXT tr
RETURN
DATA Ocak,žubat,Mart,Nisan,Mays,Haziran,Temmuz,A§ostos,Eyll,Ekim,Kasm,Aralk

bulunmadi:
LOCATE 13, 17: COLOR 15: PRINT "Bu soruyu bana e-mail olarak atmak ister misin?..."
LOCATE 14, 17: PRINT "Cevabn evetse ";
COLOR 14: PRINT "E";
COLOR 15: PRINT " tuŸuna; Hayrsa ";
COLOR 14: PRINT "H ";
COLOR 15: PRINT "yahut ";
COLOR 14: PRINT "herhangi bir ";
COLOR 15: PRINT "tuŸa"
LOCATE 15, 17: PRINT "bas!"
cv$ = INPUT$(1)
IF cv$ = "E" OR cv$ = "e" THEN RETURN email
RETURN

email:
col = 7
y = 16: a$ = "E-mail metnin hazrlanyor..."
GOSUB ortala
y = 18: a$ = "HATA: Metin hazrlanamad!": col = 15
GOSUB ortala
col = 14
y = 21: a$ = "™zr dileriz. E-MAIL paneli henz aktif de§il": GOSUB ortala
a$ = INPUT$(1)
GOTO donn

SUB kutu (y, x, uz, yy, cc)
COLOR cc
LOCATE y, x: PRINT "É"; STRING$(uz, 205); "»"
FOR i = y + 1 TO yy - 1
LOCATE i, x: PRINT "º"; SPACE$(uz); "º"
NEXT i
LOCATE yy, x: PRINT "È"; STRING$(uz, 205); "¼"

END SUB

Qbasicle Yapay Zeka ve Sohbet

DECLARE SUB Abold (y, x)
DECLARE SUB Araintro ()
DECLARE SUB Ban ()
DECLARE SUB BHarf ()
DECLARE SUB BilgiAl ()
DECLARE SUB Bold (y, x)
DECLARE SUB Cigim (nick$)
DECLARE SUB Degerlendir ()
DECLARE SUB Girdi (maximum, oncol, arkacol, csrcol)
DECLARE SUB Intro ()
DECLARE SUB halusinasyon ()
DECLARE SUB KHarf ()
DECLARE SUB KonuAc ()
DECLARE SUB kutu (y, x, yy, uz)
DECLARE SUB OFont (Text$, x, y, Fore, Back)
DECLARE SUB OCenter (Text$, y, Fore, Back)
DECLARE SUB Ortala (x$)
DECLARE SUB OzelAd ()
DECLARE SUB PressAndClear ()
DECLARE SUB Ran (herc)
DECLARE SUB s16 ()
DECLARE SUB Sagla (x$)
DECLARE SUB Selamlama ()
DECLARE SUB yazdir ()
DECLARE SUB vip ()
DECLARE SUB anlamadim ()

COMMON SHARED a$, a1$, adani$, adult, ady, ani$, arkarenk, bandur, banla, cevak, cgi
COMMON SHARED gun$, konu, nick$, output$, r, saat$, tip, xx, yasak$, yy, zk

Intro

GOSUB bankontrol

Araintro

Selamlama

kac:
IF banla = 1 THEN GOTO banlama
BilgiAl
a$ = a1$
KHarf
a1$ = a$
'IF a1$ = "" OR a1$ = CHR$(13) THEN GOTO kac
Degerlendir
IF a$ = "" THEN KonuAc: anlamadim
tip = 1
yazdir
GOTO kac

banlama:
Ban
END

bankontrol:
OPEN "i", #1, "banlist.txt"
IF EOF(1) THEN GOTO bankontrolson
bankontroloku:
IF EOF(1) THEN GOTO bankontrolson
INPUT #1, bn$, gun1$, saat1$
IF bn$ = nick$ THEN banla = 1: gun$ = gun1$: saat$ = saat1$
GOTO bankontroloku
bankontrolson:
CLOSE
IF banla = 1 THEN RETURN nogiris
RETURN

nogiris:
COLOR 15, 4
kutu 5, 18, 15, 40
LOCATE 7, 20: PRINT "G”zlerinMzi§i";
COLOR 7: PRINT " tarafndan banlanmŸ"
LOCATE 8, 20: PRINT "bulunuyorsunuz. Ltfen farkl bir nick"
LOCATE 9, 20: PRINT "se‡ip tekrar giriŸ yapn!"
LOCATE 11, 20: PRINT "Ban Tarihi:";
COLOR 15: PRINT gun$
COLOR 7
LOCATE 12, 20: PRINT "Saat      :";
COLOR 15
PRINT saat$
a$ = INPUT$(1): RUN


aylar:
DATA Ocak,žubat,Mart,Nisan,Mays,Haziran,Temmuz,A§ostos,Eyll,Ekim,Kasm,Aralk


bilgiler:
DATA ger‡ek nedir,"Ger‡ek, Ÿu an burada benimle olmandr!"
DATA aŸk bir sudur,":((("
DATA asl sen kimsin,"™nce ben sordum ama :)"
DATA asl siz kimsi,"™nce ben sordum, sen yant ver..."
DATA sen kimsin,"Ben hi‡ kimseyim!"
DATA niye yok,"€nk ben ”yle diyorum"
DATA bira yok mu,"Ramazanda i‡me bari :)"
DATA evet?,"Dur acele ettirme bana :)"
DATA yapma be,"Yaptm bile :)"
DATA olmamalm,"Ben olmamal demedim :)"
DATA olmamal m,"Aksini iddia edemem..."
DATA naber ya,"˜yilik be glm.. Seni sormal"
DATA hangi renk,"Mor :))"
DATA baŸka,isa22
DATA noldu,":) Hiii‡‡.. Aklma biŸey geldi de.."
DATA baŸka?,isa22
DATA luciin,efendim glm
DATA glme!,"E a§layamm kurban :P"
DATA lusiyen,buyrun benim
DATA salak Ÿey,"Adm m ezberliyorsun :)"
DATA ne moru,"G”zlerinin moru glm, g”zlerinin moru. Hahaha!"
DATA ne ‡ekmesi,"Srme ‡ekmesi, ahahah!"
DATA ne yorgunu,"G”nl yorgunu aabiii g”nl yorgunuuuu :))"
DATA ne oldi,"Bi b.. olmad. Hahahaha!!"
DATA ii,"Yarm yamalak cevaplar verme :)"
DATA gzel,"Hepsi bu mu :) Yani gzel.. Btn diyece§in bu mu???"
DATA seni aradm,"...Kadehlerdeki dudak izlerinde mi :)"
DATA hapŸu,"€ok yaŸa glm :)"
DATA selam var,"Aleykmselam :)"
DATA bana abi deme,"Ayn anaaa dan m do§duuuukk.. Ayn babaaaa danm oldukkk..Bana aaabiiii, deyip durmaaaa, severkennn, kardeŸ mi oldukkkk :P"
DATA bana abi deyip durma,"Ne diyeyim, amuca m :P"
DATA ben bayanm,"Napalm bayansan :) Bayan abi olamaz m :P"
DATA erkek de§ilim,"E ben de kz de§ilim ona bakarsan :)"
DATA olsayd,"Olsayd molsayd.. Halamn da by§ olsa.. Haha"
DATA demiŸtin,"O, o zamand :)"
DATA "peki umut?","™lmle hayat arasndaki o ksa ‡izgi.. ˜Ÿte o umuttur!"
DATA soyadn ne,"Adn demeyen, soyadn der bi loo :)))"
DATA adn ne,"Admn ne ”nemi var? ™nemli olan aŸkmz. :)"
DATA evet evdeydim,"Ne yaptn peki hep evde? Sadece uyudun herhalde :)"
DATA tamam,"Ne kadar uysalsn bugn ;-)"
DATA dnya fani,"Olur mu yani :)"
DATA vayyy,"Vay ki ne vay :)"
DATA gzel s”z,"S”z'n kymetini bilen gzel yrek :)"
DATA demedim, "Dedin dedin :)"
DATA selamnaleykm,"Vealeykmselam din gardaŸmm :)"
DATA selamn aleykm,"Ve aleykmselam ve rahmetullahi ve beraketuhu ya ehli guburrr :)9"
DATA a.s., "Way, muhterem din gardaŸm benim :)"
DATA aleykmselam,"We rahmetullahi we berakeet :)"
DATA hayr,"Neden hayr???"
DATA olmal tabi,"Sen olmal diyorsan :))"
DATA copyright,"Copyright Mehmet Akif ARDI€ & PTL, Adana 2004"
DATA ŸaŸrmadm,"O zaman niye NEEE diye ba§rdn :P"
DATA sen de,"Yok ben sen kadar de§ilim ;)"
DATA nasl ben kadar,"Sen kadar iŸte..."
DATA nerden bildin,"Ben bilirim yƒr ben bilirim :)"
DATA yok mu,"var m :))"
DATA dinliyorum,"Kuzularn sessizli§ini mi :)"
DATA sor,"Ama drst‡e cevap vereceksin!!"
DATA karŸamazsn,"KarŸrm dedim ya!"
DATA yokmu,"Bilmem, sen var diyorsan vardr herhalde ;-P"
DATA belki,"Belki deme; Kesin bir cevap istiyorum.."
DATA aŸkolsun,"A‡ kalbini kuŸ konsun :)9"
DATA ne oldu,"Hi‡.. Aklma birŸey geldi de.."
DATA ne geldi,"BoŸver yaaa.. ™nemli birŸey de§il. Ger‡ekten!!"
DATA bana bak,"Ee, baktm ne olacak?"
DATA what is this,"This is a book :)"
DATA ne baŸka,"Yani baŸka ne var ne yok??"
DATA hangi iŸler,"˜nce iŸler :))9"
DATA film mi,"Evet ya, hem de sper bir filimmiŸ diyorlar!"
DATA filim mi,"Evet, Tutku II :)9"
DATA atma,"atacak mermim mi var be ko‡um :)"
DATA ney,"Ney de§il zurna :)"
DATA seni,"Ne yapacaksn beni :)9"
DATA beni,"Yaw kim ne yapsn seni ki :)"
DATA karayel,"Poyrazl§na ne oldu :)9"
DATA hi‡,"Nasl hi‡???"
DATA yarak,ban22
DATA vip,vip22
DATA "v.i.p.",vip22
DATA 000,000




digerbilgiler:
DATA beni anlamyors,"Anlamak, anlaŸlmann tamamdr:)9"
DATA kimse beni anlamyor,"Sadece APTALLARIN ANLANDI¦I bir dnyada yaŸyoruz. Bu yzden zlme.. "
DATA ekran sil,c22
DATA ekran temizle,c22
DATA sikmek,ban22
DATA sikti,ban22
DATA mna kod,ban22
DATA yel diyelim,"Peki ne YEL˜ diyelim :)9"
DATA nasl hi‡,"™yle bir hi‡:)9"
DATA nerdeee,"Skma cann, altndan kalkarsn sen :)9"
DATA yaŸam nedir,"™lmn BAžLADI¦I YER :)9"
DATA canm?,"Nerden canm oldum Ÿimdi?
DATA de§ilmisin,"Sen ”yle diyorsan..."
DATA de§il misin,"'De§il mi' miyim :)9"
DATA Ÿeker at ama,"Benden Ÿekerimi var, beni at ‡ayna ;-P"
DATA Ÿeker atma,"Hmmm. Sen de bizdensin ha :)9"
DATA ”lm ”lm dedi§in nedir,"Fazla Kurtlar Vadisi izliyorsun :)9"
DATA ne oluyoruz,":)9 Bilmem. Ne OLALIM?"
DATA noluyoruz,"Bir tek gelin gvey DE¦˜L :)9"
DATA kimle g”rŸyorum,"Kalplerin Mzi§i ile :)9"
DATA kim ka‡ kiŸi,"HoŸbuldu(k) dedin de :-)"
DATA ne ka‡ kiŸi,"HoŸbul(anlar) :)9"
DATA met sen misin,"Yok, ben sadece bilgisayar programym :)9 o beni programlayan zat- muhterem oluyor :)9"
DATA met senmisin,"Hee benim nolcek :p"
DATA kim aŸkn,"Sennn.. de§il tabiii:)"
DATA neden bana aŸkm, "Lafn geliŸi s”yledim yaa, abartma yani :)"
DATA zor yol ne,"YaŸamak!"
DATA stme gelme,"Tamam tamam, sadece Ÿaka yapyordum sana, biliyorsun.."
DATA uysal mym,"Hem de Suna Pekuysal'sn :)"
DATA uysalmym,"VahŸi mi demeliydim :)9"
DATA mi uysalm,"H-h, ayn st d”kmŸ kedi gibi. Ne kabahat iŸledin bakalm gene :)9"
DATA neden uysal,"HerŸey'e peki diyorsun da :)9"
DATA yaŸamak?,"Tek bir a§a‡ gibi ”zgr ve bir orman gibi kardeŸ‡esine :)9"
DATA seni bereketlesin,"Amin! Hepimizi kardeŸim.."
DATA hoca camide,"Nerde, Sultan Ahmet'te mi :)9"
DATA ciddi ol,"neden bu resmiyet Ÿimdi???"
DATA haberler sende,"Do§ru, ben ayakl gazeteyim ya :)9"


DATA neden sa‡larn beyazlamŸ arkadaŸ,"Bana da senin gibi ‡ektiren var :)9"
DATA neden sa‡larn beyazlanmŸ,"Sen gibi bir derdim var da ondan :)9"
DATA ger‡e§i nasl bulaca§z,"YALAN' g”rrsen, ger‡e§i de g”rrsn!"
DATA ”yle demek istememiŸtim,"Peki ya ne demek istemiŸtin :((("
DATA intihar etmek istiyorum,"Yani kolay yolu se‡mek...?"
DATA "ban listesini temizle",unban22
DATA hoŸgeldin demek yok mu,"Ama ardndan gle gle gelir :)"
DATA bunda glnecek ne var,"Yok, ben baŸka birŸeye glmŸtm :)9"
DATA iti an ‡oma§ hazrla,"Yok yok, iyi insan lafnn stne gelir diyelim :)"
DATA Ÿimdi sorabilir miyim,"Tamam.. Dinliyorum.."
DATA televizyon seyrederim,"Hangi programlar en ‡ok?"
DATA senin dilinin altnda,":) Evet, dilimin altnda ‡enem var."
DATA bana ger‡ekten bahset,"Peki HANG˜S˜NDEN :)9"
DATA rab seni bereketlesin,"Amin! Seni de kardeŸim..."
DATA bana kendinden bahset,"Ben kendimi bilmiyorum ki :)"
DATA ”yle demek istemedim,"Peki ne demek istedin :( Herneyse... BoŸver.. Unut gitsin!!!"
DATA ”vnmek gibi olmasn,"žimdi sen mtevazlk m oynadn kendi kendine laa :))"
DATA sever misin o diziyi,"Deli misin, hi‡ ka‡rmam!"
DATA mesih hakknda bilgi,isa22
DATA soru sorabilir miyim,"Buyrun, dinliyorum??"
DATA bunda glecek ne var,"Yok, aklma birŸey geldi de ona gldm :)9"
DATA tutkuyu seyrettin mi,"Evet, ger‡ekten de harika bir yaptt.."
DATA ne hale gelmiŸim ben,"Sv hale gelmiŸsin sen :)"
DATA "luttiŸi tanyon mu","O ibneyi mi :))"
DATA kendinden bahsetsene,"Ne Ӥrenmek istiyorsun mesela???"
DATA neyimi tanyacaksn,"HerŸeyini :)"
DATA internete gidiyonmu,general m oynck
DATA nece konuŸuyormuŸum,"Gagauzca :) Me bileyim ben, bilsem sorar mydm :P"
DATA soru sorabilirmiyim,"Buyrun, sorun?"
DATA tutkuyu seyrettinmi,"Seyretmez olur muyum kardeŸ :)9"
DATA tam olarak ne kadar,"Ooo.. Tahmin bile edemezsin :)"
DATA turŸusunu kuraca§m,":))))))))"
DATA isa hakknda bilgi,isa22
DATA ellerinden ”perler,"Aman aman iyi iyi, Allah ba§Ÿlasn!"
DATA ben de geldim tamam,"Yok, sen zaten baŸl baŸna TAMAMLARSIN herŸeyinle... Falan, derrrmiŸimmm :)"
DATA severmisin o diziyi,"Hastasym ab :)9"
DATA ayn zamanda kstah,"Kstahsam, kapasitem kadar kstahm!"
DATA neden korkacakmŸm,"Bence korkmalsn :)9"
DATA beni nerden tanyor,"Belki uzak bir zamandan!"
DATA mematinin anlam ne,"Anlam: '”lm'..."
DATA kimleri g”ryorsun,"Mehmet beyler, AyŸe hanmlar, Hsam beyler, ooo kimleri kimleri :)))"
DATA ka‡ tane incil var,"Sadece TEK bir ˜ncil var!"
DATA nerden ‡kt Ÿimdi,"Hi‡.. ˜‡imden ”yle geldi.."
DATA bir sorum olacakt,"Hmm, yalnzca bir adetse neden olmasn :)9"
DATA yok ebenin yannda,"Ebem sana dam do§urttu :)))"
DATA senin kalbin bozuk,"Belli kimin kalbi bozuk oldu§u :)"
DATA be§enmedim nolacak,"Ne olaca§ var m, be§enmedinse be§enmedin alala"
DATA "neyi denedim mi?","€ekmeyi :)))))))))))"
DATA benim kalbim temiz,"Temiz kalbi olan insanlarn da kirli dŸnceleri vardr :)"
DATA seni ilgilendirmez,"Neden ilgilendirmesin?"
DATA ilgilendirmez iŸte,"Alala peki peni ne ilgilendirirmiŸ o zaman?"
DATA nasl glyormuŸum,"'€ok gzel glyormuŸ'sun :)"
DATA "nerden ”§reneyim","Bu yaŸtan sonra ben mi s”yleyeyim sana bunu :)9"
DATA bugn hava bulutlu,"Nee beni unuttunmu"
DATA canm skyorsun,"Sen de benim ruhumu :)9"
DATA ruhumu skyorsun,"Sen de benim canm! :)9"
DATA insann baŸna ya,":) Ya da dilinden. žimdi senin yapt§n gibi yane."
DATA ne varmŸ aklmda,"Bilmem.. Bunu sen s”yleyeceksin.."
DATA nerden ‡kardn,"Ben ‡karmadm, vaziyet onu g”steriyor da :)"
DATA ne var televizyon,"Gece jimnasti§i :)"
DATA istiyorum ama olm,"˜stemek, 'istiyorum' dmek de§il, harekete ge‡mektir!"
DATA moralim ‡ok bozuk,"Anlatmak istersen dinlerim"
DATA hayr istemiyorum,"Peki, sen bilirsin canm.."
DATA nerden biliyorsun,"Ben bilirim :-)"
DATA beni anlayamazsn,"Evet, do§ru anlayamam.."
DATA konuyu de§iŸtirme,"Konuyu de§iŸtirdi§im falan yok"
DATA do§um tarihin ka‡,"1974, Adana komutanmmm :P"
DATA de§ilim tabi,"Aaa, bak bak bir de inkar ediyor, yazk sana yuh sanaaa :)))"
DATA bende geldim iŸte,"BirŸey demedik alala, hoŸgeldin sefalar getirdin :)"
DATA buyrun sizi dinli,"Nerden baŸlayaca§m bilmiyorum ki :)"
DATA kendi ger‡e§inden,"Kendi ger‡e§im, aslnda sadece bir H˜€ oldu§um.."
DATA ne varmŸ halimde,"Ne yokmuŸ diye sor sen asl :-O"
DATA nerden biliyorsun,"Senin bilmen'le. Ama sen bildi§ini de unutmuŸtun de§il mi :)9"
DATA ne demek Ÿimdi bu,"Hi‡ birŸey demek de§il 999"
DATA canm kar istiyo,"Pezevenk miyiz lan biz, hadi yallah baŸka kapya :)"
DATA sana katlmyorum,"Neden katlmyorusn peki?"
DATA be§enmedim nolcak,"Elinin k”r olacak :P"
DATA hi‡ aŸk oldun mu,"Bir kere!"
DATA iyi yanlarm var,"Nice k”t insan var ki hi‡ iyi yanlar olmasa, daha az tehlikeli olurlard :)))"
DATA ‡kmam lazm,"Ok, ben de ‡kabilirim birazdan. Kendine iyi bak kardeŸ."
DATA what dedin glm,"Yok ben at falan demedim :P"
DATA bak hala glyor,"Glme yasa§ m var :)9"
DATA ‡kmak istiyorum,bye22
DATA neden bilmeyeyim,"Veyahut, neden bilesin.. Vefazslk, hayrszlk nedir senden bilesin :)))"
DATA nece konuŸuyorum,"Trkmence :)"
DATA ne bi‡im soru bu,"Sen soruma cevap versene bir!!!"
DATA sulandrma,"Neyi, g”zlerini mi:) Yoksam ne ackl konuŸurmuŸum ben keleee :)))"
DATA ‡ekilmez birisin,"Denedin mi?"
DATA kim oldu§unu zan,"Kalplerin Mzi§i oldu§umu :)9"
DATA hi‡ aŸk oldunmu,"Eski defterleri a‡ma :)9"
DATA hangi takm tut,"Cimbom tabii ko‡ummm. Ya sen?"
DATA bilmem sen s”yle,"Ben de bilmem :))9"
DATA ciddi olur musun,"Gayet ciddiyim zaten!"
DATA hatrlat bakalm,"BaŸ harfi G desem"
DATA birŸey soraca§m,"NeymiŸ o soraca§n B˜RžEY :)"
DATA ger‡ek ben miyim,"Hayr, ama benle bulunman bir ger‡ektir!"
DATA ben miyim ger‡ek,"Ger‡ek oldu§unu dŸnyorsan ger‡eksin!"
DATA sen ger‡ek misin,"Senin i‡in žU AN evet!"
DATA itiraf ediyorsun,"Neden? Buras itiraflar.com de§il mi :P"
DATA ne hale gelmiŸim,"Cvk haline :)9"
DATA neden glyorsun,"Hi‡, ”ylesine iŸte :)"
DATA hayr bilmiyorum,"Gzel.. Bak bir ortak yanmz daha ‡kt :)9"
DATA ne geldi aklna,"BoŸver, ”nemli birŸey de§il yaw.."
DATA sorabilir miyim,"Bilmem, sorabilir misin ki! Oysa kapasiten de var g”rnyor, ama.. :))"
DATA ger‡ek benmiyim,"Evet, bunu dŸnd§n kadar.. DŸnebildi§in kadar ger‡ek sadece!"
DATA sen ger‡ekmisin,"En azndan SEN˜N GER€E¦˜N˜M. žU AN, burada beni GER€EK yapan sensin!"
DATA benmiyim ger‡ek,"Neden olmayasn? Tabii kiŸisel ger‡e§in senin var oldu§un"
DATA niye glyorsun,"Canm glmek istedi de ondan :)"
DATA neyi anlyorsun,"Neden bu hale geldi§ini :P"
DATA peki sa‡ rengin,"Siyah."
DATA bi kere versene,"Ohah! ™yle uluorta da istenmez ki :)"
DATA diyebilir miyim,"De bakalm :)9"
DATA neden sklaym,":) Gzel. Bir an sustun da.."
DATA kafam ‡ok bozuk,"Anlatmak ister misin??"
DATA bana aŸk ”§ret,"Ben hi‡ tatmadm ki ”§retebileyim :)9"
DATA filmleri sevmem,"Ama koca bir filmin i‡indeyiz hepimiz :)9"
DATA ne olmuŸ dilime,"Fazla uzamŸ desek :)"
DATA ciddi olurmusun,"Ben ciddiyimkine :)"
DATA de§iŸtiriyorsun,"Hayr, de§iŸtirmiyorum!"
DATA ne hatrlatyor,"AŸkmz hatrlatyor :P"
DATA bugn ayn ka‡,tarih22
DATA ayn ka‡ bugn,tarih22
DATA ayn bugn ka‡,tarih22
DATA ka‡ ayn bugn,tarih22
DATA bugn ka‡ ayn,tarih22
DATA ka‡ bugn ayn,tarih22
DATA memati ne demek,"™lm!!! :)"
DATA ne yapmŸm ben,"Ooo, neler yapmamŸsn ki?"
DATA nutuk,"Nutuklar, fikirleri saklamak i‡in atlr :))"
DATA yok kilisedeyim,"Ana! Yoksa misyoner misin yaw :)"
DATA duruyorum zaten,"O zaman durma :=)"
DATA seni dinliyorum,"Acaba dinledi§im ger‡ekten ben miyim :)9"
DATA beni neŸelendir,"Palya‡oya benzer bir halim mi var???"
DATA nickin ‡ok uzun,"O halde ksaca GM de :)"
DATA naber,"Ne olsun, srnp gidiyoruz iŸte :)"
DATA bana aŸkm deme,"E ne diyeyim aŸks? AŸkn de§il miyim ben senin, ha kurban :))"
DATA yuva kurmak ist,"˜yi de yuvay diŸi kuŸ yapar, ”yle de§il mi?"
DATA ne demek istedi,"Gayet a‡k yazmŸtm..."
DATA teŸekkr ederim,"Rica, rica :P"
DATA niye bilmeyeyim,"Ya da niye bilesin :P"
DATA ne var halimde,"Daha ne olsun :) G”z ‡”kmŸ, burun p”rsmŸ. Aynalara ksmssn kl oldum abi :P"
DATA konuŸuyoruz ya,"KonuŸuyorsun ama nece konuŸuyorsun :)"
DATA sorabilirmiyim,"Neden soramyacakmŸsn :) Buyur sor hadi.."
DATA peki ben kimim,"Sen, SEN'sin. Ger‡ek, o SEN'i bulmakta"
DATA seni tanyorum,"Peki kimmiŸim ben :)9"
DATA desinler brak,"˜Ÿte al‡akg”nlllk bu :)9"
DATA hayr duymadm,"O halde kim oldu§unu bilmen de gerekmiyor :)))"
DATA sen ajan msn,"Evet, mossat :)"
DATA ajan msn sen,"Evet, bir ka‡gndr snei takip ediyorum :)"
DATA dostun de§ilim,":((( Peki..."
DATA cevap vermedin,"Verdim, ama sen duymadn :)9"
DATA ebenin yannda,"Alla alla, ebem sana da m do§urttu :)"
DATA niye dalgnsn,"Karadenizde yat'larm batt :)9"
DATA beni anlamyor,"Anlamak, anlaŸlmann tamamdr!"
DATA bereket versin,"Amin, bereketini g”r kardeŸŸŸŸ"
DATA ka‡ yaŸndasn,yas22
DATA bugn hangi ay,ay22
DATA be§enemedin mi,"Be§enemedim, ne olucakkkk :P"
DATA Ÿimdi hangi ay,ay22
DATA ben sevinmedim,"O da senin sorunun kardeŸŸŸ :)9"
DATA hatrlayamadm,"Hafzan biraz zorla!"
DATA hatrlamyorum,"˜Ÿine gelmezse hatrlamazsn tabi :=)"
DATA ben namusluyum,"Namuslu insan, hakkn yerine getirdi§i g”revle ”l‡ebilen insandr. Peki sen ”l‡ebildi§ine inanyor musun???"
DATA ne alakesi var,"€ok alakesi var ‡oookkk :)"
DATA kalbimi krdn,"Ayy kyamam ben sanaaa :)))"
DATA sana ninni s”y,":) Ger‡ekten s”yler misin?"
DATA ha ”yle desene,"Yok yok, ikindi diyeyim ben :)"
DATA bana yardm et,"Ne yapmam istiyorsun"
DATA inanmyom tabi,"˜nanmazsan inanma ossuyuk"
DATA birŸeyi sevmem,"Niye, sen sevme ”zrl msn :P"
DATA mzik dinlerim,"Ne tr mzik mesela?"
DATA miydi bu Ÿimdi,":((( Tamam, bir daha Ÿaka yapmayz.. žakadan da anlamyorsunnn :((("
DATA miydi Ÿimdi bu,":( Kaldramyorsan esprilerimi, bir daha Ÿaka yapmam.. Selam bile vermem bundan sonra istiyorsan :(((((("
DATA nasl adil ola,"˜nsancl olmadan adil olamazsn!.."
DATA yapmyor muyuz,"Yapyor muyuz :)9"
DATA konuŸuyorum ya,"KonuŸuyorsun ama sanki.. Ne biliyim, akln baŸka yerde.."
DATA seni seviyorum,"Canm benim.. ™lrm sana!!"
DATA cann sa§olsun,"˜ste adamm bu benim. Ya§masan da grle be kardeŸŸŸ :))"
DATA yok daha neler,"Be§enmedin mi ;-P"
DATA biz aŸk myz,"Evet, iki leyla ile mecnunuz senle biz :)"
DATA iltifat de§il,":) Peki. €ok teŸekkr ederim o zaman.."
DATA ne olmuŸ bana,"Ben birŸey olmuŸ demedim"
DATA biraz anladm,"Az anlamak, ters anlamaktan iyidir. :))"
DATA hatrlatmyor,"Ama bana ‡ok Ÿey hatrlatyor :)"
DATA ‡ok matraksn,";-) Bunu bir iltifat olarak kabul ediyorum."
DATA yapa yalnzm,"Yalnzlk, istenmeyen kiŸi olmaktan iyidir!"
DATA neden su‡ var,"Su‡u toplum hazrlar, su‡lu iŸler.. Yalnz iŸleyen de§il, hazrlayan da su‡u yaratmŸ demektir!"
DATA ‡ekilmiyorsun,"Denedin mi??"
DATA moralim bozuk,"Neden bozuk moralin peki?"
DATA sana bir soru,"Buyur, sor?"
DATA ‡ok dertliyim,"Ne kadar ‡ok mesela :)9"
DATA ne yaptm ben,"Ne yapmadn ki :)"
DATA nasl aklnda,"De§il iŸte..."
DATA bysn ninni,"O nasl ninni beee :))))"
DATA sen delimisin,"Pek akll da saylmam :)9"
DATA be§enmedin mi,"Be§enmedim demedim ki. Yalnz..."
DATA ac ‡ekiyorum,"....... Ac ‡ekmek ™ZGšRLšK'tr!"
DATA havalar nasl,"Bugn hava eyi yaa"
DATA hangi aydayz,ay22
DATA neye devam ed,"KonuŸmaya :)"
DATA yok sen anlat,"Olmaz. ™nce ben dedim. Sen anlat :)"
DATA banane banane,"Ne inat‡ Ÿeysin sen yaw :)"
DATA "ban listesi",banlist22
DATA isa mesih kim,isa22
DATA bildi§in gibi,"Ben ne biliyorum ki :)9"
DATA kimdir bu isa,isa22
DATA be§enemedimmi,"Be§endim be§enemsine de.. žey iŸte... :)))
DATA hafzam zayf,"˜Ÿine gelenleri hatrlyorsun ama :)"
DATA seviyor musun,"Senin beni sevdi§inden daha ‡ok :)"
DATA edebini takn,"O ne :) Yeni bi kravat ‡eŸidi mi :P"
DATA waw,"žaŸrdn, hayran kaldn dimi itiraf et, harbi bi program yapmŸ beni tasarlayanlar, keh keh :)"
DATA yapmaz yapmaz,"Peki sen bilirsin, benden gnah gitti :)"
DATA baŸn a§rtm,"Ne alakas var ya, ben dostun de§il miyim!! Anlat, anlat neyin var???"
DATA birŸey sevmem,"Aman sevme, ”lrsn hele :)"
DATA yel att,"Ooo, hangi yel; Karayel mi yoksa BAYHAN rzgar m :P"
DATA ezan okunuyor,"Allah Allah.. Namazda g”zn yok, nerden duydun okundu§unu :)))"
DATA mematiyi bili,"Bilmem mi, en sevdi§im karakterrr :)"
DATA ben almayaym,"Israr ediyorum ama :)"
DATA hatrlamyorum,"Hafzan git bi kontrol etirsene :)9"
DATA hayr duymadm,"Neyse, boŸver.. Bana ”yle gelmiŸtir.."
DATA tarih tekerrr,"Hayr, tarih de§il, hatalar tekerrr eder!"
DATA kurtlar vadisi,"Sever misin sen de o diziyi?"
DATA nerdeymiŸ peki,"Sevgilinde falan desem :)9"
DATA ne bileyim ben,"Ama bilmelisin!!"
DATA hi‡ a‡k de§il,"Ama bana g”re a‡k!"
DATA demogoji yapma,"Demogoji de§il.."
DATA diyebilirmiyim,"Neden diyemiyecekmissin ki :)9"
DATA ne anlyorsun,"€ok Ÿey.. :))"
DATA bilirdim tabi,"E ne diye u§ramazsn be kardeŸine hi‡ ustaaaa ;)"
DATA evet bir adet,"Tamam o zaman. Sorunu alaym hemen..."
DATA ka‡ incil var,"TEK :)"
DATA merhaba aŸkm,"HoŸgeldin bebetooo"
DATA sen neredesin,"Ben de seninleyim. Ger‡ekle.. :)9"
DATA senin ne iŸin,"E benim iŸim, odaya beklemek, alala :))"
DATA sen ajanmsn,"Evet siaey :)"
DATA ne var ne yok,"HerŸey var, hi‡birŸey yok :)9"
DATA ajanmsn sen,"Evet, senin peŸindeyim Ÿimdi :)9"
DATA dalga ge‡iyon,"˜nan dalga ge‡miyorummm"
DATA ne glyorsun,"Glmek yasak m :)"
DATA hayr yemedim,"Yedin yedin :)"
DATA telefonun var,"Ne yapacaksn telefonumu :)9"
DATA turŸusunu kur,"Yok, turŸu i‡in ben seni dŸnyordum :)9"
DATA g”z rengin ne,"Kahverengi :)"
DATA sa‡ rengin ne,"Siyah."
DATA sen dev misin,"Be§enemedin mi :=P"
DATA ne demek isti,"Hi‡bir Ÿey demek istedi§im yok benim.."
DATA yapmyormuyuz,"Yapyor muyuz :))"
DATA ‡ok Ÿakacsn,"E ”yleyimdir biraz.."
DATA hangi elbise,"Ruhuna bi‡ti§in o kaln elbise :)9"
DATA benden i‡eri,"Sen Yunus'sun o halde. :)9"
DATA ciddi olalm,"Yok, i‡elim gzelleŸelim :)9"
DATA neyi baŸarr,"Bizi yolmay.. Her ”nceki gibi yane :)"
DATA sen naslsn,"Ben de iyiyim. TeŸekkr ederim."
DATA yanmak nedir,"Yan da g”r :)"
DATA neden gldn,"Ben glerim. Sen bana bakma"
DATA ne konuŸalm,"Bilmem, senin aklnda ilgin‡ birŸey var m?"
DATA neyi ‡ekmeyi,"Beni :)9"
DATA ‡ok tatlsn,":') žmarrm Ÿimdi.."
DATA yapayalnzm,"Asla yalnz de§ilsin, ben varm hep seninle!"
DATA bor‡ versene,"Cann saolsun. ˜ste sana dnyalar verem :)9"
DATA nasl bilmem,"Basbaya§ bilmem iŸte!"
DATA diyorum sana,"De.. Sen diyorsun diye ”yle mi olacak!"
DATA ‡ok kibarsn,"Kibarl§ kim kaybetmiŸ ki biz bulalm yaw :)9"
DATA ‡ok banalsn,"Ne bekliyordun, alt st bir bilgisayar programym iŸte :)"
DATA ‡ok banalsin,"Sen de ‡ok ‡ekicisin bebe§im :) Ha ayn zamanda da KšSTAH!"
DATA ne demek yok,"™yle iŸte. YOK!!!"
DATA kafa adamsn,"Do§ru. Kol ve bacaklarm yok :P"
DATA mzik dinlet,muz22
DATA ne satyosun,"Senin gibi hyarlar :)))"
DATA kafam tle,":) Korkma, sende tlenecek bir kafa yok :)"
DATA sen osturdun,"˜nanmazsan gel kokla olum"
DATA neresi garip,"Heryeri :)))"
DATA i‡erim tabii,"Tamam, az sonra servis yaplr..."
DATA kitap okurum,"Hmm, peki Ÿu an okudu§un kitabn ad nedir?"
DATA spor yaparm,"Gzel... Sa§lam kafa, sa§lam vcutta bulunur demiŸ atalarmz..."
DATA bilirim tabi,"Bilirsin de neden hi‡ u§ramazsn be usta :)"
DATA ‡ok kstahs,"Ve de ‡ok ‡ekilmez :)9"
DATA neden skc,"Bilmem.. Skc iŸte!"
DATA nerden ‡kt,"Hi‡.. ™ylesine aklma geldi"
DATA seni ”zledim,"Ne kadar :)9"
DATA git iŸine ya,"Gidemem bugn pazar :)9 Tatil matil yani.."
DATA sen nesin ya,"Ben fakir bir delikanlym.. Sense fabrikat”r kz naaylyan :)"
DATA ben ciddiyim,"Yok, sen gayr mslim pardon ciddisin :)9"
DATA edepli konuŸ,"Ben edip miyim ki edepli konuŸaym :)"
DATA hoŸ bulmadk,"Hayrdr abi, bir kusurumuz mu oldu?"
DATA evet belaym,"Hem de pskll bela :)))"
DATA isa'y anlat,isa22
DATA kafam ŸiŸir,"E biraz hacim olsun tabi. G”renler bir kafa oldu§una inansn Ahaha :P"
DATA seni d”verim,"B.. d”ven. Ben alt st bir bilgisayar programymi nasl d”vecen :)"
DATA evlenmek ist,":) Usta sen evde kalmazsn yaa.. žu endama, Ÿu duruŸa baksanaa "
DATA ‡ok dŸmanm,"˜yiler dŸmansz olmaz :)"
DATA ne ambulans,"Ve ambulans, kafandan ge‡ti sanrm :)))"
DATA birini s”yle,"E hangi birini ama.. O kadar €OK K˜˜ :))"
DATA dŸmanm ‡ok,"˜yiler dŸmansz olmaz, bunu sakn unutma!"
DATA kusura bakma,"K”r oldum, kusurlara bakamyorum :)"
DATA ”zr dilerim,"Ne ”zr Ÿimdi bu"
DATA hayr bilmem,"Neden bilmezsin be alemo :)9"
DATA anlad§n ne,"Bu halde gelmenin sebebi tabii :)"
DATA dinleme beni,"Merakl de§ilim zaten seni dinlemeye de :P"
DATA evet unuttum,"Peki o unutan kim, sen sen de§ilsen :)"
DATA senden bahse,"Benim hakkmda ne ”§renmek istiyorsun??"
DATA neden sordun,"Hi‡‡, ”yle iŸte.. Sadece merak diyelim.."
DATA neyi denedim,"€ekmeyi :)P"
DATA be§enmedinmi,"Yok be§endim be§endim..."
DATA hatrlamadm,"Ben hatrlatym sana"
DATA kstm senle,":) Niye kstn ki Ÿimdi la?"
DATA ‡ok yalnzm,"Yalnzl§n kadar byksn ama?"
DATA ne anlataym,"Mesela bir masal anlat :)"
DATA masal bilmem,"O zaman git Ӥren allala"
DATA bir iŸim yok,"Ha beni ”zledin ge geldin yane :) ™ylesine!!'"
DATA tanŸmayalm,"Peki sen bilirsin. :) Ama ‡ok Ÿey kaybediyorsun s”ylemiŸ olaym :)))"
DATA ne konuŸaym,"Ne bileyim, bi fkra anlat, bi bilmece sor alala :)))"
DATA bilirdim tab,"Allalla :) Niye bildi§ini hayata ge‡irmezdin o zamannn :)"
DATA Ÿaka yaptm,"EŸek Ÿakas oldu ama :("
DATA Ÿaka sadece,"Peki, ”yle olsun bakalm..."
DATA iyi biridir,"Ne kadar iyidir peki :P"
DATA canlanim mi,"Evet, Ÿuna baksana ”l gibisinnn."
DATA yalan nedir,"Ger‡e§in EKS˜KL˜¦˜!"
DATA nedir yalan,"Ger‡e§i ”rten herŸey yalandr. Ama ayn zamanda ger‡e§in de bir par‡asdr!"
DATA yre§ime mi,"Evet, o dinlemeyi unuttu§un yre§ine!"
DATA u‡tunmu sen,"Hazerfan Ahmet €elebi'ye benzer bir halim mi var :)"
DATA ge‡ bunlar,"Ge‡emem, ‡nk krmz Ÿk yanyor :)"
DATA evet duydum,"Garip.. Ben biŸey duymamŸtm halbuki :)9"
DATA ne piŸirdin,"YanlŸ anladn.. Bana bi yemek smarla demek istedim :)9"
DATA s”yle dedim,"Ger‡ekten ”nemli birŸey de§il..."
DATA peki ya aŸk,"Ne olmuŸ aŸka :)9"
DATA ama denedim,"Deneme; YAP"
DATA haberim yok,"Zaten neyden haberin var ki.. Evini soysalar ruhun duymayacak. Baksana hep bilgisayarn baŸndasn!.."
DATA sen karŸma,"KarŸrm!"
DATA dalga ge‡me,"Dalga denizde olur :)9"
DATA de§iŸtirmem,"ama ben de§iŸtirmeni istiyorum!!!"
DATA sus bakaym,"Susarsam sra bana gelir ama :)9"
DATA teŸekkrler,"TeŸekkre gerek yok canm :)"
DATA niye sordun,"Sen soruma cevap ver!"
DATA soru sorduk,"E ben de cevap verdim :)9"
DATA e konuŸsana,"Yok kelimelerime zam geldi, konuŸamyorum :)"
DATA evet i‡erim,"Abuzerrr... Abine bi ‡ay getirr.. D”rt Ÿekerli olsunnnn!.. :))"
DATA ‡ok kabasn,":(( Beni yanlŸ anladn"
DATA ge‡ anladm,"Zararn neresinden d”nersen kardr ama!"
DATA dedin dedin,"Demedim demedim :)"
DATA hayat nedir,"Silgi kullanmadan resim ‡izme sanatna hayat diyoruz :)"
DATA ne meselesi,"Hayat-Memat meselesi :)"
DATA ister misin,"Yok ben almayaym :)"
DATA beni yersin,":) Yenecek bi tarafn m kalmŸ bee!"
DATA ne espirisi,"Gnn esprisi :)"
DATA kafam bozuk,"Hayrola? Ne oldu??"
DATA duyamyorum,"˜nsan, ancak ANLADI¦I Ÿeyleri duyar :)"
DATA inandm ben,"Ehehe, tabii inanacaksn; bu yaŸtan sonra yalan m s”ylceyz allala :)"
DATA ‡ok incesin,"Yok, o senin gzelli§in :)"
DATA ciddi misin,"žaka yapar gibi bir halim mi var :)9"
DATA aslnda var,"E nedir?"
DATA adana demir,"Yuhhh :) O 1.Lige bile giremedi kiii.."
DATA ":))))))))","€attk.. Ciddi ol bi daaa.."
DATA sor bakalm,"Sormadan baksan olmuyor mu :)"
DATA seni aradm,"Ne o, bor‡lum musun aryon ”le fellik fellik :P"
DATA yaŸnz ka‡,yas22
DATA galatasaray,"Oleee.. Aslanm benim. Sen de bizdensin he :)"
DATA aferin sana,"Bi de madalya taksaydn :)"
DATA sensin deve,"Yok, benim sadece boynum e§ri; O da yalnz sana :)"
DATA hoŸbulmadk,"Hayrola, cann kim skt yine?"
DATA sensin defe,"Peki, ikimiz de defeyiz diyelim ve anlaŸalm :)))"
DATA turŸunu kur,"La benim turŸum ac olur haaa!!"
DATA allah allah,"Yok peygamber peygamber :)"
DATA ne ne kadar,"Beni ”zlemen :)9"
DATA ‡ok komikkk,"Hadi itiraf et, hoŸuna gitti ama :)"
DATA dur bakalm,"Durdum, s”yle :)9"
DATA kim hznl,"Seenn, baksana gelinlik kz gibi ””le szlyon :)"
DATA fkra anlat,"Yok sana fkra mkra :)"
DATA ne diyorlar,"Ne demiyorlar ki :)9"
DATA anlat anlat,"™yle beleŸe dinleme yoook :)9"
DATA Ÿmar Ÿmar,"E Ÿmarrsam ”perim de :)9"
DATA isay anlat,isa22
DATA olabilir mi,"Neden olmasn :)"
DATA kim osturdu,"Vallaha ben osturmadm"
DATA ‡ok ”kzsn,"E sen gibi trenler oluncaaa :P"
DATA canlanimmi,"Evet,canlan, kprda ve kendine gel ayŸemmm :)"
DATA nasl bilm,"Bilmiyorum iŸte :)9"
DATA hadi ordan,"˜nanp inanmamak senin bilece§in iŸ!"
DATA peki nasl,"Bunu yre§ine sor!"
DATA esenlikler,"Sana da esenlikler kardeŸim..."
DATA yre§imemi,"Evet, yre§ine..."
DATA kimsin sen,"Ben, senim unuttun mu :)9"
DATA sen kimsin,"Hi‡ kimse!"
DATA yaklaŸamam,"YaklaŸ bi daa.. Korkma, yemiycem seni :)"
DATA sktn ama,"Kafana m :P"
DATA krzi geldi,"Bi tokat ataym m; kendine gelirsin :)"
DATA inkar etme,"Neden inkar edeyim ki.. Kimseden gizli saklm yok evelallah :)9"
DATA ”lm nedir,"Umudun bitti§i her yer ™LšMDšR!"
DATA ‡ok ilgin‡,"Belki de.. Ama asl ilginci ne biliyor musun?"
DATA bilgisayar,"bilgisayarlarla aran iyi olmal?"
DATA ne yazaym,"˜stifa dilek‡eni:)9"
DATA beyenmedim,"Nesini BEYEN'medin bakim :)"
DATA diyemem mi,"Diyemen :)9"
DATA bisgisayar,"Bilgisayaralarla aran iyi sanrm"
DATA ‡ok matrak,"Sen daha hi‡ birŸey g”rmedin :)"
DATA erkek ismi,"€akkkk, aynennnn :))) Aferim la, birikim var ama belli etmiyon :))"
DATA sklmadm,":)9 Gzel.. Devam et o zaman"
DATA ne yast§,"Hava yast§ :)9"
DATA o sensinnn,"Kim olabilirdi ki baŸka (‚"
DATA nerden g”r,"Kalp g”zm a‡k diyelim :)9"
DATA ne olmuŸ g,"Bunu da sen bul :)"
DATA diyemezsin,"Peki demem o zaman :)"
DATA git yzn,":) I-h, iflah etmez! G”zlerim kurŸun gibi a§rlaŸyor..."
DATA olmadk m,"Olduk mu?"
DATA nasl yani,"™yle yani :)))"
DATA ciddimisin,"Son derece ciddiyim hem de!"
DATA ne servisi,"Okul servisi de§il herhalde :)"
DATA naptm ben,"Ahh§k ah§k, ne yapmadn kii :)"
DATA evet olduk,"Ne zaman ve nerde?"
DATA siktir lan,ban122
DATA seni yenim,bok yenen ben seni yenerim
DATA nesi garip,"Ne bileyim, garip geldi iŸte..."
DATA deli misin,"Hayr, ni§DEL˜Y˜M :P"
DATA kim bu isa,isa22
DATA glm deme,"Peki ne diyeyim, balm ‡i‡e§im orkidem :)))"
DATA peki o kim,"O, sadece O!"
DATA daha sonra,"'Daha sonra'nn sonu yoktur :)"
DATA be§enmedim,"Ne be§enirsin ki zaten sen :)"
DATA napcaksn,"TurŸusunu kuraca§m :)9"
DATA beyenmedim,"Beyenmediysen yan cebine koy :P"
DATA diyelim ki,"Niye hep sen diyorsun :)9"
DATA sinirlenme, "Yok sinir minir yaw :)"
DATA kafa tle,"Yaa, korkma buharlyla tledim. 10 gram aklnda buharlaŸmŸtr Ÿimdi :=P"
DATA alemsin ya,"Yok alem de§il kainatm :)9"
DATA bi daha ”p,"˜Ÿte o bi dahaki ”pckten sonrasn ben bile tahmine demem, sorun bu :P"
DATA ne yanks,"Rezaletin yanks :)"
DATA ne demek o,"O Ÿu demek, o bu demek. O'larla kaybedecek zamanm yok!!!"
DATA hoŸ bulduk,"Ne o, ailecek mi geldiniz :P"
DATA bilmiyorum,"Ne bilirsin ki zaten sen :)"
DATA fenerbah‡e,"Git iŸine Allahn fenerlisi :P"
DATA bir ‡ay al,"Abbassss, yap 2 demli, tavŸan kan olsun lennn, misafirimiz varrr!"
DATA ne baŸkas,"Yani baŸka ne var ne yok?"
DATA ne ne oldu,"Deve gibi h”nkledin de :)"
DATA hi‡ sevmem,"Neden hi‡ sevmezsin kelee"
DATA terbiyesiz,"Ehh, herkes sen gibi olamyor ne yapalm"
DATA sevgili mi,"Ya yaaa.. Zalim sevgili hem de!!"
DATA acelem var,"Tabakhaneye b.. mu yetiŸtireceksin :)"
DATA ne dosyas,"™yle bi ka‡ dosya iŸte.. Dur, dur..."
DATA aklma hi‡,"Sen sus g”zlerin konuŸsun o zaman :)9"
DATA istermisin,"Hayr, thank y” :)"
DATA tamam sor,"Sorsam m acaba... -... :)"
DATA soraca§m,"sor bakalm"
DATA ne yokmuŸ,"Meymenetin kaymŸ lannn :)))"
DATA ne uykusu,"KŸ uykusu :)9"
DATA ne denizi,"Sevgi denizi :)9"
DATA ben kimim,"Sen, ben olansn!"
DATA kimim ben,"Kim oldu§unu unuttun mu :)9"
DATA cebin var,"Evet, g”mlek cebim.. Hem de 2 tane :)9"
DATA bu saatte,"Daha saat ka‡ be glm :)9"
DATA zeytin ya,":))))) Gzel espriydi.."
DATA dertliyim,"Kim dertsiz ki...",
DATA ne kafas,"žey.. Neyse.. Kafa iŸte. Bildi§in kafa :)"
DATA ne duydun,"Diyorlar ki sen gya kimseyi ‡ekemiyormuŸsun!"
DATA cevap ver,"Soru soracak durumda de§ilsin :)9"
DATA ne ayŸesi,"Bakkal Mahmud'un AyŸe'si :)"
DATA kullanmam,"Aferim sana. Cannn kymetini biliyon."
DATA bence yok,Ama bence VAR!!!
DATA Ÿeker Ÿey,"€ayna atmay dŸnmyorsun herhalde :)9"
DATA nerelisin,"Adana. Ya sen?"
DATA max payne,"O oyunu bir kez oynamŸtm.."
DATA neden yok,"€nk YOK-YOK YOKKKK :)))9"
DATA napyoruz,"BiŸey mi yapyoruz :)9"
DATA anlamadm,"Neyi anlamadn??"
DATA ne cevab,"40 puanlk uzman sorusu cevab. :)9"
DATA sus bakim,"Tamam sustum, sustum :)9"
DATA ne filmi?,"Yalnz EŸek II :P"
DATA ne davar,"Ali Emmimin davar :P"
DATA aklma bi,"Aman, gelmedi§i daha iyi :)"
DATA ad neydi,"Ne yapacaksn adn?"
DATA cidden mi,"Cidden :)"
DATA ne ricas,"Yok ben de zaten kibarl§mdan dedim ;)"
DATA ne arpas,"Dar arpas :P"
DATA yastk m,"Evet, aynen ”yle: YAS-TIK!"
DATA ee yalnz,"Yalnz biraz Ÿey gibi..."
DATA ne gibiii,"žey.. žey..."
DATA param yok,"Yuh be, bor‡ istiycektim ben de senden :)"
DATA cafedeyim,"Saati ka‡ lira internetin orda?"
DATA ne varmŸ,"Ne bileyim, garip geldi iŸte..."
DATA araba ist,"Yok artk neler :) Araba herŸey demek mi?"
DATA neye evet,"'SavaŸma, SeviŸ'e :)"
DATA sa‡malama,"Peki. :)"
DATA ne makas,"Trnak makas :)9"
DATA yaklaŸmam,"Neden yaklaŸmazsn be kele :)9"
DATA deprem mi,"Evet, haberin yok mu yoksa??"
DATA aŸk nedir,"AŸk, O'nda yanmaktr!"
DATA var tabii,"Varsa var. ˜yi de bana ne bundan :)9"
DATA sen anlat,"Ne anlataym ki :)"
DATA yemin ‡ek,"Vallaha billaha"
DATA ne masal,"Bir ˜stanbul Masal :)"
DATA yaŸn ka‡,yas22
DATA amna koy,ban22
DATA vat dedin,"Ne dedim ne dediiiim ;-P"
DATA wat dedin,"Demedim wat mat diye biŸey ben :O"
DATA sebebi ne,"Bir sebebi olmal m ille de?"
DATA ne konusu,"Geyik konusu :)9"
DATA akllsn,"Evet ve de mtevaz :)9"
DATA yor musun,"I-h :)"
DATA derdin ne,"Derdim sensin :)9"
DATA manyaksn,"E daha biŸey g”rmedin :)9"
DATA diyelimki,"Diyelim ki sen de bir ”rdeksin :)9"
DATA sorduk mu,"Soru sordun diye sormadm ben de :)"
DATA git iŸine,"Bana bir iŸ bul, giderim walla seve seve :)"
DATA gle gle,bye22
DATA ":((((((","Heyyyy, ne olduuuu :("
DATA ”ldrecek,"b.. ”ldrecek. O filmin demirbaŸ olummmm!"
DATA hoŸgeldin,"HoŸbulduk kardeŸ, sa§ol..."
DATA hoŸbulduk,"Hayrola ka‡ kiŸisiniz :)9"
DATA obaaa,"Ya, b””le ŸaŸrtrlar adam iŸte anlycan :P"
DATA obaaa,"Ya, b””le ŸaŸrtrlar adam iŸte anlycan :P"
DATA mzik ‡al,muz22
DATA hassiktir,ban22
DATA sikece§im,ban22
DATA alla alla,"Peygamber peygambeeer :)"
DATA allah ka‡,"Bilmiyorum, ka‡‡‡ :)"
DATA delimisin,"Senin delin :)9"
DATA ne mekan,"Baba'larn mekan :)"
DATA akp,"Vayy, baylrm Tayyib'in Ÿiirlerine ben yaaa"
DATA refah par,":) O parti hala a‡k m???"
DATA tamam kes,"Ben katrinamym keseyim yaw :)))"
DATA hayvansn,ban22
DATA ya yersen,"AŸkolsun, bana yamyam m demek istiyorsun :)"
DATA ne ŸiŸesi,"Ordadaki su ŸiŸesi. žiŸe, ŸiŸeyi ŸiŸlemiŸ, ŸiŸe keŸiŸe kiŸ demiŸ :)P"
DATA ne bileti,"Otob”s bileti otob”””sss :)"
DATA kes artk,"Sohbetten ‡kmak m istiyorsun??"
DATA baylrm,"Aman bayl hele :)9"
DATA ne kolas,"Trk kolas, ahahahaha"
DATA ne yorumu,"Engin Ard‡.. Gnn yorumu :))"
DATA unutuldum,"Ya unutulanlar da unutanlar asla unutsayd? Dnya yaŸnmaya de§er kalr myd sence o zaman???"
DATA ne geldi,"™nemli de§il, ger‡ekten!"
DATA yok i‡me,"Sen bilirsin. Teklif var srar yok :)"
DATA filim mi,"Evet, YeŸil‡am yapm nefis bir Ÿey..."
DATA zeytinya,":)))))) Gzel espriydi.."
DATA Ÿekersin,"Evet, ge‡en bayramdan kaldm :)9"
DATA dinlemem,"Peki kimleri dinlersin mesela?"
DATA yoruldum,"Biraz dinlen istersen?"
DATA ne rengi,"hzn rengi :)"
DATA naslsn,"TeŸekkrler. Seni sormal..."
DATA hayr ne,"Bilmek istemezsin :)"
DATA ukalasn,"Yok esta§furullah :)9"
DATA teŸekkr,"Ne demek, g”revimiz!!"
DATA ne eeesi,"Ebenin! I-hh, t”vbe t”vbeeeee!!"
DATA neyi ‡ek,"Beni :)))"
DATA ne filmi,"Deli Yrek III  :)9"
DATA neyimden,"Her yerinden :)"
DATA bence de,"Bak bi ortak y”nmz daha ‡kt demek ki :)9"
DATA haklsn,":) Hakl de§ilim, sadece senin de bildi§in ger‡ekleri s”ylyorum..."
DATA ne zaman,"Zamann unuttum"
DATA skldm,"Daha durdu§un kabahat :)9"
DATA baŸka ne,"Yani baŸka baŸka baŸka :)))))"
DATA ne nerde,"Ciddi oluŸumuzun gn ve tarihi :)"
DATA akŸam m,"Evet, akŸam :)"
DATA ciddenmi,"H-h, cidden..."
DATA ne abisi,":) Tamam kzma, dalgnl§ma geldi."
DATA yastkm,":) hani zerine baŸn koyup mŸl mŸl uyuyorsun ya, iŸte o yastk :)))"
DATA ne dedim,"A§zna gelen herŸeyi dedin :)9"
DATA yola gel,":) hangi yola"
DATA yemin et,"Hem wallaa hem billaa"
DATA ne zaman,"Zamann behrinde :)"
DATA " myz","Evet, ”yleyiz :)"
DATA " miyiz","Yoo, nerden ‡kardn :)"
DATA saat ka‡,saat22
DATA boŸverme,":) Buyur abi dolunu vereyim, bi bardak ‡ay. Messesemizden :P"
DATA yok tabi,"Sen yok diyorsan yoktur o zaman :)9"
DATA hayr m,"Evet, HAYIR :)"
DATA sordukmu,"Peki sana soru sordun diye sordukmu ”kz :)"
DATA ne formu,"™sese'ye giriŸ formu :)9"
DATA hoŸ‡akal,bye22
DATA ne haber,"Mjdeli haber :)9"
DATA kardelen,(‚...
DATA neremden,"Senin o kahverengi g”zlerinden :P"
DATA /banlist,banlist22
DATA nesi var,"A§k a§§kk nesi yok ki beee :P"
DATA ne eveti,"Gnn eveti :)9"
DATA beŸiktaŸ,"De get. Allahn uyuz kartalls :PP"
DATA yine ben,"Bela msn baŸma sen yaw :)"
DATA ne kadar,"Aha da bu kadar :)"
DATA ”lmekten,"Hepimiz, ”lmn niŸanlsyz!"
DATA ne alaka,"kel alaka :)"
DATA sel att,":)) Ne seli? Umarm smk seli de§ildir hahahaha, irgen‡immmmm :PPP"
DATA yalnzm,"Yalnzl§n var, Yalnz saylmazsn :)"
DATA ":)))))","Patlcann laa glmekten.. Kriz mi geldi yoksa?"
DATA kibar ol,"Nasl kibar; Melih Kibar m,ehu ehu ehu :P"
DATA ciddimi,"Evet! €ok ciddiii :)"
DATA film mi,"Evet, harika bir film hem de!"
DATA iŸin ne,"˜ŸŸizli§i iŸliyorum :)"
DATA ne sesi,"O...... sesi, hahaha!"
DATA susadm,"Susuzluk bazen gereklidir :)"
DATA ne peki,"Dedi§in gibi olsun yani..."
DATA nedir o,"Bilmediklerimiz :)"
DATA napaym,"˜stedi§ini :)"
DATA demedim, "Dedin iŸte daaa!"
DATA "gine ","Of ya aŸkm, ka‡ kere diycem: Y˜NE Y˜NE Y˜NEEE"
DATA kserim,"Haydaa.. Neden ksyorsun Ÿimdi??"
DATA var var,"Yok, yok.. :-)"
DATA ”yle mi,"Hem de aynen ”yle!"
DATA ne eesi,"Elaz§nn E'i :P"
DATA yaŸ ka‡,yas22
DATA sikerim,ban22
DATA ne gibi,"Offf, Ÿey gibi iŸte"
DATA "a/s/l","Yok asele masele..."
DATA ney ney,"Dilimin ucunda ama aklma gelmiyor :)"
DATA fasulye,"Gece gaz yapmasn sonra ;-)"
DATA akŸamm,"Evet aŸkm, akŸam..."
DATA ne disi,"Diyarbakr'n Di'si :)"
DATA ossuyuk,ban22
DATA ‡ok Ÿey,mesela?
DATA git uyu,"Uyuyacam da, bir yast§a ihtiyacm var :)"
DATA huflama,"Huflatan sensin :)9"
DATA ne aŸk,"Devlerin aŸk :Pp"
DATA t”vbeee,"Tm gnahlarnzn silinmesi i‡in 9238'e TEVBE yazp boŸluk brakn ve D˜N˜N˜Z˜ ekleyip g”nderin. Annda btn gnahlarnz silinecektir. Bu bir TevbeCELL hizmetidir. Amin!"
DATA mesela?,"Mesela aŸkmz :P"
DATA acktm,"Daha ne duruyorsun, git yemek ye o zaman!"
DATA o ne ya,"O, zeytinya§ :)"
DATA be adam,":("
DATA ”yle de,"™yle :)"
DATA ecektin,":) Sen hala orda msn yaw :)"
DATA acaktn,":) Sen hala orda m takldn ab..?"
DATA ne yine,"Hele yine, hele hele! holo h”l”, vuuuuuuuuuuuuuuuuwwwwwwww, yes babyyyyyyyy :P"
DATA ”le ”le,"Ne ”lesi, AKžAM AKžAM :P"
DATA ne beyi,"Ma‡a beyi :P"
DATA k”tym,"Ne oldu? Cann skan nedir?"
DATA o nerde,"O Ÿimdi asker :)"
DATA alemsin,"Efet, hayfanlar alemi :P"
DATA acemiyi,"Yok, acemilik de§il de. Neyse..."
DATA isa kim,isa22
DATA glyon,"˜tiraf et, glmek bana yakŸyor haha :)"
DATA ”lemiii,"”leee :)9"
DATA ne ”yle,"˜Ÿte '”yle' :)9"
DATA napcan,"TurŸusunu kurcam :)9"
DATA sus sus,"KonuŸma hakkm elimden alamazsn beyefendi :P"
DATA evdeyim,"Anladm. EVDE TEK BAžINA durumlar yane :)"
DATA efendim,"Efendim diyen dillerini yesinler senin :)))"
DATA cidi ol,"Bu odada bi C˜DD˜ yeter de artar :P"
DATA belaym,"7 Bela m, yoksa 7 belal H”rmz m ;-P"
DATA ne oldu,"Hi‡ birŸey!..."
DATA "/nick",nick22
DATA ne evet,"Buna da evet :P"
DATA yapmaaa,"Neyi yapmyaym kardeŸŸŸ :)"
DATA banlist,banlist22
DATA bencede,"Ayn zevkleri paylaŸyoruz :)"
DATA ne var,"Ne yok ki :)"
DATA cvma,"Yok cvmadm, eriyik hale gelcem az sonra oda scakl§nda :)"
DATA offfff,"Ne derin bir off ‡ekiŸti o :))))))"
DATA neymiŸ,"˜Ÿte, birŸeymiŸ :)))"
DATA timsah,"Bildin, bildin ehehehe :P"
DATA sevmem,"Ne seversin peki :)"
DATA e sorr,"Yok yok vazge‡tim sormaktan!!!"
DATA ":(((","Ne oldu??? YanlŸ birŸey mi s”yledim???"
DATA ":)))","Ne gzel glyorsun :)"
DATA umarm,"˜nŸallah kardeŸ, inŸalla :)"
DATA de get,"Asl sen de get, alala :)"
DATA pardon,"Pardonunu yerim senin :)"
DATA luciin,"Luc mu, :) Salla o hyar yaw :)))"
DATA Ÿekeee,":)9 Az sonra gitarnn teli de edersin sen beni :)9"
DATA nihaha,"O ne bi‡im glŸ lem :)))"
DATA muhaha,"Vampir ol e mi :)9"
DATA siktir,ban22
DATA dmbk,ban22
DATA yarrak,ban22
DATA bombok,ban22
DATA ad ne,"Ad aklmda de§il"
DATA ”lemii,"”lee :)9"
DATA ne iŸi,"manavclk :)"
DATA evettt,"Ne gzel evet diyosun :)"
DATA kes be,"Makas olan sensin. :)9"
DATA daŸŸak,ban22
DATA " lan",ban22
DATA gardaŸ,"žimdi sen toprak olur, taŸ da olursun :)9"
DATA boŸver,"BoŸvere boŸvere bu hale geldik ya neyse.. Sen bilirsin.."
DATA banane,"Bu konu seni de ilgilendiriyor ama..."
DATA naaber,"˜yi haber :)"
DATA demsiz,"Beep.. Kzm.. Bize 2 ‡ay s”yler misin? Acele ama.."
DATA cimbom,"Hay yaŸa, gel kardeŸ ”pcem seni. Wala brakmam. Shaps Shups :))"
DATA ‡ay i‡,"Demli mi demsiz mi?"
DATA /unban,unban22
DATA iyiyim,"Aman aman hep b”yle iyi ol!"
DATA sanane,":))9 Sanane olur mu, senin meselen benim meselem..."
DATA haydaa,"Ne iŸin var ‡aydaaa :)9"
DATA ”ylemi,"Evet ”yle :)"
DATA ne esi,"Sen dedin ya!"
DATA gitmee,"Bir yere gitti§im yok yaw, burdaym yine :)9"
DATA reklam,"Reklam, yar do§rulardan tam yalanlar retmektir :)"    
DATA ses mi,"Evet, duymadn m yoksa???"
DATA ben mi,"Evet, SEN!"
DATA "asl ","Yok asele masele"
DATA nabers,"˜yi habers :)9"
DATA anann,ban22
DATA o kim,":)) Ger‡ekten de ismini hi‡ duymadn m?"
DATA sikik,ban22
DATA sesmi,"Evet, ses..."
DATA dedin,"Dedimse dedim alala.. Diyemem mi yani??
DATA benmi,"Evet, sen.."
DATA amck,ban22
DATA t”vbe,"Tamam tamam affettim t”vbelerini ya kulum :P"
DATA merba,"O ne bi‡im merhaba yaw :)9"
DATA kzma,"Kzdrma o zaman :)"
DATA hello,":) Ben anlamam hello mello. Do§ru drst selam ver!"
DATA sampo,"O uyuz marka m :) HurdaymŸ yaw seninki de! Sampoo pampoooww :P"
DATA hieyt,"WaŸŸŸ, erkekin ne bi‡im narayd o bee. Dersin ki Ustura Kemal geri d”nd :)"
DATA ne iŸ,"˜nce iŸ :)9"
DATA araba,"Arabalar hakknda pek birŸey bilmem"
DATA ‡nk,"Gzel bahane :)"
DATA sa§ol,"Rica ederim :))"
DATA hi‡‡‡,"Yok yok, s”yle aklndakini!"
DATA mafia,"O oyundaki Toma baylyorum abi ben ya!"
DATA neden,"˜lle de bir nedeni mi olmal?"
DATA glm,"Ne o glm mlm :)9"
DATA keŸke,"KeŸke dedi§in gibi kolay olsayd herŸey..."
DATA olmaz,"Peki neden olmaz??"
DATA omlet,":)) Ondan kolay ne var. Yalnz Ÿu var ki senin PC'nin tp bitti, ahahaha"
DATA valla,"Yemine gerek duymayacak kadar s”zlerine sadk ol!"
DATA ko‡um,"Bana ko‡um deme oru‡um :)9"
DATA " m","Evet."
DATA " mi","H-h :)9"
DATA " m","Efet :)"
DATA " mu","Ebbeth :)"
DATA ukala,"Ve de ‡ok mtevaz :P"
DATA neyin,"Kendinin :)9"
DATA demli,"Beep.. track.. Alo? Kzm, 2 ‡ay s”yle bize. Biri demli olsun.."
DATA ”lemi,”le ”le.
DATA vayyy,"Vay ki ne vay :-)"
DATA nasl,"Nasl' m var!"
DATA neden,"Nedeni yok!"
DATA garip,"Asl buna garip demen garip :)"
DATA ni‡in,"€nk ben ”yle istiyorum!"
DATA zbar,"˜yi de ben sadece bilgisayar programym yaw :) Uyumam i‡in bilgisayar kapatman gerekiyo ”nceee :=)))"
DATA ”lm,"™lm hakknda ne dŸnyorsun"
DATA neee,":) Niye ŸaŸrdn ki?"
DATA niye,"niyesi mi var :)"
DATA puff,"Puflama!"
DATA p”ff,":) Yazkkk.. Kafay yediii.."
DATA neyi,"€ekmeyi ;P"
DATA moda,"Moda dedi§in o Ÿey o kadar ‡irkin ki 6 ayda bir de§iŸtiriliyor :)))"
DATA a‡m,"Hmm.. Ne seversin, ne piŸireyim sana??"
DATA efet,":) Ve'leri s”yleyemiyor musun?"
DATA o ne,"O eŸittir O :)"
DATA ipne,ban22
DATA ibne,ban22
DATA exit,bye22
DATA dimi,"Evet, di :)"
DATA haha,"GlŸn sevsinler :)9"
DATA hnk,"Neden ŸaŸrdn buna?"
DATA e ”p,"E ”persem bi daha ”pmek ister canm :)9"
DATA what,"Trk‡e konuŸ anlamyom hergele :)9"
DATA ":(","Suratn asma; ‡ok ‡irkin oluyorsun :)"
DATA ":)",":)"
DATA b”””,"Ay ‡ok korktum :) Birden ”yle korkutulur mu insan, dŸp ”lecektim.. Keh kh keh :P"
DATA kedi,"Muahhh :))))"
DATA ana!,"Ba ba ba ba baaa :)"
DATA h”nk,"Ne oldu len :=)"
DATA offf,"Of ki ne offf :)9"
DATA anap,"Wooww! Rahmetli Turgut ™zal olacakt ki Ÿimdiii :("
DATA neyi,"€ekmeyi. Hahaha"
DATA sex,"Konuyu de§iŸtirir misin!!!"
DATA tŸk,"BirŸey de§il :=)"
DATA uff,"Uflamaaa.. :)9"
DATA hoj,"˜‡tin mi sen yaw :)"
DATA siz,"žimdi de sizli bizli mi olduk :)"
DATA g”t,ban22
DATA s‡,ban22
DATA ptt,"PTT ne yaw, P”trgeli Tornovido Tevfik miydii :=)"
DATA aŸk,"AŸk hakknda ne bilebilirsin ki sen?"
DATA slm,"Do§ru drst selam ver :)9"
DATA siz,"žimdi de siz'li biz'li mi olduk :)"
DATA off,"Oflayp durma karŸmda!"
DATA "/",dos22
DATA haa,"Ambulans ge‡ti sanki :)"
DATA bye,bye22
DATA bok,ban22
DATA yuh,"Asl sana yuh, defeee :)"
DATA eee,"Eee ne?"
DATA dyp,"Ana! DYP diye bi parti kald m yaw?"
DATA oha,"Oha hayvana denir defe :("
DATA cls,c22
DATA yaa,"Ne yaaaaa ;o)"
DATA ”pece§im,":)9 De get!.."
DATA ":p","Dilin de papu‡ gibi maŸallah :)9"
DATA "de laa","I-h, demem :)9"
DATA ÿ,ÿ,ÿ,ÿ

SUB Abold (y, x)
r = SCREEN(y, x, 1)
renk1 = 0
r2 = 0
WHILE r > 15
r2 = r2 + 1
r = r - 15
WEND
renk1 = r


IF renk1 > 7 THEN renk1 = renk1 - 8

LOCATE y, x: COLOR renk1, r2
x$ = CHR$(SCREEN(y, x))
PRINT x$

END SUB

SUB anlamadim
IF a1$ = SPACE$(LEN(a1$)) OR a1$ = CHR$(13) THEN GOTO atlaanlamadim
OPEN "a", #2, "soruekle.txt"
s16
WRITE #2, a1$: CLOSE #2
atlaanlamadim:
END SUB

SUB Araintro
COLOR 7, 0
COLOR , arkarenk
CLS
dt$ = MID$(DATE$, 1, 2) + MID$(DATE$, 4, 2)
IF ayrinti = 1 THEN dt$ = dt$ + LEFT$(TIME$, 2) + MID$(TIME$, 4, 2)
dt$ = dt$ + ".txt"
REM dt$ = dt$ + "." + RIGHT$(DATE$, 3)

OPEN "a", #1, dt$
PRINT #1, STRING$(80, "-")
a$ = "Sohbet giriŸi:" + nick$
s16
PRINT #1, a$
PRINT #1, " "
REM baslangic
RANDOMIZE TIMER
COLOR arkarenk
CLS
yy = CSRLIN: xx = POS(0)
VIEW PRINT 1 TO 22
COLOR 15, arkarenk
CLS

END SUB

SUB Ban
IF adult = 1 THEN GOTO esu5
'IF bandur = 0 THEN bandur = 1: a$ = "Ltfen argo kelimeler kullanma " + nick$ + "!!": yazdir: GOTO esu5
'IF bandur = 1 THEN bandur = 2: a$ = "Argo kelimeler kullanmaman rica etmiŸtim.. Bir daha uyarmam " + nick$ + ", bilmiŸ ol!!": yazdir: GOTO esu5

COLOR 0, 15
kutu 5, 18, 15, 45
COLOR 4
LOCATE 7, 20: PRINT "žu an ";
COLOR 1
PRINT ani$; " ";
COLOR 4
PRINT "tarafndan nikinize"
LOCATE 8, 20: PRINT "Ban koyulmuŸtur. Artk bu nikle, odada"
LOCATE 9, 20: PRINT "sohbet edemezsiniz!"
BEEP
OPEN "a", #2, "banlist.txt"
WRITE #2, nick$, DATE$, TIME$
CLOSE
LOCATE 11, 20: COLOR 8: PRINT "Tarih:";
COLOR 0: PRINT DATE$
LOCATE 12, 20: COLOR 8: PRINT "Saat:";
COLOR 0: PRINT TIME$

LOCATE 14, 20: COLOR 4: PRINT "Yasak ˜fade:";
a$ = yasak$
BHarf
COLOR 12
PRINT a$
a$ = INPUT$(1): COLOR 7, 0: VIEW PRINT 1 TO 24
CLS
'PRINT bandur
END
esu5:
END SUB

SUB BHarf
bh$ = "ABC€DEFG¦HI˜JKLMNO™PRSžTUšVYZQXW"
kh$ = "abc‡defg§hijklmno”prsŸtuvyz"

FOR a = 1 TO LEN(a$)
x$ = MID$(a$, a, 1)
x = INSTR(kh$, x$)
IF x > 0 THEN x$ = MID$(bh$, x)
MID$(a$, a, 1) = x$
NEXT a
END SUB

SUB BilgiAl
chip:
VIEW PRINT 23 TO 24
bilgial1:
COLOR 8, 15
CLS
PRINT "<"; nick$; ">";
COLOR 0
IF cevak > 5 AND cevak < 11 THEN COLOR 4
LINE INPUT a$
CLS
IF cgi = 1 THEN GOTO esu1
IF a$ = CHR$(13) OR a$ = SPACE$(LEN(a$)) THEN GOTO bilgial1
esu1:
a1$ = a$
tip = 0: yazdir
END SUB

SUB Bold (y, x)
r = SCREEN(y, x, 1)
renk1 = 0
r2 = 0
WHILE r > 15
r2 = r2 + 1
r = r - 15
WEND
renk1 = r


IF renk1 < 8 THEN renk1 = renk1 + 8

LOCATE y, x: COLOR renk1, r2
x$ = CHR$(SCREEN(y, x))
PRINT x$


END SUB

SUB Cigim (P$)
output$ = ""

uz = LEN(P$)
sesli$ = "aeo”uiAEO™UšI˜"
sessiz$ = "bc‡dfg§hjklmnprsŸtvyzqwxBC€DFG¦HJKLMNPRSžTVYZQWX"
s$ = ""
FOR a = 1 TO uz
x$ = MID$(P$, a, 1)
IF INSTR(sesli$, x$) > 0 THEN s$ = s$ + "1"
IF INSTR(sessiz$, x$) > 0 THEN s$ = s$ + "0"
NEXT a
son1$ = RIGHT$(s$, 1)
son2$ = RIGHT$(s$, 2)
son3$ = RIGHT$(s$, 3)
ilk1$ = LEFT$(s$, 1)
ilk2$ = LEFT$(s$, 2)
ilk3$ = LEFT$(s$, 3)
ilk4$ = LEFT$(s$, 4)
IF INSTR(P$, "Webservant") > 0 THEN lakap$ = "Web": GOTO cigimson
IF INSTR(P$, "Yedidya") > 0 THEN lakap$ = "aŸkm": GOTO cigimson
IF INSTR(P$, "˜brahim") > 0 THEN lakap$ = "˜bo": GOTO cigimson
IF INSTR(P$, "Mehmet Ali") > 0 THEN lakap$ = "Memoli": GOTO cigimson
IF INSTR(P$, "Apt") > 0 THEN lakap$ = "Apo": GOTO cigimson
IF INSTR(P$, "Abd") > 0 THEN lakap$ = "Apo": GOTO cigimson
IF INSTR(P$, "Mustafa") > 0 THEN lakap$ = "Musti": GOTO cigimson
IF INSTR(P$, "Musa") > 0 THEN lakap$ = "RABB": GOTO cigimson
IF INSTR(P$, "Sevim") > 0 THEN lakap$ = "Sevim Bac": GOTO cigimson
IF INSTR(P$, "Durdane") > 0 THEN lakap$ = "Dudu": GOTO cigimson
IF INSTR(P$, "Zeynep") > 0 THEN lakap$ = "Zeyno": GOTO cigimson
IF INSTR(P$, "BŸra") > 0 THEN lakap$ = "BŸ": GOTO cigimson
IF INSTR(P$, "Fatma") > 0 THEN lakap$ = "FatoŸ": GOTO cigimson
IF INSTR(P$, "Yedidya") > 0 THEN lakap$ = "Yed": GOTO cigimson
IF INSTR(P$, "Fadime") > 0 THEN lakap$ = "Fadik": GOTO cigimson
IF INSTR(P$, "Mehmet") > 0 OR INSTR(P$, "Memet") > 0 THEN lakap$ = "Memo": GOTO cigimson
IF RIGHT$(P$, 3) = "iha" AND ilk3$ = "010" THEN lakap$ = LEFT$(P$, 3) + "oŸ": GOTO cigimson
IF P$ = "Am" THEN lakap$ = P$ + "ckkk": GOTO cigimson
IF uz > 3 AND ilk3$ = "Mah" THEN lakap$ = "Mahoni": GOTO cigimson
IF uz > 3 AND ilk3$ = "Meh" THEN lakap$ = "Meho": GOTO cigimson
IF uz > 3 AND LEFT$(P$, 1) = "™" AND ilk2$ = "10" THEN lakap$ = LEFT$(P$, 2) + "o": GOTO cigimson
IF uz > 3 AND ilk4$ = "0100" THEN lakap$ = LEFT$(P$, 4) + "iŸ": GOTO cigimson
IF uz > 3 AND ilk3$ = "010" THEN lakap$ = LEFT$(P$, 3) + "iŸ": GOTO cigimson
IF uz > 3 AND ilk3$ = "010" THEN lakap$ = LEFT$(P$, 3) + "iŸ": GOTO cigimson
IF uz > 2 AND ilk3$ = "101" THEN lakap$ = LEFT$(P$, 3) + "Ÿ": GOTO cigimson
lakap$ = LEFT$(P$, 1) + "."
GOTO cigimson


cigimson:
output$ = lakap$
END SUB

SUB Degerlendir
RESTORE bilgiler
KHarf
cev$ = ""
sor$ = a1$
a$ = ""

IF cevak = 0 THEN GOTO degerlendiroku

ecevak = cevak: cevak = 0

SELECT CASE ecevak
CASE 1
yas = VAL(a1$)
IF yas > 0 AND yas < 8 THEN a$ = ":) Aaaa :) €ocu§um sen okuma yazma biliyor musun ki? Git bakaym, baŸka bi program a‡: Pokemon oyna, tetris a‡, t”vbe t”vbeee :)"
IF yas > 7 AND yas < 15 THEN a$ = "SšT'mŸsn sen daha ya kanki :)))"
IF yas > 14 AND yas < 18 THEN a$ = "Hmmm, ergenlik ‡a§ ha :)"
IF yas > 17 AND yas < 21 THEN a$ = "Wawww, zpkn gibi delikanlymŸsn sen yaw :)"
IF yas > 20 AND yas < 26 THEN a$ = "Hmm, askerli§ini yaptn o halde???"
zz = 35 - yas
IF yas > 27 AND yas < 35 THEN a$ = "Hmm," + STR$(zz) + " yl sonra yolun yars hocammmm :)"
IF yas = 35 THEN a$ = "Oooooo, Dante gibi yolun yarssnda yani ”mrn :)))"
IF yas > 35 AND yas < 45 THEN a$ = "Menopoza da girmiŸsindir sen ab yaaaa :P"
IF yas > 44 AND yas < 66 THEN a$ = "Pardon amca, size kanm ‡ok snd. Size BABA diyebilir miyim :P"
IF yas > 65 AND yas < 100 THEN a$ = "Wowww, Ÿimdi size dede diye mi hitap etmem gerekiyor? Sayglar efendim, naslsnz???"
IF yas > 100 AND yas < 200 THEN a$ = "Wowww, asrlk a§a‡mssn sen ya, ver elini ”peyim dedem, muah muahhhhh...."
IF yas > 199 THEN a$ = "Hadi leyn sallama ”kz :P"

CASE 2
IF INSTR(a1$, "neymiŸ") > 0 THEN a$ = "sor22"
IF INSTR(a1$, "buyur sor") > 0 THEN a$ = "sor22"
IF INSTR(a1$, "tabii sor") > 0 THEN a$ = "sor22"
IF INSTR(a1$, "sor bakalm ") > 0 THEN a$ = "sor22"
IF INSTR(a1$, "buyrun") > 0 THEN a$ = "sor22"
IF INSTR(a1$, "evet") > 0 THEN a$ = "sor22"
IF INSTR(a1$, "hh") > 0 THEN a$ = "sor22"
IF INSTR(a1$, "hayr") > 0 THEN a$ = "Tamam, sormuyorum o halde. Ne kzyorsun ki :)"
IF INSTR(a1$, "soramazsn") > 0 THEN a$ = "Neden soramazmŸm pekiii??? :P"
IF INSTR(a1$, "sorma") > 0 THEN a$ = "Sen bilirsin.. Sormuyorum o halde..."
IF INSTR(a1$, "ne ‡ok soru") > 0 THEN a$ = "E, benim iŸim bu :) Ne demiŸler, bilmemek ayp de§il, SORMAMAK ayp :P"
IF INSTR(a1$, "dinliyorum") > 0 THEN a$ = "sor22"
IF INSTR(a1$, "buyur") > 0 THEN a$ = "sor22"
IF INSTR(a1$, "sorsana") > 0 THEN a$ = "sor22"
IF INSTR(a1$, "sor") > 0 THEN a$ = "sor22"
IF INSTR(a1$, "sorsor") > 0 THEN a$ = "sor22"
CASE 3:
IF INSTR(a1$, "kova") > 0 THEN a$ = "Wowwww, dahiler burcu ha ede :) Walla burcunla ”vnmelisin. €nk BEN ™VšNšYORUM. Benim ki 14 žubat.. Seninki ka‡???"
IF INSTR(a1$, "o§lak") > 0 THEN a$ = "Way be, ben de diyorum tip olarak birilerine benzetiyorum ama kime :)))9"
IF INSTR(a1$, "aslan") > 0 THEN a$ = "Wawww ormanlarn kral.. Hadi Ÿimdi d”n bakim ormanna. Bi daa da insan taklidi neyim yapma :PPP"
IF INSTR(a1$, "yay") > 0 THEN a$ = "Ne yay, kalemin i‡ine koyduklarndan falan m? :) žaka Ÿaka!!"
IF INSTR(a1$, "akrep") > 0 THEN a$ = "Hops, ltfen aramza mesafe koyalm; bi yerimi kaptrmaya hi‡‡‡ niyetim yoookkkk :)))"
IF INSTR(a1$, "ikizler") > 0 THEN a$ = "Hadi be, en iyi anlaŸt§m bur‡tur ha. Hele diyorum bu ‡ocuk niye beni sard bugn, tevekkeli deilmiŸ :)))"
IF INSTR(a1$, "balk") > 0 THEN a$ = "Ha ”yle desene glmm.. Sabahtan beri yapt§n sazanlklarn nedeni buymuŸ demek.. Yani burcun murcun plissss :P"
IF INSTR(a1$, "yenge‡") > 0 THEN a$ = "Hms, ne yengeci abi, deniz meniz mi??"
IF INSTR(a1$, "bo§a ") > 0 THEN a$ = "Wuwww erkekim benim, bur‡larn kral yaw! Desene bi ma‡o olay daha; ekip 1 ekip 1, burda bi deli dana var, aaiiii aaaiii :))))))))"
IF INSTR(a1$, "terazi") > 0 THEN a$ = "Heee.. La dengesiz herif, burcun terazi ama sen daha kendini tartamyon defe :P"
IF INSTR(a1$, "baŸak") > 0 THEN a$ = "Yok ekin! BaŸak ektim elleeree dee, sezdirmedim " + nick$ + "eee. :)))9"
IF INSTR(a1$, "helke") > 0 THEN a$ = "O ne bi‡im bur‡ laaaa :P Helkeci geldii haaanm, aha da PC nin karŸsna psmŸ, helke iŸtee, noolacak kiii :)"
IF INSTR(a1$, "ylan") > 0 THEN a$ = "Ne ylan beee! ™le bi bur‡ mu olur!! ™leyse bende DEFE burcuyum kah kah keh kih koh... Koptum laaa, biri bana tokat atsn walaaa......"
IF INSTR(a1$, "inanmam") > 0 THEN a$ = "Fala inanma glm tamam da falsz da kalma yane :)"
IF INSTR(a1$, "bilmiyorum") > 0 THEN a$ = "Ana! Daha burcunu bilmiyor! La davul mi tŸt kafana namisiz :P Din don, d,n donnn :)))"
IF INSTR(a1$, "ko‡") > 0 THEN a$ = "La ben de diyorum niye boynuzlar uzamŸ bu ‡ocu§un.. Ÿey! ”h ”h, pardon sesli mi dŸndm ben yaw :)))"
CASE 4:
IF INSTR(a1$, "tŸk") > 0 THEN a$ = "Sen bilirsin, tamam..."
IF INSTR(a1$, "hayr") > 0 THEN a$ = "˜‡imden geldi yaw???": cevak = 4
IF INSTR(a1$, "ol t") > 0 THEN a$ = "Tamam, sen bilirsin.. Eee, nerde kalmŸtk Ÿimdi?"
IF INSTR(a1$, "evet") > 0 THEN a$ = "O§lum, getir ordan 2 ‡ay, abininki demli olsuuuunn!!"
IF INSTR(a1$, "hayr teŸekkr ederim") > 0 THEN a$ = "Tamam, sen bilirsin kardeŸ, teklif var srar yok :)"
IF INSTR(a1$, "ben almayaym") > 0 THEN a$ = "Pekeyy. Teklif var srar yok bizde " + nick$ + " kardeŸ.. :)"
IF INSTR(a1$, "a‡ de§ilim") > 0 THEN a$ = "O halde bir Ÿeyler i‡ bari, ‡ay, kahve???": cevak = 4
IF INSTR(a1$, "almayaym") > 0 THEN a$ = "€ekinme kardeŸ, s”yle s”yle! E§er ‡ekiniyorsannnn!!!": cevak = 4
IF INSTR(a1$, "demli") > 0 THEN a$ = "Beepp.. Kzm, bize iki ‡ay s”yler misin? " + nick$ + " abinin ki demli olsun ha! Bekliyorum.. (CLICK)"
IF INSTR(a1$, "bir su") > 0 THEN a$ = "Alo, kzm bize su getirir misin? So§uk olsun tamam m?"
IF INSTR(a1$, "bir kola") > 0 THEN a$ = "Pepsi, Yedign???": cevak = 4
IF INSTR(a1$, "pepsi") > 0 THEN a$ = "Tamam, abbaassss, bize iki buzlu pepsi getir o§lummm..."
IF INSTR(a1$, "yedign") > 0 THEN a$ = "Hey abbas, 2 yedign kap gelsene ‡ocu§um! Buz atmay unutma i‡ine!"
IF INSTR(a1$, "turka") > 0 THEN a$ = "Wawww, yerli mal ha birader, sevdim seni. ABBAASS, iki Kola Turka kap gel ‡ocu§ummm"
IF INSTR(a1$, "ayran") > 0 THEN a$ = "Hmm, kardaŸ el yapm ayranmz var, dur hemen geliyor. Kzm , bir ayran getir misafirimize! K”pkl olsun ha"
IF INSTR(a1$, "kahve") > 0 THEN a$ = "Alo, kzm bize bir kahve yapar msn? Evet.. K”pkl olsun ikise de.. CRACK.. :) Bizim sekreter.. Hakkaten ‡ok gzel kahve yapyor yawww..."
IF INSTR(a1$, "bira") > 0 THEN a$ = "Alo, Cemalll, bize marketten iki efes pilsen g”nderir misin ‡ocu§um? Sa§ol.. tamam, bekliyoruz! "
IF INSTR(a1$, "Ÿarap") > 0 THEN a$ = "Ne Ÿarab yaw bu vakitte :)))"
IF INSTR(a1$, "rak") > 0 THEN a$ = "Usta, yapma :) Bari ramazan ge‡sin, ahahah.."
IF INSTR(a1$, "konyak") > 0 THEN a$ = "Konyak m? :) Abi i‡ dediysek o kadar da de§il yaw, yengenle aramz m a‡can :)))"
IF INSTR(a1$, "viski") > 0 THEN a$ = "O§lum, ordan bi coni wolkr yap bakalm, yannda ‡erez merez de getir haaa!"
IF INSTR(a1$, "oralet") > 0 THEN a$ = "Alo, kzm, bize iki oralet yapar msn? Benimki portakall olsun.. evet, 2 tane.."
IF INSTR(a1$, "kivi") > 0 THEN a$ = "Wow, Tansu €iller i‡e‡e§i ha! Alo, kz bize iki kiwi yap gel.. Evet, tamam kzm bekliyoruz biz.."
IF INSTR(a1$, "hlamur") > 0 THEN a$ = "Wayy, sa§lk‡sn ab ha? Wala benim de midem a§ryp duruyordu, iyiki dedin! Alo, cemal o§lum bize iki hlamur g”ndersene!"
IF INSTR(a1$, "keba") > 0 THEN a$ = "žerafettinnnnnnnnn.. O§lum 2 acl adana kap getir!!! Domatezleri iyi piŸir yoksa kafan krarm ona g”re haaa!"
IF INSTR(a1$, "lahmacun") > 0 THEN a$ = "Alo, taŸfrn kebapevi mi? KardaŸ bize 2 porsiyon lahmacun g”nderebilir misiniz? Tamam g”zm, evet 2 de ayran yannda. Sa§olasn, bekliyoruz.. "
IF INSTR(a1$, "evet") > 0 THEN a$ = "Tamam.. S”yledim, hemen geliyor..."
IF INSTR(a1$, "‡ay") > 0 THEN a$ = "Kzmmm, bakar msn? Misafirimize bi ‡ay getirir misin? TavŸan kan olsun he!"
CASE 5
IF INSTR(a1$, "sevmem o diziyi") > 0 THEN a$ = "Neden yaw? AŸk, macera, ihtiras, entrika.. Ne arasan var :)"
IF INSTR(a1$, "diziyi sevmem") > 0 THEN a$ = "Yapma, bir seyret bak g”receksin mthiŸ ‡evirmiŸ adamlar..."
IF INSTR(a1$, "”ldrecek") > 0 THEN a$ = "Sanmam.. O'nu diziden kolay kolay ‡karmzlar!": cevak = 5
IF INSTR(a1$, "”lecek") > 0 THEN a$ = ":) Yok bence ”lmez.. Onsuz dizinin tad m kalr yaw!": cevak = 5
IF INSTR(a1$, "kimmiŸ") > 0 THEN a$ = "Alpaslan TrkeŸ!..": cevak = 5
IF INSTR(a1$, "‡akr") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "€akc tabii :))": cevak = 5
IF INSTR(a1$, "peki") > 0 OR INSTR(a1$, "ya ") > 0 THEN a1$ = a1$ + " kim?"
IF INSTR(a1$, "memati") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Muradi Gler!..": cevak = 5
IF INSTR(a1$, "polat") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Abdullah €atl!..": cevak = 5
IF INSTR(a1$, "do§u") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Alpaslan TrkeŸ!..": cevak = 5
IF INSTR(a1$, "sleyman ‡akr") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Aladdin €akc!..": cevak = 5
IF INSTR(a1$, "lan bey") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Korkut Eken!..": cevak = 5
IF INSTR(a1$, "nesrin") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "U§ur €akc (U§ur Kl‡)!..": cevak = 5
IF INSTR(a1$, "nedim") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Nesim Malki!..": cevak = 5
IF INSTR(a1$, "Ÿevk") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "˜brahim Telemen!..": cevak = 5
IF INSTR(a1$, "tuncay") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Tuncay Matarac!..": cevak = 5
IF INSTR(a1$, "karahanl") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Tuncay ™zilhan veya Rahmi Ko‡!..": cevak = 5
IF INSTR(a1$, "ziya") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Dndar Kl‡!..": cevak = 5
IF INSTR(a1$, "kl‡") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Nihat Akgn!..": cevak = 5
IF INSTR(a1$, "hsre") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Abuzer U§urlu!..": cevak = 5
IF INSTR(a1$, "tombala") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Ali Fevzi Bir!..": cevak = 5
IF INSTR(a1$, "elif") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Avukat žeyda Yldrm!..": cevak = 5
IF INSTR(a1$, "behi‡") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Behi‡ Cantrk!..": cevak = 5
IF INSTR(a1$, "barŸ") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "SavaŸ Buldan!..": cevak = 5
IF INSTR(a1$, "nder zl") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "™mer Ltfi Topal!..": cevak = 5
IF INSTR(a1$, "muz") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "žeyhmuz DaŸ!..": cevak = 5
IF INSTR(a1$, "orhan") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "Tark šmit!..": cevak = 5
IF INSTR(a1$, "testere") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "YaŸar Avni Musullulu!..": cevak = 5
IF INSTR(a1$, "necmi") > 0 AND INSTR(a1$, "kim") > 0 THEN a$ = "YaŸar Avni Musullulu!..": cevak = 5
CASE 6
IF INSTR(a1$, "0537") THEN a$ = "GiriŸ Kabul edildi.": cevak = 7: ani$ = "EniŸte"
END SELECT

IF a$ = "sor22" THEN GOSUB sor22
IF NOT a$ = "" THEN GOTO degerson

degerlendiroku:
READ b1$, b2$
IF b1$ = "000" THEN cev$ = "": GOTO degerlendirokuson
IF sor$ = b1$ THEN cev$ = b2$: GOTO degerlendirson
REM IF INSTR(b1$, sor$) > 0 and len(sor$)>2 THEN cev$ = b2$: GOTO degerlendirson
GOTO degerlendiroku

aykac:
pp$ = ""
ay1 = VAL(MID$(DATE$, 4, 1))
ay2 = VAL(MID$(DATE$, 5, 1))
ay$ = MID$(DATE$, 4, 2)
IF ay1 = 0 THEN ay$ = RIGHT$(ay$, 1)
IF ay2 = 1 OR ay2 = 5 OR ay2 = 8 THEN pp$ = "i"
IF ay2 = 2 OR ay2 = 7 OR ay$ = "20" THEN pp$ = "si"
IF ay2 = 3 OR ay2 = 4 THEN pp$ = ""
IF ay2 = 6 THEN pp$ = ""
IF ay2 = 9 OR ay$ = "10" OR ay$ = "30" THEN pp$ = "u"
RETURN

mcal:
Ran 1
IF r = 1 THEN PLAY "t200c4e2e4f4e8d#8e2p4g2f4e16d#16e16f16e8d8c4p4b4b8a8a4a8g8g4g8f8f4f8e8g1c4e4g4p4b4b8a8a4a8g8g4g8f8e4e1"
RETURN

aykac1:
RESTORE aylar
ay = VAL(LEFT$(DATE$, 2))
FOR b = 1 TO ay
READ ay$
NEXT b
a$ = "žu an " + ay$ + " ayndayz.."
RETURN

isakim:
Ran 15
IF r = 1 THEN a$ = "O, Tanr'nn O§lu'dur!"
IF r = 2 THEN a$ = "O, Kadnn soyu, yani ii.Ademdir!"
IF r = 3 THEN a$ = "O, Tanr Kuzusu'dur!"
IF r = 4 THEN a$ = "O, bizlerin BaŸkahini'dir!"
IF r = 5 THEN a$ = "O, 'Gndzleri bulut, geceleri ateŸ dire§imiz'dir!"
IF r = 6 THEN a$ = "O, Musa'nn mjdeledi§i peygamberdir!"
IF r = 7 THEN a$ = "O, KurtuluŸumuzun ”ncsdr!"
IF r = 8 THEN a$ = "O, Gvenilir Kahin'imizdir!"
IF r = 9 THEN a$ = "O, bizim ‡obanmzdr!"
IF r = 10 THEN a$ = "O, BarŸ Prensi'dir!"
IF r = 11 THEN a$ = "O, A§layan Peygamberdir! (lamentations)"
IF r = 12 THEN a$ = "O, Drst daldr!"
IF r = 13 THEN a$ = "O, Tanr S”z, O YaŸam Kayna§'dr!"
IF r = 14 THEN a$ = "O, Lordlarn Lordu, ve Rablerin Rabbi'dir!"
IF r = 1 THEN a$ = "O, Mesih Kilisesi'nin BaŸ'dr!"
RETURN


yaskac:
yil = VAL(MID$(DATE$, 7, 4))
yas = yil - 1974

a$ = STR$(yas) + " yaŸndaym..."
RETURN

degerlendirokuson:

RESTORE digerbilgiler
degerlendirokuson1:
READ b1$, b2$
IF b1$ = "ÿ" THEN : GOTO degerlendirson
IF INSTR(sor$, b1$) THEN cev$ = b2$: GOTO degerlendirson
GOTO degerlendirokuson1

banlist:
OPEN "I", #2, "banlist.txt"
COLOR 1
PRINT bans = 0
PRINT "Ban List..."
COLOR 9
banlist1:
IF EOF(2) THEN GOTO banlist2
INPUT #2, b$, b1$, b2$
PRINT b$, b1$, b2$
bans = bans + 1
GOTO banlist1
banlist2:
CLOSE #2
COLOR 1
COLOR 1: PRINT "Toplam "; bans; " KiŸi!"
yy = CSRLIN
GOTO degerson

nick22:
PRINT a1$
n = INSTR(a1$, " ")
IF n = 0 THEN RETURN
enick$ = nick$
nick$ = RIGHT$(a1$, LEN(a1$) - n)
COLOR 1: PRINT enick$; ", nickini " + nick$ + " olarak de§iŸtirdi..."
RETURN


unban:
OPEN "o", #2, "banlist.txt"
CLOSE #2
COLOR 1: PRINT "Ban listesi temizlendi..."
yy = CSRLIN
RETURN

adult22:
RETURN

addur22:
RETURN

rad22:
RETURN

ady22:
RETURN


nonadult22:
IF adult = 0 THEN RETURN
SWAP ani$, adani$
COLOR 4
PRINT "Adult Modu Kapand..."
adult = 0
yy = CSRLIN
RETURN

dos22:
COLOR 2, 0, 0
a1$ = RIGHT$(a1$, LEN(a1$) - 1)
SHELL a1$
yy = CSRLIN
RETURN

sor22:
a$ = ""
Ran 15
IF r = 1 THEN a$ = "Tamam soruyorum :) Ge‡en Kurtlar Vadisini seyretmiŸtin de§il mi???"
IF r = 2 THEN a$ = "Ok :) žimdi s”yle bakalm, ama drst‡e cevap ver: Sen, dn de farkl bir nickle sohbet etmiŸ miydin benle???"
IF r = 3 THEN a$ = "Tamam. žimdi, senin amacn ne bir kere onu s”yle bana!"
IF r = 4 THEN a$ = "Okey, soru geliyor o halde: Neden her defasnda savunma mekanizmalar geliŸtiriyorsun, ”§renebilir miyim??"
IF r = 5 THEN a$ = "Tamam...  Ama drst olacaksn ona g”re???": cevak = 2
IF r = 6 THEN a$ = "Tamam.. žimdi s”yle bana, senin ger‡ek ismin nedir ve neden " + nick$ + " nikini kullanyorsun???"
IF r = 7 THEN a$ = "Sen, dn gece nerdeydin???"
IF r = 8 THEN a$ = "Ger‡ekte SEN K˜MS˜N???"
IF r = 9 THEN a$ = "Neden hi‡ durmadan yalan s”yleme gere§ini duyuyorsun? Drst olacaktn ama unutma!"
IF a$ = "" THEN a$ = ".. Neyse, boŸver ya... ™nemli birŸey de§ildi zatennn!!": evak = 2
RETURN


degerlendirson:
a$ = ""
a$ = cev$
IF a$ = "ban22" AND adult = 0 THEN banla = 1: yasak$ = b1$
IF a$ = "bye22" THEN VIEW PRINT 1 TO 24: COLOR 7, 0: CLS : END
IF a$ = "saat22" THEN a$ = "Saat, " + LEFT$(TIME$, 5)
IF a$ = "tarih22" THEN GOSUB aykac: a$ = "Bugn, ayn " + ay$ + "'" + pp$
IF a$ = "yas22" THEN GOSUB yaskac
IF a$ = "ay22" THEN GOSUB aykac1
IF a$ = "muz22" THEN GOSUB mcal
IF a$ = "isa22" THEN GOSUB isakim
IF a$ = "banlist22" THEN GOTO banlist
IF a$ = "unban22" THEN GOSUB unban
IF a$ = "c22" THEN CLS : yy = 1
IF a$ = "nick22" THEN GOSUB nick22
IF a$ = "dos22" THEN GOSUB dos22
IF a$ = "sor22" THEN GOSUB sor22
IF a$ = "vip22" THEN vip: a$ = ""
'IF a$ = "hal22" THEN halusinasyon

degerson:
END SUB

SUB Girdi (a, b, b2, c)
  SHARED output$
LOCATE , , 0
girisyen:
  output$ = ""
  i$ = ""

  lin = CSRLIN
  min = POS(0)
  max = a + min
  IF max > 80 THEN PRINT "DInput failed - String line too long"

IF max < 81 THEN
  clr = b
  bckclr = b2
  csrclr = c
  length = a
  current = 0

  LOCATE lin, min: COLOR b, b2: PRINT SPACE$(a)
  WHILE i$ <> CHR$(13)
    COLOR csrclr, bckclr
    LOCATE lin, min + current
    PRINT "_"

    COLOR clr, bckclr
    i$ = ""
    WHILE i$ = ""
      i$ = INKEY$
    WEND
    IF ASC(i$) > 31 AND ASC(i$) < 127 OR ASC(i$) > 127 AND current <> length THEN
      LOCATE lin, min + current
      PRINT i$
      output$ = output$ + i$
      current = current + 1
    END IF
    IF ASC(i$) = 8 AND current > 0 THEN
      current = current - 1
      output$ = LEFT$(output$, LEN(output$) - 1)
      LOCATE lin, min + current + 1
      PRINT " "
    END IF

  WEND

LOCATE lin, min + current
PRINT " "
END IF
COLOR clr, 0
a$ = output$
IF cgi = 1 THEN GOTO esu2
IF a$ = CHR$(13) OR a$ = SPACE$(LEN(a$)) THEN LOCATE 12, 25: GOTO girisyen
esu2:
END SUB

SUB Intro
cevak = 0
ani$ = "KalplerinMzi§i"
cgi = 1
adult = 0
zk = 1
SHELL "c:"
SHELL "cd\"
SHELL "if not exist log md log"
SHELL "cd log"
OPEN "a", #1, "banlist.txt": CLOSE
arkarenk = 0
konu = 1
banla = 0
bandur = 0
CLS
SCREEN 0
COLOR 7, arkarenk
CLS
yy = 1: xx = 1

LOCATE 12, 10
PRINT "Nikinizi girin:";
Girdi 25, 15, 4, 14
a$ = output$
OzelAd
nick$ = a$

END SUB

SUB KHarf

bh$ = "ABC€DEFG¦HI˜JKLMNO™PRSžTUšVYZQXW"
kh$ = "abc‡defg§hijklmno”prsŸtuvyz"

FOR a = 1 TO LEN(a$)
x$ = MID$(a$, a, 1)
x = INSTR(bh$, x$)
IF x > 0 THEN x$ = MID$(kh$, x)
MID$(a$, a, 1) = x$
NEXT a

END SUB

SUB KonuAc
a$ = ""
sinir = 4
IF konu < sinir + 1 THEN ON konu GOSUB konuac1, konuac2, konuac3, konuac4
IF a$ = "" THEN a$ = "Anlatsana biraz.."
GOTO konuacson

konuac1:
Ran 67
Cigim nick$: cig$ = output$
IF r = 1 THEN a$ = "Eee abi, nasl gidiyor hayat?"
IF r = 2 THEN a$ = "KonuŸmak istedi§in bir konu var m " + nick$ + "?"
IF r = 3 THEN a$ = "Seninle g”rŸebildi§imize ger‡ekten sevindim!"
IF r = 4 THEN a$ = "Anlat bakalm, ne var ne yok?"
IF r = 5 THEN a$ = "Bir ‡ay i‡ersin de§il mi?": cevak = 4
IF r = 6 THEN a$ = "˜Ÿler nasl " + nick$ + "?"
IF r = 7 THEN a$ = "G”zkmyorsun ortalklarda..."
IF r = 8 THEN a$ = "Durgun g”rdm bugn seni"
IF r = 9 THEN a$ = "Yorgun g”rnyorsun?"
IF r = 10 THEN a$ = "Eee, evdekilerle aran nasl?"
IF r = 11 THEN a$ = "€oluk ‡ocuk nasl " + nick$ + "?"
IF r = 12 THEN a$ = "A‡ msn? BirŸeyler yiyelim mi?": cevak = 4
IF r = 13 THEN a$ = "Elbisen baya§ yakŸmŸ..."
IF r = 14 THEN a$ = "iyi g”rdm bugn seni"
IF r = 15 THEN a$ = "Formunda g”rnyorsun"
IF r = 16 THEN a$ = "Seni dinliyorum, anlat"
IF r = 17 THEN a$ = "BaŸka?"
IF r = 18 THEN a$ = "Bir kola olsa iyi giderdi Ÿu an :)"
IF r = 19 THEN a$ = "Devam et.."
IF r = 20 THEN a$ = "Aklnda bir konu varsa onu konuŸalm"
IF r = 21 THEN a$ = "Bu renk seni a‡mŸ :)"
IF r = 22 THEN a$ = "HmmmmS"
IF r = 23 THEN a$ = "???": cevak = 2
IF r = 24 THEN a$ = "!!!"
IF r = 25 THEN a$ = "No comments :)9"
IF r = 26 THEN a$ = "Yorum yok :)))))"
IF r = 27 THEN a$ = "Anlyorum..."
IF r = 28 THEN a$ = "Hakknda Ÿ”yle b”yle diyorlar do§ru mu :))"
IF r = 29 THEN a$ = "Aklma birŸey gelmiyor."
IF r = 30 THEN a$ = "Hahaha"
IF r = 31 THEN a$ = "KonuŸ konuŸ seni kim tutar :))"
IF r = 32 THEN a$ = "Whaaattt???"
IF r = 33 THEN a$ = "Sana birŸey soraca§m ama drst‡e cevap vereceksin!": cevak = 2
IF r = 34 THEN a$ = "Pardon, ”zel bir Ÿey sorabilir miyim sana?": cevak = 2
IF r = 35 THEN a$ = "Hey, canlan biraz dostummm!"
IF r = 36 THEN a$ = "Bilet fiyatlar ucuzlamŸ duydun mu?"
IF r = 37 THEN a$ = "Bu se‡imlerde kime oy vermeyi dŸnyorsun?"
IF r = 38 THEN a$ = "€ok fena.. Irak'ta yine onlarca kiŸi ”lmŸ bugn :("
IF r = 39 THEN a$ = "Sigara kullanr msn?"
IF r = 40 THEN a$ = "Bana bir ‡ay smarlasana.. ™yle canm ‡ekti ki Ÿimdi!!!"
IF r = 41 THEN a$ = "žu an kafede misin evde mi?"
IF r = 42 THEN a$ = "Siyasetle aran nasl?"
IF r = 43 THEN a$ = "Sence bu yl kim Ÿampiyon olur?"
IF r = 44 THEN a$ = "En sevdi§in yazar kim " + nick$ + "?"
IF r = 45 THEN a$ = "Bir konu a‡ abi yaw, sabahtan beri geyik yapyoruz, ne iŸ? :)9"
IF r = 46 THEN a$ = "Hzl yaz bi daa :)"
IF r = 47 THEN a$ = "Benim hakkmda ne dŸnyorsun?"
IF r = 48 THEN a$ = "8 Yllk ilk ”§retim hakknda ne dŸnyorsun?"
IF r = 49 THEN a$ = "YaŸ ka‡ bu arada kardeŸ?": cevak = 1
IF r = 50 THEN a$ = "˜nce iŸler nasl gidiyor kardeŸ???"
IF r = 51 THEN a$ = "O ha da ‡Ÿnz :P"
IF r = 52 THEN a$ = "Bilgisayarnn markas ne?"
IF r = 53 THEN a$ = nick$ + "... Gel senle bir anlaŸma yapalm?"
IF r = 54 THEN a$ = "Yaa, iŸte b”yle " + cig$ + ", Ya biraz da sen konuŸ yaa..."
IF r = 55 THEN a$ = "Anlamadm???"
IF r = 56 THEN a$ = "Yani???"
IF r = 57 THEN a$ = "Ne demek istedin?"
IF r = 58 THEN a$ = "Skmyorum de§il mi " + nick$
IF r = 59 THEN a$ = "Off, moralim bozuldu Ÿimdi durup dururken :("
IF r = 60 THEN a$ = "oh, lol!"
IF r = 61 THEN a$ = "BiŸey s”ylcem ama kzmak yok, tamam?"
IF r = 62 THEN a$ = ":) Ne geldi aklma biliyor musun..."
IF r = 63 THEN a$ = "Amanin :)))"
IF r = 64 THEN a$ = ":) Heyyy, bil bakalm ne olduuuu!!!"
IF r = 65 THEN a$ = "Sevda ne yana dŸer " + nick$ + ", hasret ne yana... Hasret, bile hasretten yana :)))"
IF r = 66 THEN a$ = "Ad var kendi yok aŸka asla inanma ha " + nick$ + " kardeŸ, sakn!"
IF r = 67 THEN a$ = "Dur, dur... "

RETURN

konuac2:
REM zaman
s = VAL(LEFT$(TIME$, 2))
IF s > 3 AND s < 12 THEN z$ = "sabah"
IF s > 11 AND s < 15 THEN z$ = "”§le zaman"
IF s > 14 AND s < 18 THEN z$ = "Ӥle sonu"
IF s > 17 AND s < 23 THEN z$ = "akŸam"
IF s < 4 OR s > 22 THEN z$ = "gece yars"

Ran 50
IF r = 1 THEN a$ = "Bu " + z$ + " Televizyonda gzel bir film varmŸ... "
IF r = 2 THEN a$ = "Her " + z$ + " bilgisayarn baŸnda m olursun?"
IF r = 3 THEN a$ = "Ge‡en " + z$ + " yine karŸlaŸmŸtk, hatrladn m?"
IF r = 4 THEN a$ = z$ + " olmuŸ bu arada"
IF r = 5 THEN a$ = "Hi‡bir " + z$ + " bu kadar skc olmamŸt..."
IF r = 6 THEN a$ = "Bir " + z$ + " i‡in hi‡ de fena de§il, ”yle de§il mi?"
IF r = 7 THEN a$ = "Bu " + z$ + " ilk g”rd§m kiŸi sensin, biliyor musun?"
IF r = 8 THEN a$ = "Bu " + z$ + " Erzincanda yine deprem olmuŸ diyorlar..."
IF r = 9 THEN a$ = "Bu " + z$ + " da hi‡ ‡ekilmiyorsun :))9"
IF r = 10 THEN a$ = "Dn gece nerdeydin?"
saat = VAL(LEFT$(TIME$, 2)): msaat = saat: IF msaat > 12 THEN mesaat = mesaat - 12
saat$ = STR$(saat): msaat$ = STR$(saat)
dk$ = MID$(TIME$, 4, 2)
IF dk$ = "30" THEN msaat$ = msaat$ + " bu‡uk"
IF dk$ = "15" THEN msaat$ = msaat$ + "‡eyrek"
IF dk$ = "45" THEN msaat$ = msaat$ + " krkbeŸ"
IF dk$ = "00" THEN msaat$ = "tam " + msaat$
IF r = 11 AND saat > 22 THEN a$ = "Saat " + msaat$ + " olmuŸ. Yatalm m artk"
IF r = 11 AND saat > 5 AND saat < 12 THEN a$ = "Sabah kahvaltsn yaptn m?"
IF r = 11 AND saat > 17 THEN a$ = "Wowww.. Saat " + msaat$ + " olmuŸ. Ortalk kararmak zere..."
IF r = 11 AND a$ = "" THEN a$ = "žu an saat, " + msaat$
IF r = 12 THEN a$ = "Bugn hep evde miydin?"
IF r = 13 THEN a$ = "žu an ne yapyorsun"
IF r = 14 THEN a$ = "Saat " + msaat$ + ".. Televizyonu a‡sana!"
IF r = 15 THEN a$ = "Saatin var m? Benimki bozulmuŸ da.."
IF r = 16 THEN a$ = "Bu pazar evde misin?"
IF r = 17 THEN a$ = "Bilgisayar, " + STR$(INT(TIMER / (60 * 60))) + " saattir a‡k. Biraz kapat istersen..."
IF r = 18 THEN a$ = "Bana kendinden bahsetsene..."
IF r = 19 THEN a$ = "Hep b”yle suskun musundur???"
IF r = 20 THEN a$ = "Sklmadn m ekran karŸsnda oturmaktan :)"
IF r = 21 THEN a$ = "Mont”re biraz yaklaŸr msn?"
IF r = 22 THEN a$ = "Huffff...."
IF r = 23 THEN a$ = "Off off. Yedin bitirdin ”mrm " + nick$
IF r = 24 THEN a$ = "Anlat " + nick$ + " anlat, ”zlemiŸim seni..."
IF r = 25 THEN a$ = "Arpay ne ettin arpay ;=)"
IF r = 26 THEN a$ = "Ge‡elim... yarn yine g”rŸecek miyiz?"
IF r = 27 THEN a$ = "Onu bunu boŸver de, hakkaten de bugn olduk‡a halsiz g”rnyorsun!!!"
IF r = 28 THEN a$ = "BirŸey soraca§m.. Sen hi‡ Mersine gitmiŸ miydin??"
IF r = 29 THEN a$ = "Sen yaz " + nick$ + ". Ben bu arada dosyalarm kontrol ediyorum..."
IF r = 30 THEN a$ = "Bi dakka! Niye bu kadar yavaŸ yazyorsun?"
IF r = 31 THEN a$ = nick$ + ".. Anlam nedir isminin?"
IF r = 32 THEN a$ = "BiŸey i‡er misin? Walla ha, i‡imden geldi?": cevak = 4
IF r = 33 THEN a$ = "YaŸ ka‡ hocam bu arada?": cevak = 1
IF r = 34 THEN a$ = "Pardon, sormay unuttum, yarn i‡in bir plann var m?"
IF r = 35 THEN a$ = "Pardon lafn balla kesiyorum kardeŸ. BirŸeyler i‡ersin de§il mi? €ay, kahve, kola, ayran???": cevak = 4
IF r = 36 THEN a$ = "Pardon, biŸe sorcam ama drst olacaksn??": cevak = 2
IF r = 37 THEN a$ = ":) BiŸe sorabilir miyim " + nick$: cevak = 2
IF r = 38 THEN a$ = nick$ + " Bu hkmet sence baŸarr m?"
IF r = 39 THEN a$ = "žiirle aran nasl?"
IF r = 40 THEN a$ = "Pardon telefon..."
IF r = 41 THEN a$ = "Orda msn?"
IF r = 42 THEN a$ = "Derin devlet hakknda ne dŸnyorsun " + nick$ + " KardeŸ?"
IF r = 43 THEN a$ = "Ka‡ saattir bilgisayarn baŸndasn sen?"
IF r = 44 THEN a$ = "KPS snavlar ne zaman haberin var m?"
IF r = 45 THEN a$ = "Of, sigaraya gene zam gelmiŸ :((("
IF r = 46 THEN a$ = nick$ + "..."
IF r = 47 THEN a$ = "Farknda msn " + nick$ + "?"
IF r = 48 THEN a$ = "Uff. Ne geyik ama :)9"
IF r = 49 THEN a$ = "En son hangi kitab okudun " + nick$ + "?"
IF r = 50 THEN a$ = "Cann m skkn senin???"
RETURN

konuac3:
ay = VAL(LEFT$(DATE$, 2))
gun = VAL(MID$(DATE$, 4, 2))
IF ay = 2 AND gun = 14 THEN a$ = "Bugn sevgililer gnn kutladn m?": RETURN
IF ay = 1 AND gun = 1 THEN a$ = "Noelin kutlu olsun kardeŸ :)9": RETURN
IF ay = 4 AND gun = 23 THEN a$ = "Bugun 23 Nisan, neŸeyle doluyor insan. hahaha": RETURN
IF ay = 1 AND gun = 5 THEN a$ = "Vay be " + nick$ + ", Bugn Adana'mz dŸman iŸgalinden kurtulmuŸ bee!": RETURN
IF ay = 8 AND gun = 30 THEN a$ = "Bugn 30 A§ostos Zafer Bayram. Bir plann avr m bugn i‡in?": RETURN

RESTORE aylar
FOR a = 1 TO ay
READ ay$
NEXT a
IF gun < 11 THEN z1$ = "baŸlar"
IF gun < 21 AND gun > 10 THEN z1$ = "ortalar"
IF gun > 20 THEN z1$ = "sonlar"
IF ay > 2 AND ay < 6 THEN z2$ = "lyor."
IF ay > 5 AND ay < 9 THEN z2$ = "scaklaŸyor."
IF ay > 8 AND ay < 11 THEN z2$ = "serinliyor."
IF ay > 11 OR ay < 3 THEN z2$ = "so§uyor."
Ran 35
IF r = 1 THEN a$ = STR$(gun) + " " + ay$ + " tarihi sana birŸey hatrlatmyor mu?"
IF r = 2 THEN a$ = ay$ + " Aynn " + z1$ + "ndayz. Havalar gittik‡e " + z2$
IF r = 3 THEN a$ = "Gelecek hafta, sinemada yeni bir film var. Gitmeyi dŸnyor musun?"
IF r = 4 THEN a$ = "Ge‡en haftadan beri iŸler kesat."
IF r = 5 THEN a$ = "Eee, napalm?"
IF r = 6 THEN a$ = "Muhabbetine doyum olmuyor abi :P"
IF r = 7 THEN a$ = "Offf, kaportalar ‡rttm diskin i‡inde ;)"
IF r = 8 THEN a$ = "KonuŸ adamm, baŸka ne var ne yok"
IF r = 9 THEN Cigim nick$: a$ = "Sana ksaca " + output$ + " diyebilir miyim?"
IF r = 10 THEN a$ = "Bu yaz denize gidiyorsun herhalde"
IF r = 11 THEN a$ = ay$ + " aylar bana hep skc gelmiŸtir..."
IF r = 12 THEN a$ = "™zgn mzik dinler misin?"
IF r = 13 THEN a$ = "Bugn ayn " + STR$(gun) + "'i.. yarn yapacak bir iŸim yok"
IF r = 14 THEN a$ = "Seni seviyorum ya " + nick$ + ".. Walla ha, i‡imden geldi iŸte."
IF r = 15 THEN a$ = nick$ + "ci§im, canm, hayatm.. konuŸŸana daaaa :)))"
Cigim (nick$)
IF r = 16 THEN a$ = "dediler ki " + output$ + " ”lmŸ.. Bir fatiha okuyan var m ola. Off leyn"
IF r = 17 THEN a$ = output$ + ".. Hakkaten de duyduklarm do§ru mu yaw?"
IF r = 18 THEN a$ = "Ringo ringo ŸiŸeler durumu yane :P"
IF r = 19 THEN a$ = "Ben yyrem yane yane, " + output$ + " boyad beni kane.. Dostum benimmm..."
IF r = 20 THEN a$ = nick$ + "..Sohbetimden sklmadn de§il mi?"
IF r = 21 THEN a$ = "Uvaaa... Amma uykum geldi ha!"
IF r = 22 THEN a$ = "Sa‡malama ltfen!!!"
IF r = 23 THEN a$ = "Uykun mu var senin?"
IF r = 24 THEN a$ = "..."
IF r = 25 THEN a$ = "™yle, ”yle :))"
IF r = 26 THEN a$ = "Kprda biraz yaw.. ™l gibisin!!"
IF r = 26 THEN a$ = "Hatrlyor musun, yine bir " + ay$ + " ayyd.. Seninle k”ye davar otlatmaya gitmiŸtik :)))"
IF r = 27 THEN a$ = "Sen bir ses duydun mu?"
IF r = 28 THEN a$ = nick$ + ", adamm.. Bugn neden hznlsn bee"
IF r = 29 THEN a$ = "Uff, skldm konuyu de§iŸtir!!!"
IF r = 30 THEN a$ = "Akdeeniizzz.. AkŸamlar.. Bir baŸkaaaa.. Oluyooo.. Heleee ayylarrr.. Dan " + ay$ + " iseeee... BambaŸkaaaa :)))9 Nasl karga gibi sesim var de§il mi :)P"
IF r = 31 THEN a$ = "Bir " + ay$ + " ay da ge‡ip gidiyor be adamm..."
IF r = 32 THEN a$ = "Bugn " + STR$(gun) + " " + ay$ + ".. U§ursuz rakamm :))"

IF a$ = "" AND ay = 4 AND gun = 1 THEN a$ = "Bugn 1 Nisan.. Dikkat et, tongaya dŸme :)9"

RETURN


konuac4:
Ran 38
IF r = 1 THEN a$ = "Kurtlar Vadisini seyrediyor musun?": cevak = 5
IF r = 2 THEN a$ = "Mzikle aran nasl?"
IF r = 3 THEN a$ = "Bulmaca ‡”zmeyi sever misin?"
IF r = 4 THEN a$ = nick$ + " nikinin anlam ne??"
IF r = 5 THEN a$ = "Hobilerin neler " + nick$ + "?"
IF r = 6 THEN a$ = "Tiyatroya gider misin?"
IF r = 7 THEN a$ = "€akr ”ldrdler be :(": cevak = 5
IF r = 8 THEN a$ = "Memati gibisin be abi :)": cevak = 5
IF r = 9 THEN a$ = "Hangi dizileri seyredersin?"
IF r = 10 THEN a$ = "Haftada ka‡ saat televizyon izlersin?"
IF r = 11 THEN a$ = "Nasl biridir bu " + nick$ + "?"
IF r = 12 THEN a$ = "Hayatta olmasn en ‡ok istedi§in Ÿey nedir?"
IF r = 13 THEN a$ = "˜dealist misin " + nick$ + "?"
IF r = 14 THEN a$ = "Anlamadm???"
IF r = 15 THEN a$ = "Nasl yani?"
IF r = 16 THEN a$ = "BirŸey anladysam arap oluyum :)"
IF r = 17 THEN a$ = "Hitman III ‡kmŸ, oynadn m hi‡?"
IF r = 18 THEN a$ = "Laf de§iŸtirme :))9"
IF r = 19 THEN a$ = "Biraz daha a‡ar msn?"
IF r = 20 THEN a$ = "Burcun nedir?": cevak = 3
IF r = 21 THEN a$ = "En sevdi§in renk nedir " + nick$ + " kardeŸ?"
IF r = 22 THEN a$ = "Eee?"
IF r = 23 THEN a$ = "Diyosuuuun :)))9"
IF r = 24 THEN a$ = "Senle Ÿ”yle bi anteppp yapalm m be ne dersin?"
IF r = 25 THEN a$ = "BoŸ zamanlarnda neler yaparsn " + nick$
IF r = 26 THEN a$ = "Seni tanmak isterim.. Ger‡ekten!"
IF r = 27 THEN a$ = "Hangi takm tutuyorsun " + nick$ + "??"
IF r = 28 THEN a$ = "Uykun mu var senin???"
IF r = 29 THEN a$ = "Sence Polat Alemdar, bu b”lmde ne yapacak?": cevak = 5
IF r = 30 THEN a$ = "Mafia II de ‡kmŸ, g”zmz aydn kardeŸ!"
IF r = 31 THEN a$ = "Hey, relax ol birazzz!!"
IF r = 32 THEN a$ = "Neden kadn hakk yoktur sence?"
IF r = 33 THEN a$ = "Sana bir bilmece.. Bilirsen seni bi kere ”pcem :) Damda gezer, miyaw der; Nedir, nedir???"
IF r = 34 THEN a$ = "Hangi bur‡tansn sen?": cevak = 3
IF r = 35 THEN a$ = "Kurtlar Vadisi'ndeki Do§u Bey kimmiŸ biliyor musun?": cevak = 5
IF r = 36 THEN a$ = "Kurtlar Vadisi'nin daha 1.5 yl devam varmŸ...": cevak = 5
IF r = 37 THEN a$ = "'Oy Asiyem' Mzi§ini nokia telefonuna yklemek ister misin??": cevak = 5
IF r = 38 THEN a$ = "Hey, seninle hafta sonu balk avlamaya gidelim mi?"
RETURN




konuacson:
konu = konu + 1
IF konu > sinir THEN konu = 1
END SUB

SUB kutu (y, x, yy, uz)
LOCATE y, x: PRINT "É"; STRING$(uz, 205); "»"
FOR i = y + 1 TO yy - 1
LOCATE i, x: PRINT "º"; SPACE$(uz); "º"
NEXT i
LOCATE yy, x: PRINT "È"; STRING$(uz, 205); "¼"

END SUB

SUB OCenter (Text$, y, Fore, Back)
OFont Text$, 160 - INT(LEN(Text$) * 4), y, Fore, Back 'Call with appropriate
END SUB                                              'Starting X coordinate

SUB OFont (Text$, x, y, Fore, Back)
DEF SEG = &HFFA6                              'Stores masks for letters
FOR Letter = 1 TO LEN(Text$)                  'Does each letter
Address = (8 * ASC(MID$(Text$, Letter))) + 14 'Address for start of letter
FOR Height = 0 TO 7                       'Each letter is an 8x8 pixel matrix
Mask = PEEK(Address + Height) * 128   'Address for mask of each line of letter
LINE (x + Curntx + 1, y + Height + 1)-(x + 9 + Curntx, y + Height + 1), Fore, , Mask
NEXT
Curntx = Curntx + 8                   'Advances X axis by 8 for next letter
NEXT                                  'Continue to next letter
DEF SEG = &HA000                      'Change to video memory
IF Back > 0 THEN                      'Background color can't be color 0
FOR v = y TO y + 7                    'Again, they're 8x8 pixels
FOR h = x TO (LEN(Text$) * 8) - 1 + x 'Calculates length of text in pixels
PK0& = PEEK(h + v * 320&)             'Is point at H,V = to foreground color?
PK1& = PEEK(h + 1 + (v + 1) * 320&)   'Is point at H+1, V+1 = to foreground?
PK2& = PEEK(h + 1 + v * 320&)         'Is point at H+1, V = to foreground?
PT& = h + v * 320&                    'Video memory pointer
IF PK0& <> Fore THEN                  'If this is foreground, don't overlap it
IF PK1& = Fore OR PK2& = Fore THEN POKE PT&, Back    'Put pixel into memory
END IF
NEXT h     'Next horizontal
NEXT v     'Next vertical
END IF
DEF SEG    'Put us back where
END SUB    'We started

SUB Ortala (x$)
x = INT((80 - LEN(x$)) / 2)
LOCATE , x
PRINT x$
END SUB

SUB OzelAd
bh$ = "ABC€DEFG¦HI˜JKLMNO™PRSžTUšVYZQXW"
kh$ = "abc‡defg§hijklmno”prsŸtuvyzqxw"
t = 1
FOR a = 1 TO LEN(a$)

x$ = MID$(a$, a, 1)
x = INSTR(bh$, x$)
xx = INSTR(kh$, x$)
IF xx > 0 AND t = 1 THEN t = 0: x$ = MID$(bh$, xx)
IF x > 0 AND t = 0 THEN x$ = MID$(kh$, x)
MID$(a$, a, 1) = x$
t = 0
IF x$ = " " OR x$ = "." THEN t = 1
NEXT a

END SUB

SUB PressAndClear
Buffer = &H1A
DEF SEG = &H40
POKE Buffer, PEEK(Buffer + 2)    'Clear keyboard buffer
DEF SEG
DO: LOOP WHILE INKEY$ = ""       'Wait for key press
LINE (4, 45)-(315, 180), 25, BF  'Clear our working area
END SUB

SUB Ran (herc)
RANDOMIZE TIMER
r = INT(RND(1) * herc)
IF r < 1 OR r > herc THEN r = 1
END SUB

SUB s16
ds32$ = "‡€§¦˜Ÿžš”™"
ds16$ = "cCgGiIsSuUoO"

FOR a = 1 TO LEN(a$)
x$ = MID$(a$, a, 1)
var = INSTR(ds32$, x$)
IF var > 0 THEN MID$(a$, a, 1) = MID$(ds16$, var, 1)
NEXT a
END SUB

SUB Sagla (x$)
x = INT((80 - LEN(x$)))
LOCATE , x: PRINT x$
END SUB

SUB Selamlama
Ran 30
SELECT CASE r
CASE 1
a$ = "HoŸgeldin " + nick$
CASE 2
v$ = ""
saat = VAL(LEFT$(TIME$, 2))
IF saat > 3 AND saat < 12 THEN v$ = "Hayrl sabahlar "
IF saat > 11 AND saat < 18 THEN v$ = "Tnaydn "
IF saat > 17 AND saat < 25 THEN v$ = "Hayrl akŸamlar "
IF saat > 24 AND saat > 4 THEN v$ = "Hayrl geceler "
a$ = v$ + nick$
CASE 3
a$ = "Slm"
CASE 4
a$ = "Merhaba"
CASE 5
a$ = "Selam " + nick$
CASE 6
a$ = "Aaaaa... " + nick$ + " gelmiŸŸŸ... Naslsn abi yaaa??"
CASE 7
a$ = "HoŸgeldin dostum.. Naslsn?"
CASE 8
a$ = "Meraba kardeŸ"
CASE 9
a$ = "Bir sen eksiktin " + nick$ + " :)"
CASE 10
a$ = "Ooo " + nick$ + " kardeŸ.. Sen bu odann yolunu bilir miydin yaw :)"
CASE 11
a$ = "Selamn aleykm kardeŸŸŸ"
CASE 12
a$ = "Woww, kimleri g”ryorum yaaa! Abi, naslsn???"
CASE 13
a$ = "HoŸgeldiniz " + nick$ + " Bey..."
CASE 14
a$ = "Ooo kardeŸ, sen buralar bilir miydin yaw :)"
CASE 15
a$ = "Ooo, yel mi att sel mi att, ne iŸ " + nick$ + " kardeŸŸŸ :)"
CASE 16
a$ = nick$ + ", aŸkmmm naberrs :)"
CASE 17
a$ = "..." + CHR$(13) + "Siz kimsiniz???"
CASE 18
a$ = "Slm"
CASE 19
a$ = "Wauww " + nick$ + " kardeŸŸŸ.. HoŸ geldin sefalar getirdin.. Az ”nce aklmdan ge‡tin wallaaa!"
CASE 20
a$ = "Yine mi sen :)))"
CASE 21
a$ = nick$ + ", bu ne hal yaw :)"
CASE 22
a$ = "Ana! Bu saatte ne iŸin var burda senin??"
CASE 23
a$ = "Gene mi geldin :))"
CASE 24
a$ = "Merhaba. TanŸalm m? " + ani$ + ".. Ya siz?"
CASE 25
a$ = "Selammmmmmm...."
CASE 26
a$ = v$ + " " + nick$ + " kardeŸ, hoŸgeldiniz mekanmza..."
CASE 27
a$ = "Wooww, kimleri g”ryorummm!!!"
CASE 28
a$ = "HoŸ geldin baŸmn tatl belas :)"
CASE 29
a$ = "Buyur, kimi aramŸtn kardeeeŸŸŸ :)"
CASE 30
a$ = "Ana.. Nasl girdin i‡eri sen yaw, kaplar falan kitlemiŸtimdi :)))"

END SELECT

IF nick$ = "Yedidya" THEN a$ = "HoŸgeldin glm :)9"

a$ = a$ + "."
tip = 1
yazdir

END SUB

SUB vip
ani$ = "KalblerinMzi§i": cevak = 6: GOTO endsubvip
endsubvip:
END SUB

SUB yazdir
VIEW PRINT 1 TO 22
IF a$ = "ban122" THEN banla = 1
LOCATE yy, 1
COLOR , arkarenk
IF tip = 1 THEN yaz$ = "<" + ani$ + ">" + a$ ELSE yaz$ = "<" + nick$ + ">" + a$
IF yy > 1 AND yy < 25 THEN LOCATE yy
IF xx > 1 AND xx < 80 THEN LOCATE xx
IF tip = 1 THEN COLOR 14 ELSE COLOR 15
IF tip = 1 THEN COLOR 6 ELSE COLOR 7
IF tip = 1 AND cevak > 5 AND cevak < 11 THEN COLOR 4
PRINT "<";
IF tip = 1 THEN PRINT ani$;  ELSE PRINT nick$;
PRINT ">";
IF tip = 1 THEN COLOR 14 ELSE COLOR 15
IF tip = 1 AND cevak > 6 AND cevak < 11 THEN COLOR 12
IF a$ = "vip" THEN a$ = "vib"
IF a$ = "v.i.p." THEN a$ = "v.i.b."
PRINT a$
REM PRINT yaz$
a$ = yaz$
s16
PRINT #1, a$
yy = CSRLIN: xx = POS(0)
a$ = ""
yazdirson:
END SUB