Script("Name") = "addme"
Script("Author") = "cossack"
Script("Major") = 1
Script("Minor") = 0
Script("Description") = "dodawanie do listy przyjaciół"


Sub Event_Load()

   Set cmd = OpenCommand("on")
   If cmd Is Nothing Then
      Set cmd = CreateCommand("on")
      With cmd
         .Description = "dodwanie do listy przyjaciol bota"
         .RequiredRank = 10
         .Save
      End With
   End If

   Set cmd = Nothing
End Sub


Sub Event_Command(cmd)

   If LCase(cmd.Name) = "on" Then

         cmd.Respond StringFormat("/f add {0}", cmd.Username)
         cmd.Respond StringFormat("user jest teraz online")



   End If
End Sub