Register for your free account! | Forgot your password?

You last visited: Today at 00:44

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Any Professional here?

Discussion on Any Professional here? within the SRO Private Server forum part of the Silkroad Online category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Mar 2015
Posts: 48
Received Thanks: 2
Any Professional here?

I want to make job war in my game !?
leader* is offline  
Old 03/24/2015, 11:50   #2
 
KingDollar's Avatar
 
elite*gold: 857
Join Date: Dec 2013
Posts: 857
Received Thanks: 679
why not just do it

or go to buy it if you need just contact me
skype = king.sro29
KingDollar is online now  
Old 03/24/2015, 14:18   #3

 
elite*gold: 77
Join Date: Jan 2015
Posts: 1,314
Received Thanks: 856
Procedure;
Quote:
USE [SRO_VT_SYSTEM_]
GO
/****** Object: StoredProcedure [dbo].[_JobSystem] Script Date: 01/06/2014 02:22:51 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[_JobSystem]
@CharID INT,
@Desc varchar(128)
AS

declare @Hisname varchar(500) = (select LEFT((Select Substring(@desc, PATINDEX('%(%',@desc) + 1, LEN(@desc))), CHARINDEX(')', (Select Substring(@desc, PATINDEX('%(%',@desc) + 1, LEN(@desc)))) - 1) WHERE CHARINDEX(')',(Select Substring(@desc, PATINDEX('%(%',@desc) + 1, LEN(@desc)))) > 0)
declare @HisJob varchar(300) = (select 'JobType' = Case When JobType = 1 Then 'Trader' When JobType = 2 Then 'Robber' When JobType = 3 Then 'Hunter' End From SRO_VT_SHARD.dbo._CharTrijob where CharID = (Select CharID From SRO_VT_SHARD.dbo._Char Where CharName16 = @HisName))
declare @MyCharName varchar(200) = (Select CharName16 From SRO_VT_SHARD.dbo._Char Where CharID = @CharID)
declare @MyJob varchar(300) = (select 'JobType' = Case When JobType = 1 Then 'Trader' When JobType = 2 Then 'Robber' When JobType = 3 Then 'Hunter' End From SRO_VT_SHARD.dbo._CharTrijob where CharID = @CharID)
declare @TotalKill int = (Select TotalKillCount From _JobKillLog Where CharID = @CharID And HisName = @Hisname)
declare @Penalty varchar(max) = (select SUM(TotalKillCount) from _JobKillLog where MyCharName = @MyCharName)
declare @IP1 varchar(max) = (select IP from _IPLogs Where Charname = @MyCharName)
declare @IP2 varchar(max) = (select IP from _IPLogs Where Charname = @Hisname)
declare @silk int = '1'
declare @JID int = (Select UserJID from SRO_VT_SHARD.dbo._User Where CharID = (Select CharID From SRO_VT_SHARD.dbo._Char Where CharName16 = @MyCharName))
declare @ID varchar(200) = (Select StrUserID From SRO_VT_ACCOUNT.dbo.TB_User Where JID = @JID)

if not exists (Select CharID From _JobKillLog Where CharID = @CharID And HisName = @Hisname) And (@MyCharName not in (select CharName from _PenatlyJOB Where CharName = @MyCharName))
begin
Insert Into _JobKillLog values (@CharID,@MyJob,@MyCharName,@Hisname,@HisJob,1,Get Date(),NULL)
EXEC [SRO_VT_ACCOUNT].[CGI].[CGI_WebPurchaseSilk] @OrderID = NULL, @UserID = @ID, @PkgID = NULL, @NumSilk = @Silk, @Price = NULL
end

if exists (select CharID,HisName from _JobKillLog Where CharID = @CharID and HisName = @Hisname and EndDate is null) and (@TotalKill < 5) And (@MyCharName not in (select CharName from _PenatlyJOB Where CharName = @MyCharName))
and (@IP1 != @IP2)
begin
update _JobKillLog
set TotalKillCount += 1
where CharID = @CharID
and Hisname = @Hisname
EXEC [SRO_VT_ACCOUNT].[CGI].[CGI_WebPurchaseSilk] @OrderID = NULL, @UserID = @ID, @PkgID = NULL, @NumSilk = @Silk, @Price = NULL
end

else if exists (select CharID from _JobKillLog Where CharID = @CharID and HisName = @Hisname and EndDate is null) and (@TotalKill = 5) And (@MyCharName not in (select CharName from _PenatlyJOB Where CharName = @MyCharName))
and (@IP1 != @IP2)
begin
update _JobKillLog
set EndDate = DATEADD (DAY,1,GETDATE())
where CharID = @CharID
and HisName = @Hisname
EXEC [SRO_VT_ACCOUNT].[CGI].[CGI_WebPurchaseSilk] @OrderID = NULL, @UserID = @ID, @PkgID = NULL, @NumSilk = @Silk, @Price = NULL
end

if exists (select CharID,HisName,EndDate from _JobKillLog Where CharID = @CharID and HisName = @Hisname and EndDate <= GETDATE())
and (@IP1 != @IP2)
begin
update _JobKillLog
set TotalKillCount = 0,
EndDate = NULL
Where CharID = @CharID
and HisName = @Hisname
EXEC [SRO_VT_ACCOUNT].[CGI].[CGI_WebPurchaseSilk] @OrderID = NULL, @UserID = @ID, @PkgID = NULL, @NumSilk = @Silk, @Price = NULL
end


if (@Penalty = 100)
begin
insert into _PenatlyJOB values (@MyCharName , DATEADD (DAY,1,GETDATE()))
update _JobKillLog
set EndDate = (select PenaltyTime from _PenatlyJOB Where CharName = @MyCharName)
where MyCharName = @MyCharName
EXEC [SRO_VT_ACCOUNT].[CGI].[CGI_WebPurchaseSilk] @OrderID = NULL, @UserID = @ID, @PkgID = NULL, @NumSilk = @Silk, @Price = NULL
end

if exists (select CharName from _PenatlyJOB Where CharName = @MyCharName and PenaltyTime <= GETDATE())
begin
delete from _PenatlyJOB Where CharName = @MyCharName
update _JobKillLog
set TotalKillCount = 0,
EndDate = NULL
Where CharID = @CharID
EXEC [SRO_VT_ACCOUNT].[CGI].[CGI_WebPurchaseSilk] @OrderID = NULL, @UserID = @ID, @PkgID = NULL, @NumSilk = @Silk, @Price = NULL
end
_addlogchar
Quote:
IF (@EventID = 19)
begin
IF (@Desc LIKE '%Robber, Neutral, no freebattle team%' -- thief
) BEGIN
exec _JobSystem @CharID , @Desc
end
end
if (@EventID = 4)
begin
Declare @DynIP varchar(max);
exec @DynIP = SRO_VT_ACCOUNT.dbo.split_ip @Data2
INSERT INTO _IPLogs (CharID,Charname,IP,[Date]) VALUES (@CharID, (SELECT CharName16 FROM SRO_VT_SHARD.dbo._Char WHERE CharID = @CharID),@DynIP,GETDATE())
end

if (@EventID = 6)
begin
delete from ._IPLogs Where CharID = @CharID
end
credits goes to madengo.
Aaron* is offline  
Reply


Similar Threads Similar Threads
[Selling] [Affordable & Professional] Legend Boosting - Quick, Reliable, Professional Company!
06/21/2014 - League of Legends Trading - 29 Replies
NEW SUMMER PRICES! 30% CHEAPER THAN NORMAL! http://i.imgur.com/DQnQTAa.jpg http://i.imgur.com/U2WDAOQ.jpg http://i.imgur.com/2BmAIeJ.jpg http://puu.sh/7MDXu/e0dcf03be5.png http://i.imgur.com/QTxwTFI.png http://i.imgur.com/ekBfazy.png http://i.imgur.com/WtXm7HA.png http://i.imgur.com/Aixf7Ur.png http://i.imgur.com/lgPeTaJ.png
[Selling] League of Legends Professional International EloBoosting EUW/EUNE by Professional
04/06/2014 - League of Legends Trading - 0 Replies
Dear League of Legends Players from Europe, you are stuck in Elohell or you just can't jump your current division or tier? You want to improve your Gamestyle? You wanna buy rarely Skins? No Problem! Simply join us on Eloshuttle Europe - ESEP, Your Boosting/Coaching Service (Already existing over 1 Year) Currently 15% on everything.
[Selling] Microsoft Windows 7 Professional N, 8.1 Professional, 8 Professional
12/13/2013 - Trading - 0 Replies
Folgende 3 Keys stehen hier zum Verkauf: 1 x Windows 8 Professional 32/64-bit Ger Download | 40€ 1 x Windows 7 Professional N with Service Pack 1 32/64-bit Ger- Download | 30€ 1 x Windows 8.1 Professional 32/64-bit German Download | 45€



All times are GMT +2. The time now is 00:44.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.