willunited

This error starts when i changed max_map_npc to 100 from 50

When warp to other map my client crash. Eclipse Origins stop working… What i do now? When 2 players change map in same time,server get subscript out of range 13. (I deleted save and load map system (Client Side))

Idk how to do it… ill learn about programation

When pass mouse over the icon,display a image with description. where i can change this image size?

> Public Sub Party_ShareExp(ByVal partyNum As Long, ByVal EXP As Long, ByVal Index As Long) > Dim expShare As Long, leftOver As Long, i As Long, tmpIndex As Long > > ' check if it's worth sharing > If Not EXP >= Party(partyNum).MemberCount Then > ' no party - keep exp for self > GivePlayerEXP Index, EXP > Exit Sub > End If > > ' find out the equal share > expShare = EXP \ Party(partyNum).MemberCount > leftOver = EXP Mod Party(partyNum).MemberCount > > ' loop through and give everyone exp > For i = 1 To MAX_PARTY_MEMBERS > tmpIndex = Party(partyNum).Member(i) > ' existing member?Kn > If tmpIndex > 0 Then > ' playing? > If IsConnected(tmpIndex) And IsPlaying(tmpIndex) Then > ' give them their share > GivePlayerEXP tmpIndex, expShare > End If > End If > Next > > ' give the remainder to a random member > tmpIndex = Party(partyNum).Member(RAND(1, Party(partyNum).MemberCount)) > ' give the exp > GivePlayerEXP tmpIndex, leftOver > End Sub Is this,but idk what i do,im new,srry.

Ill wait…

It will make partys usefull,we need contact Alatar…

In alatar quest system,quests is party doesnt work. Example,in a party i need to kill a boss,my friend too,lets party,we kill,but i kill,im done,my friend no =\ Someone can help?

Thx man.

How i can put potions stacable?

Add End then add real defence system. Enjoy

Not this. The problem is the packet,i increased to 50 from 25,now it works. Thx

@Dawntide: > I saw a "only admin can login" feature in this forum a few days ago. I guess you copy + pasted it or something like that. What you meaning?

I dont know what i do… But when i login as player,the screen still black,when i put Admin,i can play. Really,Idk what i do QQ

Ik Q.Q Thx Edit: Doesnt work… It works but i put 0,3 and the drop still high Edit: I put 0,03 and its works...thx

Drop rate doesnt work? Why i put 75 and is same as 100%? Cant put .75 ¬¬

this computer in Brazil costs 15k dollars DAMMIT! Stupid brazil

Bump

I want use it:  With a cooldown image as source. But i dk how to do that. Help? EDIT: I change this: > ' has spell > If Not SpellCD(n) = 0 Then > sRECT.Left = 32 > sRECT.Right = 64 to this: > ' has spell > If Not SpellCD(n) = 0 Then > sRECT.Left = 32 > sRECT.Right = 32 What i do now? Edit: I changed it: > ' has spell > If Not SpellCD(n) = 0 Then > sRECT.Left = 32 > sRECT.Right = 32 to this: > ' has spell > If Not SpellCD(n) = 0 Then > LoadPicture(App.Path & "\data files\graphics\cooldown.bmp") Doesnt Work :S

> Public Sub DrawPlayerName(ByVal Index As Long) > Dim TextX As Long > Dim TextY As Long > Dim color As Long > Dim Name As String > Dim Text2X As Long > Dim Text2Y As Long > Dim GuildString As String > > ' If debug mode, handle error then exit out > If Options.Debug = 1 Then On Error GoTo errorhandler > > ' Check access level > If GetPlayerPK(Index) = NO Then > > Select Case GetPlayerAccess(Index) > Case 0 > color = RGB(255, 96, 0) > Case 1 > color = QBColor(DarkGrey) > Case 2 > color = QBColor(Cyan) > Case 3 > color = QBColor(BrightGreen) > Case 4 > color = QBColor(Yellow) > End Select > > Else > color = QBColor(BrightRed) > End If > > Name = Trim$(Player(Index).Name) > ' calc pos > TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Name))) > If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then > TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16 > 'Guild TUT > Text2Y = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset > Else > ' Determine location for text > TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 16 > 'Guild TUT > Text2Y = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 4 > End If > > ' Draw name > Call DrawText(TexthDC, TextX, TextY, Name, color) > If Not Player(Index).GuildName = vbNullString Then > Call DrawText(TexthDC, Text2X, Text2Y, GuildString, color) > End If > > ' Error handler > Exit Sub > errorhandler: > HandleError "DrawPlayerName", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext > Err.Clear > Exit Sub > End Sub Its 2.0

its ok,thx

Ambiguous name detected:SSendGuild and SAdminGuild… HELP!

i Changed the Hotbar to numbers…but i got an error. > ' hotbar > For i = 1 To MAX_HOTBAR > If KeyCode = vbKey0 + i Then > SendHotbarUse i > End If > Next I cant use the F10,F11 and F12 I can use only 1,2,3,4,5,6,7,8,9. I can put F10 in 0,F11 in "-" and F12 in "="?

Doesnt Work here :S

Tyvm man. I understand about GetPlayerLevel.