Kod: Zaznacz cały
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<muclient>
<plugin
name="Graficzna_Kondycja"
id="5fb1a73a51cbd06263ba1dd2"
language="VBscript"
requires="3.73"
version="1.0"
>
</plugin>
<!-- Triggers -->
<triggers>
<trigger
enabled="y"
match="^(.*) jest (w swietnej kondycji|w dobrym stanie|lekko ranny|lekko ranna|lekko ranne|ranny|ranna|ranne|w zlej kondycji|ciezko ranny|ciezko ranna|ciezko ranne|ledwo zywy|ledwo zywa|ledwo zywe)\.$"
name="Czyjas_Kondycja"
omit_from_output="y"
regexp="y"
script="inni3"
sequence="1"
>
</trigger>
<trigger
enabled="y"
match="^Jestes (w swietnej kondycji.|w dobrym stanie.|lekko ranny.|lekko ranna.|ranny.|ranna.|w zlej kondycji.|ciezko ranny.|ciezko ranna.|ledwo zywy.|ledwo zywa.)$"
name="Moja_kondycja"
omit_from_output="y"
regexp="y"
script="notka1"
sequence="1"
>
</trigger>
</triggers>
<!-- Script -->
<script>
<![CDATA[
sub notka1 (yn1 , yn2 , yn3)
Select Case yn3(1)
Case "w swietnej kondycji." world.ColourTell "limegreen", "black", "[7/7] [ ############## ] "
Case "w dobrym stanie." world.ColourTell "seagreen", "black", "[6/7] [ ############-- ] "
Case "lekko ranny." world.ColourTell "gold", "black", "[5/7] [ ##########---- ] "
Case "lekko ranna." world.ColourTell "gold", "black", "[5/7] [ ##########---- ] "
Case "ranny." world.ColourTell "orange","black", "[4/7] [ ########------ ] "
Case "ranna." world.ColourTell "orange","black", "[4/7] [ ########------ ] "
Case "w zlej kondycji." world.ColourTell "deeppink", "black", "[3/7] [ ######-------- ] "
Case "ciezko ranny." world.ColourTell "magenta", "black", "[2/7] [ ####---------- ] "
Case "ciezko ranna." world.ColourTell "magenta", "black", "[2/7] [ ####---------- ] "
Case "ledwo zywy." world.ColourTell "black", "red", "[1/7] [ ##------------ ] "
Case "ledwo zywa." world.ColourTell "black", "red", "[1/7] [ ##------------ ] "
Case Else world.note "Nie zyjesz!"
End Select
world.ColourNote "limegreen", "black", "JA."
end sub
dim kto,jaka_kondycja
sub inni3 (an1 , an2 , an3)
kto=an3(1)
jaka_kondycja=an3(2)
if kto="Wyglada na to, ze" then
world.notecolour = 14
world.note an2
world.notecolour = 11
exit sub
end if
Select Case jaka_kondycja
Case "w swietnej kondycji" world.ColourTell "limegreen", "black", "[7/7] [ ############## ] "
Case "w dobrym stanie" world.ColourTell "seagreen", "black", "[6/7] [ ############-- ] "
Case "lekko ranny" world.ColourTell "gold", "black", "[5/7] [ ##########---- ] "
Case "lekko ranna" world.ColourTell "gold", "black", "[5/7] [ ##########---- ] "
Case "lekko ranne" world.ColourTell "gold", "black", "[5/7] [ ##########---- ] "
Case "ranny" world.ColourTell "orange", "black", "[4/7] [ ########------ ] "
Case "ranna" world.ColourTell "orange", "black", "[4/7] [ ########------ ] "
Case "ranne" world.ColourTell "orange", "black", "[4/7] [ ########------ ] "
Case "w zlej kondycji" world.ColourTell "deeppink", "black", "[3/7] [ ######-------- ] "
Case "ciezko ranny" world.ColourTell "magenta", "black", "[2/7] [ ####---------- ] "
Case "ciezko ranna" world.ColourTell "magenta", "black", "[2/7] [ ####---------- ] "
Case "ciezko ranne" world.ColourTell "magenta", "black", "[2/7] [ ####---------- ] "
Case "ledwo zywy" world.ColourTell "black", "red", "[1/7] [ ##------------ ] "
Case "ledwo zywa" world.ColourTell "black", "red", "[1/7] [ ##------------ ] "
Case "ledwo zywe" world.ColourTell "black", "red", "[1/7] [ ##------------ ] "
End Select
world.note replace(kto,"> ","")&"."
end sub
]]>
</script>
</muclient>