Marriage script by Iceknight

• Ertzel: So... Anyone with basic/none/limited photoshop or even paint skills want to make some money converting sprites for me?
  Today at 10:07:35 PM
• Gamma™: weaver why are you oflfine on H&H? :S
  Today at 10:04:26 PM
• Ertzel: Ya, only one try per knife, my one try failed :(
  Today at 10:00:17 PM
• LegendWeaver: is it one use?
  Today at 09:43:15 PM
• Ertzel: Wish I didnt spend my 1k+ credits to buy the stupid knife that failed at stealing Robins credits >.<
  Today at 09:42:42 PM
• Wraith: ) Kreator!
  Today at 09:06:52 PM
• Wraith: yes! you were! (in red text
  Today at 09:06:46 PM
• ToshiroHayate: Kreator!
  Today at 08:25:02 PM
• Kreator: o_0 Was I supposed to Wraith?
  Today at 08:16:02 PM
• [Pie] ICT: Don't worry.. I commented.
  Today at 07:55:08 PM
• Wraith: Ay, kreator, wtf is up with you not posting anything about my new cliffs??
  Today at 07:50:36 PM

[EO] Attaching Problem. by Ertzel
[Today at 10:11:57 PM]
Project Vertigo [2d Tile-based Side-Scrolling Engine] by Miguu
[Today at 10:03:22 PM]
Zacaras Empire (Hiring) by Ertzel
[Today at 08:43:54 PM]
custom cliff tiles by ToshiroHayate
[Today at 08:29:15 PM]
.: RPG Kingdom :. by LegendWeaver
[Today at 08:25:20 PM]
What do you think? by [Pie] ICT
[Today at 07:54:54 PM]
[Show Off] Aztec Stuff by [Pie] ICT
[Today at 07:50:07 PM]
So I herd you liek mudkipz by Kreator
[Today at 07:36:52 PM]
Haven and Hearth: Epic Screenshot Thread by Tompwnage™
[Today at 07:14:21 PM]
The Lonliest Star [RP] by DDunit
[Today at 07:09:46 PM]

• Guests: 21
• Hidden: 0
• Users: 17
• Users Online:

• Ertzel
• drifter000
• jncoblack15
• RavenStar
• yaratemaster
• BRiM570N3
• bunnyphantom
• Blue Fly
• 314piwm
• Back to teeming
• Bloodmyst
• LegendWeaver
• Gamma™
• Mikekan13
• sotyrrocks
• Miguu
• Kreator

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

Iceknight

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

amxar

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

n0madic0debc

Looks like a very solid script. nicely written.

Baron

couldnt you just make it a player prompt instead?

robthemanbigboy

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 !

tintin06

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

9sam1

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

Dahevos

so what exactly does this script do?

some guy

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 cocksucker

9sam1

: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!!

Rogue

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

Baron

how does it work? I add the script at the end of main.txt... then what?

furtzown