Register for your free account! | Forgot your password?

Go Back   elitepvpers > MMORPGs > 4Story
You last visited: Today at 06:33

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

Advertisement



[Release]Scripts and Fixes

Discussion on [Release]Scripts and Fixes within the 4Story forum part of the MMORPGs category.

Closed Thread
 
Old 09/13/2013, 11:25   #16
 
elite*gold: 0
Join Date: Nov 2010
Posts: 214
Received Thanks: 171
I share new script and fix.

[Script]Levels 34,61 for others account's characters

[Fix]Storage Shop
Sicarium is offline  
Old 09/13/2013, 15:07   #17
 
elite*gold: 12
Join Date: Feb 2013
Posts: 442
Received Thanks: 246
Thanks Man!
Do you can tell me how "[Script]Gifts Item/money for levels " does work?
AllCowsAreBurgers is offline  
Old 09/13/2013, 15:13   #18
 
elite*gold: 0
Join Date: Nov 2010
Posts: 214
Received Thanks: 171
Each 10 levels the script send items or money, you can edit my script and set the item who you want
Sicarium is offline  
Old 09/13/2013, 15:18   #19
 
elite*gold: 12
Join Date: Feb 2013
Posts: 442
Received Thanks: 246
Can u give me an example db?
I canīt speak italian as well :=)
AllCowsAreBurgers is offline  
Old 09/13/2013, 15:29   #20
 
Devillos's Avatar
 
elite*gold: 0
Join Date: Aug 2013
Posts: 256
Received Thanks: 17
lustig XD ts3 lachflesh HAHAHHAH
Devillos is offline  
Old 09/13/2013, 15:36   #21
 
elite*gold: 12
Join Date: Feb 2013
Posts: 442
Received Thanks: 246
Okkey thatīs only the check table xD
AllCowsAreBurgers is offline  
Old 09/13/2013, 15:46   #22
 
elite*gold: 0
Join Date: Nov 2010
Posts: 214
Received Thanks: 171
Code:
/* if the level is >= 1*/
IF(@livello >= 1)
BEGIN
/* i see if item is already in Premi, and if it isn't there i send the gift*/
SELECT * FROM Premi WHERE Verifica = 'Inviato' AND LivelloPremio = 1 AND Personaggio = @szName
IF(@@ROWCOUNT = 0)
BEGIN
    SET @livellopremio = 1 /* level gift*/
    SET @oggetto = 7644 /* item ID*/
    SET @quantita = 1 /* count */
    SET @verifica = 'Inviato' /* Sent*/

    SET @dateCreated = GetDate()
    SET @szTitle = 'Gifts for new characters'
    SET @szMessage = 'We give you 1 exp plus, 1 weapon +11,you can find it on deposit shop, and 100 silver in this letter'
    SET @bLenTitle = DATALENGTH(@szTitle)
    SET @bLenMessage = DATALENGTH(@szMessage)
    SET @szT = RIGHT(master.dbo.fn_sqlvarbasetostr(@bLenTitle), 8)
    SET @szTitle  = @szT + @szTitle
    SET @szM = RIGHT(master.dbo.fn_sqlvarbasetostr(@bLenMessage), 8)
    SET @szMessage = @szM + @szMessage
    EXEC TSavePost @dwPostID OUTPUT, @dwRecvID OUTPUT, 0, @dwCharID, @szName, 'Staff 4story',@szTitle,@szMessage,0,0,0,100,0,@dateCreated

/* number of rows*/
SELECT @numrighe = COUNT(*) FROM TGLOBAL_GSP.DBO.TCASHITEMCABINETTABLE

/* number of rows + 1*/
SET @numrighetot= @numrighe + 1

/* send the exp plus into deposit shop*/
SET IDENTITY_INSERT TGLOBAL_GSP.DBO.TCASHITEMCABINETTABLE ON
INSERT INTO TGLOBAL_GSP.DBO.TCASHITEMCABINETTABLE(dwID, dwUserID, wItemID, bLevel, bCount, bGLevel, dwDuraMax, dwDuraCur, bRefineCur, dEndTime, bGradeEffect,bMagic1, bMagic2, bMagic3, bMagic4, bMagic5, bMagic6,wValue1, wValue2, wValue3, wValue4, wValue5, wValue6, dwTime1, dwTime2, dwTime3, dwTime4, dwTime5, dwTime6,bWorldID,dlID)
VALUES(@numrighetot, @dwUserID, @oggetto, 0, @quantita, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0,0)
SET IDENTITY_INSERT TGLOBAL_GSP.DBO.TCASHITEMCABINETTABLE OFF
SELECT @nomeoggetto = szName FROM TGLOBAL_GSP.DBO.TCASHSHOPITEMCHART WHERE wItemID = @oggetto
INSERT INTO Premi (Personaggio,LivelloPremio,oggetto,Quantita,Verifica)VALUES(@szName ,@livellopremio,@nomeoggetto,@quantita,@verifica)

/* check the class*/
SELECT @bClass = bClass FROM TCHARTABLE WHERE dwCharID = @dwCharID    

/* Weapon for class*/
IF(@bClass = 0)
BEGIN
SET @oggetto = 11224
END
IF(@bClass = 1)
BEGIN
SET @oggetto = 11225
END
IF(@bClass = 2)
BEGIN
SET @oggetto = 11527
END
IF(@bClass >= 3)
BEGIN
SET @oggetto = 11220
END

/* number of rows*/
SELECT @numrighe = COUNT(*) FROM TGLOBAL_GSP.DBO.TCASHITEMCABINETTABLE

/* number of rows + 1*/
SET @numrighetot= @numrighe + 1

/* set the count item = 1*/
SET @quantita = 1

/* send the weapon +11 into tcashitemcabinettable*/
SET IDENTITY_INSERT TGLOBAL_GSP.DBO.TCASHITEMCABINETTABLE ON
INSERT INTO TGLOBAL_GSP.DBO.TCASHITEMCABINETTABLE(dwID, dwUserID, wItemID, bLevel, bCount, bGLevel, dwDuraMax, dwDuraCur, bRefineCur, dEndTime, bGradeEffect,bMagic1, bMagic2, bMagic3, bMagic4, bMagic5, bMagic6,wValue1, wValue2, wValue3, wValue4, wValue5, wValue6, dwTime1, dwTime2, dwTime3, dwTime4, dwTime5, dwTime6,bWorldID,dlID)
VALUES(@numrighetot, @dwUserID, @oggetto, 11, @quantita, 0, 5000,5000 , 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0,0)
SET IDENTITY_INSERT TGLOBAL_GSP.DBO.TCASHITEMCABINETTABLE OFF

/* get the item's name*/
SELECT @nomeoggetto = szName FROM TGLOBAL_GSP.DBO.TCASHSHOPITEMCHART WHERE wItemID = @oggetto

/* send the log to Premi*/
INSERT INTO Premi (Personaggio,LivelloPremio,oggetto,Quantita,Verifica)VALUES(@szName ,@livellopremio,@nomeoggetto,@quantita,@verifica)

END
END

these days i edit my script and share 1 more easy

i added new version of the script in the first page [Script]New Gifts Item/money for levels
Sicarium is offline  
Thanks
3 Users
Old 09/24/2013, 18:20   #23
 
elite*gold: 0
Join Date: Jun 2011
Posts: 158
Received Thanks: 54
Again delete :| ?
serbansubs is offline  
Old 09/24/2013, 18:23   #24
 
elite*gold: 12
Join Date: Feb 2013
Posts: 442
Received Thanks: 246
Why delete?
AllCowsAreBurgers is offline  
Old 09/24/2013, 18:27   #25
 
elite*gold: 0
Join Date: Aug 2013
Posts: 348
Received Thanks: 65
Because he is working on a new server and so he wont release things anymore
iKonsT is offline  
Closed Thread


Similar Threads Similar Threads
[Release] RoC Fixes
12/12/2012 - Flyff PServer Guides & Releases - 54 Replies
Baruna Tooltip (Logo Description) WndManager.cpp After if( pItemProp->IsUltimate() ) g_toolTip.SetUltimateToolTip(pItemBase);Add if( pItemProp->IsBaruna() ) g_toolTip.SetBarunaToolTip(pItemBase);
Aion java custom events, scripts, bugg fixes, etc.
12/29/2009 - Aion Trading - 0 Replies
Hello there, My name is Donatas and im a Java developer. Im offering you custom aion java scripts for a smart price. I can do anything you ask in a period of time for a fair amout of cash according to the scipt difficulty. If you are interested contact me by skype: djavolas or e-mail: [email protected] :pimp:
[Release]Fixes & Solutions
05/09/2009 - Cabal Private Server - 1 Replies
If possible, please use rapidshare.com. Thank You. .DDS Files: Rapidshare.com Megaupload.com .MCL files Rapidshare.com Megaupload.com



All times are GMT +1. The time now is 06:34.


Powered by vBulletin®
Copyright ©2000 - 2025, 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 ©2025 elitepvpers All Rights Reserved.