Verfügbare Informationen zu "Script Hilfe"
Qualität des Beitrags: Beteiligte Poster: Noktusker - Ninphelos - hi nub - Jay Forum: PokéPiece Forenbeschreibung: >>>Smalltalk aus dem Unterforum: Archiv Antworten: 5 Forum gestartet am: Sonntag 06.08.2006 Sprache: deutsch Link zum Originaltopic: Script Hilfe Letzte Antwort: vor 15 Jahren, 11 Monaten, 12 Tagen, 13 Stunden, 55 Minuten
Alle Beiträge und Antworten zu "Script Hilfe"
Re: Script Hilfe
Noktusker - 08.04.2007, 22:50Script Hilfe
R_M oder i-jemand kann einer plox sieses Scriptwindow ,,berichtigen"?
ICh habs einfach reingehauen:
Event +PlayerSignOn
/SendPM #Source, " "
/SendPM #Source, "*** Hello " & $Name(#Source) & " ! Welcome to the KaktusBar! *** "
/SendPM #Source, "*** To read the rules type /rules *** Try also /commands to see the other commands ***"
/SendPM #Source, "*** Enjoy your stay! *** "
/SendPM #Source, " "
/SendPM #Source, "*** Hallo " & $Name(#Source) & " ! Willkommen im Berliner Bizzclub! *** "
/SendPM #Source, "*** Um die Regeln zu lesen gebt /regeln ein *** Probiert auch /commands um die anderen Befehle zu sehen ***"
/SendPM #Source, "*** Viel Spaß! *** "
/SendPM #Source, " "
If $Left($Name(#Source), 1) = "" OR $Name(#Source) = "Markus95"
/SendPM #Source, "Tschüss Opfer, Scheißhaufen haben leider nicht die Rechte diesen 1337 Server betreten zu dürfen :((("
/Kick #Source
/Exit
EndIf
EndEvent
Event -ChallengeIssued
If $Mid($Message, 1, 1) = "0"
/SendPM #Source, ""
/SendPM #Source, "*** Du kannst diesen Spieler nicht herausfordern! ***"
/SendPM #Source, "*** Sleep Clause, Freeze Clause and Battle Timeout müssen an sein! ***"
/SendPM #Source, ""
/SendPM #Source, "*** You can't challenge this player! ***"
/SendPM #Source, "*** Sleep Clause, Freeze Clause and Battle Timeout have to be on! ***"
/SendPM #Source, ""
/StopEvent
/Exit
EndIf
If $Mid($Message, 2, 1) = "0"
/SendPM #Source, ""
/SendPM #Source, ""
/SendPM #Source, "*** Du kannst diesen Spieler nicht herausfordern! ***"
/SendPM #Source, "*** Sleep Clause, Freeze Clause and Battle Timeout müssen an sein! ***"
/SendPM #Source, ""
/SendPM #Source, "*** You can't challenge this player! ***"
/SendPM #Source, "*** Sleep Clause, Freeze Clause and Battle Timeout have to be on! ***"
/SendPM #Source, ""
/StopEvent
/Exit
EndIf
If $Mid($Message, 8, 1) = "0"
/SendPM #Source, ""
/SendPM #Source, "*** Du kannst ihn/sie nicht herausfordern! ***"
/SendPM #Source, "*** Sleep Clause, Freeze Clause and Battle Timeout müssen on sein! ***"
/SendPM #Source, ""
/SendPM #Source, "*** You can't challenge without Sleep Clause, Freeze Clause and Battle Timeout! ***"
/SendPM #Source, ""
/StopEvent
/Exit
EndIf
If #Uber(#Target) = 1 AND #HasPoke(#Source, 150) = 1 OR #HasPoKe(#Source, 151) = 1 OR #HasPoKe(#Source, 249) = 1 OR #HasPoKe(#Source, 250) = 1 OR #HasPoKe(#Source, 380) = 1 OR #HasPoKe(#Source, 381) = 1 OR #HasPoKe(#Source, 382) = 1 OR #HasPoKe(#Source, 383) = 1 OR #HasPoKe(#Source, 384) = 1 OR #HasPoKe(#Source, 386) = 1 OR #HasPoKe(#Source, 387) = 1 OR #HasPoKe(#Source, 388) = 1 OR #HasPoKe(#Source, 389) = 1
/SendPM #Source, " "
/SendPM #source,"*** You cannot challenge this person with ubers! ***"
/SendPM #Source, " "
/StopEvent
/exit
EndIf
If #uber(#Source) = 1 AND #HasPoke(#Target, 150) = 1 OR #HasPoke(#Target, 151) = 1 OR #HasPoke(#Target, 249) = 1 OR #HasPoke(#Target, 250) = 1 OR #HasPoke(#Target, 380) = 1 OR #HasPoke(#Target, 381) = 1 OR #HasPoke(#Target, 382) = 1 OR #HasPoke(#Target, 383) = 1 OR #HasPoke(#Target, 384) = 1 OR #HasPoke(#Target, 386) = 1 OR #HasPoke(#Target, 387) = 1 OR #HasPoke(#Target, 388) = 1 OR #HasPoke(#Target, 389) = 1
/SendPM #Source, " "
/SendPM #Source, "*** You cannot challenge this player, because he has ubers! ***"
/SendPM #Source, " "
/StopEvent
/exit
EndIf
If #IsIn($Tourney, "=" & $Name(#Target) & "=") > 0
/SendPM #Source, "*** As your opponent is in the tourney, he can't battle anyone until pairings have been done for him!"
/StopEvent
/Exit
EndIf
If #IsIn($Tourney, "=" & $Name(#Source) & "=") > 0
/SendPM #Source, "*** As you are in the tourney, you can't challenge anyone until pairings have been done for you!"
/StopEvent
/Exit
EndIf
If #IsIn($Battles, "=" & $Name(#Source) & "=") > 0
If #IsIn($Battles, "|=" & $Name(#Source) & "=") > 0
/Set $Var, $Right($Battles, #Len($Battles) - #IsIn($Battles, "|=" & $Name(#Source) & "=") - 3 -
#Len($Name(#Source)))
/Set $Var, $Left($Var, #IsIn($Var, "|") - 2)
If $Name(#Target) <> $Var
/SendPM #Source, "###: You must challenge " & $Var & "!"
/StopEvent
/Exit
EndIf
Else
/Set $Var, $Left($Battles, #IsIn($Battles, "==" & $Name(#Source) & "=|") - 1)
:Tloop
/Set $Var, $Right($Var, #Len($Var) - #IsIn($Var, "|=") - 1)
If #IsIn($Var, "=") > 0
GoTo Tloop
EndIf
If $Name(#Target) <> $Var
/SendPM #Source, "###: You must challenge " & $Var & "!"
/StopEvent
/Exit
EndIf
EndIf
If #GetTeamPoke(#Source, 1) = #GetTeamPoke(#Source, 2) OR #GetTeamPoke(#Source, 1) = #GetTeamPoke(#Source, 3) OR #GetTeamPoke(#Source, 1) = #GetTeamPoke(#Source, 4) OR #GetTeamPoke(#Source, 1) = #GetTeamPoke(#Source, 5) OR #GetTeamPoke(#Source, 1) = #GetTeamPoke(#Source, 6) OR #GetTeamPoke(#Source, 2) = #GetTeamPoke(#Source, 3) OR #GetTeamPoke(#Source, 2) = #GetTeamPoke(#Source, 4) OR #GetTeamPoke(#Source, 2) = #GetTeamPoke(#Source, 5) OR #GetTeamPoke(#Source, 2) = #GetTeamPoke(#Source, 6) OR #GetTeamPoke(#Source, 3) = #GetTeamPoke(#Source, 4) OR #GetTeamPoke(#Source, 3) = #GetTeamPoke(#Source, 5) OR #GetTeamPoke(#Source, 3) = #GetTeamPoke(#Source, 6) OR #GetTeamPoke(#Source, 4) = #GetTeamPoke(#Source, 5) OR #GetTeamPoke(#Source, 4) = #GetTeamPoke(#Source, 6) OR #GetTeamPoke(#Source, 5) = #GetTeamPoke(#Source, 6)
/SendPM #Source, "*** You must not have two pokemons that are the same!"
/StopEvent
/Exit
EndIf
If #GetTeamPoke(#Target, 1) = #GetTeamPoke(#Target, 2) OR #GetTeamPoke(#Target, 1) = #GetTeamPoke(#Target, 3) OR #GetTeamPoke(#Target, 1) = #GetTeamPoke(#Target, 4) OR #GetTeamPoke(#Target, 1) = #GetTeamPoke(#Target, 5) OR #GetTeamPoke(#Target, 1) = #GetTeamPoke(#Target, 6) OR #GetTeamPoke(#Target, 2) = #GetTeamPoke(#Target, 3) OR #GetTeamPoke(#Target, 2) = #GetTeamPoke(#Target, 4) OR #GetTeamPoke(#Target, 2) = #GetTeamPoke(#Target, 5) OR #GetTeamPoke(#Target, 2) = #GetTeamPoke(#Target, 6) OR #GetTeamPoke(#Target, 3) = #GetTeamPoke(#Target, 4) OR #GetTeamPoke(#Target, 3) = #GetTeamPoke(#Target, 5) OR #GetTeamPoke(#Target, 3) = #GetTeamPoke(#Target, 6) OR #GetTeamPoke(#Target, 4) = #GetTeamPoke(#Target, 5) OR #GetTeamPoke(#Target, 4) = #GetTeamPoke(#Target, 6) OR #GetTeamPoke(#Target, 5) = #GetTeamPoke(#Target, 6)
/SendPM #Source, "*** Your opponent must not have two pokemons that are the same!"
/StopEvent
/Exit
EndIf
If #HasPoke(#Target, 150) = 1 OR #HasPoke(#Target, 151) = 1 OR #HasPoke(#Target, 249) = 1 OR #HasPoke(#Target, 250) = 1 OR #HasPoke(#Target, 380) = 1 OR #HasPoke(#Target, 381) = 1 OR #HasPoke(#Target, 382) = 1 OR #HasPoke(#Target, 383) = 1 OR #HasPoke(#Target, 384) = 1 OR #HasPoke(#Target, 386) = 1 OR #HasPoke(#Target, 387) = 1 OR #HasPoke(#Target, 388) = 1 OR #HasPoke(#Target, 389) = 1
/SendPM #Source, "*** Your opponent must not have ubers!"
/StopEvent
/Exit
EndIf
If #HasPoKe(#Source, 150) = 1 OR #HasPoKe(#Source, 151) = 1 OR #HasPoKe(#Source, 249) = 1 OR #HasPoKe(#Source, 250) = 1 OR #HasPoKe(#Source, 380) = 1 OR #HasPoKe(#Source, 381) = 1 OR #HasPoKe(#Source, 382) = 1 OR #HasPoKe(#Source, 383) = 1 OR #HasPoKe(#Source, 384) = 1 OR #HasPoKe(#Source, 386) = 1 OR #HasPoKe(#Source, 387) = 1 OR #HasPoKe(#Source, 388) = 1 OR #HasPoKe(#Source, 389) = 1
/SendPM #Source, "*** You must not have ubers!"
/StopEvent
/Exit
EndIf
Else
If #IsIn($Battles, "=" & $Name(#Target) & "=") > 0
/SendPM #Source, "*** Your opponent is in the tourney and not you, so don't challenge him!"
/StopEvent
/Exit
EndIf
EndIf
EndEvent
Event -ChatMessage
If #Chat = 1
If #GetPlayerInfo(#Source, AUTH) = 0
/SendPM #Source, "*** The chat has been turned off, so you can only send PMs at the moment!"
/StopEvent
Else
GoTo Auswertung
EndIf
Else
:Auswertung
If $Left($Message, 9) = "!SendAll "
If #GetPlayerInfo(#Source, AUTH) = 2
/SendAll $Right($Message, #Len($Message) - 9)
/? $Name(#Source) & " sent that message"
/StopEvent
EndIf
EndIf
If $Message = "/ubers off"
/Set #uber(#Source), 1
/SendPM #Source, "*** Now nobody can challenge you with ubers!"
/StopEvent
EndIf
If $Message = "/ubers on"
/Set #uber(#Source), 0
/SendPM #Source, "*** Now everybody can challenge you with ubers!"
/StopEvent
EndIf
If $Message = "/chat off"
If #GetPlayerInfo(#Source, AUTH) = 2
/Set #Chat, 1
/SendAll "*** " & $Name(#Source) & " turned the chat off! ***"
/StopEvent
EndIf
EndIf
If $Message = "/chat on"
If #GetPlayerInfo(#Source, AUTH) = 2
/Set #Chat, 0
/SendAll "*** " & $Name(#Source) & " turned the chat on! ***"
/StopEvent
EndIf
EndIf
If $Message = "/cloak"
/SetPlayerInfo #Source, HIDE, 0
/SendPM #Source, "*** Your team is now hidden!"
/StopEvent
EndIf
If $Message = "/decloak"
/SetPlayerInfo #Source, HIDE, 1
/SendPM #Source, "*** Your team is not longer hidden!"
/StopEvent
EndIf
If $Message = "/clean"
/stopevent
/Set #Count, 50
:Clear
/SendPM #Source, ""
/Inc #Count, - 1
If #Count <> 0
GoTo Clear
Else
/Exit
EndIf
EndIf
If $Message = "/players"
/SendPM #Source, "+ServerBot: There are " & $Str(#TrainersNum) & " players connected."
EndIf
If $Message = "/join" AND #GetPlayerInfo(#Source, AUTH) > 0
/SendAll "*** Type /join to participate in our tourney!"
/StopEvent
EndIf
If #GetValue($GetPlayerInfo(#Source, PSID) & "\mute") = 1
/StopEvent
/? $Name(#Source) & "(MUTED: " & $Message & ")"
If $Left($Message, 4) = "*** "
/Kick #Source
EndIf
/StopEvent
/Exit
EndIf
If $Left($Message, 6) = "/Mute " AND #GetPlayerInfo(#Source, AUTH) > 0
/Set #Mutee, #PNumber($Right($Message, #Len($Message) - 6))
/StopEvent
If #Mutee = 0
/SendPM #Source, "*** There doesn't seem to be anyone online with that name!"
/StopEvent
/Exit
EndIf
If #GetPlayerInfo(#Mutee, AUTH) >= #GetPlayerInfo(#Source, AUTH)
/SendPM #Source, "*** You can't mute that person!"
/StopEvent
/Exit
EndIf
If #GetValue($GetPlayerInfo(#Mutee, PSID) & "\mute") = 1
/SendPM #Source, "*** That player is already muted!"
/StopEvent
/Exit
EndIf
/SendAll " "
/SendAll "*** " & $Name(#Mutee) & " is now muted! ***"
/SendAll " "
/SaveValue $GetPlayerInfo(#Mutee, PSID) & "\mute", 1
/StopEvent
/Exit
EndIf
If $Left($Message, = "/DeMute " AND #GetPlayerInfo(#Source, AUTH) > 0
/Set #Demutee, #PNumber($Right($Message, #Len($Message) - )
If #Demutee = 0
/SendPM #Source, "*** I can't seem to find anyone on with that name!"
/StopEvent
/Exit
EndIf
If #Demutee = #Source
/SendPM #Source, "*** You can't demute yourself!"
/StopEvent
/Exit
EndIf
If #GetValue($GetPlayerInfo(#Demutee, PSID) & "\mute") = 0
/SendPM #Source, "*** " & $Name(#Demutee) & " isn't muted."
EndIf
/StopEvent
If #GetPlayerInfo(#Demutee, AUTH) <> 2 AND #Demutee <> 0 AND #GetValue($GetPlayerInfo(#Demutee, PSID) & "\mute") = 1
/SendAll " "
/SendAll "*** " & $Name(#Demutee) & " has been demuted!"
/SendAll " "
/SaveValue $GetPlayerInfo(#Demutee, PSID) & "\mute", 0
EndIf
/StopEvent
/Exit
EndIf
If $Message = "mod me"
/SendPM #Source,"*** " & "Please do not ask to be Mod or Admin!"
/Kick #Source
/StopEvent
/Exit
EndIf
If $Message = "admin me"
/SendPM #Source,"*** " & "Please do not ask to be mod or admin!"
/Kick #Source
/StopEvent
/Exit
EndIf
If $Message = "/rules"
/SendPM #Source, " "
/SendPM #Source, "*** This is a German-Server! Please talk English or German only *** "
/SendPM #Source, "*** Do not use racist, distasteful, or threatening language *** "
/SendPM #Source, "*** Do not post anything pornographic or obscene in nature *** "
/SendPM #Source, "*** Do not post anything of a political nature *** "
/SendPM #Source, "*** Do not ask to become mod or admin *** "
/SendPM #Source, "*** Do not SPAM or FLOOD *** "
/SendPM #Source, "*** Keep a civil tone to your posting *** "
/SendPM #Source, "*** If there are problems with admins, mods or other users tell it to the Main-Admin *** "
/SendPM #Source, "*** Type /rules to view this again *** "
/SendPM #Source, " "
/StopEvent
/Exit
EndIf
If $Message = "/regeln"
/SendPM #Source, " "
/SendPM #Source, "*** Dies ist ein deutscher Server! Bitte sprecht nur Deutsch oder Englisch *** "
/SendPM #Source, "*** Bitte benutzt keine rassistischen, beleidigenden oder unangebrachten Audrücke *** "
/SendPM #Source, "*** Gebt keine Links zu pornografischen Seiten und schreibt nichts Obszönes *** "
/SendPM #Source, "*** Keine politischen Diskussionen *** "
/SendPM #Source, "*** Bemüht euch um eine freundliche Atmösphäre *** "
/SendPM #Source, "*** Spamt oder Floodet nicht *** "
/SendPM #Source, "*** Fragt nicht, ob ihr Mod oder Admin werden könnt *** "
/SendPM #Source, "*** Wenn es Probleme gibt, wendet euch an den Serverbetreiber *** "
/SendPM #Source, "*** Gebt /regeln ein, um dies erneut anzeigen zu lassen *** "
/SendPM #Source, " "
/StopEvent
/Exit
EndIf
If $Message = "/ubers"
/SendPM #Source, " "
/SendPM #Source, "*** Mewtwo "
/SendPM #Source, "*** Mew "
/SendPM #Source, "*** Lugia"
/SendPM #Source, "*** Ho-oh "
/SendPM #Source, "*** Kyogre "
/SendPM #Source, "*** Groudon "
/SendPM #Source, "*** Rayquaza "
/SendPM #Source, "*** Latias (even without Soul Dew) "
/SendPM #Source, "*** Latios (even without Soul Dew) "
/SendPM #Source, "*** Deoxys (all Forms) "
/SendPM #Source, " "
/StopEvent
/Exit
EndIf
If $Message = "/commands"
/SendPM #Source, " "
/SendPM #Source, "*** Commands ***"
/SendPM #Source, "*** /rules .............. View our rules in english *** "
/SendPM #Source, "*** /regeln ............. View our rules in german *** "
/SendPM #Source, "*** /cloak .............. Hide your Team until the battle *** "
/SendPM #Source, "*** /decloak ............ Show your Team all other Players *** "
/SendPM #Source, "*** /ignore (nick) ...... Ignore the user with that name *** "
/SendPM #Source, "*** /unignore (nick) .... Stop ignoring this user *** "
/SendPM #Source, "*** /ubers off .......... Nobody can challenge you with ubers in his Team *** "
/SendPM #Source, "*** /ubers on ........... Everybody can challenge you with ubers again *** "
/SendPM #Source, "*** /ubers .............. See which Pokemon are rated as ubers here *** "
/SendPM #Source, "*** /join ............... Participate in the running tourney *** "
/sendPM #Source, "*** /clean............... Clear your Chat Window *** "
/sendPM #Source, "*** /players............. To see how many players are connected *** "
/SendPM #Source, "*** /commands ........... View this again *** "
/SendPM #Source, "*** /authcommands ....... View the commands for the auths *** "
/SendPM #Source, " "
/StopEvent
/Exit
EndIf
If $Message = "/authcommands"
/SendPM #Source, "*** Auth Commands ***"
/SendPM #Source, "*** /modcommands ........ View the commands for mods *** "
/SendPM #Source, "*** /admincommands ...... View the commands for admins *** "
EndIf
If $Message = "/modcommands" AND #GetPlayerInfo(#Source, AUTH) > 0
/SendPM #Source, "*** Mod Commands ***"
/SendPM #Source, "*** /mute (nick) ........ Mute the user with that name *** "
/SendPM #Source, "*** /demute (nick) ...... Demute the user with that name *** "
EndIf
If $Message = "/admincommands" AND #GetPlayerInfo(#Source, AUTH) = 2
/SendPM #Source, "*** Admin Commands ***"
/SendPM #Source, "*** /chat off ........... Turn the chat off *** "
/SendPM #Source, "*** /chat on ............ Turn the chat on *** "
/SendPM #Source, "*** /tourney (#) ........ Start a tourney with that number of comabatants *** "
/SendPM #Source, "*** /stoptourney ........ Stop the current tourney *** "
EndIf
If $Left($Message, 1) = "/"
/StopEvent
EndIf
If $Left($Message, 1) = "!"
/StopEvent
EndIf
If $Message = "/StopTourney" AND #GetPlayerInfo(#Source, AUTH) > 0
If $Tourney <> "" OR $Battles <> ""
/Sendall ""
/SendAll "*** The tourney has been stopped! ***"
EndIf
/Set $Tourney, ""
/Set $Battles, ""
EndIf
If #IsIn($Message, "/Signoff ") = 1 AND #GetPlayerInfo(#Source, AUTH) > 0
/Set $Val, $Right($Message, #Len($Message) - 9)
If #IsIn($Tourney, "=" & $Val & "=") + #IsIn($Battles, "=" & $Val & "=") = 0
/SendPM #Source, "That person is not in the tourney."
/Exit
EndIf
/SendAll "+Tourney: " & $Val & " has been signed off the tourney!!"
/Set $Tourney, $Replace($Tourney, "/" & $Right("00" & $Str(#PNumber($Val)), 3) & "/", "")
/Set $Tourney, $Replace($Tourney, "=" & $Val & "=", "")
If #IsIn($Battles, "=" & $Val & "=") = 0
/Exit
EndIf
If #IsIn($Battles, "|=" & $Val & "=") > 0
/Set $Var, $Right($Battles, #Len($Battles) - #IsIn($Battles, "|=" & $Val & "=") - 3 - #Len($Val))
/Set $Var, $Left($Var, #IsIn($Var, "|") - 2)
Else
/Set $Var, $Left($Battles, #IsIn($Battles, "==" & $Val & "=|") - 1)
:TsignPp
/Set $Var, $Right($Var, #Len($Var) - #IsIn($Var, "|=") - 1)
If #IsIn($Var, "=") > 0
GoTo TsignPp
EndIf
EndIf
/Set $Battles, $Replace($Battles, "=" & $Val & "=", "")
/SendAll "+Tourney: " & $Var & " has no more opponent!"
/Set $Battles, $Replace($Battles, "=" & $Var & "=", "")
/Set $Tourney, "=" & $Var & "=" & $Tourney
If #IsIn($Battles, "=") > 0
/Exit
EndIf
/Set $Battles, ""
If $Tourney = "=" & $Var & "="
/SendAll "ATTENTION:"
/SendAll "*** " & $Name(#Source) & " is the winner of the tourney!"
/SendAll "*** CONGRATULATIONS! ***"
/Set $Tourney, ""
/Exit
EndIf
GoTo Tloop
EndIf
If #IsIn($Message, "/tourney") = 1
If #GetPlayerInfo(#Source, AUTH) < 1
/SendPM #Source, "*** You can't use it! Only mods and admins can!"
/Exit
EndIf
If $Tourney <> ""
/SendPM #Source, "*** A tourney is already going on. Say /StopTourney to stop it!"
/Exit
EndIf
If #IsIn($Message, "/tourney ") = 0
/SendPM #Source, "*** You must say the number entrants you want!"
/Exit
EndIf
/Set #Entrants, #Val($Right($Message, #Len($Message) - 9))
If #Entrants < 2 OR #Entrants > 255
/SendPM #Source, "*** You must have 255 or less players, or 2 or more players!"
/Exit
EndIf
/Set $Battles, ""
/SendPM #Source, "*** To stop the tourney say /stoptourney!"
/SendPM #Source, "*** To sign a player off the tourney say /signoff (player)!"
/Sendall ""
/SendAll "*** TOURNEY: ***"
/Sendall "*** A tourney with " & $Str(#Entrants) & " players started! Type /join to join! ***"
/SendAll "*** Rules: No ubers, Standard Clauses on, Apply PP Ups on, Battle Timeout on and no two or more same pokemon in your team! ***"
/Set $Tourney, "||"
/Exit
EndIf
If $Message = "/Join"
If $Tourney = ""
/SendPM #Source, "*** There is no tourney!"
/Exit
EndIf
If #IsIn($Tourney, "/" & $Right("00" & $Str(#Source), 3) & "/") > 0 OR #IsIn($Tourney, "=" & $Name(#Source) & "=") > 0
/SendPM #Source, "*** You already are in the tourney!"
/Exit
EndIf
If #IsIn($Tourney, "|") = 0
/SendPM #Source, "*** There is no more room left for you!"
/Exit
EndIf
If #GetPlayerInfo(#Source, "BWTH") <> 0
/SendPM #Source, "*** You must not be battling!"
/Exit
EndIf
/Set $Tourney, $Tourney & "/" & $Right("00" & $Str(#Source), 3) & "/"
/Inc #Entrants, -1
/SendAll "*** " & $Name(#Source) & " joined the tourney!"
If #Entrants > 0
/SendAll "+Tourney: " & $str(#Entrants) & " spot(s) left."
/SendPM #Source, "###: To sign off the tourney, type /signoff!"
/Exit
Else
/Set $Tourney, $Replace($Tourney, "/", "")
/Set $Var, $Right($Tourney, #Len($Tourney) - #IsIn($Tourney, "|") - 1)
:checkonloop
If $Var <> ""
/Set $Tourney, "=" & $Name(#Val($Left($Var, 3))) & "=" & $Tourney
/Set $Var, $Right($Var, #Len($Var) - 3)
GoTo CheckOnLoop
EndIf
/Set $Tourney, $Left($Tourney, #IsIn($Tourney, "|") - 1)
/SendAll "+Tourney: Inscriptions closed!"
:Tloop
/Set $Var, $Tourney
/SendAll "--------------------"
/Set #Entrants, (#Len($Var) - #Len($Replace($Var, "=", "")))/2
If #Entrants = 1
/SendAll "*** " & $Replace($Tourney, "=", "") & " is automatically selected for next round!"
/SendAll "*** Now everyone is listed, let's battle!"
/Exit
EndIf
/Set #X, #Rand(#Entrants, 1)
:Tltwop
/Set #Y, #Rand(#Entrants, 1)
If #X = #Y
GoTo Tltwop
EndIf
/Set #Entrants, 1
:Tlthreep
/Set $Var,$Right($Var, #Len($Var) - 1)
If #X = #Entrants OR #Y = #Entrants
If #X * #Y = 0
/Set $Battles, $Battles & "=" & $Left($Var, #IsIn($Var, "=") - 1) & "=|"
/SendAll "vs"
Else
/Set $Battles, $Battles & "|=" & $Left($Var, #IsIn($Var, "=") - 1) & "="
EndIf
/SendAll "###:" & $Left($Var, #IsIn($Var, "=") - 1)
/Set $Tourney, $Replace($Tourney, "=" & $Left($Var, #IsIn($Var, "=") - 1) & "=", "")
If #X = #Entrants
/Set #X, 0
Else
/Set #Y, 0
EndIf
EndIf
/Inc #Entrants
/Set $Var, $Right($Var, #Len($Var) - #IsIn($Var, "="))
If #X + #Y > 0
GoTo Tlthreep
EndIf
If $Tourney <> ""
GoTo Tloop
EndIf
/SendAll "--------------------"
/SendAll "*** Now everyone is listed! ***"
EndIf
EndIf
EndIf
EndEvent
Event -PlayerSignOff
If #IsIn($Tourney, "/" & $Right("00" & $Str(#Source), 3) & "/") > 0
/Set $Tourney, $Replace($Tourney, "/" & $Right("00" & $Str(#Source), 3) & "/", "")
/SendAll "*** " & $Name(#Source) & " left the signup list by signing off!"
/Inc #Entrants
/SendAll "+Tourney: " & $Str(#Entrants) & " spots left."
EndIf
EndEvent
Event -BattleOver
If #IsIn($Battles, "=" & $Name(#Source) & "=") * #IsIn($Battles, "=" & $Name(#Target) & "=") > 0
If $Left($Message, 3) = "TIE"
/SendAll "+Tourney: As the battle of " & $Name(#Source) & " and " & $Name(#Target) & " ended in a tie, they must rematch!"
/Exit
EndIf
/Set $Battles, $Replace($Replace($Battles, "=" & $Name(#Source) & "=", ""), "=" & $Name(#Target) & "=", "")
/Set $Tourney, $Tourney & "=" & $Name(#Source) & "="
/SendAll "+Tourney: " & $Name(#Source) & " has won! He continues the tourney but " & $Name(#Target) & " is out!"
If #IsIn($Battles, "=") > 0
/Exit
EndIf
/Set $Battles, ""
If $Tourney = "=" & $Name(#Source) & "="
/Set $Tourney, ""
/SendAll "*** ATTENTION: ***"
/SendAll "*** " & $Name(#Source) & " is the winner of the tourney!"
/Exit
EndIf
/SendAll "*** All the battles of the current round have been finished! ***"
:Tloop
/Set $Var, $Tourney
/SendAll "--------------------"
/Set #Entrants, (#Len($Var) - #Len($Replace($Var, "=", "")))/2
If #Entrants = 1
/SendAll "*** " & $Replace($Tourney, "=", "") & " is automatically selected for next round! ***"
/SendAll "*** Now Everyone is listed, let's battle! ***"
/Exit
EndIf
/Set #X, #Rand(#Entrants, 1)
:Tltwop
/Set #Y, #Rand(#Entrants, 1)
If #X = #Y
GoTo Tltwop
EndIf
/Set #Entrants, 1
:Tlthreep
/Set $Var,$Right($Var, #Len($Var) - 1)
If #X = #Entrants OR #Y = #Entrants
If #X * #Y = 0
/Set $Battles, $Battles & "=" & $Left($Var, #IsIn($Var, "=") - 1) & "=|"
/SendAll "vs"
Else
/Set $Battles, $Battles & "|=" & $Left($Var, #IsIn($Var, "=") - 1) & "="
EndIf
/SendAll "###:" & $Left($Var, #IsIn($Var, "=") - 1)
/Set $Tourney, $Replace($Tourney, "=" & $Left($Var, #IsIn($Var, "=") - 1) & "=", "")
If #X = #Entrants
/Set #X, 0
Else
/Set #Y, 0
EndIf
EndIf
/Inc #Entrants
/Set $Var, $Right($Var, #Len($Var) - #IsIn($Var, "="))
If #X + #Y > 0
GoTo Tlthreep
EndIf
If $Tourney <> ""
GoTo Tloop
EndIf
/SendAll "--------------------"
/SendAll "*** Now everyone is listed!"
EndIf
EndEvent
Event +NewMessage
/SetPA #Uber
EndEvent
Event +TeamChange
If #HasPoke(#Source, 150) = 1 OR #HasPoke(#Source, 151) = 1 OR #HasPoke(#Source, 249) = 1 OR #HasPoke(#Source, 250) = 1 OR #HasPoke(#Source, 380) = 1 OR #HasPoke(#Source, 381) = 1 OR #HasPoke(#Source, 382) = 1 OR #HasPoke(#Source, 383) = 1 OR #HasPoke(#Source, 384) = 1 OR #HasPoke(#Source, 386) = 1 OR #HasPoke(#Source, 387) = 1 OR #HasPoke(#Source, 388) = 1 OR #HasPoke(#Source, 389) = 1
/Set #uber(#Source), 0
/SendPM #Source, "*** You have ubers, you cannot challenge people who have set /ubers off *** "
/SendPM #Source, "*** Du hast Uber in deinem Team, du kannst keine Leute herausfordern, die /ubers off eingestellt haben ***"
/SendPM #Source, " "
EndIf
EndEvent
FOlende fehlermeldujng kommt und ich ahb ka was ich machen soll:
SCRIPT ERROR IN LINE #237: RTE 13: Type mismatch.
Re: Script Hilfe
Ninphelos - 14.04.2007, 23:24
Is doch klar das da was in Zeile 237 falsch ist =/
P. S.: Ich hasse deine Sig.
Re: Script Hilfe
hi nub - 15.04.2007, 10:49
schon klar -__- die frage is aber was
Re: Script Hilfe
Noktusker - 15.04.2007, 13:16
nin so weit war ich auch schon :shock:
btw ist das prob eh gelöst...
Re: Script Hilfe
Jay - 15.04.2007, 14:01
ninphelos ist schon ein toller hecht :D
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum PokéPiece
this owns aerobolt - gepostet von Kohlrabik am Dienstag 20.11.2007
Archiv der alten Bannedlisten - gepostet von Jay am Samstag 12.05.2007
Silvester Tourney [Finale / Endrunde] - gepostet von Sir Tracer am Mittwoch 21.02.2007
klohwaldi - gepostet von Fu Man Chu am Sonntag 15.07.2007
The Legend of Betka: Ocarina of Spam - gepostet von Truthahn am Sonntag 10.06.2007
wtf - gepostet von Lord_Kingdra am Montag 25.06.2007
WTF Pics - gepostet von OBSTL am Sonntag 15.04.2007
Ähnliche Beiträge wie "Script Hilfe"
Rogue Char Punkte verteilung Hilfe! - Th3_PuNiSh3r (Dienstag 01.11.2005)
Hilfe zu euren Signaturen, Avataren usw. - Aurora DeGardo (Donnerstag 09.08.2007)
DF 4 Hauptrahmen gebrochen Hilfe!!!!!!!!! - offre (Dienstag 05.09.2006)
Hilfe, ich werd Angegriffen... - kleinergrizzly (Donnerstag 28.12.2006)
Kriege den DF 5 nicht eingestellt,... HILFE - Adamski (Sonntag 30.09.2007)
Hilfe ich brauche dringend Getreide - susan (Donnerstag 19.07.2007)
Happy Birthday liebe Sandra - Nicole (Sonntag 07.12.2008)
Hilfe -.- - Bianca (Dienstag 12.12.2006)
Hilfe, ich bin DaWanda süchtig... - IM307 (Freitag 31.08.2007)
Script of Flood - 04.12. - ANNA301 (Dienstag 04.12.2007)
