Modo compra/venda.

por Kisuke Sáb 17 Mar 2012, 10:07

Esse sistema faz você entrar no modo de compra,isto é,você clicará em " compra " em vez de precisar ir clicando no item,depois em comprar,você economiza tempo clicando em " compra " daí clica 2 vezes nos diversos itens adquirindo eles.

Server Side

Na modHandleData, em HandleSellItem e HandleBuyItem, ache:

Código:: ResetShopAction index

Esse comando vai aparecer duas vezes em cada sub, remova todos os casos encontrados nos estes dois subs.

Client Side

Ache na frmmain:

Código:: Private Sub imgShopBuy_Click()

Modifique para:

Código:: Private Sub imgShopBuy_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If ShopAction = 1 Then ShopAction = 0 AddText "Parar de comprar", White Else ShopAction = 1 ' buying an item AddText "Você está no modo compra,clique duas vezes nos itens para adquiri-los.", White End If ' Error handler Exit Sub errorhandler: HandleError "imgShopBuy_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub

Agora ache:

Código:: Private Sub imgShopSell_Click()

Substitua completamente por:

Código:: Private Sub imgShopSell_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If ShopAction = 2 Then ShopAction = 0 AddText "Encerrar compra.", White Else ShopAction = 2 ' selling an item AddText "Você está no modo compra,clique duas vezes nos itens para adquiri-los.", White End If ' Error handler Exit Sub errorhandler: HandleError "imgShopSell_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub