Chat sistemi (Arkadaş listeli)

[FUNCTION BOZOBAG]
RESIZEPIC <argv[0]> <argv[1]> 2620 <argv[2]> <argv[3]>

[function chat_kur]
db.connect
if <db.connected>
	db.execute "CREATE TABLE IF NOT EXISTS `chat` (`id` INT NULL AUTO_INCREMENT PRIMARY KEY, `yazan` text, `yazilan` text, `mesaj` text, `goruldu` int default "0", `zaman` TIMESTAMP NULL DEFAULT CURRENT_TIMESTAMP)";
	db.execute "CREATE TABLE IF NOT EXISTS `chat_mylist` (`id` INT NULL AUTO_INCREMENT PRIMARY KEY, `uid` text, `friend` text)";
endif

[function arkadasekle]
targetf friends_ekle

[function friends_ekle]
db.connect
if <db.connected>
	if <f_v <argo>>
	src.sysmessage @,,1 Bu kişi listenizde ekli.
	return 1
	endif
	db.execute "insert into chat_mylist (uid,friend) values ("<src>","<argo>")";
endif

[function mesaj_ekle]
db.connect
if <db.connected>
	db.execute "insert into chat (yazan,yazilan,mesaj) values ("<src>","<argv0>","<argv1>")";
endif

[function f_v]
db.query "select id,uid,friend from chat_mylist where uid = "<src>"";
if (STRMATCH("<db.row.0.friend>","<args>"))
return 1
else
return 0
endif

[function mylist]
	sdialog d_mylist

[dialog d_mylist]
50,50

bozobag 10,10,300,300

db.connect
dorigin 0 20
if <db.connected>
	if !<src.ctag0.mylist_Select>
	db.query "select id,uid,friend from chat_mylist where uid = "<src>"";
	while <db.row.<dlocal._while>.id>
	dtext 60 *20 0481 <uid.<db.row.<dlocal._while>.friend>.name>
	button 30 *0 4005 4007 1 0 <db.row.<dlocal._while>.id>
	endwhile
	else
	db.query "select id,uid,friend from chat_mylist where friend = "<src.ctag0.mylist_Select>" and uid = "<src>"";
	ref1=<src.ctag0.mylist_Select>
	dtext 60 40 0455 <uid.<db.row.0.friend>.name>
	dtext 60 60 0481 Arkadaşlardan çıkar
	button 30 60 4005 4007 1 0 1000000
	dtext 60 80 0481 <qval <ref1.isonline>?Online:Offline>
	dtext 60 100 0481 <ref1.region.p> (<ref1.region.name>)
	dtext 60 120 0850 Sohbet başlat
	button 30 120 4005 4007 1 0 1000001
endif

[dialog d_mylist button]
on 0
if <src.ctag0.mylist_Select>
	src.ctag0.mylist_Select
	sdialog d_mylist
endif
on 1 10000
db.query "select id,uid,friend from chat_mylist where id = "<dargn>"";
src.ctag0.mylist_Select <db.row.0.friend>
	sdialog d_mylist

on 1000000
db.execute "delete from chat_mylist where uid = "<src>" and friend = "<src.ctag0.mylist_Select>"";
src.sysmessage @,,1 <uid.<src.ctag0.mylist_Select>.name> listenizden çıkarıldı. Arkadaş listeniz güncellendi.
src.ctag0.mylist_Select
	sdialog d_mylist
	
on 1000001
ref1=<src.ctag0.mylist_Select>
try uid.<ref1>.dialog d_mylist_chat
try uid.<ref1>.dialog d_mylist_chat_yaz
	// sdialog d_mylist_chat

	
[dialog d_mylist_chat]
50,50
nomove

bozobag 10,10,320,320
sdialog d_mylist_chat_yaz

local.p 315
db.query "select id,yazan,yazilan,mesaj,goruldu from chat where (yazan = "<src>" or yazan = "<uid>") and (yazilan = "<uid>" or yazilan = "<src>") order by zaman desc limit 0,20";
while <db.row.<dlocal._while>.id>
local.p -=15
dtext 60 <dlocal.p> 63 <uid.<db.row.<dlocal._while>.yazan>.name>: <cropgump 50,<db.row.<dlocal._while>.mesaj>> 
endwhile
[dialog d_mylist_chat_yaz]
50,380
nomove

resizepic 10 10 9300 320 50
dtextentrylimited 40 15 260 50 07a1 1 50 ?
button 10 18 4005 4007 1 0 1

[dialog d_mylist_chat_yaz button]
on 1
src.mesaj_ekle <uid>,<argtxt1>
trysrc <uid> uid.<src>.dialog d_mylist_chat
if !<isdialogopen d_mylist_chat_yaz>
trysrc <uid> uid.<src>.dialog d_mylist_chat_yaz
endif
try uid.<uid>.dialog d_mylist_chat
try uid.<uid>.dialog d_mylist_chat_yaz