X-Weaver

http://img134.imageshack.us/img134/8345/44701229.png  :azn:

i mad eit wothout background so its transparent, and u can put ruins, ect…

enjoy xD  http://img813.imageshack.us/img813/135/chaoscrepxd.png

ok thank very much!

emmm how to put more lengths for map names it's only 20 i need more lengths for map name help

FIXED xD only change scalemode to 03-PIXEL it will work xDDDDD with 608 x 800 work full

uff i got the same problem when i click to draw the map it misalign

o.o ty for the fix xDD

ok thanks :D it work fine :cheesy: :cheesy: :cheesy: XD

emm when i equip a item for my player emm i cant see any item in the sprite, help? what i need to do to see the items on sprite equipped xD

ty hehe that why i said im nub

look nice and great xD but where is mario face :P

ok the tut hehe http://www.touchofdeathforums.com/smf/index.php/topic,50673.0.html

Emmm this is a nub tut and my first tut how to change ur player hp bar ingame screen and change their respective locations Difficulty Level = 1/5 something like this  Open your source with visual and find ``` Sub BltPlayerBars(ByVal Index As Long) ``` you will see something like this ``` Sub BltPlayerBars(ByVal Index As Long) Dim X As Long, y As Long X = (GetPlayerX(Index) * PIC_X + sx + Player(Index).xOffset) - (NewPlayerX * PIC_X) - NewXOffset y = (GetPlayerY(Index) * PIC_Y + sx + Player(Index).yOffset) - (NewPlayerY * PIC_Y) - NewYOffset If Player(Index).HP = 0 Then Exit Sub End If If SpriteSize = 1 Then ' draws the back bars Call DD_BackBuffer.SetFillColor(RGB(255, 0, 0)) Call DD_BackBuffer.DrawBox(X, y - 30, X + 32, y - 34) ' draws HP Call DD_BackBuffer.SetFillColor(RGB(0, 255, 0)) Call DD_BackBuffer.DrawBox(X, y - 30, X + ((Player(Index).HP / 100) / (Player(Index).MaxHp / 100) * 32), y - 34) Else If SpriteSize = 2 Then ' draws the back bars Call DD_BackBuffer.SetFillColor(RGB(255, 0, 0)) Call DD_BackBuffer.DrawBox(X, y - 30 - PIC_Y, X + 32, y - 34 - PIC_Y) ' draws HP Call DD_BackBuffer.SetFillColor(RGB(0, 255, 0)) Call DD_BackBuffer.DrawBox(X, y - 30 - PIC_Y, X + ((Player(Index).HP / 100) / (Player(Index).MaxHp / 100) * 32), y - 34 - PIC_Y) Else ' draws the back bars Call DD_BackBuffer.SetFillColor(RGB(255, 0, 0)) Call DD_BackBuffer.DrawBox(X, y + 2, X + 32, y - 2) ' draws HP Call DD_BackBuffer.SetFillColor(RGB(0, 255, 0)) Call DD_BackBuffer.DrawBox(X, y + 2, X + ((Player(Index).HP / 100) / (Player(Index).MaxHp / 100) * 32), y - 2) End If End If End Sub ``` In this part of the sub bltplayerbar ``` X = (GetPlayerX(Index) * PIC_X + sx + Player(Index).xOffset) - (NewPlayerX * PIC_X) - [color]NewXOffset[/color] y = (GetPlayerY(Index) * PIC_Y + sx + Player(Index).yOffset) - (NewPlayerY * PIC_Y) - [color]NewYOffset[/color] ```u can change the location of the bar put + or - like this ``` X = (GetPlayerX(Index) * PIC_X + sx + Player(Index).xOffset) - (NewPlayerX * PIC_X) - NewXOffset - 8 y = (GetPlayerY(Index) * PIC_Y + sx + Player(Index).yOffset) - (NewPlayerY * PIC_Y) - NewYOffset - 5 ``` if u want to use SP or MP bar just replace HP and MAXHP ``` Call DD_BackBuffer.SetFillColor(RGB(0, 255, 0)) Call DD_BackBuffer.DrawBox(X, y + 2, X + ((Player(Index).[color]HP[/color] / 100) / (Player(Index).[color]MaxHp[/color] / 100) * 32), y - 2) ``` to MP MaxMP, MaxSp and SP like this ``` Call DD_BackBuffer.SetFillColor(RGB(0, 255, 0)) Call DD_BackBuffer.DrawBox(X, y + 2, X + ((Player(Index).MP / 100) / (Player(Index).MaxMP / 100) * 32), y - 2) `````` Call DD_BackBuffer.SetFillColor(RGB(0, 255, 0)) Call DD_BackBuffer.DrawBox(X, y + 2, X + ((Player(Index).SP / 100) / (Player(Index).MaxSP / 100) * 32), y - 2) ``` ohh and need to change the location - and + hehehe if u want to change the npc bar is the same from this and if u want to show ur bar for other ppl can see urs in sub playerbar find and change 0 to 1 ``` If Player(Index).HP = 0 Then Exit Sub End If ```like this ``` If Player(Index).HP = 1 Then Exit Sub End If ``` and in this ``` Call DD_BackBuffer.SetFillColor(RGB(0, 255, 0)) Call DD_BackBuffer.DrawBox(X, y + 2, X + ((Player(Index).SP / 100) / (Player(Index).MaxSP / 100) * 32), y - 2) ``` ((Player(Index).HP / 100) / (Player(Index) change Index to MyIndex ((Player(MyIndex).HP / 100) / (Player(MyIndex) its all now ppl can see ur bar if u want my code this is ``` Sub BltPlayerBars(ByVal Index As Long) Dim X As Long, y As Long X = (GetPlayerX(Index) * PIC_X + sx + Player(Index).xOffset) - (NewPlayerX * PIC_X) - NewXOffset - 8 y = (GetPlayerY(Index) * PIC_Y + sx + Player(Index).yOffset) - (NewPlayerY * PIC_Y) - NewYOffset - 5 If Player(Index).HP = 1 Then Exit Sub ' draws the back bars Call DD_BackBuffer.SetFillColor(RGB(0, 0, 0)) Call DD_BackBuffer.DrawBox(X, y - 10, X + 46, y - 6) ' draws HP Call DD_BackBuffer.SetFillColor(RGB(0, 255, 0)) Call DD_BackBuffer.DrawBox(X, y - 10, X + ((Player(MyIndex).HP / 100) / (Player(MyIndex).MaxHp / 100) * 46), y - 6) ' draws the back bars Call DD_BackBuffer.SetFillColor(RGB(0, 0, 0)) Call DD_BackBuffer.DrawBox(X, y - 4, X + 46, y - 0) 'draws MP for you Call DD_BackBuffer.SetFillColor(RGB(0, 0, 255)) Call DD_BackBuffer.DrawBox(X, y - 4, X + ((Player(MyIndex).MP / 100) / (Player(MyIndex).MaxMP / 100) * 46), y - 0) ``` :azn: XD

i know it is in source edit but u never explain me where