Main
About Me
Coding
.Bas Files
Forms
Files
HTML
Banner
Contact
|
Jolt Codes
Back |
Elite Talker
Make 1 text box and one command
button.
Call EliteTalker(Text1)
Mass IM
Make 3 text boxes, 1 list box, and 3 buttons.
In the first button (Add Room)
type:
Call AddroomToListBox(list1)
In the second button (Start the
IM) type:
For X = 0 To List1.ListCount
- 1
Call IMKeyword("" +
List1.List(X)
+ "", "Sup "
+ List1.List(X)
+ "? " + Text1 + Chr(10)
+ Chr(13) + Chr(10) + Chr(13)
+ " "
& Text2.Text & "")
Next X
In the third button (Clear List)
type:
List1.clear
In textbox1 type what you want
the IM to
say.
In textbox2 type the name of
your prog.
Advertise
Make a button and in it type:
SendChat ("NaMe Of ProGG")
TimeOut (0.5)
SendChat ("By: YoUr NamE")
TimeOut (0.5)
SendChat ("Loaded By: "
& UserSN())
Room Buster
U need: 2 Buttons, 1 Text Box, 2 Labels
Set Button1's caption to "Start"
and Button2's caption to "Stop"
Set Label1's caption to "0"
and
Label2's caption to "Tries!"
Button1:
room% = FindChatRoom()
a% = SendMessage(room%, WM_CLOSE,
0, 0)
Do
Call KeyWord("aol://2719:2-2-"
& Text1.Text)
Call TimeOut(0.09)
Label1.Caption = Val(Label1)
+ 1
waitforok
Loop
Button2:
Do
DoEvents
Loop
Attention Bot
Make a text box and a command
button.In the
button type:
SendChat ("<---[AtTeNtIoN]--->")
TimeOut (0.5)
SendChat (Text1.Text)
TimeOut (0.5)
SendChat ("<---[AtTeNtIoN]--->")
Fighter Bot
You will need 2 TextBox's and 3 Command Buttons
In the Form put the following:
Text1.Text = UserSN()
StayOnTop Me
In command Button 1 (Start Button)
Put the
following:
SendChat ("The Fighters chosen are:
" + Text1.Text + " And: "
+ Text2.Text)
SendChat ("LeT ThE GaMeS
BeGiN!")
1
X = Int(Rnd * 10 + 1)
If X = 1 Then SendChat (Text1.Text
+ "
Spits In " + Text2.Text
+ " Face!")
TimeOut (1)
If X = 2 Then SendChat (Text2.Text
+ "
Grabs " + Text1.Text + "
Hair")
TimeOut (1)
If X = 3 Then SendChat (Text1.Text
+ "
Beats " + Text2.Text + "
In the
head
with a BaseBall Bat!")
TimeOut (1)
If X = 4 Then SendChat (Text2.Text
+ "
Drop Kicks " + Text1.Text)
TimeOut (1)
If X = 5 Then SendChat (Text1.Text
+ "
Kicks " + Text2.Text + "
In the
Nuts! "
+ Text2.Text + " Goes down
Hard!")
TimeOut (1)
If X = 6 Then SendChat (Text2.Text
+ "
Cuts " + Text1.Text + "
With a
Knife")
TimeOut (1)
If X = 7 Then SendChat (Text1.Text
+ "
Hits " + Text2.Text + "
In the
head
with a Metal Chair")
TimeOut (1)
If X = 8 Then SendChat (Text2.Text
+ "
Bites " + Text1.Text + "
Nuts Off!!")
TimeOut (1)
If X = 9 Then SendChat (Text1.Text
+ "
Brings in Vodoo shit and Makes
" +
Text2.Text + " Kill him
self")
TimeOut (1)
If X = 10 Then SendChat (Text2.Text
+ "
Can't take anymore and Gives
up to "
+
Text1.Text)
TimeOut (1)
GoTo 1
In the 2nd Command Button (Stop
Button) put
the Following:
SendChat ("Fighter BoT Finshed")
TimeOut (1)
X = Int(Rnd * 10 + 1)
IF X = 1 Then SendChat (Text1.Text
+ "
Kicked " + Text2.Text +
" Ass!")
IF X = 2 Then SendChat (Text2.Text
+ "
Kicked " + Text1.Text +
" Ass!")
TimeOut (9999999)
In the 3rd Button (Exit Button)
put the following:
SendChat ("Fighter Bot DisActivated")
Form2.Show
Unload Me
TimeOut (9999999)
Echo Bot
Make 2 command buttons,1 textbox
and 1 timer
Set timer1 intervals to 1
In timer put :
If SNFromLastChatLine = Text1.Text
Then SendChat
LastChatLine
In Command1 put Timer1.enabled=true
In Command2 put Timer1.enabled=false
In command 1 put caption Start
In command2 put caption stop
SendChat " <pre" & String(1900,
" ")
TimeOut 0.5
SendChat " <pre"
& String(1900,
" ")
TimeOut (1)
SendChat " <pre"
& String(1900,
" ")
TimeOut 0.5
SendChat " <pre"
& String(1900,
" ")
TimeOut (1)
Make two command buttons, command
1 code
should be (IM's off):
Call IMKeyword("$IM_off", "
")
2nd command button's code will be (IM's on):
Call IMKeyword("$IM_on","
")
|
|