Bir bluetooth cihazı yapmak istedim 10 kare etrafta açık bluetooth varsa göstercek belki ondan sonra msj flan yaparım ama bikaç isteğim var
1) Cihaz aranıyor derken dialog bikaç sn sora gelsin (timerı flan denedim yapamadm)
2) forchars için bi komut kullandm cihazaraaa die fakat bunu nası tabloda gösterebilirim onu bulamadm biraz yardım ederseniz
Çoook mutlu olucam.
şimdiden teşekkürler
// ---------------------------------
// 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