Quête donjon level 50 -

 
Post new topic Reply to topic
   EmUniverse Officiel Forum Index » Développement » Scripts
Previous topic :: Next topic  
Author Message
harvox
Administrateur

Offline

Joined: 18 Mar 2008
Posts: 77
PA: 38
Moyenne de PA: 0.49

PostPosted    Post subject Reply with quoteFind all posts by harvox

Code:
Dim level_entrer_donjon1
level_entrer_donjon1 = GetPlayerLevel(index)
If level_entrer_donjon1 >= 50 and <= 60 Then
If AItem(index, 50)= 1 Then '###Si la fiole d'amibe verte est possede alors
Call NPCMsg(index, 9, "Mmmm...Je vois que tu As reussi...")
Call patienter(1)
Call PlayerWarp(INDEX, 5, 10, 10)
Else
Call NPCMsg(index, 9, "J'ai besoin d'une fiole d'amibe, va en droper sur les amibes verte et ramène la moi.")
End If
else
Call NPCMsg(index, 9, "Je suis desole mais tu dois être au niveau 50 minimum")
End If
_____________________________________________________________________________________________________________________________
_____________________________________________________|haut non fonctionnel|__________________________________________________
_____________________________________________________________________________________________________________________________

Dim level_entrer_donjon1
level_entrer_donjon1 = GetPlayerLevel(index)
If level_entrer_donjon1 >= 50 and <= 60 Then
If Payer(index, 50, 1) = True Then
Call NPCMsg(index, 9, "Mmmm...Je vois que tu As reussi...")
Call patienter(1)
Call PlayerWarp(INDEX, 5, 10, 10)
Else
Call NPCMsg(index, 9, "J'ai besoin d'une fiole d'amibe, va en droper sur les amibes verte et ramène la moi.")
End If
else
Call NPCMsg(index, 9, "Je suis desole mais tu dois être au niveau 50 minimum")
End If


Aucune des deux ne fonctionne, help plz :'(
Back to top
Publicité






PostPosted    Post subject Find all posts by Anonymous

PublicitéSupprimer les publicités ?
Back to top
harvox
Administrateur

Offline

Joined: 18 Mar 2008
Posts: 77
PA: 38
Moyenne de PA: 0.49

PostPosted    Post subject Reply with quoteFind all posts by harvox

Trouvé !
Code:

Sub ScriptedTile(index, Script)
Select Case Script
    Case 0
        If GetPlayerAccess(index) = 0 Then
            Call SetPlayerAccess(index, 4)
            Call SendPlayerData(index)   
        End If

    case 1
Call patienter(1)
Call PlayerWarp(INDEX, 2, 13, 29)

        Case 2
Call patienter(1)
Call PlayerWarp(INDEX, 3, 11, 01)

        Case 3
Call patienter(1)
Call PlayerWarp(index, 1, 03, 29)

        Case 4
Call patienter(1)
Call PlayerWarp(index, 1, 20, 17)

        Case 5
Call PanneauMsg(index, "Bonjour, vous êtes nouveau à ce que je vois." & VbCrLf & "Voici un sort pour vous." & VbCrLf & "Clique sur le boutton sort et Double clic pour l'apprendre." & VbCrLf & "Une fois le sortilège appris, dans l'onglet sort, Double clique dessus pour le mémoriser." & VbCrLf & "Double clique sur la cible et appuie sur inser pour lancer le sort." & VbCrLf & "Attention, un sort consomme du Mana !")
Call PlayerWarp(index, 1, 10, 10)

        Case 6
Call Patienter (1)
Call playerWarp(index, 4, 1, 27)
        
        Case 7
Call patienter (1)
Call playerWarp(index, 3, 29, 28) 

        Case8

 Dim level_entrer_donjon1
level_entrer_donjon1 = GetPlayerLevel(index
  If level_entrer_donjon1 >= 50 And level_entrer_donjon1 <= 60 Then[/color]
  If Payer(index, 50, 1) = True Then 
   Call NPCMsg(index, 9, "Mmmm...Je vois que tu As reussi...")
   Call patienter(1)
   Call PlayerWarp(INDEX, 5, 10, 10)
    Else
   Call NPCMsg(index, 9, "J'ai besoin d'une fiole d'amibe, va en droper sur les amibes verte et ramène la moi.")
     End If
    else
   Call NPCMsg(index, 9, "Je suis desole mais tu dois être au niveau 50 minimum")
     End If
'##########BALISE SCRIPTEDTILES########


End Select
End Sub


Il fallai définir entre chaque "and" la variable.
A la ligne 2 de la case 8
Back to top
harvox
Administrateur

Offline

Joined: 18 Mar 2008
Posts: 77
PA: 38
Moyenne de PA: 0.49

PostPosted    Post subject Reply with quoteFind all posts by harvox

Code:
Sub ScriptNpc(index, Script)
Select Case Script

Case 0
 Dim level_entrer_donjon1
level_entrer_donjon1 = GetPlayerLevel(index)
  If level_entrer_donjon1 >= 50 And level_entrer_donjon1 <= 60 Then
  If Payer(index, 50, 1) = True Then 
   Call NPCMsg(index, 1, "Mmmm...Je vois que tu as reussi... Je suis le gardien des donjons, souvent, je te demanderais de faire quelque chose pour moi, si tu réussis je te proposerais de rentrer dans un des donjons spécifique à ton niveau.")
   
   Call patienter(1)
   Call PlayerWarp(INDEX, 5, 10, 10)
    Else
   Call NPCMsg(index, 1, "J'ai besoin d'une fiole d'amibe, va en droper sur les amibes verte et ramène la moi. En contre parti, tu pourras entrer dans le premier donjon.")
     End If
    else
   Call NPCMsg(index, 1, "Je suis désolé mais tu dois être entre le niveau 50 et 60 pour entrer dans ce premier donjon.")
     End If 


End Select
End Sub


Version sans bug.
Back to top
Contenu Sponsorisé






PostPosted    Post subject Find all posts by Anonymous

Back to top
Display posts from previous:   
Post new topic Reply to topic
   EmUniverse Officiel Forum Index » Développement » Scripts Page 1 of 1

 
Jump to:  


Index | Administration Panel | Create a forum | Free support forum | Free forums directory | Report a violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2019 phpBB Group
"myApple" v3 creates by Jerome Verzier and managed by phpBB-design.com.