• Home
 · 
• Internet/HTML
 · 
• Aol idle code for aol 6.0 by rc

Aol idle code for aol 6.0 by rc

Aol idle code for aol 6.0 by rc

Rate Aol idle code for aol 6.0 by rc

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Idle = True                                  ' 01/16/01 this is the newist
If Idle1$ = "" Then                        ' idle code up to date
Idle1$ = InputBox("Reason", " Whats your reason")
SendChat "°.° WHATEVER THE IDLERS NAME IS °.° - YOUR NICKNAME HERE -"
SendChat "°.°User: " + UserSn$ & "°.°"   ' QBICFX.CJB.NET
If Idle1$ <> "" Then SendChat "°.°Idle&#8250; " & Idle1$
SendChat "Idle for " & d & "00:d " & h & "00:hr " & M & "00:min"

GoTo Idle
Idle:                    ' email me for help with  problems with this code :)
Do: DoEvents
Pause 60#

M = Val(M) + 1
If M = "60" Then
       h = Val(h) + 1
       M = "0"
        If h = "24" Then
               d = Val(d) + 1
               h = 0
        End If
End If
SendChat "°.° wHATEVER HERE°.° -YOUR NICKNAME HERE -"
If Idle1$ <> "" Then SendChat "°.°IdleReason:&#8250; " & Idle1$
SendChat "°.°Idleing for " & d & ":d " & h & ":hr " & M & ":min"
Loop

End If