|
Bu da 6.2.06 tarihinde başka bir forumda başka biri yazdığım için aynı şeyi yapan kod:
on *:input:#:{ if (/* !iswm $1) || ($ctrlenter) { var %^ = 1, %' | while %^ <= $0 { %' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(,$gettok($1-,%^,32),),$gettok($1-,%^,32)) | inc %^ } | msg # %' | halt } }
|