Quête donjon level 50 -

 
Poster un nouveau sujet Répondre au sujet
   EmUniverse Officiel Index du Forum » Développement » Scripts
Sujet précédent :: Sujet suivant  
Auteur Message
harvox
Administrateur

Hors ligne

Inscrit le: 18 Mar 2008
Messages: 100
PA: 61
Moyenne de PA: 0,61

MessagePosté le    Sujet du message Répondre en citantTrouver tous les messages de 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 :'(
Revenir en haut
Publicité






MessagePosté le    Sujet du message Trouver tous les messages de Anonymous

PublicitéSupprimer les publicités ?
Revenir en haut
harvox
Administrateur

Hors ligne

Inscrit le: 18 Mar 2008
Messages: 100
PA: 61
Moyenne de PA: 0,61

MessagePosté le    Sujet du message Répondre en citantTrouver tous les messages de 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
Revenir en haut
harvox
Administrateur

Hors ligne

Inscrit le: 18 Mar 2008
Messages: 100
PA: 61
Moyenne de PA: 0,61

MessagePosté le    Sujet du message Répondre en citantTrouver tous les messages de 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.
Revenir en haut
Contenu Sponsorisé






MessagePosté le    Sujet du message Trouver tous les messages de Anonymous

Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet Répondre au sujet
   EmUniverse Officiel Index du Forum » Développement » Scripts Page 1 sur 1

 
Sauter vers:  


Index | Panneau d’administration | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2018 phpBB Group
"myApple" v3 creates by Jerome Verzier and managed by phpBB-design.com.