[code] Want To Marry Me ?

€M4NU€L · Post by **€M4NU€L** » Tue Apr 18, 2006 2:19 pm

Well i had an Idea and i got from another game Argentum i dunno if someone knows that game i got the Marry CODE from that since we got the Clone-Client i had an idea ... to make an NPC that you talk to him and you write the name of the other player you want to Marry and a Window will show to him if he/she accepts or if he/she doesn't i can make the NPC Sprite and someone like diuuude,snoopy,cleroth can make the code to HGServer & Client, Heres the CODE from Argentum i know that they are Different Code Languages cuz Argentum is based on C and Helbreath on C++:

Code: Select all

If Left$(UCase$(rdata), 7) = "/MARRY " Then 
Dim UsuarioACasarse As String 
Dim tempIndex As Integer 
UsuarioACasarse = Right$(rdata, Len(rdata) - 7) 
tempIndex = NameIndex(UsuarioACasarse) 
If UsuarioACasarse = "" Then 
Call SendData(ToIndex, UserIndex, 0, "||You gotta write name of the person you want to marry." & FONTTYPE_INFO) 
Exit Sub 
End If 
If tempIndex < 1 Then 
Call SendData(ToIndex, UserIndex, 0, "||El usuario no esta Online o no existe." & FONTTYPE_INFO) 
Exit Sub 
End If 
If UserList(tempIndex).Genero = UserList(UserIndex).Genero Then 
Call SendData(ToIndex, UserIndex, 0, "||No hay casamientos GAY o de Lesbianas ¬¬" & FONTTYPE_INFO) 
Exit Sub 
End If 
If UserList(UserIndex).flags.Casado <> "" Then 
Call SendData(ToIndex, UserIndex, 0, "||Ya estas casado/a con alguien." & FONTTYPE_INFO) 
Exit Sub 
End If 
If UserList(tempIndex).flags.Casado <> "" Then 
Call SendData(ToIndex, UserIndex, 0, "||Ya esta casado/a con alguien." & FONTTYPE_INFO) 
Exit Sub 
End If 
If Distancia(UserList(UserIndex).Pos, UserList(tempIndex).Pos) > 5 Then 
Call SendData(ToIndex, UserIndex, 0, "||¡¡No puedes hacer casamientos de lejos!!." & FONTTYPE_INFO) 
Exit Sub 
End If 
If UserList(tempIndex).flags.Casandose <> "" And UserList(tempIndex).flags.Casandose <> UserList(UserIndex).Name Then 
Call SendData(ToIndex, UserIndex, 0, "||Its trying to marry another person ... Im sorry " & FONTTYPE_INFO) 
Exit Sub 
End If 
UserList(UserIndex).flags.Casandose = UserList(tempIndex).Name 

If UserList(tempIndex).flags.Casandose = UserList(UserIndex).Name Then 
UserList(tempIndex).flags.Casado = UserList(UserIndex).Name 
UserList(UserIndex).flags.Casado = UserList(tempIndex).Name 
UserList(UserIndex).flags.Casandose = "" 
UserList(tempIndex).flags.Casandose = "" 
Call SendData(ToAll, 0, 0, "TW" & SND_CREACIONCLAN) 
Call SendData(ToAll, 0, 0, "||¡¡¡" & UserList(UserIndex).Name & " Y " & UserList(tempIndex).Name & " They Married!!" & "~255~255~0~1~0") 
Else 
SendData ToIndex, tempIndex, 0, "||" & UserList(UserIndex).Name & " want to marry me, write /marry " & UserList(UserIndex).Name & " accepts the offer ?." & FONTTYPE_GUILD 
End If 
Debug.Print "Nice Marry" 
Exit Sub

Now the Divorce Code

Code: Select all

If UCase$(rdata) = "/DIVORCE" Then 
Dim nombredivor2 As String 
If UserList(UserIndex).flags.Casado = "" Then 
Call SendData(ToIndex, UserIndex, 0, "||¡¡You arent married.!!." & FONTTYPE_INFO) 
Exit Sub 
End If 
nombredivor2 = UserList(UserIndex).flags.Married 
If NameIndex(UserList(UserIndex).flags.Married) < 1 Then 
WriteVar App.Path & "Charfile" & UserList(UserIndex).flags.Casado & ".chr", "FLAGS", "Married", "0" 
UserList(UserIndex).flags.Married = "" 
Else 
UserList(NameIndex(UserList(UserIndex).flags.Casado)).flags.Casado = "" 
UserList(UserIndex).flags.Casado = "" 
End If 
Call SendData(ToAll, 0, 0, "TW" & 27) 
Call SendData(ToAll, 0, 0, "||¡¡¡" & UserList(UserIndex).Name & " Y " & nombredivor2 & " They Divorce!!''& "~255~255~0~1~0") 
Debug.Print "Nice divorce" 
Exit Sub 
End If

I put this codes so a Coder can get an Idea from this if he understands the two Languages

Drajwer · Post by **Drajwer** » Tue Apr 18, 2006 3:24 pm

useless code but idea is cool. will work on it.

€M4NU€L · Post by **€M4NU€L** » Tue Apr 18, 2006 3:48 pm

Good than ... i will start the NPC

joeri · Post by **joeri** » Tue Apr 18, 2006 3:59 pm

drawjer is right
its a cool id but isnt it hard to code sumething like that ?

€M4NU€L · Post by **€M4NU€L** » Tue Apr 18, 2006 4:03 pm

joeri wrote: drawjer is right
its a cool id but isnt it hard to code sumething like that ?

Say Thanks to Sr.Idea's I will post more and they will be better than ever.

DON'T WORRY BE HAPPY

Audioslave · Post by **Audioslave** » Wed Apr 19, 2006 12:34 am

Argentum is not coded in C, is coded in Visual Basic.
Bye

locobans · Post by **locobans** » Wed Apr 19, 2006 12:44 am

Audioslave wrote: Argentum is not coded in C, is coded in Visual Basic.
Bye

<3 AudioSlave

P.D: Saludame en msn puto!

€M4NU€L · Post by **€M4NU€L** » Wed Apr 19, 2006 8:26 am

Audioslave wrote: Argentum is not coded in C, is coded in Visual Basic.
Bye

:blink: It's ? hmm... i thought it was C

Jensen · Post by **Jensen** » Wed Apr 19, 2006 11:03 am

VB has the "IF ... THEN"
structure, C has the

if() dostuff;
or
if (){dostuff; andmorestuff;}

easy way to tell in just the first line of your snippet

Dax · Post by **Dax** » Wed Apr 19, 2006 11:34 am

Jensen wrote: VB has the "IF ... THEN"

Also why VB programmers make the best writers of pseudo code. The 2 are almost identical and just as pointless.

Jensen · Post by **Jensen** » Wed Apr 19, 2006 12:02 pm

Dax wrote:Also why VB programmers make the best writers of pseudo code. The 2 are almost identical and just as pointless.

agreed, glad i started programming a year after my friends from highschool and they stoped teaching vb and started c++ that year

Drajwer · Post by **Drajwer** » Thu Apr 20, 2006 1:04 pm

you make an "monk" to church, ppl will go to church click on 'guy in hat' and marry. then little ceremonion is settled on an hour and a little "if you want marry him/her say yes" then "you are married !" and mass celebration light will be nice

€M4NU€L · Post by **€M4NU€L** » Thu Apr 20, 2006 1:08 pm

Drajwer wrote: you make an "monk" to church, ppl will go to church click on 'guy in hat' and marry. then little ceremonion is settled on an hour and a little "if you want marry him/her say yes" then "you are married !" and mass celebration light will be nice

I'm almost finishing NPC its an old man with a wand in hand and it isnt Devlin its an NPC from DIABLO II

Hypnotoad · Post by **Hypnotoad** » Thu Apr 20, 2006 6:47 pm

Well this can be a great idea eventually, on the year anniversary of the married couple, they can have a new .pak aura for the that whole day, and when the couple is together, in the same screen you can make them have a bonus such as DMG + 10 or whatever.

What is love other than seeing your loved one gang banged before your very eyes by 12 low level warriors with sabres criticalling.

It sounds like a great idea but somehow i feel like theres gotta be a "helbreath committee" to oversee all these

Code: Select all

 ideas to the client and hgserver to decide what should be official or not.  Or whats a good idea or whats not.

Tafka12 · Post by **Tafka12** » Thu Apr 20, 2006 7:20 pm

Agreed!! Make it work now!

PS! Hypnotoad... Your signature almost made my eyes blind...