// ---------------------------------
// BLUETOOTH.scp - Bluetooth Scripti
// TARIHI: 11 Kasim 2007 - smyrna :)
// ---------------------------------

[itemdef i_bluetooth]
id i_key_ring_1
name Bluetooth Cihazi

on=@create
color 1152
attr 04

on=@click
message @1152,1,1 <name>
return 1

on=@dclick
sdialog d_bluetooth
return 1

[dialog d_bluetooth]
0,0
resizepic 200 200 3600 260 200

dtext 230 230 80<src.name>'in bluetooth cihazi
dtext 250 290 267 Bluetooth'u ac
dtext 250 310 37 Bluetooth'u kapat
dtext 250 330 45 Cihaz ara

button 220 290 4006 4007 1 0 1
button 220 310 4018 4019 1 0 2
button 220 330 4012 4013 1 0 3

[dialog d_bluetooth button]
on=0
src.sysmessage @025,1,1 Islem yapmadiniz.
return 1

on=1
src.sysmessage @68,1,1 Bluetooth'unuzu actiniz.

on=2
src.sysmessage @025,1,1 Bluetooth'unuzu kapattiniz.

on=3
src.sysmessage @1153,1,1 Cihaz araniyor...
src.sdialog d_cihazara
return 1


[dialog d_cihazara]
0,0
resizepic 200 200 3600 260 400
dtext 250 230 80 Bulunan cihazlar;

button 220 270 4006 4007 1 0 4
button 220 290 4006 4007 1 0 5
button 220 310 4006 4007 1 0 6
button 220 330 4006 4007 1 0 7
button 220 350 4006 4007 1 0 8
button 220 370 4006 4007 1 0 9
button 220 390 4006 4007 1 0 10
button 220 410 4006 4007 1 0 11
button 220 430 4006 4007 1 0 12
button 220 450 4006 4007 1 0 13
button 220 470 4006 4007 1 0 14


[function cihazaraaa]
forchars 10
src.sysmessage @68,1,1 <name> , Uzaklik <distance> kare
endfor