Just basically to slap somebody.....lol: Type !slap (name)
Event -ChatMessage
If $Left($Message, 6) = "!slap " AND #Len($Message) > 6
If #PNumber($Right($Message, #Len($Message) - 6)) = 0
/SendPM #Source, "+SlapMachine: There's no player here by that name for you to slap...Slapping's not nice, anyway..."
/StopEvent
/Exit
Else
/set #randslap, #Rand(100, 20)
If #PNumber($Right($Message, #Len($Message) - 6)) = #Source
/SendAll "*** " & $Name(#Source) & " slaps himself/herself."
/SendAll "*** " & $Name(#Source) & " did " & $Str(#randslap) & " damage!"
If #Randslap >= 80
/SendAll "*** " & $Name(#PNumber($Right($Message, #Len($Message) - 6))) & " Died."
EndIf
/StopEvent
/Exit
Else
/SendAll "*** " & $Name(#Source) & " slaps " & $Name(#PNumber($Right($Message, #Len($Message) - 6))) & ""
/SendAll "*** " & $Name(#Source) & " did " & $Str(#Randslap) & " damage!"
If #Randslap >= 80
/SendAll "*** " & $Name(#PNumber($Right($Message, #Len($Message) - 6))) & " Died."
EndIf
/StopEvent
/Exit
EndIf
EndIf
EndIf
EndEvent
Event -ChatMessage
If $Left($Message, 6) = "!slap " AND #Len($Message) > 6
If #PNumber($Right($Message, #Len($Message) - 6)) = 0
/SendPM #Source, "+SlapMachine: There's no player here by that name for you to slap...Slapping's not nice, anyway..."
/StopEvent
/Exit
Else
/set #randslap, #Rand(100, 20)
If #PNumber($Right($Message, #Len($Message) - 6)) = #Source
/SendAll "*** " & $Name(#Source) & " slaps himself/herself."
/SendAll "*** " & $Name(#Source) & " did " & $Str(#randslap) & " damage!"
If #Randslap >= 80
/SendAll "*** " & $Name(#PNumber($Right($Message, #Len($Message) - 6))) & " Died."
EndIf
/StopEvent
/Exit
Else
/SendAll "*** " & $Name(#Source) & " slaps " & $Name(#PNumber($Right($Message, #Len($Message) - 6))) & ""
/SendAll "*** " & $Name(#Source) & " did " & $Str(#Randslap) & " damage!"
If #Randslap >= 80
/SendAll "*** " & $Name(#PNumber($Right($Message, #Len($Message) - 6))) & " Died."
EndIf
/StopEvent
/Exit
EndIf
EndIf
EndIf
EndEvent