Merhaba Ziyaretçi
Forumumuza hoşgeldiniz.Sitemizi daha yararlı şekilde kullanabilmek için lütfen kayıt olun veya giriş yapın.

Oyun İci Clan Devretme Sistemi

Server Tanitimi , Ko Tanitimi , Silkroad Pvp Serverler , Metin2 Pvp Serverler

[XFB] Konu Bilgileri

Konu Hakkında Merhaba, tarihinde Prosedür & Kod Paylaşımları kategorisinde Stark tarafından oluşturulan Oyun İci Clan Devretme Sistemi başlıklı konuyu okuyorsunuz. Bu konu şimdiye dek 399 kez görüntülenmiş, 1 yorum ve 0 tepki puanı almıştır...
Kategori Adı Prosedür & Kod Paylaşımları
Konu Başlığı Oyun İci Clan Devretme Sistemi
Konbuyu başlatan Stark
Başlangıç tarihi
Cevaplar
Görüntüleme
İlk mesaj tepki puanı
Son Mesaj Yazan osman3322

Stark

K.Destek Yöneticisi
27 May 2013
2,664
0
Selamlar Buyrun Dosya Ektedir Arkadaşlar





İlk Üstteki Linkten indirdiğiniz Php leri AppServer Yada Xampp Hangisini Kullanıyorsanız İçine Atıyorsunuz.





Gerekli Tabloyu Ekliyoruz ;




Kod:
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[clandevret]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[clandevret]
GO

CREATE TABLE [dbo].[clandevret] (
[devreden] [varchar] (21) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[alan] [varchar] (21) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[clanadi] [varchar] (21) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[kayit] [int] NULL ,
[vicefame] [int] NULL ,
[zaman] [datetime] NULL
) ON [PRIMARY]
GO
Şunu Load_User_Dataya Ekliyoruz




Kod:
declare @charId varchar(21),
@fame2 Int,
@kayIt2 Int,
@devreden varchar(21),
@alan varchar(21)
select @alan = alan from clandevret where alan = @struserID or devreden = @struserID
select @devreden = devreden from clandevret where alan = @struserID or devreden = @struserID
select @fame2 = vIcefame from clandevret where devreden = @struserID
select @charId = strcharId1 from account_char where straccountId = @accountId
select @kayIt2 = kayIt from clandevret where devreden = @struserID or alan = @struserID
If @kayIt2 = 0
begIn
update userdata set fame = @fame2 where struserId = @devreden
update userdata set fame = 1 where struserId = @alan
update clandevret set kayIt = 1 where devreden = @struserID or alan = @struserID
update knights set chief = @alan where chief = @devreden
update knights set vicechief_1 = @devreden where vicechief_1 = @alan
update knights set vicechief_2 = @devreden where vicechief_2 = @alan
update knights set vicechief_3 = @devreden where vicechief_3 = @alan
end

Şunu 21.EVT Nin Sonuna Ekliyoruz;




Kod:
EVENT 41801 ;clandevret
E SELECT_MSG 16544 19545 18855 18866 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1
END

EVENT 18866 ;
E SEND_WEBPAGE_ADDRESS 5
END
Query Kodları; Npc mizi Ekliyelim ve Yerleştirelim.




Kod:

delete from k_npc where ssid = 18445
delete from k_npcpos where npcid = 18445 and zoneid = 21

insert into [K_NPC] values ('18445','[Clan Devret]','2050','100','971650940','971720780','1','0','28','1','1','1','0','90','0','0','100000','0','0','15000','497','497','0','1500','0','0','1000','0','0','0','255','255','255','255','255','255','255','200','30','35','35','0','0','1','1','0');

insert into [k_npcpos] values ('21','18445','103','0','0','0','19','330','359','330','359','330','359','330','359','1','4400','0','3','NULL');

Şimdi Gelelim TBL Lere.

TBL Olayını Yapabilen var Yapamayan Var.Bu Yüzden Serverinizin



Ben Tbl Editten Anlarım Derseniz.



Data/Quest_Menu_Us.TBL Eklencekler




18855 Clan Devret




Data/Quest_Talk_Us.TBL Eklencekler




19545 Clan Devretmeye Hosgeldiniz




Data/Web_Address_Us.TBL Eklencekler





Kod:
http://Server ip/clandevret/index.php
Satır Kodunuda 5 yapın arkadaşlar...



Nasıl Çalışır ;


-SQL İnjection Önlemi Alınmıştır..

-Oyun İçidir.Kontroller Sorunsuz.

-Logları Tabloya 'Devreden,Alan,Zaman' Şeklinde Yazdırır.



Gerekli Sorgular ;

1-)İd Şifre Yeri Boşşa Hata Ver.

2-)İd yada Şifre Yanlışşa Hata Ver.

3-)Char Oyunda Değilse Hata Ver.

4-)Clanda Değilse Hata Ver.

5-)Clanda Olupda Lider Değilse Hata Ver.

6-)Clanda Asist Yoksa Hata Ver.

7-)Açıl.

Yapıldıktan Sonra Bir Menu Gelir.Bir Combobox da 3 Asisitin Adı Yazar.Asisit yoksa 'Asist Yok' Yazar.



Oyuncu Clanı Devredeceği Kişiyi Seçer ve Devret e Tıklar Bu Arada Hiç Bir Sorgu Yapmaz.

Oyuncu Oyunda Olsun veya Olmasın Devreder ve ClanDevret Tablosuna Bir Satır Ekler.

Relogda Clan Başkanı Asist Yerine Geçer.

Asistde Clan Başkanı Yerine.
;











DN;Php ler Basit Bir Encode ile Encodelanmıştır.İsteyen Decodelayıp İstediği Gibi Oynayabilir.

 
Üst Alt