Need help creating a ichat script to repeat text

Hey i’m new to this forum and to applescript. I’d like to know the code to make a script for ichat to repeat pasting text and sending it over and over again.

Thanks!!!

Hey! :smiley:
Are you trying to make an iChat spammer?
:lol: :lol: If so i have just what you need!

Heres the basic code:


set acct to "Victims Name"
repeat
	tell application "iChat"
		set "Your Spam Text" to _text as string
		repeat with acct in every account
		send myMsg to acct
		end repeat
	       end tell
end repeat

(didnt test that but sure it works)

PS: Help save MacScripter from unanswered questions!!!:slight_smile:

hmmmm :frowning:

I hope you use it just for fun…

Ok, sorry about that code.
here is the full thing:
NOTE!
Do not re-produce this script, do not send/copy, use AT OWN RISK, use ONLY FOR A JOKE. please, for the good of iChat users do not use it as an advertisement or anything like that! (some things can be done with my permission)


(*  Created By Cal Smith  *)
property creator : "Cal Smith"
property is_first : 0
property not_first : 1
property after_first : 2
tell application "iChat"
	--Check if it is the first run
	if the not_first is greater than or equal to the is_first then
		set is_first to the after_first
		--user agreement
		display dialog "Version 2 Created By Cal Smith" & return & return & ¬
			"Agreement:" & return & ¬
			"Use at own risk, creator not responsible for damage of any kind to your computer or you. The Creator is not reponsible for the content of messages or how frequently they are sent. This application is not to be changed, copied or sent. This application temporarily sets iChat into a loop, after use iChat may quit unexpectedly. If you do not agree DO NOT CONTINUE" with icon 1 with title "Agreement" buttons {"I Agree, Continue"}
	end if
	--Check if is not first run
	if the is_first is greater than or equal to the not_first then
		beep
	end if
end tell

--start
tell application "iChat"
	--ask for spam text
	set text_input to display dialog "What should the spam text be?" default answer "" buttons {"Next"} with title "iChat SPAM" with icon 1
	set _text to text returned of text_input
	
	--ask for account to spam
	set options to display dialog "Enter your victims iChat name:" default answer "" buttons {"Spam Everyone Online", "Add Another", "Attack!"} with title "iChat SPAM" default button 3 with icon 1
	set victim1 to text returned of options
	
	--send spam text to all users in the list
	if button returned of options is "Send to Everyone" then
		repeat
			tell application "iChat"
				set myMsg to _text as string
				repeat with acct in every account
					send myMsg to acct
				end repeat
			end tell
		end repeat
	end if
	
	--ask for another victim if option set to true
	if button returned of options is equal to "Add Another" then
		--ask for another victims account name
		set add_another to display dialog "Enter another victims iChat name:" default answer "" buttons {"Attack!"} with title "iChat SPAM" default button 1 with icon 1
		set victim2 to text returned of add_another
		--check for immunity
		if victim1 is equal to creator then
			set noo to display dialog "You can't spam that person" buttons {"Quit"} with title "Error" with icon 0
			if button returned of noo is "Quit" then
				quit
			end if
		end if
		
		
		if victim2 is equal to creator then
			set noo2 to display dialog "You can't spam that person" buttons {"Quit"} with title "Error" with icon 0
			if button returned of noo2 is "Quit" then
				quit
			end if
			
			--start sending spam if user hasn't quited from immunity	
		end if
		tell application "iChat"
			set status message to ">:-(>:-(>:-(>:-("
		end tell
		tell application "iChat"
			activate
			repeat
				send _text to account victim1
				send _text to account victim1
				send _text to account victim2
				send _text to account victim2
			end repeat
		end tell
	end if
	
	--start sending spam in single victim mode
	if victim1 is not equal to creator then
		tell application "iChat"
			set status message to ">:-(>:-(>:-(>:-("
		end tell
		tell application "iChat"
			activate
			repeat
				send _text to account victim1
				send _text to account victim1
			end repeat
		end tell
	end if
	
	display dialog "You can't spam that person" buttons {"Quit"} with title "Error" with icon 0
end tell

(i am a messy scripter)
have fun :slight_smile: