Marriage script by Iceknight

[Iceknight]

Sorry, Im french and I have a bad english, the script language is french..

Code: [Select]


POUR HOMMES

Case 0
Dim sex as long
sex = GetVar("accounts" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "sex")
If sex = 0 then
call playermsg (index, "Bienvenue a la paroisse jeune homme, etes vous pret a vous marier ?" ,1)
call playermsg (index, "Si oui, tapez /oui" ,1)
call playermsg (index, "Si non, tapez /non" ,1)
Else
call playermsg (index, "Les femmes c'esta droite",1)
End if






POUR FEMME

Case 1
Dim sex as long
sex = GetVar("accounts" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "sex")
If sex = 0 then
call playermsg (index, "Les hommes c'est a gauche",1)
Else
call playermsg (index, "Bienvenue a la paroisse jeune demoiselle, etes vous prete a vous marier ?",1)
call playermsg (index, "Si oui, tapez /oui" ,1)
call playermsg (index, "Si non, tapez /non" ,1)
End if


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Case "/oui"
Dim sex as long
Dim map
Dim X
Dim Y
Dim homme
Dim femme
map = GetPlayerMap(index)
X = GetPlayerX(index)
Y = GetPlayerY(index)
sex = GetVar("accounts" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "sex")
homme = GetVar("mariage.ini", "Chapelle", "nhomme")
femme = GetVar("mariage.ini", "Chapelle", "nfemme")  
If sex = 0 then
If map = n° map then
If X = X map then
If Y = Y map then
Call PutVar("mariage.ini", "Chapelle", "homme", "1")
Call PutVar("mariage.ini", "Chapelle", "nhomme", Getplayername)
If GetVar("mariage.ini", "Chapelle", "femme") = 1 Then
Call PutVar("mariage.ini", "couples", Getplayername, nfemme)
Call PutVar("mariage.ini", "couples", nfemme, nhomme)
Call playermsg (index, "Je vous declare mari et femme", 1)
Else
Call playermsg (index, "Que dites vous monsieur ?", 1)
ElseIf map = n° map then
If X = X map then
If Y = Y map then
Call PutVar("mariage.ini", "Chapelle", "homme", "1")
Call PutVar("mariage.ini", "Chapelle", "nhomme", Getplayername)
If GetVar("mariage.ini", "Chapelle", "homme") = 1 Then
Call PutVar("mariage.ini", "couples", Getplayername, nfemme)
Call PutVar("mariage.ini", "couples", nfemme, nhomme)
Call playermsg (index, "Je vous declare mari et femme", 1)
Else
Call playermsg (index, "Que dites vous madame ?", 1)
End If
End If
End If
End If
End If
End If
End If
End If



Case "/non"
Dim map
Dim X
Dim Y
If map = n° map then
If X = X map then
If Y = Y map then
Call playermsg (index, " VOUS M'AVEZ DERANGE POUR RIEN ! QUITTEZ CE LIEU DIVIN, 1)
Call playerwarp (index, map, X, Y)
Call GlobalMsg(GetPlayerName(index) & "refuse de se marier !", 15)
Else
Call playermsg (index, "Que dites vous ", 1)
End if
End If
End If

[Iceknight]

No tested, I have use my translator ...

Sorry, Im french and I have a bad english, the script language is french..

Code: [Select]


FOR MAN

Case 0
Dim sex as long
sex = GetVar("accounts" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "sex")
If sex = 0 then
call playermsg (index, "Does welcome have the parish young man, are you ready ato marry you?  ?" ,1)
call playermsg (index, "If yes, type /yes" ,1)
call playermsg (index, "If no, type /no" ,1)
Else
call playermsg (index, "The women it is on the right!",1)
End if






For Women

Case 1
Dim sex as long
sex = GetVar("accounts" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "sex")
If sex = 0 then
call playermsg (index, "The men it is has left!
",1)
Else
call playermsg (index, "Welcome has the parish young young lady, are you lends to marry you?", 1)
call playermsg (index, "If yes, type /yes" ,1)
call playermsg (index, "If no, type /no" ,1)
End if


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Case "/yes"
Dim sex as long
Dim map
Dim X
Dim Y
Dim homme
Dim femme
map = GetPlayerMap(index)
X = GetPlayerX(index)
Y = GetPlayerY(index)
sex = GetVar("accounts" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "sex")
homme = GetVar("mariage.ini", "Chapelle", "nhomme")
femme = GetVar("mariage.ini", "Chapelle", "nfemme")  
If sex = 0 then
If map = n° map then
If X = X map then
If Y = Y map then
Call PutVar("mariage.ini", "Chapelle", "homme", "1")
Call PutVar("mariage.ini", "Chapelle", "nhomme", Getplayername)
If GetVar("mariage.ini", "Chapelle", "femme") = 1 Then
Call PutVar("mariage.ini", "couples", Getplayername, nfemme)
Call PutVar("mariage.ini", "couples", nfemme, nhomme)
Call playermsg (index, "Je vous declare mari et femme", 1)
Else
Call playermsg (index, "Que dites vous monsieur ?", 1)
ElseIf map = n° map then
If X = X map then
If Y = Y map then
Call PutVar("mariage.ini", "Chapelle", "homme", "1")
Call PutVar("mariage.ini", "Chapelle", "nhomme", Getplayername)
If GetVar("mariage.ini", "Chapelle", "homme") = 1 Then
Call PutVar("mariage.ini", "couples", Getplayername, nfemme)
Call PutVar("mariage.ini", "couples", nfemme, nhomme)
Call playermsg (index, "Je vous declare mari et femme", 1)
Else
Call playermsg (index, "Que dites vous madame ?", 1)
End If
End If
End If
End If
End If
End If
End If
End If



Case "/no"
Dim map
Dim X
Dim Y
If map = n° map then
If X = X map then
If Y = Y map then
Call playermsg (index, " YOU HAVE Disturb Me FOR NOTHING! LEAVE EC DIVINE PLACE
, 1)
Call playerwarp (index, map, X, Y)
Call GlobalMsg(GetPlayerName(index) & "refuse to marry
!", 15)
Else
Call playermsg (index, "What do you say? ", 1)
End if
End If
End If

[amxar]

Nice one, ill check it out closer when i get home and translate it for you.. i see couple of typos here ^^

[n0madic0debc]

I actually tried reading the french one instead of the English translation pretty cool

[Baron]

Looks like a very solid script. nicely written.

[robthemanbigboy]

couldnt you just make it a player prompt instead?

[tintin06]

Hey ! It's my script ! You are a  thief
http://roonline.free.fr/frog/forum/index.php?showtopic=4050

Iceknight is a hacker of a forum FRoG creator (link)
And a  thief  
The script capture the flag is of Dahevos,  admin of FRoG !

THIEF !

[9sam1]

fag, also can someone translate this maybe i REALLY want it

[Dahevos]

Icemachin chose,
your're f'ucking man. Steal script is a stupid action.

[some guy]

so what exactly does this script do?

[9sam1]

ban iceknight, he went on my game saying hes from "pcgamer" and tried to get a copy of my server LoL he probly did it to other people, hes just a big french fag roostersucker

[Rogue]

:twisted:  :twisted:  :twisted:  :twisted:

"the only thing the french are good for is hosting an invasion" - Johnny English

if you wanna translation  go to http://www.dictionary.com paste the words you dont understand!!

[Baron]

Stealing script seems like a whole lot more work then writing them.