Fragen und Probleme zu den Kampf-Simulatoren und Server-Administration.

[Beta] RPG Script

#432636 von Leviathan
04.01.2009, 13:26
Tja... :tja:
Was soll man dazu sagen. Ein Fantasy RPG Script welchen ich vor 1 1/2 Jahren angefangen habe und eben gerade in meiner Sammlung von NB-Scripts gefunden habe.
Vielleicht kann ja jemand etwas damit anfangen :)
Liste der Befehle und Features:
Code: Alles auswählen1. Beim Server betreten wird jemand der den RPG Modus an hat begrüßt.
1.1 Es wird zwischen Dragon, Wizard, Beast und Guarder unterschieden.
1.2 Man wird per Privaten Nachricht an die Befehle erinnert.
1.3 Wenn der RPG Modus ausgestellt ist, bekommt man ebenfalls eine Private Nachricht.
2. Die Eingabe von '/Start'
2.1 Wenn man bereits einen Account hat, wird man dran erinnert. [ Näheres siehe
2.2 Es werden einem alle Charaktere mit ihren Vorteilen gezeigt.
2.3 Nach der Auswahl werden die Werte generiert und man erhält 500 Münzen für Moves und weitere Addons.

3. Die Eingabe von '/RPGCommands'
3.1 Es gibt folgende Befehle: /Reset, /Shop, /Information, /Information [Name]
3.2 /Reset  -     Setzt das RPG zurück, sofern eines vorhanden ist.
     /Shop  -     Zeigt die Shop-Befehle an
     /Information  -     Zeigt dir Informationen über dich an. ( Angriff, usw. )
     /Information [Name]  -     Zeigt dir Informationen über [Name] an

4 Die Eingabe von '/Shop'
4.1 Es gibt folgende Befehle: /Money, /Sell [Item], /List + Notes
4.2 /Money  -     Zeigt dir an, wieviel Geld bzw. Münzen du besitzt
     /Sell [Item]  -     Verkauft [Item]
     /List  -     Zeigt die eine Liste von Items an (zum Kaufen)
     Notes:  -     Kein Befehl! Gibt dir jedoch bei der Eingabe von '/Shop' Hinweise.
5. '/Attack [Name]' Funktion um andere Spiel anzugreifen
6. Nach einem Battle bekommt der Gewinner 50 Angriff/Leben/... und der Verlierer verliert 50 Angriff/Leben/...
.
.
.


Code: Alles auswählenEvent -PlayerSignOn
If $GetValue($GetPlayerInfo(#Source, PSID) & "Dragon") = "1"
/SendAll "*** ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ ATTENTION ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ"
/SendAll "*** " & $Name(#Source) & " is going to enter our Server. He/She is a Dragon!"
/SendAll "*** ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ ATTENTION ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ"
EndIf
If $GetValue($GetPlayerInfo(#Source, PSID) & "Wizard") = "1"
/SendAll "*** ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ ATTENTION ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ"
/SendAll "*** " & $Name(#Source) & " is going to enter our Server. He/She is a Wizard!"
/SendAll "*** ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ ATTENTION ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ"
EndIf
If $GetValue($GetPlayerInfo(#Source, PSID) & "Beast") = "1"
/SendAll "*** ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ ATTENTION ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ"
/SendAll "*** " & $Name(#Source) & " is going to enter our Server. He/She is a Beast!"
/SendAll "*** ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ ATTENTION ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ"
EndIf
If $GetValue($GetPlayerInfo(#Source, PSID) & "Guarder") = "1"
/SendAll "*** ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ ATTENTION ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ"
/SendAll "*** " & $Name(#Source) & " is going to enter our Server. He/She is a Guarder!"
/SendAll "*** ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ ATTENTION ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ"
EndIf
EndEvent


Event +PlayerSignOn
If $GetValue($GetPlayerInfo(#Source, PSID) & "RPGon") = "0"
/SendPM #Source, "*** ************************* RPG INFO ************************* ***" 
/SendPM #Source, "+RPG: You currently don't have your RPG on... "
/SendPM #Source, "+RPG: Type '/Start' to start it."
/SendPM #Source, "*** ************************* RPG INFO ************************* ***"
EndIf
If $GetValue($GetPlayerInfo(#Source, PSID) & "RPGon") = "1"
/SendPM #Source, "*** ************************* RPG INFO ************************* ***"
/SendPM #Source, "Willkommen " & $Name(#Source) & ". Please type '/RPGCommands' To see the RPG Commands:"
/SendPM #Source, "*** ************************* RPG INFO ************************* ***"
EndIf 
EndEvent

Event -ChatMessage
If $Message = "/Dragon" OR $Message = "/Wizard" OR $Message = "/Beast" OR $Message = "/Guarder" OR $Message = "/Start"
If $GetValue($GetPlayerInfo(#Source, PSID) & "RPGon") = "1"
/StopEvent 
/SendPM #Source, "*** There is already a RPG."
/Exit
EndIf
EndIf

If $Message = "/Reset"
If $GetValue($GetPlayerInfo(#Source, PSID) & "RPGon") = "0"
/StopEvent
/SendPM #Source, "*** There's no Account to Delete."
/Exit
EndIf
EndIf
 
If $Message = "/Reset"
If $GetValue($GetPlayerInfo(#Source, PSID) & "RPGon") = "1"
/StopEvent
/SaveValue $GetPlayerInfo(#Source, PSID) & "Dragon", 0
/SaveValue $GetPlayerInfo(#Source, PSID) & "Wizard", 0
/SaveValue $GetPlayerInfo(#Source, PSID) & "Beast", 0
/SaveValue $GetPlayerInfo(#Source, PSID) & "Guarder", 0
/SendPM #Source, "*** Done. Your RPG Account was deleted."
/SaveValue $GetPlayerInfo(#Source, PSID) & "RPGon", 0
EndIf
EndIf


If $Message = "/Start" AND $GetPlayerInfo(#Source, PSID) & "RPGon" = "1"
/StopEvent
/SendPM #Source, "You have already activated your RPG!"
/Exit
EndIf

If $Message = "/Start" AND $GetPlayerInfo(#Source, PSID) & "RPGon" <> "1"
/StopEvent
/SendPM #Source, ""
/SendPM #Source, "*** ************************************************** ***"
/SendPM #Source, ""
/SendPM #Source, "*** Choose a charakter!"
/SendPM #Source, "+RPG: You can't change the charakter in the game anymore. "
/SendPM #Source, ""
/SendPM #Source, "*** /Dragon  - High Attack and Special Attack"
/SendPM #Source, "*** /Wizard  - High Special Attack and Health"
/SendPM #Source, "*** /Beast - High Defense and Attack"
/SendPM #Source, "*** /Guarder - High Special Defense and Health"
/SendPM #Source, ""
/SendPM #Source, "*** ************************************************** ***"
/SendPM #Source, ""
/Exit
EndIf



If $Message = "/Dragon"
/StopEvent
/SendAll "*** " & $Name(#Source) & " Activated his/her RPG ***"
/SendPM #Source, ""
/SendPM #Source, "*** ************************* RPG ************************* ***"
/SaveValue $GetPlayerInfo(#Source, PSID) & "RPGon", 1 
/SaveValue $GetPlayerInfo(#Source, PSID) & "Attack", #Rand(3000, 2500)
/SaveValue $GetPlayerInfo(#Source, PSID) & "SAttack", #Rand(3000, 2500)
/SaveValue $GetPlayerInfo(#Source, PSID) & "Defense", #Rand(2000, 1000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "SDefense", #Rand(2000, 1000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "Health", #Rand(1500, 1000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "Dragon", 1
/SendPM #Source, "+RPG: Here are your Stats"
/SendPM #Source, ""
/SendPM #Source, "Attack: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Attack")) & " "
/SendPM #Source, "SAttack: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "SAttack")) & " " 
/SendPM #Source, "Defense: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Defense")) & " "
/SendPM #Source, "SDefense: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "SDefense")) & " " 
/SendPM #Source, "Health: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Health")) & " "
/SendPM #Source, "*** ************************* TIP ************************* ***"
/SendPM #Source, "Type '/RPGCommands' to see our RPG Commands!:"
/SendPM #Source, "*** You've earned 500 RPG-Coins. ***"
/SaveValue $GetPlayerInfo(#Source, PSID) & "Money", 500
/SendPM #Source, "Money: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Money")) & " "
/SendPM #Source, "*** ************************* TIP ************************* ***" 
/Exit 
EndIf

If $Message = "/Wizard"
/StopEvent
/SendAll "*** " & $Name(#Source) & " Activated his/her RPG ***"
/SendPM #Source, ""
/SendPM #Source, "*** ************************* RPG ************************* ***"
/SaveValue $GetPlayerInfo(#Source, PSID) & "RPGon", 1 
/SaveValue $GetPlayerInfo(#Source, PSID) & "Attack", #Rand(2000, 1000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "SAttack", #Rand(3000, 2500)
/SaveValue $GetPlayerInfo(#Source, PSID) & "Defense", #Rand(2000, 1000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "SDefense", #Rand(2000, 1000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "Health", #Rand(2500, 2000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "Wizard", 1
/SendPM #Source, "+RPG: Here are your Stats"
/SendPM #Source, ""
/SendPM #Source, "Attack: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Attack")) & " "
/SendPM #Source, "SAttack: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "SAttack")) & " " 
/SendPM #Source, "Defense: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Defense")) & " "
/SendPM #Source, "SDefense: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "SDefense")) & " " 
/SendPM #Source, "Health: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Health")) & " "
/SendPM #Source, "*** ************************* TIP ************************* ***"
/SendPM #Source, "Type '/RPGCommands' to see our RPG Commands!:"
/SendPM #Source, "*** You've earned 500 RPG-Coins. ***"
/SaveValue $GetPlayerInfo(#Source, PSID) & "Money", 500
/SendPM #Source, "Money: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Money")) & " "
/SendPM #Source, "*** ************************* TIP ************************* ***" 
/Exit 
EndIf

If $Message = "/Beast"
/StopEvent
/SendAll "*** " & $Name(#Source) & " Activated his/her RPG ***"
/SendPM #Source, ""
/SendPM #Source, "*** ************************* RPG ************************* ***"
/SaveValue $GetPlayerInfo(#Source, PSID) & "RPGon", 1 
/SaveValue $GetPlayerInfo(#Source, PSID) & "Attack", #Rand(3000, 2500)
/SaveValue $GetPlayerInfo(#Source, PSID) & "SAttack", #Rand(2000, 1000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "Defense", #Rand(3000, 2500)
/SaveValue $GetPlayerInfo(#Source, PSID) & "SDefense", #Rand(2000, 1000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "Health", #Rand(1500, 1000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "Beast", 1
/SendPM #Source, "+RPG: Here are your Stats"
/SendPM #Source, ""
/SendPM #Source, "Attack: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Attack")) & " "
/SendPM #Source, "SAttack: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "SAttack")) & " " 
/SendPM #Source, "Defense: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Defense")) & " "
/SendPM #Source, "SDefense: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "SDefense")) & " " 
/SendPM #Source, "Health: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Health")) & " "
/SendPM #Source, "*** ************************* TIP ************************* ***"
/SendPM #Source, "Type '/RPGCommands' to see our RPG Commands!:"
/SendPM #Source, "*** You've earned 500 RPG-Coins. ***"
/SaveValue $GetPlayerInfo(#Source, PSID) & "Money", 500
/SendPM #Source, "Money: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Money")) & " "
/SendPM #Source, "*** ************************* TIP ************************* ***" 
/Exit 
EndIf

If $Message = "/Guarder"
/StopEvent
/SendAll "*** " & $Name(#Source) & " Activated his/her RPG ***"
/SendPM #Source, ""
/SendPM #Source, "*** ************************* RPG ************************* ***"
/SaveValue $GetPlayerInfo(#Source, PSID) & "RPGon", 1 
/SaveValue $GetPlayerInfo(#Source, PSID) & "Attack", #Rand(2000, 1000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "SAttack", #Rand(2000, 1000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "Defense", #Rand(2000, 1000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "SDefense", #Rand(3000, 2500)
/SaveValue $GetPlayerInfo(#Source, PSID) & "Health", #Rand(2500, 2000)
/SaveValue $GetPlayerInfo(#Source, PSID) & "Guarder", 1
/SendPM #Source, "+RPG: Here are your Stats"
/SendPM #Source, ""
/SendPM #Source, "Attack: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Attack")) & " "
/SendPM #Source, "SAttack: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "SAttack")) & " " 
/SendPM #Source, "Defense: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Defense")) & " "
/SendPM #Source, "SDefense: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "SDefense")) & " " 
/SendPM #Source, "Health: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Health")) & " "
/SendPM #Source, "*** ************************* TIP ************************* ***"
/SendPM #Source, "Type '/RPGCommands' to see our RPG Commands!:"
/SendPM #Source, "*** You've earned 500 RPG-Coins. ***"
/SaveValue $GetPlayerInfo(#Source, PSID) & "Money", 500
/SendPM #Source, "Money: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Money")) & " "
/SendPM #Source, "*** ************************* TIP ************************* ***" 
/Exit 
EndIf

If $Message = "/Information"
If $GetValue($GetPlayerInfo(#Source, PSID) & "RPGon") = "1"
/StopEvent
/SendPM #Source, ""
/SendPM #Source, "*** ************************* Information ************************* ***"
/SendPM #Source, ""
/SendPM #Source, "Attack: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Attack")) & " "
/SendPM #Source, "SAttack: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "SAttack")) & " " 
/SendPM #Source, "Defense: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Defense")) & " "
/SendPM #Source, "SDefense: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "SDefense")) & " " 
/SendPM #Source, "Health: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Health")) & " "
/SendPM #Source, "" 
If $GetValue($GetPlayerInfo(#Source, PSID) & "Dragon") = "1"
/SendPM #Source, "*** You are a Dragon."
EndIf
If $GetValue($GetPlayerInfo(#Source, PSID) & "Wizard") = "1"
/SendPM #Source, "*** You are a Wizard."
EndIf
If $GetValue($GetPlayerInfo(#Source, PSID) & "Beast") = "1"
/SendPM #Source, "*** You are a Beast."
EndIf
If $GetValue($GetPlayerInfo(#Source, PSID) & "Guarder") = "1"
/SendPM #Source, "*** You are a Guarder."
EndIf
/SendPM #Source, "*** ************************* Information ************************* ***"
/SendPM #Source, ""
EndIf
EndIf

If $Left($Message, 13) = "/Information "
/StopEvent
/Set #Info, #PNumber($Right($Message, #Len($Message) - 13))
If $GetValue($GetPlayerInfo(#Info, PSID) & "RPGon") = "1" 
/SendPM #Source, ""
/SendPM #Source, "*** ************************* Informationen über " & $Right($Message, #Len($Message) - 13) & "

************************* ***"
/SendPM #Source, ""
/SendPM #Source, "Attack: " & $Str(#GetValue($GetPlayerInfo(#Info, PSID) & "Attack")) & " "
/SendPM #Source, "SAttack: " & $Str(#GetValue($GetPlayerInfo(#Info, PSID) & "SAttack")) & " " 
/SendPM #Source, "Defense: " & $Str(#GetValue($GetPlayerInfo(#Info, PSID) & "Defense")) & " "
/SendPM #Source, "SDefense: " & $Str(#GetValue($GetPlayerInfo(#Info, PSID) & "SDefense")) & " " 
/SendPM #Source, "Health: " & $Str(#GetValue($GetPlayerInfo(#Info, PSID) & "Health")) & " "
/SendPM #Source, "" 
If $GetValue($GetPlayerInfo(#Info, PSID) & "Dragon") = "1"
/SendPM #Source, "*** " & $Right($Message, #Len($Message) - 13) & " is a Dragon."
EndIf
If $GetValue($GetPlayerInfo(#Info, PSID) & "Wizard") = "1"
/SendPM #Source, "*** " & $Right($Message, #Len($Message) - 13) & " is a Wizard."
EndIf
If $GetValue($GetPlayerInfo(#Info, PSID) & "Beast") = "1"
/SendPM #Source, "*** " & $Right($Message, #Len($Message) - 13) & " is a Beast."
EndIf
If $GetValue($GetPlayerInfo(#Info, PSID) & "Guarder") = "1"
/SendPM #Source, "*** " & $Right($Message, #Len($Message) - 13) & " is a Guarder."
EndIf
/SendPM #Source, "*** ************************* Informationen über " & $Right($Message, #Len($Message) - 13) & "

************************* ***"
/SendPM #Source, ""
EndIf
EndIf

If $Message = "/Information" OR $Message = "/Shop" OR $Message = "/Money" OR $Left($Message, 13) = "/Information " OR $Message =

"/List" OR $Message = "/RPGCommands" OR $Message = "/Storage"
If $GetValue($GetPlayerInfo(#Source, PSID) & "RPGon") = "0"
/StopEvent
/SendPM #Source, "*** There's no RPG. Type '/Start' to start one."
/Exit
EndIf
EndIf

If $Message = "/RPGCommands"
/StopEvent
/SendPM #Source, ""
/SendPM #Source, "*** ************************* RPG Commands ************************* ***" 
/SendPM #Source, ""
/SendPM #Source, "/Reset: To reset your RPG"
/SendPM #Source, "/Shop: To see the Shop Commands"
/SendPM #Source, "/Information: To see Informations about you ( Atk, SAtk, Def, SDef, Health, Charakter )"
/SendPM #Source, "/Information [Name]: To see Informations about [Name]. ( Atk, SAtk, Def, SDef, Health, Charakter ) "
/SendPM #Source, ""
/SendPM #Source, "*** ************************* RPG Commands ************************* ***" 
/SendPM #Source, ""
EndIf



If $Message = "/Money"
/StopEvent
/SendPM #Source, ""
/SendPM #Source, "Your Money: " & $Str(#GetValue($GetPlayerInfo(#Source, PSID) & "Money")) & " "
/SendPM #Source, ""
EndIf

If $Message = "/Shop"
If $GetValue($GetPlayerInfo(#Source, PSID) & "RPGon") = "1"
/StopEvent
/SendPM #Source, ""
/SendPM #Source, "*** ************************* Shop ************************* ***" 
/SendPM #Source, ""
/SendPM #Source, "/Money: To see how much money you got"
/SendPM #Source, "/Sell [Item]: To sell an Item"
/SendPM #Source, "/Moves: To see your current Moves"
/SendPM #Source, "/List: To see a list of Items you can buy"
/SendPM #Source, ""
/SendPM #Source, "Note: To Win Battles is Good for Attack, SAttack, Defense, SDefense or Health"
/SendPM #Source, "Note: But if you lose a Battle, you are going to lose Attack, SAttack, Defense, SDefense or Health"
/SendPM #Source, ""
/SendPM #Source, "*** ************************* Shop ************************* ***" 
/SendPM #Source, ""
EndIf
EndIf

If $Message = "/Moves"
If $GetValue($GetPlayerInfo(#Source, PSID) & "RPGon") = "1"
/StopEvent
/SendPM #Source, ""
/SendPM #Source, "==================================================:"
/SendPM #Source, "*** Your Moves"
/SendPM #Source, "==================================================:"
/SendPM #Source, ""
If $Message = "/Moves"
If #GetValue($GetPlayerInfo(#Source, PSID) & "_DragonFire") > 0
/SendPM #Source, "*** DragonFire.   -   200 Damage"
EndIf
EndIf
If $Message = "/Moves"
If #GetValue($GetPlayerInfo(#Source, PSID) & "_-Kill-") > 0
/SendPM #Source, "*** -Kill-.   -   500 Damage"
EndIf
EndIf
If $Message = "/Moves"
If #GetValue($GetPlayerInfo(#Source, PSID) & "_Comotion") > 0
/SendPM #Source, "*** Comotion.   -   50 Damage"
EndIf
EndIf
If $Message = "/Moves"
If #GetValue($GetPlayerInfo(#Source, PSID) & "_Comotion") > 0
/SendPM #Source, "*** Comotion.   -   50 Damage"
EndIf
EndIf
If $Message = "/Moves"
If #GetValue($GetPlayerInfo(#Source, PSID) & "_RockSlide") > 0
/SendPM #Source, "*** Rock Slide.   -   150 Damage"
EndIf
EndIf
/SendPM #Source, ""
EndIf
EndIf


If $Message = "/List"
/StopEvent
/SendPM #Source, "" 
/SendPM #Source, "*** ************************* The Shop List ************************* ***"
/SendPM #Source, "" 
/SendPM #Source, "*** Type /Buy [Item Name] to Buy it."
If $GetValue($GetPlayerInfo(#Source, PSID) & "Dragon") = "1"
/SendPM #Source, ""
/SendPM #Source, "~ Move Section ~:"
/SendPM #Source, ""
/SendPM #Source, "-Kill-: This Attack is the Most effectiv one. -500 Health for you Opponent. "
/SendPM #Source, "*** /Info1"
/SendPM #Source, "DragonFire: A powerful Attack.  -200 Health for your Opponent."
/SendPM #Source, "*** /Info2"
/SendPM #Source, "Comotion: An Attack that hurts your Opponent.  -50 Health for him/her"
/SendPM #Source, "*** /Info3"
/SendPM #Source, "Rock Slide: ... Boom!  -150 Health for your Opponent"
/SendPM #Source, "*** /Info4"
/SendPM #Source, ""
/SendPM #Source, "More Will be added later."
EndIf
/SendPM #Source, ""
/SendPM #Source, "*** ************************* The Shop List ************************* ***"
/SendPM #Source, "" 
EndIf


If $Left($Message, 8) = "/Attack "
/Set $Target, $Right($Message, #Len($Message) - 8)
/Set #SourceAtk, #GetValue($GetPlayerInfo(#Source, PSID) & "Attack")
/Set #TargetDef, #GetValue($GetPlayerInfo(#PNumber($Target), PSID) & "Defense")
/StopEvent
If #IsLoaded(#PNumber($Target)) = 0
/SendPM #Source, "+AttackBot: " & $Target & " is not Online."
/Exit
EndIf
If #GetValue($GetPlayerInfo(#PNumber($Target), PSID) & "RPGon") = 0
/SendPM #Source, "+RPGBot:  " & $Target & " is not Playing RPG."
/Exit
EndIf
If #GetValue($GetPlayerInfo(#PNumber($Target), PSID) & "RPGon") = 1
If #SourceAtk > #TargetDef
/SendAll "+AttackBot: " & $Name(#Source) & " hat " & $Target & " angegriffen."
/SendAll "+AttackBot: " & $Target & " has lost 200 Health."
/SaveValue $GetPlayerInfo(#PNumber($Target), PSID) & "Health" - 200
/Exit
EndIf
If #SourceAtk < #TargetDef
/SendAll "+AttackBot: " $Name(#Source) & " tried to attack " & $Target & ", but " & $Target & " was stronger!"
/SendAll "+AttackBot: " $Name(#Source) & " lost 100 Health."
/SaveValue $GetPlayerInfo(#Source, PSID) & "Health" - 100
/Exit
EndIf
If #SourceAtk = #TargetDef
/SendAll "+AttackBot: " & $Name(#Source) & " power was the same as " & $Target & "!  Both got hurt."
/SaveValue $GetPlayerInfo(#PNumber($Target), PSID) & "Health" - 75
/SaveValue $GetPlayerInfo(#Source, PSID) & "Health" - 75
/Exit
EndIf
EndIf
EndIf
EndEvent


Event +BattleOver
/Set #Rand, #Rand(5, 1)
If #Rand = 1
/SaveValue $GetPlayerInfo(#Source, PSID) & "Attack" + 50
/SendPM #Source, "*** You received a +50 Attack Bonus!"
/SaveValue $GetPlayerInfo(#Target, PSID) & "Attack" - 50
/SendPM #Source, "*** Oh no, you lost 50 Attack!"
/Unset #Rand
EndIf
If #Rand = 2
/SaveValue $GetPlayerInfo(#Source, PSID) & "SAttack" + 50
/SendPM #Source, "*** You received a +50 SAttack Bonus!"
/SaveValue $GetPlayerInfo(#Target, PSID) & "SAttack" - 50
/SendPM #Source, "*** Oh no, you lost 50 SAttack!"
/Unset #Rand
EndIf
If #Rand = 3
/SaveValue $GetPlayerInfo(#Source, PSID) & "Defense" + 50
/SendPM #Source, "*** You received a +50 Defense Bonus!"
/SaveValue $GetPlayerInfo(#Target, PSID) & "Defense" - 50
/SendPM #Source, "*** Oh no, you lost 50 Denfense!"
/Unset #Rand
EndIf
If #Rand = 4
/SaveValue $GetPlayerInfo(#Source, PSID) & "SDefense" + 50
/SendPM #Source, "*** You received a +50 SDefense Bonus!"
/SaveValue $GetPlayerInfo(#Target, PSID) & "SDefense" - 50
/SendPM #Source, "*** Oh no, you lost 50 SDefense!"
/Unset #Rand
EndIf
If #Rand = 5
/SaveValue $GetPlayerInfo(#Source, PSID) & "Health" + 50
/SendPM #Source, "*** You received a +50 Health Bonus!"
/SaveValue $GetPlayerInfo(#Target, PSID) & "Health" - 50
/SendPM #Source, "*** Oh no, you lost 50 Health!"
/Unset #Rand
EndIf
EndEvent         


Mfg, Leviathan ;)
-0
+0

Werbung

Registriere dich kostenlos und beteilige dich aktiv in diesem Forum, um diese Werbung auszublenden.


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste