Eclipse - Free 2D Mmorpg Maker
September 02, 2010, 10:17:07 PM *
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
 
   Home   Shop Arcade chat Login Register  
 
 
   
 
collapse

* No Spam Or Websites

Refresh History
  • 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

* Recent Topics

[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]


* Who's Online


Site Author : Topic: Marriage script by Iceknight  (Read 3919 times)
0 Members and 1 Guest are viewing this topic.
March 30, 2006, 08:04:43 AM
Newb
*
User No : 336
Posts: 4
  • 0 credits
  • View Inventory
  • Send Money To Iceknight
    • View Profile
    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
    Logged
    March 30, 2006, 08:14:35 AM
    Newb
    *
    User No : 336
    Posts: 4
  • 0 credits
  • View Inventory
  • Send Money To Iceknight
    • View Profile
    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
    Logged
    March 30, 2006, 08:29:20 AM
    Newb
    *
    User No : 434
    Posts: 19
  • 0 credits
  • View Inventory
  • Send Money To amxar
  • Location : Sweden/Japan ( Dont ask -_- )
    • View Profile
    Nice one, ill check it out closer when I get home and translate it for you.. I see couple of typos here ^^
    Logged


    Debuggzor Of [AmXar-CreW]
    March 30, 2006, 09:33:23 AM
    Active Member
    ***
    User No : 282
    Posts: 396
  • 0 credits
  • View Inventory
  • Send Money To n0madic0debc
  • Location : Lost somewhere dont know, NYC
    • View Profile
    I actually tried reading the french one instead of the English translation pretty cool
    Logged


    March 30, 2006, 09:48:41 AM
    Lord Of Spleens
    Administrator
    Teh Uberleet
    *
    User No : 166
    Posts: 2951
  • 0 credits
  • View Inventory
  • Send Money To Baron
  • Location : Australia
    Badges? We dont need no stinkin' badges!
    • View Profile
    Looks like a very solid script. nicely written.
    Logged


    Apparently ICT thinks that:
    [ 98% of Eclipse forums thinks baron is cool. Put this in your signature if you are on of the 2% that knows he's an asshôle ]

    If I'm only pissing 1 in 50 people off, I don't think that is too bad at all :D
    March 31, 2006, 06:46:13 AM
    Active Member
    ***
    User No : 312
    Posts: 110
  • 0 credits
  • View Inventory
  • Send Money To robthemanbigboy
  • Location : PA, USA
    • View Profile
    • WWW
    couldnt you just make it a player prompt instead?
    Logged

    I am not new to eclipse, but I cannot do much  for the forums until I get broadband or dsl... b/c downloading at less than 1kb/s won't let me download any new versions b4 disconnecting...

    <img src="http://www.nerdtests.com/mq/images/mq1.php?id=8471&m=e75a65765117da2f42e2a9595f26ac77eb032fc89fa3a8a6ba" border="0" alt="NerdTests.com User Test: The Eclipse Scriptor Test.">
     [url=http://www.elementsgraphics.net/ind
    April 01, 2006, 10:23:32 AM
    tintin06
    Guest
    Grrr (#6)
    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 !
    Logged
    April 01, 2006, 10:32:48 AM
    Advanced Member
    ****
    User No : 94
    Posts: 733
  • 0 credits
  • View Inventory
  • Send Money To 9sam1
    • View Profile
    • WWW
    fag, also can someone translate this maybe I REALLY want it
    Logged

    April 01, 2006, 10:34:31 AM
    Dahevos
    Guest
    Icemachin chose,
    your're f'ucking man. Steal script is a stupid action.
    Logged
    April 02, 2006, 02:12:14 AM
    Newb
    *
    User No : 456
    Posts: 2
  • 0 credits
  • View Inventory
  • Send Money To some guy
    • View Profile
    so what exactly does this script do?
    Logged
    April 02, 2006, 08:00:52 AM
    Advanced Member
    ****
    User No : 94
    Posts: 733
  • 0 credits
  • View Inventory
  • Send Money To 9sam1
    • View Profile
    • WWW
    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
    Logged

    April 02, 2006, 09:36:05 AM
    Veteran
    Advanced Member
    *
    User No : 137
    Posts: 671
  • 0 credits
  • View Inventory
  • Send Money To Rogue
  • Location : Westgate
    The little things.... there's nothing bigger
    • View Profile
    • WWW
    :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!!
    Logged

    April 03, 2006, 04:16:50 AM
    Lord Of Spleens
    Administrator
    Teh Uberleet
    *
    User No : 166
    Posts: 2951
  • 0 credits
  • View Inventory
  • Send Money To Baron
  • Location : Australia
    Badges? We dont need no stinkin' badges!
    • View Profile
    Stealing script seems like a whole lot more work then writing them.
    Logged


    Apparently ICT thinks that:
    [ 98% of Eclipse forums thinks baron is cool. Put this in your signature if you are on of the 2% that knows he's an asshôle ]

    If I'm only pissing 1 in 50 people off, I don't think that is too bad at all :D
    July 31, 2010, 07:13:43 PM
    Active Member
    ***
    User No : 21153
    Posts: 159
  • 0 credits
  • View Inventory
  • Send Money To furtzown
    • View Profile
    how does it work? I add the script at the end of main.txt... then what?
    Logged
     


    Powered by MySQL Powered by PHP Powered by SMF 2.0 RC3 | SMF © 2006–2010, Simple Machines LLC
    SimplePortal 2.3.1 © 2008-2009, SimplePortal
    Valid XHTML 1.0! Valid CSS!
    Page created in 0.26 seconds with 29 queries.