Auction House System

[Zopto]

can you make tutorial for dx7 version pls?

[JohnPony]

> can you make tutorial for dx7 version pls?

Sure, it was just rendering the image for the auction item.

[Zopto]

tnx man alot!  

[JohnPony]

I really don't have the ability to test it, and I've never actually worked with DD7 before, but try this.

```

Public Sub DrawAuctionItemDesc(ByVal ItemNum As Long)

Dim rec As RECT, rec_pos As RECT

Dim itempic As Long

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

ItemNum = GetPlayerInvItemNum(MyIndex, DragInvSlotNum)

If ItemNum > 0 And ItemNum <= MAX_ITEMS Then

itempic = Item(GetPlayerInvItemNum(MyIndex, ItemNum)).Pic

If itempic = 0 Then Exit Sub

With rec

.top = 0

.Bottom = .top + PIC_Y

.Left = DDSD_Item(itempic).lWidth / 2

.Right = .Left + PIC_X

End With

With rec_pos

.top = 0

.Bottom = 64

.Left = 0

.Right = 64

End With

' Load item if not loaded, and reset timer

ItemTimer(itempic) = GetTickCount + SurfaceTimerMax

If DDS_Item(itempic) Is Nothing Then

Call InitDDSurf("Items\" & itempic, DDSD_Item(itempic), DDS_Item(itempic))

End If

Engine_BltToDC DDS_Item(itempic), rec, rec_pos, frmAuctions.picItem, False

End If

' Error handler

Exit Sub

errorhandler:

HandleError "DrawAuctionItemDesc", "modGraphics", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub

```

Tell me if it throws any problems your way.

[Alerd]

i dont have on eo 2.0 this

```

Next in modGraphics in Public Sub DrawGDI() add:

If frmAuctions.fraNew.Visible Then

If CurrentAuctionselections <> 0 Then

DrawAuctionItemDesc CurrentAuctionselections

End If

End If

```

[Zopto]

yea is there any other way?

[JohnPony]

CurrentAuctionselections

Where ever the value of that is set "Too lazy to check" try adding this:

DrawAuctionItemDesc CurrentAuctionselections

Below it.

[Zzbrandon]

I added this to Dragon Eclipse works like a charm thanks General Pony 

[WiseRock]

Could you release a tut for 2.3 Event System Please?

I am desperate for a Auction House

[Ryo]

I have read the code and there is some details you could work on a bit,

First, if someone made a first auction of 100$ then remade an other one of 150$ instead of giving only 50dollars he will give 150$ again,

Also it doesn't seem to give back there money to the auction loosers

Very nice though 

[JohnPony]

Unless i left something out of the tutorial, it should give the money back to the losers.

Also, could you please explain more about the money bug?

[Matt]

I found a few small bugs with the downloaded version of this. You can set up an auction, select the item to bid for, then drop that item and start the auction. You can also log out of the game with the auction form open. If you auction off an item, and someone buys it, the person who auctioned the item doesn't get the money. Otherwise, a great system!

[iraasta]

Sorry for noob question. It seems that it will but need to make sure before starting. Is it compatibile with EA 3.0.21?

[Slasheree]

> I found a few small bugs with the downloaded version of this. You can set up an auction, select the item to bid for, then drop that item and start the auction. You can also log out of the game with the auction form open. If you auction off an item, and someone buys it, the person who auctioned the item doesn't get the money. Otherwise, a great system!

What's the item number of your currency ?

[Matt]

> What's the item number of your currency ?

As I mentioned, this is in the download link he provided so the number would be one.

[Slasheree]

ok, it's just that I had to modify a lot of stuff to make it work with the CS:DE, and edited some stuff, like saying the time left, who 'posted' the item, and I ended up modifing a lot of the original one, made it check if player was online, if so give item to his bank, otherwise add to 1 of the 25 auction house variables I made so that he could receive more than just 1 item from the auction house, etc etc ._.

[Ertzel]

> If you auction off an item, and someone buys it, the person who auctioned the item doesn't get the money.

I haven't looked at this system in awhile but does this bug only happen when the player who put the item up for auction is logged out when the item is sold, then they don't receive their money, or does it happen even if the seller is online?

Also if you said its happening with the downloaded version, is there a chance that when Gen posted [this bugfix](http://www.touchofdeathforums.com/community/index.php?/topic/130033-auction-house-system/#entry859553),he didn't change the download link to a version with the fix?

[JohnPony]

I may of added a bug fix and simply didn't compile/add in the fix.

I do know the form is glitched, but that is so simple the average person should be able to fix it.

[Matt]

> I may of added a bug fix and simply didn't compile/add in the fix.
>
> I do know the form is glitched, but that is so simple the average person should be able to fix it.

Ah ok. And as for the form, I know it's simple, but I pointed it out just in case you missed it. It should be in the tutorial regardless of how simple it is.

[Whitepinkbun]

damn it I havnt had a look yet but my game has a Auction House I'm working on was gona do a tut totaly beat me to it! xD Nice

[chamster]

can u make a TUT for DD7 please?

[WiseRock]

So no tut for DX7?

[WiseRock]

it seems like this sub was forgotten

```

Private Sub HandleBid(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Dim Buffer As clsBuffer

Dim Bid As Long

Dim Num As Long

Set Buffer = New clsBuffer

Buffer.WriteBytes Data

With Buffer

Num = .ReadLong

Bid = .ReadLong

End With

Call BidOnAuction(Index, Bid, Num)

Set Buffer = Nothing

End Sub

```

[JohnPony]

> it seems like this sub was forgotten
>
> ```
>
> Private Sub HandleBid(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
>
> Dim Buffer As clsBuffer
>
> Dim Bid As Long
>
> Dim Num As Long
>
> Set Buffer = New clsBuffer
>
>
>
>
>
> Buffer.WriteBytes Data
>
> With Buffer
>
>
>
> Num = .ReadLong
>
> Bid = .ReadLong
>
>
>
> End With
>
> Call BidOnAuction(Index, Bid, Num)
>
> Set Buffer = Nothing
>
> End Sub
>
> ```

It seems it has!

Thanks man.

[hisherwin]

Will this be possible to work on dx7?