الموقع العربي الاول للعبة Silkroad Online

الموقع العربي الاول للعبة Silkroad Online (https://silkroad4arab.com/vb/index.php)
-   قسم الشروحات و البرامج المستخدمة في عمل السيرفرات الخاصة (https://silkroad4arab.com/vb/forumdisplay.php?f=289)
-   -   Unique Killer system Full (https://silkroad4arab.com/vb/showthread.php?t=599655)

Mohamed ElKersh 10-03-2016 10:04 PM

رد: Unique Killer system Full
 
بص بص كله شغال بس لما حطيط اليونيك التالت بص جابلي ايه
http://i.epvpimg.com/cHZBc.png
عاوز بس احط يونيك تالت و رابع ازاي قولي اخر حاجة

Mohamed ElKersh 10-03-2016 10:09 PM

رد: Unique Killer system Full
 
قولي بس احط التالت و الرابع ازاي بس اخر حاجة علشان هما 4 يونيكات بس اللي هعملهم قولي بس التالت و الرابع ازاي
شكرا

Dev. iLegend 10-03-2016 11:23 PM

رد: Unique Killer system Full
 
اقتباس:

المشاركة الأصلية كتبت بواسطة elbattawy1st (المشاركة 5258110)
كدا السيستم شغال حاليا من غير مشاكل
وبرضو شغال notice على برنامج vsro Multi Tools
ونظام بلاير القديم ياخد title بتاعو شغال تمام حالا
شكر خاص طبعا لصاحب البرنامج Dev.ILegend وصاحب فكرة title بتاع بلاير القديم Black Shield

الشكر لله يا معلم ،، تسلم على مجهودك الرائع دا ،،
تم إضافة لينك الموضوع للموضوع الأساسي vSro Multi Tool المثبت ،،

KingStorm 10-03-2016 11:56 PM

رد: Unique Killer system Full
 
يا ريت بقا بعد التعديل دة كلة فى كل بوست يتعمل الموقوع تانى ويضاف فية كل حاجة معا امكانية التعديل يعنى لو واحد عاوز يحط كذا يونيك علشان كدة لو واحد مبتدء عيتلغبط و يسيب الموضع و شكرا سيستم ممتاز :phone:

elbattawy1st 11-03-2016 02:19 AM

رد: Unique Killer system Full
 
اقتباس:

المشاركة الأصلية كتبت بواسطة Dev. iLegend (المشاركة 5258212)
الشكر لله يا معلم ،، تسلم على مجهودك الرائع دا ،،
تم إضافة لينك الموضوع للموضوع الأساسي vSro Multi Tool المثبت ،،

تسلم

اقتباس:

المشاركة الأصلية كتبت بواسطة KingStorm (المشاركة 5258219)
يا ريت بقا بعد التعديل دة كلة فى كل بوست يتعمل الموقوع تانى ويضاف فية كل حاجة معا امكانية التعديل يعنى لو واحد عاوز يحط كذا يونيك علشان كدة لو واحد مبتدء عيتلغبط و يسيب الموضع و شكرا سيستم ممتاز :phone:

ماانا مظبط و عدلت علي سيستم بتاع يونك واحد وشغال تمام
اما بتاع كذا يونك مستني بس اجربو كذا مره عندي قبل ما اضيفو في الموضوع

Hamza FiGo 11-03-2016 03:41 AM

رد: Unique Killer system Full
 
لك جزيل الشكر والتقدير علي مجهودك ومجهود كل الناس اللي بتحاول تكمل الموضوع

تحياتي

SkyZ 11-03-2016 04:56 AM

رد: Unique Killer system Full
 
nice Working 100%
but i need Uniqe Give Reward Silk how make it :D

SkyZ 11-03-2016 04:56 AM

رد: Unique Killer system Full
 
nice Working 100%
but iam need Uniqe Give Reward silk how i make Uniqe give silk ?
Thx

Mohamed ElKersh 11-03-2016 01:36 PM

رد: Unique Killer system Full
 
ياجدعان عاوز احط اليونيك التالت و الرابع حللل بقاا

SkyZ 12-03-2016 01:39 AM

رد: Unique Killer system Full
 
how make Reward Silk ?

elbattawy1st 12-03-2016 01:45 AM

رد: Unique Killer system Full
 
اقتباس:

المشاركة الأصلية كتبت بواسطة SkyZ (المشاركة 5258442)
how make Reward Silk ?

Create This Table
كود PHP:

USE [SRO_VT_ACCOUNT]
GO

/****** Object:  StoredProcedure [CGI].[CGI_WebPurchaseSilk_Job]    Script Date: 12/03/2016 12:42:35 ص ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO


-- =============================================
-- 
Author:        kokspflanze
-- =============================================
CREATE PROCEDURE [CGI].[CGI_WebPurchaseSilk_Job]
    @
UserID  INT,
    @
NumSilk INT
as
    DECLARE @
SilkRemain INT
    
DECLARE @OrderID INT
    set 
@SilkRemain 0
    
--DECLARE @PointRemain INT
--    BEGIN TRANSACTION
        
IF( not existsSELECT from SK_Silk where JID = @UserID))
        
BEGIN
            INSERT SK_Silk
(JID,silk_own,silk_gift,silk_point)VALUES(@UserID,@NumSilk,0,0)
            --
UPDATE Silk Own
        END
        
ELSE
        
BEGIN
            SET 
@SilkRemain CGI.getSilkOwn(@UserID)
            
UPDATE SK_Silk SET silk_own silk_own + @NumSilk WHERE JID = @UserID
            
--INSERT Silk Own
        END
        SELECT 
@OrderID cast(MAX(OrderNumber)+as INTFROM SK_SilkBuyList WHERE UserJID = @UserID
        
IF(@OrderID is NULL)
        
BEGIN
            set 
@OrderID 0
        END
        INSERT SK_SilkBuyList
(UserJID,Silk_Type,Silk_Reason,Silk_Offset,Silk_Remain,ID,BuyQuantity,SlipPaper,RegDate,OrderNumberVALUES( @UserID,0,0,@NumSilk,@SilkRemain + @NumSilk,0,1,"User Purchase Silk from VDC-Net2E Billing System",GETDATE(),@OrderID)
        
INSERT SK_SilkChange_BY_Web(JID,silk_remain,silk_offset,silk_type,reasonVALUES(@UserID,@SilkRemain + @NumSilk,@NumSilk,0,4)
        IF (@@
error <> or @@rowcount 0)
        
BEGIN
            SELECT Result 
"FAIL"
--            ROLLBACK TRANSACTION
            
RETURN
        
END
        SELECT Result 
"SUCCESS"
--    COMMIT TRANSACTION    
    
RETURN
SET QUOTED_IDENTIFIER OFF
GO 

Replace this with old code

كود PHP:

iF (@EventID OR @EventID 11)  
BEGIN  
    
DECLARE @Notice varchar(50)  
    DECLARE @
CharName1 varchar(20) = (SELECT CharName16 FROM [SRO_VT_SHARD].[dbo].[_Char]   Where CharID = @CharID)  
    DECLARE @
MaxK int = (SELECT Count(CodeName128FROM [SRO_VT_SHARDLOG].[dbo].[_UniquesLog]   Where Killer = @CharName1 And CodeName128 'MOB_CH_TIGERWOMAN')  
    DECLARE @
CheckHwanlevel tinyint = (SELECT HwanLevel FROM [SRO_VT_SHARD].[dbo].[_Char]   Where CharName16 = @CharName1)  
    DECLARE @
Hwanlevelchange int = (SELECT OldHwan FROM [SRO_VT_SHARDLOG].[dbo].[_OldTitles]   Where UName '5')
    DECLARE @
UserID int = (SELECT userjid FROM [SRO_VT_SHARD].[dbo].[_Userwhere CharID = @CharID)  
    If @
MaxK >= '2'  
    
BEGIN  
    
-- Take the title from the player and change to hwanlvl 1  
    Insert Into 
[SRO_VT_SHARDLOG].[dbo].[_OldTitles] ([CharName],[OldHwan],[UName]) Values (@CharName1,@CheckHwanlevel,'5')  
    
UPDATE [SRO_VT_SHARD].[dbo].[_CharSET HwanLevel = @Hwanlevelchange where HwanLevel like '5'  
    
DELETE from [SRO_VT_SHARDLOG].[dbo].[_OldTitleswhere UName Like '5' And OldHwan = @Hwanlevelchange   
    
-- Adding the title to the new player 8 is the hwan lvl change to yours (reward hwanlvl) )  
    
UPDATE [SRO_VT_SHARD].[dbo].[_Charset HwanLevel '5' where CharName16 = @CharName1  
    
-- Item Reward   
    EXEC SRO_VT_ACCOUNT
.[CGI].[CGI_WebPurchaseSilk_Job] @UserID,50 
    
-- Notice Lines To show All server this char is Hero  
    insert into 
[SRO_VT_SHARDLOG].[dbo].[iLegend_Tool] ([Service],[Type],[Message],[Date]) Values ('1','Notice','** Unique Hero System** : '+@Charname1+' has now recived (Unique Hero ) title for killing Tiger Girl 2 times And recived Arena Coins as reward ',GETDATE())    
    -- 
Delete Log Unique From Table  
    DELETE from 
[SRO_VT_SHARDLOG].[dbo].[_UniquesLogwhere Killer = @Charname1 and CodeName128 'MOB_CH_TIGERWOMAN'  
    
END   
    END 

Change 50 with ur Reward silk amout

elbattawy1st 24-03-2016 08:37 PM

رد: Unique Killer system Full
 
Log :

- تم اضافه 10 يونكات ل system
- تم اصلاح مشاكل oldtitles حاليا شغاله تمام
- تم اضافه 3 Reward لناس الا عاوزه تدى اكتر من Reward
- تم اضافه Reward Silk Donate
- تم اضافه Reward Silk Gift
- تم عمل نظام Back title to char if he want

SkyZ 24-03-2016 09:41 PM

رد: Unique Killer system Full
 
bas al klam dah ? hadef fe AddLogchar
iF (@EventID = 9 OR @EventID = 11)
BEGIN
EXEC [SRO_VT_SHARDLOG].[dbo].[_Unique_System] @CharID
END
wel system hyt3ml ?

SkyZ 24-03-2016 09:43 PM

رد: Unique Killer system Full
 
mesh hn3ml create lel Table aly esmo Unique_System ?
?

SkyZ 24-03-2016 09:46 PM

رد: Unique Killer system Full
 
ohh m5tsh baly men mlfat al download sorry


الساعة الآن 08:59 PM.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.