Displaying Sprite On Character Create
Printed From: Mirage Source
Category: Tutorials
Forum Name: Temporary Archive (Read Only)
Forum Discription: Temporary 3.0.3 archive tutorials, will be deleted when converted.
URL: http://ms.shannaracorp.com/backup-forums/forum_posts.asp?TID=196
Printed Date: 20 December 2006 at 5:53pm
Software Version: Web Wiz Forums 8.01 - http://www.webwizforums.com
Topic: Displaying Sprite On Character Create
Posted By: Sync
Subject: Displaying Sprite On Character Create
Date Posted: 11 February 2006 at 3:26pm
Difficulty: Medium 4/5
Originaly Posted By: Magnus
Made by GSD!
-=**Display Sprite In The New Char Screen**=-
Make 2 picture boxes (lets hope you know where :P)
Name one picpic and the other picSprites
make a timer
timer properties=-
enabled = true
interval = 50
END=-
picpic properties=-
Size 32x32
get rid of border style = none
appearance = flat
END=-
picSprites properties=-
Size 32x32
get rid of border style = none
appearance = flat
visible = false
auto redraw = true
auto resize = true
END=-
:::::::::::::::::
:::SERVER SIDE:::
:::::::::::::::::
find: SendNewCharClasses and replace it all with...
Sub SendNewCharClasses(ByVal Index As Long)
Dim Packet As String
Dim i As Long
Packet = "NEWCHARCLASSES" & SEP_CHAR & Max_Classes & SEP_CHAR
For i = 0 To Max_Classes
Packet = Packet & GetClassName(i) & SEP_CHAR & GetClassMaxHP(i) & SEP_CHAR & GetClassMaxMP(i) & SEP_CHAR & GetClassMaxSP(i) & SEP_CHAR & Class(i).STR & SEP_CHAR & Class(i).DEF & SEP_CHAR & Class(i).SPEED & SEP_CHAR & Class(i).MAGI & SEP_CHAR & Class(i).Sprite & SEP_CHAR
Next i
Packet = Packet & END_CHAR
Call SendDataTo(Index, Packet)
End Sub
:::::::::::::::::
:::CLIENT SIDE:::
:::::::::::::::::
find: "newcharclasses"
replace:
n = n + 1
For i = 0 To Max_Classes
Class(i).Name = Parse(n)
Class(i).HP = Val(Parse(n + 1))
Class(i).MP = Val(Parse(n + 2))
Class(i).SP = Val(Parse(n + 3))
Class(i).STR = Val(Parse(n + 4))
Class(i).DEF = Val(Parse(n + 5))
Class(i).SPEED = Val(Parse(n + 6))
Class(i).MAGI = Val(Parse(n + 7))
n = n + 8
Next i
with:
n = n + 1
For i = 0 To Max_Classes
Class(i).Name = Parse(n)
Class(i).HP = Val(Parse(n + 1))
Class(i).MP = Val(Parse(n + 2))
Class(i).SP = Val(Parse(n + 3))
Class(i).STR = Val(Parse(n + 4))
Class(i).DEF = Val(Parse(n + 5))
Class(i).SPEED = Val(Parse(n + 6))
Class(i).MAGI = Val(Parse(n + 7))
Class(i).INTEL = Val(Parse(n + 8))
Class(i).Sprite = Val(Parse(n + 9))
n = n + 10
Next i
double click the timer in the frmNewChar
add:
On Error Resume Next
If optMale.Value = True Then
Call BitBlt(picpic.hdc, 0, 0, PIC_X, PIC_Y, picSprites.hdc, 0, Int(Class(cmbClass.ListIndex).Sprite) * PIC_Y, SRCCOPY)
Else
Call BitBlt(picpic.hdc, 0, 0, PIC_X, PIC_Y, picSprites.hdc, 0, Int(Class(cmbClass.ListIndex).Sprite + 1) * PIC_Y, SRCCOPY)
End If
and under the End Sub add:
Private Sub Form_Load()
picSprites.Picture = LoadPicture(App.Path & "\sprites.bmp")
End Sub
that should be it!
OK THERE IS A BETTER VERSION ON THIS FORUM SOMEWHERE!
|
|