Cash Shop Plus - Funcionando 90% + 10% (seu hands-on)

mamotinho2013

Banido
1 de Novembro de 2013
95
26
18
26
CashShop +
Você não tem permissão para ver o link. Faça o login ou registre-se agora.


*** CARACTERÍSTICAS ***

Melhor segurança comparar com idade chumpy.cashShop (com respeito)

Pode vender bens para a conta (como serviços premium)

Protótipo de Interface de Cabal oficial + cashshop.

Integração PrototypeJS (Scriptaculous)

Switchable moeda (dinheiro / TPoint)

Função de pesquisa implementado

2 Tabs categoria comutável

Para os Leechers

Como o título dizer que você precisa para hands-on para funcionar 100% e não apenas copiar / colar.

A parte deste lançamento que eu não incluí é a consulta de compra.

mas posso dar-lhe indicações para que assim você vai saber por onde começar.



 ​

CashAccountPlus

USE [CabalCash]


GO


/****** Object: Table [dbo].[CashAccountPlus] Script Date: 11/12/2013 21:42:56 ******/


SET ANSI_NULLS ON


GO


SET QUOTED_IDENTIFIER ON


GO


SET ANSI_PADDING ON


GO


CREATE TABLE [dbo].[CashAccountPlus](


[iD] [varchar](50) NOT NULL,


[userNum] [int] NOT NULL,


[Cash] [int] NOT NULL,


[CashBonus] [int] NOT NULL,


[CashTotal] AS ([Cash]+[CashBonus]),


[updateDateTime] [datetime] NOT NULL,


CONSTRAINT [PK_CashAccont+] PRIMARY KEY CLUSTERED


(


[userNum] ASC


)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]


) ON [PRIMARY]


GO


SET ANSI_PADDING OFF


GO


ALTER TABLE [dbo].[CashAccountPlus] ADD CONSTRAINT [DF_CashAccountPlus_Cash] DEFAULT ((0)) FOR [Cash]


GO


ALTER TABLE [dbo].[CashAccountPlus] ADD CONSTRAINT [DF_CashAccountPlus_CashBonus] DEFAULT ((0)) FOR [CashBonus]


GO


ALTER TABLE [dbo].[CashAccountPlus] ADD CONSTRAINT [DF_CashAccountPlus_UpdateDateTime] DEFAULT (getdate()) FOR [updateDateTime]


GO
ShopItems Table

USE [CabalCash]


GO


/****** Object: Table [dbo].[shopItems] Script Date: 11/12/2013 21:25:50 ******/


SET ANSI_NULLS ON


GO


SET QUOTED_IDENTIFIER ON


GO


SET ANSI_PADDING ON


GO


CREATE TABLE [dbo].[shopItems](


[iD] [int] IDENTITY(1,1) NOT NULL,


[Name] [varchar](200) NOT NULL,


[Description] [varchar](500) NOT NULL,


[itemIdx] [int] NOT NULL,


[DurationIdx] [int] NOT NULL,


[itemOpt] [int] NOT NULL,


[image] [varchar](50) NOT NULL,


[Price] [int] NOT NULL,


[Category] [int] NOT NULL,


[stock] [int] NOT NULL,--this is the Available column


[Rank] [int] NOT NULL, --used for Best selling items


[Count] [int] NOT NULL, --count of goods


[shop] [int] NOT NULL, --1=cash, 2=tpoint


CONSTRAINT [PK_ShopItems] PRIMARY KEY CLUSTERED


(


[iD] ASC


)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]


) ON [PRIMARY]


GO


SET ANSI_PADDING OFF


GO


ALTER TABLE [dbo].[shopItems] ADD CONSTRAINT [DF_ShopItems_Rank] DEFAULT ((0)) FOR [Rank]


GO


ALTER TABLE [dbo].[shopItems] ADD CONSTRAINT [DF_ShopItems_Count] DEFAULT ((1)) FOR [Count]


GO


ALTER TABLE [dbo].[shopItems] ADD CONSTRAINT [DF_ShopItems_Shop] DEFAULT ((1)) FOR [shop]


GO
Isto é o mesmo que GetBankAlz

USE [CabalCash]


GO


/****** Object: StoredProcedure [dbo].[up_Plus_GetCash] Script Date: 11/12/2013 21:34:57 ******/


SET ANSI_NULLS OFF


GO


SET QUOTED_IDENTIFIER ON


GO


ALTER PROCEDURE [dbo].[up_Plus_GetCash](@ID varchar(20), @UserNum int ) AS


BEGIN


if (NOT EXISTS(SELECT UserNum FROM CashAccountPlus WHERE UserNum = @UserNum))


BEGIN


INSERT CashAccountPlus(ID, UserNum, Cash, CashBonus, UpdateDateTime)


VALUES ( @ID, @UserNum, 0, 0, GETDATE() )


END


SELECT UserNum, Cash


FROM CashAccountPlus


WHERE UserNum = @UserNum


END
O StoredProcedure compra

USE [CabalCash]


GO


/****** Object: StoredProcedure [dbo].[up_Plus_BuyItem] Script Date: 11/12/2013 21:32:37 ******/


SET ANSI_NULLS OFF


GO


SET QUOTED_IDENTIFIER ON


GO


ALTER PROCEDURE [dbo].[up_Plus_BuyItem](


@UserNum int,


@ServerIdx int,


@ItemIdx int,


@ItemOpt int,


@ItemDur int,


@ItemCount int


)AS


BEGIN


SET NOCOUNT ON


DECLARE @Price INT, @Num INT, @CashPre INT,@PREMDUR DATETIME, @Type INT


IF (NOT EXISTS(SELECT * FROM ShopItems WHERE ItemIdx = @ItemIdx))


BEGIN


SELECT 'Item Not Found'


RETURN


END


IF (@ItemDur=1) BEGIN SET @PREMDUR=DATEADD(HOUR, 1, GETDATE()) END ELSE


IF (@ItemDur=2) BEGIN SET @PREMDUR=DATEADD(HOUR, 2, GETDATE()) END ELSE


IF (@ItemDur=3) BEGIN SET @PREMDUR=DATEADD(HOUR, 3, GETDATE()) END ELSE


IF (@ItemDur=4) BEGIN SET @PREMDUR=DATEADD(HOUR, 4, GETDATE()) END ELSE


IF (@ItemDur=5) BEGIN SET @PREMDUR=DATEADD(HOUR, 5, GETDATE()) END ELSE


IF (@ItemDur=6) BEGIN SET @PREMDUR=DATEADD(HOUR, 6, GETDATE()) END ELSE


IF (@ItemDur=7) BEGIN SET @PREMDUR=DATEADD(HOUR, 10, GETDATE()) END ELSE


IF (@ItemDur=
BEGIN SET @PREMDUR=DATEADD(HOUR, 12, GETDATE()) END ELSE


IF (@ItemDur=9) BEGIN SET @PREMDUR=DATEADD(DAY, 1, GETDATE()) END ELSE


IF (@ItemDur=10) BEGIN SET @PREMDUR=DATEADD(DAY, 3, GETDATE()) END ELSE


IF (@ItemDur=11) BEGIN SET @PREMDUR=DATEADD(DAY, 5, GETDATE()) END ELSE


IF (@ItemDur=12) BEGIN SET @PREMDUR=DATEADD(DAY, 7, GETDATE()) END ELSE


IF (@ItemDur=13) BEGIN SET @PREMDUR=DATEADD(DAY, 10, GETDATE()) END ELSE


IF (@ItemDur=14) BEGIN SET @PREMDUR=DATEADD(DAY, 14, GETDATE()) END ELSE


IF (@ItemDur=15) BEGIN SET @PREMDUR=DATEADD(DAY, 15, GETDATE()) END ELSE


IF (@ItemDur=16) BEGIN SET @PREMDUR=DATEADD(DAY, 20, GETDATE()) END ELSE


IF (@ItemDur=17) BEGIN SET @PREMDUR=DATEADD(DAY, 30, GETDATE()) END ELSE


IF (@ItemDur=18) BEGIN SET @PREMDUR=DATEADD(DAY, 45, GETDATE()) END ELSE


IF (@ItemDur=19) BEGIN SET @PREMDUR=DATEADD(DAY, 60, GETDATE()) END ELSE


IF (@ItemDur=20) BEGIN SET @PREMDUR=DATEADD(DAY, 90, GETDATE()) END ELSE


IF (@ItemDur=21) BEGIN SET @PREMDUR=DATEADD(DAY, 100, GETDATE()) END ELSE


IF (@ItemDur=22) BEGIN SET @PREMDUR=DATEADD(DAY, 120, GETDATE()) END ELSE


IF (@ItemDur=23) BEGIN SET @PREMDUR=DATEADD(DAY, 180, GETDATE()) END ELSE


IF (@ItemDur=24) BEGIN SET @PREMDUR=DATEADD(DAY, 270, GETDATE()) END ELSE


IF (@ItemDur=25) BEGIN SET @PREMDUR=DATEADD(DAY, 367, GETDATE()) END ELSE


IF (@ItemDur=26) BEGIN SET @PREMDUR=DATEADD(MINUTE, 3, GETDATE()) END ELSE


IF (@ItemDur>=27) BEGIN SET @PREMDUR=DATEADD(YEAR, 99, GETDATE()) END


SELECT @Type = Category FROM ShopItems WHERE ItemIdx=@ItemIdx


SELECT @Price = @ItemCount*Price FROM ShopItems WHERE ItemIdx=@ItemIdx


SELECT @CashPre=Cash FROM CashAccountPlus WHERE UserNum=@UserNum


IF @CashPre<@Price


BEGIN


RETURN -1


END


BEGIN TRAN


SET @Num = 1


WHILE @Num<=@ItemCount


BEGIN


IF(@Type>=2) --To Character


BEGIN


INSERT INTO MyCashItem (UserNum,TranNo,ServerIdx,ItemKindIdx,ItemOpt,DurationIdx)


VALUES (@UserNum,0,@ServerIdx,@ItemIdx,@ItemOpt,@ItemDur)


IF(@@RowCount < 1)


BEGIN


ROLLBACK TRAN


RETURN -2


END


END


IF(@Type=1) --Premium for Account


BEGIN


IF (NOT EXISTS(SELECT * FROM Account.dbo.cabal_charge_auth WHERE UserNum = @UserNum))


BEGIN


INSERT INTO Account.dbo.cabal_charge_auth(UserNum,[Type],[ExpireDate],PayMinutes,ServiceKind)


VALUES (@UserNum,0,@PREMDUR,0,@ItemIdx)


IF(@@RowCount < 1)


BEGIN


ROLLBACK TRAN


RETURN -2


END


END


ELSE IF (EXISTS(SELECT * FROM Account.dbo.cabal_charge_auth WHERE UserNum = @UserNum))


BEGIN


UPDATE Account.dbo.cabal_charge_auth SET [ExpireDate]=@PREMDUR, ServiceKind=@ItemIdx WHERE UserNum=@UserNum


IF(@@RowCount < 1)


BEGIN


ROLLBACK TRAN


RETURN -3


END


END


END


SET @Num=@Num+1


END


UPDATE ShopItems SET Stock=Stock-@ItemCount, [Rank]=[Rank]+1 where ItemIdx=@ItemIdx


IF(@@RowCount < 1)


BEGIN


ROLLBACK TRAN


RETURN -4


END


UPDATE CashAccountPlus SET Cash=Cash-@Price, UpdateDateTime = GETDATE() WHERE UserNum = @UserNum


IF(@@RowCount < 1)


BEGIN


ROLLBACK TRAN


RETURN -5


END


INSERT INTO CashLog(Usernum,LogType,CashPre,CashBonusPre,CashAfter,CashBonusAfter,ChangeCash,ChangeCashBonus,ItemCD,TranNo)


VALUES (@UserNum,2,@CashPre,0,@CashPre-@Price,0,0-@Price,0,@ItemIdx,CAST(GETDATE() AS INT)+@Price)


IF(@@RowCount < 1)


BEGIN


ROLLBACK TRAN


RETURN -6


END


COMMIT TRAN


END
BOM NÃO VIR OS CRÉDITOS ENTÂO SI CASO APAREÇA O DONO DO PROJETO DEIXA AI MENSAGEM PARA EU EDITA OS CRÉDITOS ESSE TOPICO FOI RETIRADO DA "RAGEZONE"

OBS: EU NAO CONSEGUIR CONFIGURAR ESSE SITE ENTÃO QUEM CONSEGUIR AJUDE-NÓS FAZENDO UM TUTORIAL COM UM VIDEO!
 
Editado por um moderador:
  • Like
Reactions: malokado789

Nicke

Usuário XPZ
25 de Março de 2011
191
54
28
27
Não conseguiu configurar por que falta fazer a parte da segurança de login e compra de itens ainda. Está incompleto, eu possuo ele completo e um novo com sistema de carrinho de compras parecido com este, porém não está disponível no fórum
 

mamotinho2013

Banido
1 de Novembro de 2013
95
26
18
26
Nicke por que não libera o resto que esta faltando
séria uma boa webshop assim ninguem colocaria shop pelo navegador e sim por IN-GAME
 

Nicke

Usuário XPZ
25 de Março de 2011
191
54
28
27
Não disse que está faltando, e sim de que terá que desenvolver. Como pode ver, 10% em suas mãos como no título original.
 

mamotinho2013

Banido
1 de Novembro de 2013
95
26
18
26
Oky! valeu ai outra coisa Nicke , por que aquela página "sisCadastrar" no seu site Machine não funfa fora da index do site? tem como fazer ele funcionar em pagina separada?

Não disse que está faltando, e sim de que terá que desenvolver. Como pode ver, 10% em suas mãos como no título original.
 

stavrov1

Novato XPZ
10 de Fevereiro de 2015
1
0
1
Введите текст или адрес веб-сайта либо 
Você não tem permissão para ver o link. Faça o login ou registre-se agora.
.








Ajuda, eu fiz lançador, tudo como sacode a atualização, mas quando eu pressionarcomeçar cabala, ele começa a carregar, mas quando eu começar a digitar um nome de usuário e senha, ele não ir para o servidor e por meio de um bastão simples entraajudar eu não sei o que fazer, já tentei de tudo.

  Desculpe o mau Português
 

daniielbsb

Honrado XPZ
27 de Outubro de 2014
17
0
0
check your cabal config status if everything are okay , them type service cabal stop 2x and start it again , if you need some help call me maybe i can explain using team viewer XD
 
Editado por um moderador:

SKT

Honrado XPZ
18 de Julho de 2014
83
30
18
30
as tabelas é de boa mas as procedures não estou conseguindo criar da erro:


Msg 208, Level 16, State 6, Procedure up_Plus_GetCash, Line 16
Invalid object name 'dbo.up_Plus_GetCash'.


Ambas dão mesmo erro unica diferença é no nome, uso SQL 2008 R2 sql incompatível ?


Consegui entender é porque tinha de ser criada uma procedure para então dar um update com essas duas procedures, agora to tentando entender porque quando clico em comprar um app alto teste da um errinho dizendo...


Your buying query here


this file is located in (*/_shop/_buy.php)


Vou dar uma fuçada nesse buy para entender melhor.


me ajudem a solucionar essa bucha da foto?


Sem Título.jpg


Sem Título 2.png


Sem Título 2.png
 
Editado por um moderador: