Kod:
[FUNCTION BOZOBAG]
RESIZEPIC <argv[0]> <argv[1]> 2620 <argv[2]> <argv[3]>
Kod:
[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
http://prnt.sc/8wpbt2