Skip to content
GitLab
Explorer
Connexion
Navigation principale
Rechercher ou aller à…
Projet
I
idle rpg irc
Gestion
Activité
Membres
Labels
Programmation
Tickets
Tableaux des tickets
Jalons
Wiki
Wiki externe
Code
Requêtes de fusion
Dépôt
Branches
Validations
Étiquettes
Graphe du dépôt
Comparer les révisions
Extraits de code
Déploiement
Releases
Registre de conteneurs
Registre de modèles
Surveillance
Incidents
Analyse
Données d'analyse des chaînes de valeur
Analyse des contributeurs
Données d'analyse du dépôt
Expériences du modèle
Aide
Aide
Support
Documentation de GitLab
Comparer les forfaits GitLab
Forum de la communauté GitLab
Contribuer à GitLab
Donner votre avis
Raccourcis clavier
?
Extraits de code
Groupes
Projets
Afficher davantage de fils d'Ariane
ElTata
idle rpg irc
Validations
bfc60e7a
Valider
bfc60e7a
rédigé
Il y a 5 ans
par
ElTata
Parcourir les fichiers
Options
Téléchargements
Correctifs
Plain Diff
Remove warning 'isn't numeric' when comparing new legendary stuff
parent
3053a1f4
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
Modifications
1
Afficher les modifications d'espaces
En ligne
Côte à côte
Affichage de
1 fichier modifié
Irpg/Event.pm
+43
-36
43 ajouts, 36 suppressions
Irpg/Event.pm
avec
43 ajouts
et
36 suppressions
Irpg/Event.pm
+
43
−
36
Voir le fichier @
bfc60e7a
...
...
@@ -36,7 +36,8 @@ sub find_item { # find item for argument player
$level
=
$rps
->
{
$u
}{
class
}
->
real_lvl
(
$level
);
if
(
$rps
->
{
$u
}{
level
}
>=
25
&&
rand
(
40
)
<
1
)
{
$ulevel
=
$rps
->
{
$u
}{
class
}
->
real_lvl
(
50
+
int
(
rand
(
25
)));
if
(
$ulevel
>=
$level
&&
$ulevel
>
int
(
$rps
->
{
$u
}{
item
}{
helm
}))
{
$rps
->
{
$u
}{
item
}{
helm
}
=~
m/(\d+)\D?/
;
if
(
$ulevel
>=
$level
&&
$ulevel
>
$
1
)
{
Irpg::Irc::
notice
("
The light of the gods shines down upon you! You have
"
.
"
found the level
$ulevel
Mattt's Omniscience Grand Crown!
"
.
"
Your enemies fall before you as you anticipate their
"
.
...
...
@@ -47,7 +48,8 @@ sub find_item { # find item for argument player
}
elsif
(
$rps
->
{
$u
}{
level
}
>=
25
&&
rand
(
40
)
<
1
)
{
$ulevel
=
$rps
->
{
$u
}{
class
}
->
real_lvl
(
50
+
int
(
rand
(
25
)));
if
(
$ulevel
>=
$level
&&
$ulevel
>
int
(
$rps
->
{
$u
}{
item
}{
ring
}))
{
$rps
->
{
$u
}{
item
}{
ring
}
=~
m/(\d+)\D?/
;
if
(
$ulevel
>=
$level
&&
$ulevel
>
$
1
)
{
Irpg::Irc::
notice
("
The light of the gods shines down upon you! You have
"
.
"
found the level
$ulevel
Juliet's Glorious Ring of
"
.
"
Sparkliness! You enemies are blinded by both its glory
"
.
...
...
@@ -59,7 +61,8 @@ sub find_item { # find item for argument player
}
elsif
(
$rps
->
{
$u
}{
level
}
>=
30
&&
rand
(
40
)
<
1
)
{
$ulevel
=
$rps
->
{
$u
}{
class
}
->
real_lvl
(
75
+
int
(
rand
(
25
)));
if
(
$ulevel
>=
$level
&&
$ulevel
>
int
(
$rps
->
{
$u
}{
item
}{
tunic
}))
{
$rps
->
{
$u
}{
item
}{
tunic
}
=~
m/(\d+)\D?/
;
if
(
$ulevel
>=
$level
&&
$ulevel
>
$
1
)
{
Irpg::Irc::
notice
("
The light of the gods shines down upon you! You have
"
.
"
found the level
$ulevel
Res0's Protectorate Plate Mail!
"
.
"
Your enemies cower in fear as their attacks have no
"
.
...
...
@@ -70,7 +73,8 @@ sub find_item { # find item for argument player
}
elsif
(
$rps
->
{
$u
}{
level
}
>=
35
&&
rand
(
40
)
<
1
)
{
$ulevel
=
$rps
->
{
$u
}{
class
}
->
real_lvl
(
100
+
int
(
rand
(
25
)));
if
(
$ulevel
>=
$level
&&
$ulevel
>
int
(
$rps
->
{
$u
}{
item
}{
amulet
}))
{
$rps
->
{
$u
}{
item
}{
amulet
}
=~
m/(\d+)\D?/
;
if
(
$ulevel
>=
$level
&&
$ulevel
>
$
1
)
{
Irpg::Irc::
notice
("
The light of the gods shines down upon you! You have
"
.
"
found the level
$ulevel
Dwyn's Storm Magic Amulet! Your
"
.
"
enemies are swept away by an elemental fury before the
"
.
...
...
@@ -81,7 +85,8 @@ sub find_item { # find item for argument player
}
elsif
(
$rps
->
{
$u
}{
level
}
>=
40
&&
rand
(
40
)
<
1
)
{
$ulevel
=
$rps
->
{
$u
}{
class
}
->
real_lvl
(
150
+
int
(
rand
(
25
)));
if
(
$ulevel
>=
$level
&&
$ulevel
>
int
(
$rps
->
{
$u
}{
item
}{
weapon
}))
{
$rps
->
{
$u
}{
item
}{
weapon
}
=~
m/(\d+)\D?/
;
if
(
$ulevel
>=
$level
&&
$ulevel
>
$
1
)
{
Irpg::Irc::
notice
("
The light of the gods shines down upon you! You have
"
.
"
found the level
$ulevel
Jotun's Fury Colossal Sword! Your
"
.
"
enemies' hatred is brought to a quick end as you arc your
"
.
...
...
@@ -92,7 +97,8 @@ sub find_item { # find item for argument player
}
elsif
(
$rps
->
{
$u
}{
level
}
>=
45
&&
rand
(
40
)
<
1
)
{
$ulevel
=
$rps
->
{
$u
}{
class
}
->
real_lvl
(
175
+
int
(
rand
(
26
)));
if
(
$ulevel
>=
$level
&&
$ulevel
>
int
(
$rps
->
{
$u
}{
item
}{
weapon
}))
{
$rps
->
{
$u
}{
item
}{
weapon
}
=~
m/(\d+)\D?/
;
if
(
$ulevel
>=
$level
&&
$ulevel
>
$
1
)
{
Irpg::Irc::
notice
("
The light of the gods shines down upon you! You have
"
.
"
found the level
$ulevel
Drdink's Cane of Blind Rage! Your
"
.
"
enemies are tossed aside as you blindly swing your arm
"
.
...
...
@@ -103,8 +109,8 @@ sub find_item { # find item for argument player
}
elsif
(
$rps
->
{
$u
}{
level
}
>=
48
&&
rand
(
40
)
<
1
)
{
$ulevel
=
$rps
->
{
$u
}{
class
}
->
real_lvl
(
250
+
int
(
rand
(
51
)));
if
(
$ulevel
>=
$level
&&
$ulevel
>
int
(
$rps
->
{
$u
}{
item
}{"
pair of boots
"})
)
{
$rps
->
{
$u
}{
item
}{"
pair of boots
"}
=~
m/(\d+)\D?/
;
if
(
$ulevel
>=
$level
&&
$ulevel
>
$
1
)
{
Irpg::Irc::
notice
("
The light of the gods shines down upon you! You have
"
.
"
found the level
$ulevel
Mrquick's Magical Boots of
"
.
"
Swiftness! Your enemies are left choking on your dust as
"
.
...
...
@@ -115,7 +121,8 @@ sub find_item { # find item for argument player
}
elsif
(
$rps
->
{
$u
}{
level
}
>=
52
&&
rand
(
40
)
<
1
)
{
$ulevel
=
$rps
->
{
$u
}{
class
}
->
real_lvl
(
300
+
int
(
rand
(
51
)));
if
(
$ulevel
>=
$level
&&
$ulevel
>
int
(
$rps
->
{
$u
}{
item
}{
weapon
}))
{
$rps
->
{
$u
}{
item
}{
weapon
}
=~
m/(\d+)\D?/
;
if
(
$ulevel
>=
$level
&&
$ulevel
>
$
1
)
{
Irpg::Irc::
notice
("
The light of the gods shines down upon you! You have
"
.
"
found the level
$ulevel
Jeff's Cluehammer of Doom! Your
"
.
"
enemies are left with a sudden and intense clarity of
"
.
...
...
@@ -124,16 +131,16 @@ sub find_item { # find item for argument player
return
;
}
}
if
(
$level
>
int
(
$rps
->
{
$u
}{
item
}{
$type
}))
{
my
(
$iteml
,)
=
$rps
->
{
$u
}{
item
}{
$type
}
=~
m/(\d+)\D?/
;
if
(
$level
>
$iteml
)
{
Irpg::Irc::
notice
("
You found a level
$level
$type
! Your current
$type
is only
"
.
"
level
"
.
int
(
$rps
->
{
$u
}{
item
}{
$type
})
.
"
, so it seems Luck is
"
.
"
with you!
",
$rps
->
{
$u
}{
nick
});
"
level
"
.
$iteml
.
"
, so it seems Luck is with you!
",
$rps
->
{
$u
}{
nick
});
$rps
->
{
$u
}{
item
}{
$type
}
=
$level
;
}
else
{
Irpg::Irc::
notice
("
You found a level
$level
$type
. Your current
$type
is level
"
.
int
(
$rps
->
{
$u
}{
item
}{
$type
})
.
"
, so it seems Luck is against you.
"
.
"
You toss the
$type
.
",
$rps
->
{
$u
}{
nick
});
$iteml
.
"
, so it seems Luck is against you.
You toss the
$type
.
",
$rps
->
{
$u
}{
nick
});
}
}
...
...
@@ -342,19 +349,19 @@ sub evilness {
"
pair of gloves
","
set of leggings
","
shield
",
"
pair of boots
");
my
$type
=
$items
[
rand
(
@items
)];
if
(
int
(
$rps
->
{
$target
}{
item
}{
$type
})
>
int
(
$rps
->
{
$me
}{
item
}{
$type
}))
{
my
(
$target_lvl
,)
=
$rps
->
{
$target
}{
item
}{
$type
}
=~
m/(\d+)\D?/
;
my
(
$me_lvl
,)
=
$rps
->
{
$me
}{
item
}{
$type
}
=~
m/(\d+)\D?/
;
if
(
$target_lvl
>
$me_lvl
)
{
my
$tempitem
=
$rps
->
{
$me
}{
item
}{
$type
};
$rps
->
{
$me
}{
item
}{
$type
}
=
$rps
->
{
$target
}{
item
}{
$type
};
$rps
->
{
$target
}{
item
}{
$type
}
=
$tempitem
;
Irpg::Irc::
chanmsg
(
Irpg::Utils::
clog
(
"
$me
stole
$target
\
's level
"
.
int
(
$rps
->
{
$me
}{
item
}{
$type
})
.
"
$type
while
"
.
"
$me
stole
$target
\
's level
$target_lvl
$type
while
"
.
pronoun
(
1
,
$rps
->
{
$target
}{
gender
})
.
(
$rps
->
{
$target
}{
gender
}
eq
'
n
'
?
"
were
"
:
"
was
")
.
"
sleeping!
$me
leaves
"
.
pronoun
(
2
,
$rps
->
{
$me
}{
gender
})
.
"
old level
"
.
int
(
$rps
->
{
$target
}{
item
}{
$type
})
.
"
$type
behind,
"
.
"
which
$target
then takes.
"));
pronoun
(
2
,
$rps
->
{
$me
}{
gender
})
.
"
old level
$me_lvl
"
.
"
$type
behind, which
$target
then takes.
"));
}
else
{
Irpg::Irc::
notice
("
You made to steal
$target
\
's
$type
, but realized it was
"
.
...
...
Ce diff est replié.
Cliquez pour l'agrandir.
Aperçu
0%
Chargement en cours
Veuillez réessayer
ou
joindre un nouveau fichier
.
Annuler
You are about to add
0
people
to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Enregistrer le commentaire
Annuler
Veuillez vous
inscrire
ou vous
se connecter
pour commenter