Merhaba,
Ödül vermek istiyorum ancak sadece 1 IP'den 1 defa alınamasını istiyorum.
ne yapabiliriz

Ya SQL ya da Write/readfile aracılığı ile yapabilirsin. Sql kullanacaksan ödül alınırken db ye bağlanıp belirlediğin tabloya lastip bilgisini girip ödül aldı tablosuna 1 değeri işlenecek. Writefile / readfile ile de lastip adında txt dosyası oluşturacaksın file.filexist ile o ip ödülü alıp almamış mı kontrol yaptırabilirsin.


Edit: Serv.list fonksiyonunu kullanıyorsan oluşturacağın bir listeye ip yi ekleyip sorgulatma da yapabilirsin.

"

Ya SQL ya da Write/readfile aracılığı ile yapabilirsin. Sql kullanacaksan ödül alınırken db ye bağlanıp belirlediğin tabloya lastip bilgisini girip ödül aldı tablosuna 1 değeri işlenecek. Writefile / readfile ile de lastip adında txt dosyası oluşturacaksın file.filexist ile o ip ödülü alıp almamış mı kontrol yaptırabilirsin.


Edit: Serv.list fonksiyonunu kullanıyorsan oluşturacağın bir listeye ip yi ekleyip sorgulatma da yapabilirsin.

M.CANILIK

Örnek scp var mı acaba?
Yada discord üzerinden yardımcı olabilir misiniz?
Sunucu aktif değil bu ara.

Mysql ile yapabilirsin, her ip yerine her pc'de yapabilirsin bunun için ip yerine connectörden çektirdiğin pc adresleriylede yapabilirsiniz.

Mysql ile yapacak isen şu şekilde yapabilirsin.

[function ipsorgutablo]

db.connect

db.execute "create table ip_sorgu (id int unsigned not null auto_increment primary key,nametext,acc text,ip text)";

src.sysmessage @07a1,,1 ip sorgu tablosu kuruldu.

Dclick'e ödül verdikten sonra bununla kaydet

[Function ipsorgukaydet]

db.connect

db.query "insert into ip_sorgu values (null, '<src.name>', '<src.account.name>', '<src.account.lastip>')"

Alttakinide dclick kısmına ekleyebilirsin ödül sorgusundan önce

db.connect

db.query "select ip from ip_sorgu where ip = '<src.account.lastip>'"

if <db.row.numrows>



src.sysmessage @38,,1 <src.account.lastip> ip numarasından sadece bir kişi alabilir.

return 1

endif

Emülatör sqlite destekliyorsa mysql ile uğraşma derim. Sunucuya mysql driver kurman lazım veya uzak bir mysqle sphereyi bağlanman lazım. Herhangi bir connector ihtiyacı duymadan sqlite ile yapabilirsiniz.

[plevel 1]

hediyekomutu





[FUNCTION hediyekomutu]

// Sqlite

LDB.CONNECT "db/main.db"

IF (<LDB.CONNECTED>)

	LDB.EXECUTE CREATE TABLE IF NOT EXISTS 'prizes' ('id' INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, 'account_name' TEXT, 'uid' TEXT, 'duid' INT, 'pc' TEXT, 'ip' TEXT, 'command' TEXT, 'created_at' TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP, 'updated_at' TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP)



	LDB.QUERY "SELECT * FROM 'prizes' WHERE pc='<account.tag0.pc>' AND command='hediyekomutu'"

	IF (<DLDB.ROW.NUMROWS>)

		src.func_sys_error Bu bilgisayardan daha önce bu ödül alınmış.

		return 1

	ENDIF

	

	LDB.QUERY "SELECT * FROM 'prizes' WHERE account_name='<account>' AND command='hediyekomutu'"

	IF (<DLDB.ROW.NUMROWS>)

		src.func_sys_error Bu hesaptan daha önce bu ödül alınmış.

		return 1

	ENDIF

	

	LDB.QUERY "SELECT * FROM 'prizes' WHERE ip='<account.lastip>' AND command='hediyekomutu'"

	IF (<DLDB.ROW.NUMROWS>)

		src.func_sys_error Bu ipden daha önce bu ödül alınmış.

		return 1

	ENDIF

	

	LDB.EXECUTE INSERT INTO 'prizes' (account_name,uid,duid,pc,ip,command) VALUES ('<account>','<uid>','<duid>','<account.tag0.pc>','<account.lastip>','hediyekomutu')

	newgold 100000

	

ENDIF

LDB.Close

Nelph yardımın için teşekkürler ancak şöyle birşey denedim sanırsam komple hata yapıyorum

[function ipsorgutablo]

db.connect

db.execute "create table ip_sorgu (id int unsigned not null auto_increment primary key,nametext,acc text,ip text)";

src.sysmessage @07a1,,1 ip sorgu tablosu kuruldu.





[itemdef i_odul_gate]

id i_moongate_blue

name Odul Gate



on=@Create

timer 300

attr 010

color 0a15



on=@click

Message @0100,,1 <timer> sn.

Message @48,,1 Noname

Message @0790,,1 Ödül Gate

return 1



on=@dclick

src.odulver

dorand 2

serv.newitem i_deed_nightmare

serv.newitem i_deed_unicorn

enddo

new.bounce



db.connect

db.query "select ip from ip_sorgu where ip = '<src.account.lastip>'"

if <db.row.numrows>



src.sysmessage @38,,1 <src.account.lastip> ip numarasından sadece bir kişi alabilir.

return 1

endif



src.sysmessage @0790,,1 Ödülleriniz çantanıza yerleştirilmiştir.

src.go star

return 1



on=@step

src.hata Çift tıklamalısınız.

return 1



on=@timer

region.allclients go pazarrrr

serv.b @48,,1 Ödül :

serv.b @0790,,1  Ödül Gate'i kapanmıştır. İyi oyunlar

remove

return 1













[typedef t_odulver]





[function odulver]

serv.newitem i_deed_degerlihazine,1

new.bounce

serv.newitem i_deed_degerlihazine,1

new.bounce

serv.newitem i_market

new.bounce



[Function ipsorgukaydet]

db.connect

db.query "insert into ip_sorgu values (null, '<src.name>', '<src.account.name>', '<src.account.lastip>')"



[eof]

Sayın Abadan,
Gönderdiğiniz şekilde yaptım ancak hata almaktayım

12:35:ERROR:(OnlineSureTL.scp,371)Undefined keyword 'LDB.CONNECT'

12:35:ERROR:(OnlineSureTL.scp,372)Can't resolve <LDB.CONNECTED>

12:35:ERROR:(OnlineSureTL.scp,372)Undefined symbol ''

12:35:ERROR:(OnlineSureTL.scp,397)Undefined keyword 'LDB.Close'

Kullandığın sphereserver emülatöründe sqlite desteği olmadığı için bu hatayı alıyorsun. Mysql kullanmak için kullandığın sunucuya/localhosta Mysql kurman veya mysql kurulu uzak bir sunucudaki mysqle bağlanman gerekiyor.

Forumda mysql diye bir aratma yaparsan, Sphereyi mysqle bağlanması ile ilgili konular var. O konuları inceleyerek yapmayı deneyebilirsin.

Ayrıca list ile de yapabilirsin;

Not: Kullandığın emülatörde sqlite özelliği yoksa muhtemelen serv.list de sorunsuz bir şekilde ÇALIŞMAYACAK. Aşağıdaki script örnektir ve kontrol edilmemiştir.
Serv.list dökümanına BURADAN ulaşabilirsin.

[plevel 1]

hediyeal



[FUNCTION hediyeal]

LOCAL.LASTIP = <MD5HASH <ACCOUNT.LASTIP>>

LOCAL.ACCOUNT = <MD5HASH <ACCOUNT>>

LOCAL.ELEM_ACCOUNT = <SERV.LIST.HEDIYEALANLAR.FINDELEM <LOCAL.LASTIP>>

LOCAL.ELEM_IP = <SERV.LIST.HEDIYEALANLAR.FINDELEM <LOCAL.ACCOUNT>>

IF !(<ISEMPTY <LOCAL.ELEM_ACCOUNT>>)

	IF (<LOCAL.ACCOUNT> == <SERV.LIST.HEDIYEALANLAR.<DLOCAL.ELEM_ACCOUNT>>)

		FUNC_SYS_ERROR Bu hesap ile daha önceden ödül almışsınız.

		RETURN 1

	ENDIF

ELSEIF !(<ISEMPTY <LOCAL.ELEM_IP>>)

	IF (<LOCAL.LASTIP> == <SERV.LIST.HEDIYEALANLAR.<DLOCAL.ELEM_IP>>)

		FUNC_SYS_ERROR Bu hesap ile daha önceden ödül almışsınız.

		RETURN 1

	ENDIF

ENDIF

NEWGOLD 10000

SERV.LIST.HEDIYEALANLAR.ADD <LOCAL.ACCOUNT>

SERV.LIST.HEDIYEALANLAR.ADD <LOCAL.LASTIP>

Eğer aynı ip den hediyeyi verdirtiyorsanız. bunun tam tersini yazarak daha kolay yaparsınız eğer 2 tane hediye aldıysa aynı ip ise birini sildiretebilirsiniz bu şekilde bir döngüde kurabilirsiniz