Ice - Fire

Dear Member, I will rate your work seven out of ten this rating will change as your work is added and improved, But nice work so far. May I wonder what program you are using to create your work? Yours truly, - Ice

Dear member, Is it me valon or do you always show up on a post like this? Yours truly, - Ice

Dear Member, I feel these titles could work for nay game but would be more suited for a more cartoon-ish-style game. Yours truly, - Ice

Dear member, What are pounds? Yours truly, - Ice

Dear member, ok one please explain in better detail what you want, two if you mean another bar like health you will have to have ini reading and a scripted event when you do a event to call a even such as read or write or edit the ini. Yours truly, - Ice

Dear member, I will look into it. Yours truly, - Ice

Dear member, I know know exactly what you are asking thank you. Yours truly, - Ice

Dear member, when you say source do you mean the script main? Yours truly, - Ice

Dear member, Explain what you mean by example? Yours truly, - Ice

Dear member(s), Ok ill make it simple, I have source edits where the login delete, register, exit ect are at the bottom i have the news, and then i have a quick access bar it shows different text boxes and all depending on if you click the other login, register, delete, i want it so players can go to a new menu or login register and delete there accounts all on one menu but every time i try to login it says: "password must consist of apha-numeric characters" then the frmlogin pops up help is needed at the moment i do not want this message to pop up eclipse stuff posted below: Version: Eclipse Evelution 2.7 Main menu source: ``` Option Explicit Private Sub Form_Load() Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" End If If i = 2 Then Ending = ".jpg" End If If i = 3 Then Ending = ".png" End If If FileExists("GUI\MainMenu" & Ending) Then frmMainMenu.Picture = LoadPicture(App.Path & "\GUI\MainMenu" & Ending) End If Next i Call MainMenuInit frmMainMenu.Text1.Text = Trim$(ReadINI("CONFIG", "Account", App.Path & "\config.ini")) frmMainMenu.Text2.Text = Trim$(ReadINI("CONFIG", "Password", App.Path & "\config.ini")) If AutoLogin = 1 Then Check2.Value = Checked Check1.Value = Checked End If If LenB(frmMainMenu.Text2.Text) 0 Then Check1.Value = Checked Else Check1.Value = Unchecked End If End Sub Private Sub Form_GotFocus() If frmMirage.Socket.State = 0 Then frmMirage.Socket.Connect End If End Sub Private Sub picAutoLogin_Click() If ConnectToServer = False Or (ConnectToServer = True And AutoLogin = 1 And AllDataReceived) Then Call MenuState(MENU_STATE_AUTO_LOGIN) End If End Sub Private Sub picIpConfig_Click() Me.Visible = False frmIpconfig.Visible = True End Sub Private Sub Label1_Click() Dim answer As String answer = MsgBox("Pressing this button will Close Dukandia press ok to continue or cancel to return to Dukandia", vbOKCancel, "Warning...") If answer = vbOK Then Call GameDestroy Else End If End Sub Private Sub Label15_Click() If AllDataReceived Then If LenB(Text1.Text) < 6 Then Call MsgBox("Your username must be at least three characters in length.") Exit Sub End If If LenB(Text2.Text) < 6 Then Call MsgBox("Your password must be at least three characters in length.") Exit Sub End If Call WriteINI("CONFIG", "Account", Text1.Text, (App.Path & "\config.ini")) If Check1.Value = Checked Then Call WriteINI("CONFIG", "Password", Text2.Text, (App.Path & "\config.ini")) Else Call WriteINI("CONFIG", "Password", vbNullString, (App.Path & "\config.ini")) End If If Check2.Value = Checked Then Call WriteINI("CONFIG", "Auto", 1, (App.Path & "\config.ini")) Else Call WriteINI("CONFIG", "Auto", 0, (App.Path & "\config.ini")) End If Call MenuState(MENU_STATE_LOGIN) End If End Sub Private Sub Label2_Click() If ReadINI("CONFIG", "Auto", App.Path & "\config.ini") = 0 Then If LenB(frmLogin.txtPassword.Text) 0 Then frmLogin.Check1.Value = Checked Else frmLogin.Check1.Value = Unchecked End If frmLogin.Visible = True Me.Visible = False Else If AllDataReceived Then If LenB(frmLogin.txtName.Text) < 6 Then Call MsgBox("Your username must be at least three characters in length.") Exit Sub End If If LenB(frmLogin.txtPassword.Text) < 6 Then Call MsgBox("Your password must be at least three characters in length.") Exit Sub End If Call WriteINI("CONFIG", "Account", frmLogin.txtName.Text, (App.Path & "\config.ini")) Call MenuState(MENU_STATE_LOGIN) Me.Visible = False End If End If End Sub Private Sub Label3_Click() Me.Visible = False frmNewAccount.Visible = True End Sub Private Sub Label4_Click() frmDeleteAccount.Visible = True Me.Visible = False End Sub Private Sub lblOnline_Click() End Sub Private Sub picNewAccount_Click() Me.Visible = False frmNewAccount.Visible = True End Sub Private Sub picDeleteAccount_Click() frmDeleteAccount.Visible = True Me.Visible = False End Sub Private Sub picLogin_Click() If ReadINI("CONFIG", "Auto", App.Path & "\config.ini") = 0 Then If LenB(frmLogin.txtPassword.Text) 0 Then frmLogin.Check1.Value = Checked Else frmLogin.Check1.Value = Unchecked End If frmLogin.Visible = True Me.Visible = False Else If AllDataReceived Then If LenB(frmLogin.txtName.Text) < 6 Then Call MsgBox("Your username must be at least three characters in length.") Exit Sub End If If LenB(frmLogin.txtPassword.Text) < 6 Then Call MsgBox("Your password must be at least three characters in length.") Exit Sub End If Call WriteINI("CONFIG", "Account", frmLogin.txtName.Text, (App.Path & "\config.ini")) Call MenuState(MENU_STATE_LOGIN) Me.Visible = False End If End If End Sub Private Sub picCredits_Click() Me.Visible = False frmCredits.Visible = True End Sub Private Sub picQuit_Click() Dim answer As String answer = MsgBox("Pressing this button will Close Dukandia press ok to continue or cancel to return to Dukandia", vbOKCancel, "Warning...") If answer = vbOK Then Call GameDestroy Else End If End Sub Private Sub Status_Timer() If ConnectToServer = True Then If Not AllDataReceived Then Call SendData("givemethemax" & END_CHAR) Else lblOnline.Caption = lblOnline.Caption & " Sync with Ducandia servers succsessfull" End If Else picNews.Caption = "Could not connect, please check your internet connect and server status from [Duakndia sitewill go here] if you still fail to connect contact the Dukandia staff from the main site [Duakndia site posted again], Thank you" lblOnline.Caption = lblOnline.Caption & " Could not find Dukandia servers" End If End Sub ``` Yours truly, - Ice

Update: This will be updated fairly soon with both screenshots and scripts feature list and updated staff please stand by this update was to inform and to bump.

@Robin: > @hamisfat: > > > @Vålöñシ: > > > > > hamisfat, do you mind being my pixel artist for my game??? > > > > LOL woa seriosly?? atleast sumone thinks its ok XD > > Yes, but look at his signature. He obviously has no taste. Robin, valon as some sort of taste just one that not many people have and for a rating i say it is bad but a 3/10 for a first try you need to add as robin says light source, make it more rounded, and if you can try looking at other sprites for an example.

Calm down first of all give tips without being rude about it, and the site is well done but he was right you need to add some more to it but it is good for now so good luck my friend

nice can't wait for ya to finish

try restarting i had to do that one day for a random reason ounce

@Igloo9: > @Captain: > > > @Igloo9: > > > > > Are you that stupid? Really? > > > > > > If I didn't have the library files, then…*sigh* never mind. That was a pretty stupid thing to say. Did you notice how I said it "did" work, but then suddenly stopped? > > > > If you're gonna call people stupid for trying to help, i suggest you gtfo. > > I have been called stupid several times by people on this forum for not knowing how to script despite trying to learn several times. I have also been insulted on the script request forum for, guess what? Requesting a script. > > But it's wrong for me to call someone stupid who suggests to install library files when it's obvious I already have them? > > That sounds fair. Right? no it does not i believe they teach kindergartners two wrongs don't make a right… act like a kindergartner your going to be treated like one and evils right install ELI.

great cant wait to see the rest keep up the good work Die smiley die! :police: :afro:

I like it though i think it should be a bit bigger

10/10 ;-d

I feel sorry for the kid

AWSOME, though why do the back "paws" look like horses?

your welcome and i know in fact i am moving from the vb's to c++ though looking at it your is made of java no? anyway i would just like to let you know, i would never have attempted something like this using java so grats on that.

I like it i was just saying it is easy i have integrated the 15 line code into my source edit and into my vb 2008 projects but i will not denie that it is something good i was trying to be polite about it.

not to be rude but all of these features can easily be coded using a 15 line code in vb6 or vb 2008

:azn: ok