Zopto

and what is in options on your server??? [OPTIONS] Game_Name=Eclipse Omega Port= (your port ) MOTD=Welcome to Eclipse Omega Modification Website=http://www.touchofdeathforums.com

here is a picture [](http://www.freeimagehosting.net/poxns) i found problem 'Change 1 to item number itemamount = HasItem(Founder_Index, 1) 'Change 5000 to amount If itemamount = 0 Or itemamount < 5000 Then PlayerMsg Founder_Index, "Not enough Gold.", BrightRed Exit Sub End If 'Change 1 to item number 5000 to amount TakeInvItem Founder_Index, 1, 5000 this code block that when iremove it it work….what is wrong whit this code??

when i try to invent some 1 it send invent but when i went to accept it say to no 1 is online of that guid??????how to fix>??i use your finished guild system

it is grate but when is map biger and minimap is biger :S

set your ip in configuration and port i think that somting

``` Player message If Left$(ChatText, 2) = "! " Then ' Notice: "! " is two characters (exclamation, space) ChatText = Mid$(ChatText, 2, Len(ChatText)) ' Hence change "Len(ChatText) - 1" to "Len(ChatText - 2)" (quotes for clarity). ' Get the desired player from the user text For i = 1 To Len(ChatText) If Mid$(ChatText, i, 1) Space(1) Then Name = Name & Mid$(ChatText, i, 1) Else Exit For End If Next ChatText = Mid$(ChatText, i, Len(ChatText) - 1) ' Make sure they are actually sending something If Len(ChatText) - i > 0 Then MyText = Mid$(ChatText, i + 1, Len(ChatText) - i) ' Send the message to the player Call PlayerMsg(ChatText, Name) Else Call AddText("Usage: ! playername (message)", AlertColor) End If MyText = vbNullString frmMain.txtMyChat.text = vbNullString Exit Sub End If ```is here ewriting ok?

yea that work but when i send pm it automaticly send pm to any person on map…xD idk why...

@wyvern640: > Can i add a system on it that players just create guild if they has 10000 Golds on inventory? > Like this system i created and think it works, but where i add this code for players just create if they have money? > > –---------------------------------------------- > If HasItem(index, 1) Then > Call TakeInvItem(index, 1, 1) > Else > SendPlayerMsG(MyIndex) = "You dont have money to create guild" yea that also neeed me xD

i hawe problem whit this code ' Player message If Left$(ChatText, 2) = "! " Then ' Notice: "! " is two characters (exclamation, space) ChatText = Mid$(ChatText, 2, Len(ChatText) - 2) ' Hence change "Len(ChatText) - 1" to "Len(ChatText - 2)" (quotes for clarity). when i set Len(ChatText - 1) it dont work but when i set -2 i work whit 1 problem ..  i got this -.-…... when i send message like hayy how going he say hay how g

how to make to i mast pay exemple 1000 coins(gold) when i put /Create guild

yea that tutorial works for me ^^

i make to my character evolue whit this code exemple:if i got lvl 16 he chage sprite….. Sub SetPlayerSprite(ByVal Index As Long, ByVal Sprite As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Sprite = Sprite If Player(Index).Level > 16 Then If Player(Index).Sprite = 1 Then Player(Index).Sprite = 2 End If Else End If ' Error handler Exit Sub errorhandler: HandleError "SetPlayerSprite", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub but how to make for a pet ???i using lighting pet system

niceeeeee

TY finaly i hawe all for my game i sat your name in npc Guild Master Scott TYYYYYYYYYYYYYYYYYY

sry i dont see that post

ok i do all codes right but when i went to leave guild it say you are not in guild but i am also all work grate and i just cant make to i live guild her eis code : Private Sub cmdDismiss_Click() Dim Buffer As clsBuffer Set Buffer = New clsBuffer Dim DismissPlayer As String DismissPlayer = Player(MyIndex).Name If Player(MyIndex).Guild = vbNullString Then Call MsgBox("You are not in a guild!") Exit Sub End If If MsgBox("Are you sure you want to delete/leave your guild?", vbYesNo, Options.Game_Name) = vbYes Then Buffer.WriteLong CDismissFromGuild Buffer.WriteString DismissPlayer SendData Buffer.ToArray() Set Buffer = Nothing DoEvents Dim ShowOffline As String Set Buffer = New clsBuffer Buffer.WriteLong CRequestGuildList ShowOffline = "False" Buffer.WriteString ShowOffline SendData Buffer.ToArray() Set Buffer = Nothing DoEvents Me.Hide End If End Sub

whay you put russian???

xD

i try your guild system erwin but server dont get comand to i am in guild and i dont know how to fix that

dose pokemon mystery dungeon game be good whiteout guild system ???

how to make when i went to make party i need frst to put name then that name show above player…and he be in party also....

i try to make pet to evolue but ir dont work i make this code (lighting pet system) (EditorIndex) If Npc(EditorIndex).Level > 16 Then If Npc(EditorIndex).Sprite = 1 Then Npc(EditorIndex).Sprite = 2 End If sry for bed englesh…

niceee

@Aeri: > Most of the tutorials available will work, but the ones that involve rendering pictures or the like don't. CS uses a different graphics system. ty Aeri

dose CS using same scripts like E.O it is posoble to use scripts of E.O on CS???