Script Hilfe

PokéPiece
Verfügbare Informationen zu "Script Hilfe"

  • Qualität des Beitrags: 0 Sterne
  • 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:50

    Script 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)