Pääsivu
Mute ja demute (pitäs toimii jos et evota):
Kooditagit viesteihin!!!!!
- Koodi:
If $Left($Message, 6) = "!Mute " AND #GetPlayerInfo(#Source, AUTH) > 0
/Set #Mutee, #PNumber($Right($Message, #Len($Message) - 6))
If #Mutee = 0
/SendPM #Source, "+Mosse: Ei oo ketään ton nimistä paikalla"
/StopEvent
/Exit
EndIf
If #GetPlayerInfo(#Mutee, AUTH) >= #GetPlayerInfo(#Source, AUTH)
/SendPM #Source, "+Mosse: Et voi mutee tota"
/StopEvent
/Exit
EndIf
If #GetValue($GetPlayerInfo(#Mutee, PSID) & "\mute") = 1
/SendPM #Source, "+Mosse: Toi on jo mutessa!"
/StopEvent
/Exit
EndIf
/SendAll "+Mosse: " & $Name(#Mutee) & " :lla on nyt Turpa kii counter eikä voi spämmiä main chatia."
If #PNumber($Admin) > 0
/SendPM #PNumber($Admin), "+Mosse: " & $Name(#Source) & " teki sen."
EndIf
/SaveValue $GetPlayerInfo(#Mutee, PSID) & "\mute", 1
/StopEvent
/Exit
EndIf
If $Left($Message, 8 ) = "!DeMute " AND #GetPlayerInfo(#Source, AUTH) > 0
/Set #Demutee, #PNumber($Right($Message, #Len($Message) - 8 ))
If #Demutee = 0
/SendPM #Source, "+Mosse: Ei oo ketään ton nimistä paikalla"
/StopEvent
/Exit
EndIf
If #Demutee = #Source
/SendPM #Source, "Mosse: Ai yrität demutee ittees?"
/StopEvent
/Exit
EndIf
If #GetValue($GetPlayerInfo(#Demutee, PSID) & "\mute") = 0
/SendPM #Source, "+Mosse: " & $Name(#Demutee) & " ei oo mutessa"
EndIf
If #Demutee <> 0 AND #GetValue($GetPlayerInfo(#Demutee, PSID) & "\mute") = 1
/SendAll "+Mosse: " & $Name(#Demutee) & " :n Turpa kii counter lähti Tropiuksen powerista eikä siiliäkään näkynyt missään."
If #PNumber($Admin) > 0
/SendPM #PNumber($Admin), "+Mosse: " & $Name(#Source) & " teki sen."
EndIf
/SaveValue $GetPlayerInfo(#Demutee, PSID) & "\mute", 0
EndIf
/StopEvent
/Exit
EndIf
If #GetValue($GetPlayerInfo(#Source, PSID) & "\mute") = 1
/StopEvent
/Exit
EndIf
Kooditagit viesteihin!!!!!